求助关于单开图层的优化

zrlmj

忘了哪里找的代码，感觉有时候蛮好用的，基于下面此代码。有大师能否帮忙优化成开关当前层吗，就是输入指令时如果是打开状态就关闭，若是关闭时就打开，不知道好不好实现，俺纯小白一个，望大师能出手帮忙！


(DEFUN c:Ds() (command "_layer" "off" "*" "N" "" )
              (princ "\n已单开目前层")(princ))

xyp1964

1. (defun c:ds ()
   
2.   "当前图层开关"
   
3.   (setq la (getvar 'clayer))
   
4.   (if (< (cdr (assoc 62 (entget (tblobjname "layer" la)))) 0)
   
5.     (command "-layer" "on" la "")
   
6.     (command "-layer" "off" la "")
   
7.   )
   
8.   (princ)
   
9. )

(defun c:ds ()<br />   "当前图层开关"<br />   (setq la (getvar 'clayer))<br />   (if (< (cdr (assoc 62 (entget (tblobjname "layer" la)))) 0)<br />     (command "-layer" "on" la "")<br />     (command "-layer" "off" la "")<br />   )<br />   (princ)<br /> )

tigcat

(defun C:TT (/ clay)
  (setq clay (tblobjname "LAYER" (getvar "CLAYER"))) ; 获取当前图层对象
  (if clay
    (progn
      (if (= (cdr (assoc 62 (tblobjname "LAYER" (getvar "CLAYER")))) 0) ; 检查图层是否关闭(0为关闭)
        (command "_.LAYER" "_ON" (getvar "CLAYER") "") ; 如果关闭则打开
        (command "_.LAYER" "_OFF" (getvar "CLAYER") "") ; 如果打开则关闭
      )
      (princ (strcat "\n图层 " (getvar "CLAYER") " 已切换状态"))
    )
    (princ "\n错误:无法找到当前图层")
  )
  (princ)
)

tigcat

xyp1964 发表于 2025-3-22 09:53

嘿嘿,.......逃不出院长的火眼金睛了

zrlmj

tigcat 发表于 2025-3-22 09:58
嘿嘿,.......逃不出院长的火眼金睛了

谢谢给予参考！最佳答案给院长了哦

zrlmj

xyp1964 发表于 2025-3-21 23:14

搞定了，非常感谢院长出手！

tigcat

zrlmj 发表于 2025-3-23 09:04
谢谢给予参考！最佳答案给院长了哦

好，我的那个跑不起来，院长的可以。