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

janekou · 发表于 2011-11-6 10:52:43

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

(defun c:recaa()
4 p- V+ X) j7 D: [' ?
(setq acreage (command "area" "A" "O" )) [: R8 Y4 o5 o! b5 K( S: h0 D
)
(princ (strcat "面积总和=")(princ acreage)5 s' f w" p) U6 {5 h: l5 \
)

复制代码

麻烦各位大侠指点下

SunVei · 发表于 2011-11-6 15:33:59

(defun c:recaa()
  (command "area"  "A"  "O" )
  (while (= (logand (getvar "CmdActive") 1) 1) (command pause))

  (princ "面积总和= ")(princ (GetVar "Area"))
)

janekou · 发表于 2011-11-6 15:45:12

2# SunVei

您好，我是想用recaa选对象后能显示个总面积，不再显示选择框，请问下有办法么？还有的是请问第三行的意思是？

SunVei · 发表于 2011-11-6 17:49:04

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

janekou · 发表于 2011-11-6 19:50:29

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

SunVei · 发表于 2011-11-6 20:34:13

本帖最后由 SunVei 于 2011-11-6 20:35 编辑

(command "area" "A" "O" )
不是未完待续吗?
第3行是捕手等待输入啦
代码自己要能掌握确切才能更上层楼

janekou · 发表于 2011-11-8 21:35:24

(command "area" "A" "O" )
% C! n. k: D+ J第3行是捕手等待输入啦( e( x: X O+ T/ u0 U8 ~1 @& G
SunVei 发表于 2011-11-6 20:34 http://www.3dportal.cn/discuz/images/common/back.gif

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

SunVei · 发表于 2011-11-8 22:21:57

"CmdActive"
F1 --> System Variables
logand 得有二进位基础直接上网搜呗 , 多着哩!

		自动登录	找回密码
密码			注册

通知

[已答复] 想显示个总面积，请问下应该怎样改呢？

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

评分

浏览过的版块