[LISP程序]：图层操作的练习

zml84 · 发表于 2008-7-24 21:42:14

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

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

×

<CENTER><H1>图层操作的练习.LSP</H1></CENTER>
<SCRIPT LANGUAGE="JavaScript">document.write("最后修改时间: " + document.lastModified)
</SCRIPT>
<HR SIZE=5><PRE>;;;=========================================
;;;=========================================

;|图层组码的解释：
(0 . "LAYER") 符号类型
(2 . "0") 符号名
(70 . 0) 标志
(62 . 7) 颜色代码，如果图层是被关闭的，颜色代码为负值
(6 . "CONTINUOUS") 线型名称

图块组码的解释：
(0 . "BLOCK") 符号类型
(2 . "BOX") 符号名
(70 . 0) 标志
(10 9.0 2.0 0.0) 原点坐标 X,Y,Z
(-2 . <图元名: 1dca370>) 图元
|;
;;;========================================
;;; 子函数
;;;功能：获取被关闭的图层名称
(defun TT-01 (/ LST TMP LST_JG)
;;获取全部图层列表
(setq LST '())
(setq TMP (tblnext "layer" t))
(setq LST (cons TMP LST))
(while (setq TMP (tblnext "layer"))
(setq LST (cons TMP LST))
)
;;过滤被关闭的图层
(setq LST_JG '())
(foreach TMP LST
(if (< (cdr (assoc 62 TMP)) 0)
 (setq LST_JG (cons (cdr (assoc 2 TMP)) LST_JG))
)
)
;;返回
LST_JG
)
;;;==================================
;;;功能：删除关闭的图层和其中的图元
(defun C:TT (/ LST N SS)
(if (setq LST (TT-01))
(foreach N LST
 (progn
(command "-layer" "on" N "")
(if (setq SS (ssget "x" (list (cons 8 N))))
 (command "_.ERASE" SS "")
)
(command "-PURGE" "la" N "y" "y")
 )
)
)
(princ)
)
</PRE>

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

[LISP程序]：图层操作 的练习

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

相关帖子

[LISP程序]：图层操作的练习