求一句话

Ccccccc · 发表于 2012-6-28 10:25:19

判断如果图层a锁定则解锁，请指教怎样写

Gu_xl · 发表于 2012-6-28 10:31:59

本帖最后由 Gu_xl 于 2012-6-28 10:35 编辑

(if (= 4 (logand (cdr (assoc 70 (entget(tblobjname "layer" strlayer)))) 4)) (command "layer" "u" strlayer ""))

xshrimp · 发表于 2012-6-28 11:12:05

(if(= :vlax-true (vla-get-lock (setq lay(vla-item(vla-get-layers(vla-get-ActiveDocument(vlax-get-acad-object))) "a"))))
(vla-put-lock lay :vlax-false)
)

zyhandw · 发表于 2012-6-28 11:52:40

高手们都出现了，学习下！

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

求一句话

点评

点评