明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1657|回复: 2

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

[复制链接]
发表于 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, 可以找到在"当前视窗冻结"冻结了的层的资料
发表于 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
)
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-6 11:24 , Processed in 0.162320 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表