autolisp计算封闭面积点吗大神帮看一下代码有那些错误要求：使自定义函数能够实现在某一封闭区域内任意单击一点,便会弹出一个对话框.(defunc:mj()(setvar"cmdecho"0)(setqpt(getpoint"\n选取点:")(

Question

autolisp计算封闭面积点吗
大神帮看一下代码有那些错误 要求：使自定义函数能够实现在某一封闭区域内任意单击一点,便会弹出一个对话框.
(defun c:mj()
(setvar "cmdecho" 0)
(setq pt (getpoint "\n选取点:")
(while pt
(setvar "cecolor" "1")
(command "bpoly" pt "") 边界
(setq en (entlast))
(if (/= en nil)
(progn
(command "area" "o" en)
(setq aa (getvar "area")) aa=面积
(redraw en 3)
(alert (strcat "面积=" (rtos aa 2)))
)
)
(entdel en)
(setvar "cecolor" "bylayer")
(setq pt (getpoint "\n选取点:"))
)
(prin1)
)

Answer 1

最明显的错误：(command "bpoly" pt "") 边界应该写成：(command "bpoly" pt "") ;边界...(setq aa (getvar "area")) aa=面积
应该写成：
(setq aa (getvar "area")) ;aa=面积