按4点绘制矩形
是否可以在此lisp中添加另一个函数？目前，这使您可以选择任何矩形（通过其4个角），然后用颜色填充它。
我想补充一点，它还绘制了一个围绕角落的白色矩形。
所以它有一个可以区分的边缘。
(defun c:v(
/
lastkleur)
(setq lastcolor (getvar "cecolor"))
(setvar "cecolor" "22")
(princ "\ngive 4 coreners :")
(command "solid" pause pause pause pause "")
(setvar "cecolor" lastcolor )
(princ)
) 请阅读代码发布指南，并在将来为您的代码使用代码标签。 尝试一下：
(defun c:test (/ lastkleur)
(setq lastcolor (getvar "cecolor"))
(setvar "cecolor" "22")
(princ "\give 4 corners :")
(setq a (getpoint "\nspecify first point:"))
(setq b (getpoint "\nspecify second point:"))
(setq c (getpoint "\nspecify third point:"))
(setq d (getpoint "\nspecify fourth point:"))
(command "pline" a b d c "close" "")
(command "solid" a b c d "")
(setvar "cecolor" lastcolor)
(princ)
)
将其更改一位（命令“pline”a“W”10 10 b d c“close”）
页:
[1]