taoyi0727 发表于 2019-8-4 23:17
你是要什么?
用一次 锁定不要的
再用一次 打开全部?
转给你吧 谢谢
孙玉坤 发表于 2019-8-4 23:21
转给你吧 谢谢
你要说清楚你要达到什么效果噻我然都不知道要怎么给你改
taoyi0727 发表于 2019-8-4 23:23
你要说清楚你要达到什么效果噻我然都不知道要怎么给你改
现在有点问题就是如果图层在全部解锁的状态执行命令，可已达到想要的结果， 但如果图层在全部锁定的状态下（包括自己建立的图层）执行命令就不行， 不能直接把自己建的那些图层 给解锁。 还要全部解锁 然后再执行命令，看看能不能改一下。谢谢
(defun c:tt (/ lst name-lst x)
(setq name-lst '(
"01一层平面" "02二层平面" "03三层平面" "04四层平面" "05五层平面"
"06跃层平面" "09栏杆" "07顶层" "00墙面" "011窗户" "08地板配件" "014瓦顶"
"016区域雕刻---浅洗" "018区域雕刻---深洗" "017划线" "012窗筋" "015玻璃"
"013凸窗" "轮廓偏移" "019窗紧外框" "10-0.8abs" "10-1.0abs" "10-1.2abs"
"10-1.5abs" "10-2.0abs" "10-3.0abs" "10-4.0abs" "窗线样式" "板线" "槽线"
"00辅助线" "模型走线-垂直" "模型走线-水平" "模型走线-临时" "layer1"
)
)
(vlax-for x (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object)))
(if (member (vlax-get x 'name) name-lst)
(Vla-put-Lock x :vlax-false)
(Vla-put-Lock x :vlax-true)
)
)
(princ)
)
这样?
孙玉坤 发表于 2019-8-4 23:31
现在有点问题就是如果图层在全部解锁的状态执行命令，可已达到想要的结果， 但如果图层在全部锁定的状 ...
这样没有问题了吧
taoyi0727 发表于 2019-8-4 23:37
(defun c:tt (/ lst name-lst x)
(setq name-lst '(
"01一层平面" "02二层平面" "03三层平面" ...
非常感谢 ，可以啦
taoyi0727 发表于 2019-8-4 23:37
(defun c:tt (/ lst name-lst x)
(setq name-lst '(
"01一层平面" "02二层平面" "03三层平面" ...
非常感谢 ，可以啦感谢楼主的帮助