请大神写个简单代码 ，

孙玉坤

taoyi0727 发表于 2019-8-4 23:17
你是要什么?
用一次 锁定不要的
再用一次 打开全部?

转给你吧 谢谢

taoyi0727

孙玉坤 发表于 2019-8-4 23:21
转给你吧 谢谢

你要说清楚你要达到什么效果噻  我然都不知道要怎么给你改

孙玉坤

taoyi0727 发表于 2019-8-4 23:23
你要说清楚你要达到什么效果噻  我然都不知道要怎么给你改

现在有点问题就是  如果图层在全部解锁的状态执行命令，可已达到想要的结果， 但如果图层在全部锁定的状态下（包括自己建立的图层）  执行命令就不行， 不能直接把自己建的那些图层 给解锁。 还要全部解锁 然后再执行命令，看看能不能改一下。谢谢

taoyi0727

(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)
)

这样?

taoyi0727

孙玉坤 发表于 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三层平面" ...

非常感谢 ，可以啦感谢楼主的帮助