Question

如何用autolisp编辑命令进行图案填充

已知三个点的坐标，在AutoCAD里面采用AutoLISP命令将这三个点间连上线并用那三条线围成一个面域，然后对该面域涂上颜色。已经形成面域了，但是不会填充颜色，希望哪位高手指点下，谢谢。

Answer 1

(defun c:sd()
(setq oldcm (getvar "cmdecho")
oldos (getvar "osmode")
)
(setvar "cmdecho" 0)
(setvar "osmode" 33)
(command "_undo" "be")
(if (setq p1 (getpoint "\n指定第一点p1:"))
(if (setq p2 (getpoint p1 "\n指定第二点p2:"))
(progn
(grdraw p1 p2 7)
(if (setq p3 (getpoint p2 "\n指定第三点p3:"))
(progn
(setvar "osmode" 33)
(command "_pline" p1 p2 p3 "c")
(command "_hatch" "solid" (entlast) "")
(command "_chprop" (entlast) "" "c" 1 "")
)
)
)
)
)
(command "_undo" "e")
(setvar "cmdecho" oldcm)
(setvar "osmode" oldos)
(princ)
)

Answer 2

首先设置把三角全部显示在电脑上，
所有捕捉关掉，
计算得到 三角形内部其中一个点坐标值，
以坐标值为点填充，
恢复捕捉。
----------以上是我的思路，你在验证一下

追问

呵呵，不好意思，我是新手，你说的应该正确，不过我还真不会你说的那种做法。

追答

你说。已经形成面域了，但是不会填充颜色
这样说明你至少做了一半了
是这个BHATCH填充吗？

关键是“计算得到 三角形内部其中一个点坐标值”
如果你不会，只有操作的时候多一步，用鼠标拾取了

Answer 3

(setq la(entlast))
(command "hatch" la ...)

追问

我试了，不行，显示函数错误被取消。还是只能形成面域。