我来看MM的 发表于 2013-6-18 23:20:38

关于(command "dimaligned" )

(setq name_layer (getvar "clayer"))
(setvar "clayer" "尺寸标注")
(command "dimaligned" )
(setvar "clayer" name_layer)
本来设想是将通过"dimaligned" 命令创建的标注放在“尺寸标注”层里面，但上面那样明显不对。求教中间那句command应该怎么弄？

阿霸jun 发表于 2013-6-18 23:26:52

你这个命令command没有执行完就执行后面的setvar了，所以你的图层根本就没变！
(setq name_layer (getvar "clayer"))
(setvar "clayer" "尺寸标注")
(command "dimaligned" (getpoint) (getpoint) (getpoint) "")
(setvar "clayer" name_layer)

ZZXXQQ 发表于 2013-6-18 23:29:01

(setq name_layer (getvar "clayer"))
(setvar "clayer" "尺寸标注")
(command "dimaligned" )
(while (> (getvar 'CMDACTIVE") 0) (command PAUSE))
(setvar "clayer" name_layer)

我来看MM的 发表于 2013-6-18 23:39:56

ZZXXQQ 发表于 2013-6-18 23:29 static/image/common/back.gif
(setq name_layer (getvar "clayer"))
(setvar "clayer" "尺寸标注")
(command "dimaligned" )


能解释下while这句？不是很懂，还有这个“PAUSE”是否有误？

我来看MM的 发表于 2013-6-18 23:42:08

阿霸jun 发表于 2013-6-18 23:26 static/image/common/back.gif
你这个命令command没有执行完就执行后面的setvar了，所以你的图层根本就没变！
(setq name_layer (getvar...

你这句command,一定程度上是可以实现标注放在特地的图层里面，不过却不能原原本本的使用"dimaligned"这个的功能。

mccad 发表于 2013-6-19 07:41:26

如果你只是要这个功能，找Gu_xl版主的自动切换图层吧。
如果只是要这个程序，上面两位高手的回复已经达到你的要求。

我来看MM的 发表于 2013-6-19 20:06:33

ZZXXQQ 发表于 2013-6-18 23:29 static/image/common/back.gif
(setq name_layer (getvar "clayer"))
(setvar "clayer" "尺寸标注")
(command "dimaligned" )


终于理解了。用这个完全可以解决问题了。之前一直以为“pause”是CAD命令。谢谢！
页: [1]
查看完整版本: 关于(command "dimaligned" )