如何用autolisp获取封闭图形的面积

ll_j

菜鸟的萌 发表于 2016-1-11 15:40
"\\A1;{\\H1.0x;\\S1/102;}-3.023"这个式子能详细说明一下不，还有这个102和3.028换车变量后显示是变量字 ...

这是R14的格式，后来的版本有少许增加和调整，不过变化不大。

菜鸟的萌

ll_j 发表于 2016-1-11 15:46
这是R14的格式，后来的版本有少许增加和调整，不过变化不大。

真的是太谢谢啦

菜鸟的萌

ll_j 发表于 2016-1-11 15:46
这是R14的格式，后来的版本有少许增加和调整，不过变化不大。

"\\A1;{\\H1.0x;\\S1/102;}-3.023"这个式子把102和3.023改成变量w和变量m，显示的时候还是显示字母w和m，不显示变量储存的值 怎么改动就能显示变量的值了呀

ll_j

菜鸟的萌 发表于 2016-1-11 16:49
"\\A1;{\\H1.0x;\\S1/102;}-3.023"这个式子把102和3.023改成变量w和变量m，显示的时候还是显示字母w和m， ...

那是一个字符串，字符串的组合见7楼。

菜鸟的萌

ll_j 发表于 2016-1-11 17:12
那是一个字符串，字符串的组合见7楼。

(defun c:bj()
(vl-load-com)
(setq mj (vlax-curve-getarea (vlax-ename->vla-object (car (entsel)))))
(setq m (rtos mj 2 2))
(setq w (cdr(assoc 8 (entget(car(entsel))))))
(setq pt (getpoint"\n请选择插入点："))

(command "mtext" pt "w" "20" "\\A1;{\\H1x;\\S1/w}-m;" "")

(princ)
这是弄好的代码 应该再怎么该呀

ll_j

(command "mtext" pt "w" "20" "\\A1;{\\H1x;\\S1/w}-m;" ")
改成这样试试：
(command "mtext" pt "w" "20" (strcat "\\A1;{\\H1x;\\S1/" w "}-" m ";"） "")

菜鸟的萌

ll_j 发表于 2016-1-11 17:23
(command "mtext" pt "w" "20" "\\A1;{\\H1x;\\S1/w}-m;" ")
改成这样试试：
(command "mtext" pt "w" "2 ...

显变量的值了但是"图层名-面积"都跑到分母那了

菜鸟的萌

ll_j 发表于 2016-1-11 17:23
(command "mtext" pt "w" "20" "\\A1;{\\H1x;\\S1/w}-m;" ")
改成这样试试：
(command "mtext" pt "w" "2 ...

我自己又调试了调试 代码改成这样的(strcat "\\S1/"w";"  "\\A1;-"m";")就行了；谢谢大神的指导，及提供的思路和代码，真的是谢谢啦