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

caravaggio · 发表于 2004-6-24 12:57:00

我在图纸空间"当前视窗冻结"冻结了一个层,然后用(tblsearch "layer" "layername")，返回的数据跟平常查找的是一样的　:
((0 . "LAYER") (2 . "LAYERNAME") (70 . 0) (62 . 3) (6 . "CONTINUOUS"))
请问有没有什么地方可以找到在"当前视窗冻结"冻结了的层的资料呢？
谢谢　！

龙龙仔 · 发表于 2004-6-24 15:07:00

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

alin · 发表于 2004-6-24 15:11:00

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
)

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

发表回复

精选推荐

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

发表回复

精选推荐

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