[求助]：1,锁住除当前层以外的所有层.2,冻结所有已经锁住的层

山行 · 发表于 2005-11-29 01:31:01

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

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

×

如何实现锁住除当前层以外的所有层？
另外一个是如何实现冻结所有已经锁住的层？
谢谢！

xyp1964 · 发表于 2005-11-29 01:57:12

[FONT=courier new];;;锁住除当前层以外的所有层
(defun c:test1 ()
(setq la (getvar"clayer"))
(command"-layer""lo""*""u" la "")
)[/FONT]

山行 · 发表于 2005-11-29 03:20:38

谢谢斑竹深夜回复！
非常感谢！
请教另外一个如何实现：如何实现冻结所有已经锁住的层？
再次谢谢！

taner · 发表于 2005-11-29 08:25:00

[php](defun c:kk (/ q)
  (command "undo" "be")
  (setq q (car (entsel "\n請選擇實體<鎖定除所选实体所在层以外的所有层,並將所選實體所在層變爲當前層>:")))
  (setq q (cdr (assoc 8 (entget q))))
  (setvar "CLAYER" q)
  (command "layer" "lock" "*" "")
  (command "layer" "unlock" q "")
  (command "undo" "e")
  (princ (strcat "\n" q " 層已變爲當前層,且其它層全部鎖定"))
  (princ)
)[/php]

參考:http://www.xdcad.net/forum/showt ... 2416311#post2416311 的layer-state 函數.
[php]

(defun c:flo (/ n i)
(command "undo" "be")
  (setq n -1)
  (setq i (length (setq loa (layer-state 5))))
  (while (< n i)
(if (/= (nth (1+ n) loa) (getvar "clayer"))
   (command "layer" "f" (nth (1+ n) loa) "")
)
(setq n (1+ n))
  )
  (command "undo" "e")
  (princ)
)[/php]

xyp1964 · 发表于 2005-11-29 08:37:37

[FONT=courier new];;;冻结所有已经锁住的层
(defun c:test ()
(while (setq d (tblnext "layer" (null d)))
(setq lst (cons (cdr (assoc 2 d)) lst))
)
(setq lst (reverse lst))
(foreach la lst
(progn (if (= (cdr (assoc 70 (tblsearch "LAYER" la))) 4)
(command "layer" "f" la "")
)
)
)
)[/FONT]

山行 · 发表于 2005-11-29 21:14:19

谢谢斑竹以及2楼上的朋友！！！

xyz518mm · 发表于 2005-11-29 23:36:39

請問 taner  您所使用的 (setq n -1)
  (setq i (length (setq loa (layer-state 5))))
  (while (< n i)
其中 n -1 所代表的函義為何呢
可以解說一下嗎
感謝

taner · 发表于 2005-11-30 08:47:22

最初由 xyz518mm 发布
[B]請問 taner  您所使用的 (setq n -1)
  (setq i (length (setq loa (layer-state 5))))
  (while (< n i)
其中 n -1 所代表的函義為何呢
可以解說一下嗎
感謝 [/B]

將n的初值設爲-1,因NTH函數的第一項是0,故(nth (1+ n))是從0開始的

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

[求助] [求助]：1,锁住除当前层以外的所有层.2,冻结所有已经锁住的层

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

相关帖子

這個或許也有點用

浏览过的版块