关于(command "dimaligned" )

我来看MM的

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

阿霸jun

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

ZZXXQQ

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

我来看MM的

ZZXXQQ 发表于 2013-6-18 23:29
(setq name_layer (getvar "clayer"))
(setvar "clayer" "尺寸标注")
(command "dimaligned" )

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

我来看MM的

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

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

mccad

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

我来看MM的

ZZXXQQ 发表于 2013-6-18 23:29
(setq name_layer (getvar "clayer"))
(setvar "clayer" "尺寸标注")
(command "dimaligned" )

终于理解了。用这个完全可以解决问题了。之前一直以为“pause”是CAD命令。谢谢！