各位大神看下这个代码，加一个解锁特定图层 你好123的功能

664571221

(defun c:TCJS(/ lay tof layobj oldLAYLOCKFADECTL)
  (defun tof(msg / )
    (if(= msg :vlax-true)
      (progn
      (setvar "LAYLOCKFADECTL" -90)
      (setq msg :vlax-false)
      )
      (progn
      (setvar "LAYLOCKFADECTL" 90)
      (setq msg :vlax-true)
      )
      )
    )
  (setq oldLAYLOCKFADECTL (getvar "LAYLOCKFADECTL"))

  (setq lay (cdr (assoc 8 (entget(car(entsel "\n选择需更改图层锁定状态的图元"))))))
  (setq layobj (vlax-ename->vla-object (tblobjname "layer" lay)))
  (vla-put-lock layobj (tof(vla-get-Lock layobj)))

  (setvar "LAYLOCKFADECTL" oldLAYLOCKFADECTL)
  (princ)
)

bonny

自贡黄明儒

波总厉害了，现在写得又快又好。

664571221

自贡黄明儒 发表于 2024-12-17 16:45
波总厉害了，现在写得又快又好。

黄大师你可是我的第一个好友，你得来上一段代码。

xyp1964

1. (defun c:tt ()
   
2.   (defun tof(a)(if(= a :vlax-true)0 1))
   
3.   (if (setq la (tblobjname "layer" "你好123"))
   
4.     (vla-put-lock (setq ob (vlax-ename->vla-object la)) (tof (vla-get-Lock ob)))
   
5.   )
   
6.   (princ)
   
7. )

(defun c:tt ()<br />   (defun tof(a)(if(= a :vlax-true)0 1))<br />   (if (setq la (tblobjname "layer" "你好123"))<br />     (vla-put-lock (setq ob (vlax-ename->vla-object la)) (tof (vla-get-Lock ob)))<br />   )<br />   (princ)<br /> )

664571221

xyp1964 发表于 2024-12-17 20:30

谢谢派大...