想显示个总面积，请问下应该怎样改呢？

janekou

1. (defun c:recaa()
   
2. (setq acreage (command "area"  "A"  "O" )
   + u5 i; v' p2 L( ^
3. )
   9 l0 w: Y7 G8 e; w; X$ W4 B
4. (princ (strcat "面积总和=")(princ acreage)
   9 \: ]3 c+ }% Y5 E% s$ q5 ?
5. )

复制代码

7 U+ O5 }1 f$ F$ m- p
麻烦各位大侠指点下

SunVei

(defun c:recaa()
4 f' }* b& w8 n1 U  Y0 @) d* u  (command "area"  "A"  "O" )
  (while (= (logand (getvar "CmdActive") 1) 1) (command pause))
  
( S, }" M, S5 i8 Q  (princ "面积总和= ")(princ (GetVar "Area"))
)

janekou

2# SunVei

/ k: ~: z/ m7 C; E; [; h您好，我是想用recaa选对象后能显示个总面积，不再显示选择框，请问下有办法么？还有的是请问第三行的意思是？

SunVei

... 选对象后 ...
9 W2 W# z9 U2 E2 K6 `1 {* ^/ r与现有的差异在那?
' k& R8 h+ ?" h! i# [8 P, `请用实例解说

janekou

4# SunVei
( o0 Y9 Y/ C* |# _抱歉，把原来的代码复制进去了，那请问下第3行的意思是？

SunVei

(command "area"  "A"  "O" )
9 [0 K/ I% a1 y0 n" u# O# ]不是未完待续吗?
第3行是捕手等待输入啦
4 |- P# C1 }. ^  y4 Y代码自己要能掌握确切才能更上层楼

janekou

(command "area"  "A"  "O" )
7 m1 o" c  {2 H第3行是捕手等待输入啦
SunVei 发表于 2011-11-6 20:34 http://www.3dportal.cn/discuz/images/common/back.gif

7 c8 @+ H( P( l$ O$ a+ }2 G
) ^) i2 Y4 Z3 o( x logand和 "CmdActive"的用法可以解释下吗？谢谢啦

SunVei

"CmdActive"
F1 --> System Variables
% A/ J" q. k# Q. ~logand 得有二进位基础 直接上网搜呗 , 多着哩!