[求助]：请版主及网站的大侠帮忙修改一下程序

xingbaoquan99

)本人编了个图层开关的程序，源程序如下，直接选择对象即可将对象图层关闭或保留对象图层打开其余图层关闭，问题是无法关闭外部参照中的对象图层。autocad自带的express可以实现，请版主帮忙修改一下，谢谢.[/SIZE]
(defun c:offl (/ select notsel layname layerobj lsst i)
      (setvar "nomutt" 1)
      (princ
            "\n选择关闭图层的对象<选择不关闭图层的对象-Enter>:"
      )
      (setq select (entsel))
      (setq notsel select)
      (while select
            (if        (/= select nil)
                  (progn
                        (setq layname (cdr (assoc 8 (entget (car select)))))
                        (setq layerobj (vla-add (vla-get-layers acaddocument) layname))
                        (if (= (vla-get-layeron layerobj) :vlax-true)
                              (vla-put-layeron layerobj :vlax-false)
                        )
                  )
            )
            (setq select (entsel))
      )
      (if (not notsel)
            (progn
                  (princ "\n选择不关闭图层的对象:")
                  (setq select (ssget))
                  (setq lsst (sslength select))
                  (loff);关闭全部图层
                  (setq i 0)
                  (while (< i lsst)
                        (setq ent (entget (ssname select i)))
                        (setq layname (cdr (assoc 8 ent)))
                        (setq layerobj (vla-add (vla-get-layers acaddocument) layname))
                        (if (= (vla-get-layeron layerobj) :vlax-false)
                              (vla-put-layeron layerobj :vlax-true)
                        )
                        (setq i (+ i 1))
                  )
            )
      )
      (setvar "nomutt" 0)
)
(defun loff (/ layname a layerobj acadobject)
      (setq a t)
      (tblnext "layer" a)
      (while (setq layname (tblnext "layer" a))
            (setq a nil)
            (setq layname (cdr (assoc 2 layname)))
            (setq layerobj (vla-add (vla-get-layers acaddocument) layname))
            (if        (= (vla-get-layeron layerobj) :vlax-true)
                  (vla-put-layeron layerobj :vlax-false)
            )
      )
      (princ)
)

carrot1983

图层操作工具。命令tc
以下是我用了很久的工作。
上传上来一起分享。跟扩展工具里的差不多吧。