664571221 发表于 2024-12-17 16:19:31

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

(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 发表于 2024-12-17 16:19:32

:lol:lol:lol:lol:lol:lol

自贡黄明儒 发表于 2024-12-17 16:45:01

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

664571221 发表于 2024-12-17 17:21:12

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

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

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

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

664571221 发表于 2024-12-18 09:07:09

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


谢谢派大...
页: [1]
查看完整版本: 各位大神看下这个代码，加一个解锁特定图层 你好123的功能