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

janekou

1. (defun c:recaa()
   6 Z/ e( b& M2 [/ V
2. (setq acreage (command "area"  "A"  "O" )
   ) U- S3 q: p6 C" [; m( v$ h7 [+ b
3. )
   
4. (princ (strcat "面积总和=")(princ acreage)
   
5. )

复制代码

3 U) h. O+ f% C  B
麻烦各位大侠指点下

SunVei

(defun c:recaa()
' G/ N2 Q# y$ A1 I2 t3 r9 f8 J  (command "area"  "A"  "O" )
  (while (= (logand (getvar "CmdActive") 1) 1) (command pause))
# R  s/ c$ m! L* X, }, q  
  (princ "面积总和= ")(princ (GetVar "Area"))
)

janekou

2# SunVei
4 A/ F( y9 |# ^! q, S2 z( u
9 a3 Z0 m+ e: }! o& s  m/ e  }您好，我是想用recaa选对象后能显示个总面积，不再显示选择框，请问下有办法么？还有的是请问第三行的意思是？

SunVei

... 选对象后 ...
与现有的差异在那?
请用实例解说

janekou

4# SunVei
抱歉，把原来的代码复制进去了，那请问下第3行的意思是？

SunVei

( \; H- g; p! t/ X(command "area"  "A"  "O" )
不是未完待续吗?
0 I; [8 ]6 I9 a6 }% J4 k第3行是捕手等待输入啦
8 m9 T" R- a3 q/ S' d! Q代码自己要能掌握确切才能更上层楼

janekou

(command "area"  "A"  "O" )
第3行是捕手等待输入啦
: s$ g+ |- _4 E3 s% `1 p0 ?$ ^) HSunVei 发表于 2011-11-6 20:34 http://www.3dportal.cn/discuz/images/common/back.gif

logand和 "CmdActive"的用法可以解释下吗？谢谢啦

SunVei

"CmdActive"
F1 --> System Variables
" \7 b$ I) _* y) {2 L, l" ]6 ^logand 得有二进位基础 直接上网搜呗 , 多着哩!