[编程申请]：线条按颜色分图层

lengliqun · 发表于 2005-6-29 17:31:00

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

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

×

图中有若干LINE线与PLINE线，其颜色不同，求CAD程序，将相同颜色之线条(包括LINE线与PLINE线)放在以其颜色名称(数字)
为图层名的图层中，如红色的LINE与PLINE放在“1”图层中，黄色的LINE与PLINE放在“2”图层中，绿色的LINE与PLINE放在
“3”图层中，余类推。能处理1~20种颜色即可，若图中无对应图层名，请建立。

jinsong-liao · 发表于 2005-6-30 08:13:35

我也不是很熟练，不然帮你了。我记得lisp书本上有类似的例子。

xyp1964 · 发表于 2005-6-30 12:43:55

测试：

[FONT=courier new](load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
5.将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
;;;线按层改色
(defun c:test ()
(CMDLA0)
(setq i 1)
(while (< i 255)
(princ)
(princ ".");显示进程
(mkla (itoa i) i)
(setq ss (ssget "X" (list '(0 . "*LINE") (cons 8 (itoa i))))
i (1+ i)
)
(if ss
(command "change" ss "" "p" "c" i "")
)
)
(princ "OK")
(CMDLA1)
)[/FONT]

lengliqun · 发表于 2005-6-30 17:44:54

CAD2002运行后产生了1~255共255个图层（我想图层可能太多了点），并且各不同颜色的线条并没有被分配到其相应的图层上去。我的意思可能没表达清楚，能否图中的线条有多少种颜色就建立与其对应的多少个图层(不必建立空图层)，然后将不同颜色的线条分配到对应的图层上去。请下附件对比，谢谢。

xyp1964 · 发表于 2005-6-30 17:59:37

简单：把程序中的255改成想要的数字如20即可！！

lengliqun · 发表于 2005-6-30 22:14:16

如果没有其它办法只好先这样了。

xyp1964 · 发表于 2005-6-30 23:44:43

[FONT=courier new](load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
5.将xyp_lib.vlx文件直接拽到cad屏幕
★通用函数下载地址：[url]http://www.xdcad.net/forum/attachme...&postid=1606661[/url]|;
;;;线按颜色分层
(defun c:test ()
(CMDLA0)
(setq i 1)
(while (< i 255)
(princ)
(princ ".") ;显示进程
(setq ss (ssget "X" (list '(0 . "*LINE") (cons 62 i))))
(if ss
(progn
(mkla (itoa i) i)
(command "change" ss "" "p" "la" (itoa i) "")
)
)
(setq i (1+ i))
)
(princ "OK")
(CMDLA1)
)[/FONT]

lengliqun · 发表于 2005-7-1 11:08:07

CAD2002测试可用，非常感谢。

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

[编程申请]：线条按颜色分图层

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

相关帖子

浏览过的版块