[求助]LISP可以控制"当前视窗冻结"吗?

caravaggio

我在图纸空间"当前视窗冻结"冻结了一个层,然后用(tblsearch "layer" "layername")，返回的数据跟平常查找的是一样的　:


((0 . "LAYER") (2 . "LAYERNAME") (70 . 0) (62 . 3) (6 . "CONTINUOUS"))


请问有没有什么地方可以找到在"当前视窗冻结"冻结了的层的资料呢？


谢谢　！

龙龙仔

查viewport的xdata, 可以找到在"当前视窗冻结"冻结了的层的资料

alin

Right! From Merz (defun GetFrozenLaysInVport (/ LayLst)
(foreach memb (GetMviewInfo)
(if (= (car memb) 1003)
(setq LayLst (cons (cdr memb) LayLst))
)
)
(reverse LayLst)
)
;;;
(defun GetMviewInfo (/ ActVpt CurSet GoLoop RetVal TmpVal)
(setq GoLoop T
ActVpt (caar (vports))
)
(if (or
(= (setq ActVpt (caar (vports))) 1)
(= (getvar "TILEMODE") 1)
)
(setq RetVal nil)
(progn
(setq CurSet (ssget "X" '((0 . "VIEWPORT"))))
(while GoLoop
(setq TmpVal (entget (ssname CurSet 0) '("ACAD")))
(if (= (cdr (assoc 69 TmpVal)) ActVpt)
(setq GoLoop nil
RetVal (cdr (assoc "ACAD" (cdr (assoc -3 TmpVal))))
)
(setq CurSet (ssdel (ssname CurSet 0) CurSet))
)
)
(setq CurSet nil)
)
)
RetVal
)