具体操作输命令，即显示关闭的图层，点选需要打开的关闭图即被打开

pimixixi · 发表于 2014-3-30 12:35:02

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

具体操作输命令，即显示关闭的图层，点选需要打开的关闭图即被打开，界面打开图层包括点选打开的图层及图中原有打开的图层

守仁格竹GM · 发表于 2014-3-31 08:30:31

不如来个截图清楚

pimixixi · 发表于 2014-3-31 12:44:15

守仁格竹GM 发表于 2014-3-31 08:30
不如来个截图清楚

好不容易找到了一个演示

Free-Lancer · 发表于 2014-3-31 15:55:11

(defun c:tt (/ myerr olderr lst ss nlst)
(defun myerr ()
(mapcar '(lambda (x)
(vla-put-layeron (vla-item (fy:aclayers) x) :vlax-false)
)
lst
)
(setq *error* olderr)
(princ)
)
(setq olderr *error*
*error* myerr
)
(vlax-for lyr (fy:aclayers)
(if (= (vla-get-layeron lyr) :vlax-false)
(progn
(setq lst (cons (vla-get-name lyr) lst))
(vla-put-layeron lyr :vlax-true)
)
)
);_打开全部
(fy:clearcset)
(if (ssget)
(progn
(mapcar '(lambda (x)
(if (member (setq ln (vla-get-layer x)) lst)
(setq nlst (cons ln nlst))
)
)
(fy:acset->objs)
)
(mapcar
'(lambda (x)
(if (not (member x nlst))
(vla-put-layeron (vla-item (fy:aclayers) x) :vlax-false)
)
);_重新关闭
lst
)
)
)
(setq *error* olderr
myerr nil
)
(princ)
)

(defun c:tt (/ myerr olderr lst ss nlst) 
  (defun myerr () 
    (mapcar '(lambda (x) 
               (vla-put-layeron (vla-item (fy:aclayers) x) :vlax-false) 
             ) 
            lst 
    ) 
    (setq *error* olderr) 
    (princ) 
  ) 
  (setq        olderr        *error* 
        *error*        myerr 
  ) 
  (vlax-for lyr        (fy:aclayers) 
    (if        (= (vla-get-layeron lyr) :vlax-false) 
      (progn 
        (setq lst (cons (vla-get-name lyr) lst)) 
        (vla-put-layeron lyr :vlax-true) 
      ) 
    ) 
  );_打开全部 
  (fy:clearcset) 
  (if (ssget) 
    (progn 
      (mapcar '(lambda (x) 
                 (if (member (setq ln (vla-get-layer x)) lst) 
                   (setq nlst (cons ln nlst)) 
                 ) 
               ) 
              (fy:acset->objs) 
      ) 
      (mapcar 
        '(lambda (x) 
           (if (not (member x nlst)) 
             (vla-put-layeron (vla-item (fy:aclayers) x) :vlax-false) 
           ) 
         );_重新关闭 
        lst 
      ) 
    ) 
  ) 
  (setq        *error*        olderr 
        myerr        nil 
  ) 
  (princ) 
)

pimixixi · 发表于 2014-3-31 17:01:02

Free-Lancer 发表于 2014-3-31 15:55

里面有子函数，对于我们初学者困难重重，楼主能不能将子函数附后面，让初学者们进步一下

st788796 · 发表于 2014-3-31 17:15:54

pimixixi 发表于 2014-3-31 17:01
里面有子函数，对于我们初学者困难重重，楼主能不能将子函数附后面，让初学者们进步一下

在这学了有段时间吧？本分坛有

pimixixi · 发表于 2014-3-31 19:00:06

st788796 发表于 2014-3-31 17:15
在这学了有段时间吧？本分坛有

麻烦能不能帮我补一下

守仁格竹GM · 发表于 2014-4-2 08:01:30

复制粘贴子函数名在论坛搜，这根是否新手没关系

账号		自动登录	找回密码
密码			立即注册

[求助] 具体操作输命令，即显示关闭的图层，点选需要打开的关闭图即被打开

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评