早教吧作业答案频道 -->其他-->
autolisp计算封闭面积点吗大神帮看一下代码有那些错误要求：使自定义函数能够实现在某一封闭区域内任意单击一点,便会弹出一个对话框.(defunc:mj()(setvar"cmdecho"0)(setqpt(getpoint"\n选取点:")(
题目详情
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)
)
大神帮看一下代码有那些错误 要求：使自定义函数能够实现在某一封闭区域内任意单击一点,便会弹出一个对话框.
(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)
)
▼优质解答
答案和解析
最明显的错误：(command "bpoly" pt "") 边界应该写成：(command "bpoly" pt "") ;边界...(setq aa (getvar "area")) aa=面积
应该写成：
(setq aa (getvar "area")) ;aa=面积
应该写成：
(setq aa (getvar "area")) ;aa=面积
看了 autolisp计算封闭面积...的网友还看了以下：
数列的求和公式问题老师,有这样一道求和公式问题不明白,请老师帮忙解决一下已知Sn=1/3^p-1/ 2020-06-08 …
香喷喷的读音现代汉语词典第五版中有“喷香”一词,其中“喷”的读音是pèn那么“香喷喷”中“喷”的读 2020-06-26 …
求渐化式~急已知：p(n)=1/2p(n-1)+1/2p(n-2)求p(n)用n表示由已知可得：p 2020-07-08 …
设M、N为两个随机事件，给出以下命题：（1）若M、N为互斥事件，且P(M)=15，P(N)=14， 2020-07-09 …
P(n)推导已知p(1)=1;p(n)=(1-1/(n^2))p(n-1)+2/n-1/(n^2) 2020-08-01 …
几何分布无记忆性证明中证：P{x=m+n|x>m｝＝P(X=m+n,x>m)/P{x>m}=P(X= 2020-10-31 …
X、Y分别服从参数为(n,p)(m,p)的二项分布,通过计算求出X+Y的分布我用的方法Z=X+YP( 2020-10-31 …
已知A是数域P上的n*n矩阵,设W1={AX|X∈P^n},W2={X|X∈P^n,AX=0}证明： 2020-10-31 …
选出下面各项中字音有误的一项：A泥淖nào羞赧nǎn忸怩ní泥墙nìB睥睨pìnì亲昵nì酿造nià 2020-11-07 …
若Sn－S（n-1）＝n＾p,求Sn也就是求1＾p＋2＾p＋3＾p＋.＋n＾p,p可以是正数,负数, 2021-02-16 …