用lisp语言实现四边形填充

(defun c:tc()
(setq pt1(getpoint "输入第1点坐标"))
(setq pt2(getpoint pt1 "输入第2点坐标"))
(setq pt3(getpoint pt2 "输入第3点坐标"))
(setq pt4(getpoint pt3 "输入第4点坐标"))

;;

;;屏幕上指定4个点

；；四点用pline连起来

；；用hatch命令进行填充

；；entlast 命令要熟悉他的用法；
(command "pline" pt1 pt2 pt3 pt4 "c")
(command "_hatch" "SOLID" (entlast) "")
(princ)
)