[求助]有没有这样的程序？快速换层？

20020729

请教个问题：我想用最快的方法使我选择的目标切换到指定层——比如我选中一条直线后 按某个键比如数字1键 即可使该直线切换到1层（事先设定好的层）

我觉得用鼠标在层里找很费劲 浪费很多时间

改线型也是有必要的 应该是异曲同工

用vlisp可以吗

希望高手略使小技帮我 谢谢先

onej

command : ai_molc

meflying

(defun c:1( / ss);修改冒号后面的1
(setq ss (ssget))
(command "change" ss "" "p" "la" "a" "");修改"a"
(princ)
) 上面1对应a层，你可以修改来达到你的要求

bh5280

下面的程序可以将选中的物体修改到wall层（如果wall层不存在会自动建立一个）请参考 (defun c:1 (/ old_lay ent)
(setq old_lay (getvar "clayer"))
(setq ent (ssget))
(if (= (tblobjname "LAYER" "wall") nil)
(entmake
(list '(0 . "LAYER")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord")
'(6 . "CONTINUOUS")
'(62 . 7)
'(70 . 0)
(cons 2 "wall")
)
)
)
(command "change" ent "" "p" "la" "wall" "")
(setvar "clayer" old_lay)
(princ)
)

meflying

楼上的比较完善，不过这样新建的层会到当前层，所以设置当前层的过程可以省略，另外，层名最好用变量，这样便于修改

ljpnb

我写了一个不一样，只作参考 (defun c:test ()
(setq roop T)
(setq ss (ssget))
(while roop
(setq k T)
(print "选择要变换的层名(按快捷键):")
(setq gr (grread nil 4 2)
ga (car gr))
(cond ((member gr '((2 116) (2 87))) ;_按"T"或"t"键
(setq lay "TEXT")
)
((member gr '((2 67) (2 99))) ;_按"C"或"c"键
(setq lay "CONTINUOUS")
)
((member gr '((2 68) (2 100))) ;_按"D"或"d"键
(setq lay "DIM")
)
((member gr '((2 32) (2 13))) ;_按空格键或是回车键
(setq roop nil)
)
((= ga 25) (setq roop nil));_按鼠标回车键
(T
(progn
(print "不存在这样的层")
(setq k nil)
)
)
)
(if (and roop k)
(command "change" ss "" "p" "la" lay "")
)
)
(princ)
)

meflying

晕，你这个应该做循环使用，就是要更改许多对象的时候，选择一个，改变一个，选择另一个，再改变。。。你这样输入命令TEST后要回车，然后还要按一个快捷键，岂不更麻烦？

ljpnb

meflying发表于2005-3-25 11:36:00晕，你这个应该做循环使用，就是要更改许多对象的时候，选择一个，改变一个，选择另一个，再改变。。。你这样输入命令TEST后要回车，然后还要按一个快捷键，岂不...

飞哥说得也对，我是出于另外一种情况考虑，当你按错快捷键时，还可以重新选择，否则又要重新执行程序。当然最快捷的方法还是你给出的那种，这个我也知道。

ctclsc

H

20020729

飞哥 你好 请问 4楼的程序里的 (list '(0 . "LAYER")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord")
'(6 . "CONTINUOUS")
'(62 . 7)
'(70 . 0)
(cons 2 "wall") '(62 . 7)是控制颜色的是吧 7是红色吗 请问 白色 黄色 绿色 紫色 和青色的代码分别是多少呀 谢谢了