求框选图元，根据图元类型进入不同图层

半听可乐 · 发表于 2013-5-11 09:42:41

本帖最后由半听可乐于 2013-5-12 15:55 编辑

想把图层不规范的图纸整理一下，便于图层管理，
希望框选（同时也能点选）图元，判断图元的类型，不同的类型变到不同的图层（图中已经存在需要的图层），图元的颜色等随层：
圆-------立管层
直线------- 管道层
单多行文字、PL线、引线、线性或对齐标注 ------- 标注层
图块-------图块层

-------------------------------作为外行，我设想程序大致结构如下-----------------------------------------
(defun c:ly1 ();;所选图元分别进入后面所列图层（立管层1，管道层1，标注层1，图块层1）
(defun c:ly2 ();;所选图元分别进入后面所列图层（立管层2，管道层2，标注层2，图块层2）
(defun c:ly3 ();;所选图元分别进入后面所列图层（立管层3，管道层3，标注层3，图块层3）
……

不知道我说清楚了没，求之若渴，盼各位热心的大侠拔刀相助！

帖子已经转到编程申请板块，编程零基础，特此申请
http://bbs.mjtd.com/thread-101385-1-1.html

ZZXXQQ · 发表于 2013-5-11 09:42:42

;框选图元归层明经 ZZXXQQ 2013.5.12 汶川地震五周年
(defun c:ly1 ()
(setvar "CMDECHO" 0)
(if (and (setq pt1 (getpoint "\n框选第一角点: "))
(setq pt2 (getcorner pt1 "\n框选第二角点: "))) (progn
(if (setq ss (ssget "W" pt1 pt2 '((0 . "CIRCLE"))))
(command "_.CHPROP" ss "" "LA" "立管层1" "")
)
(if (setq ss (ssget "W" pt1 pt2 '((0 . "LINE"))))
(command "_.CHPROP" ss "" "LA" "管道层1" "")
)
(if (setq ss (ssget "W" pt1 pt2 '((0 . "*POLYLINE,DIMENSION,*TEXT"))))
(command "_.CHPROP" ss "" "LA" "标注层1" "")
)
(if (setq ss (ssget "W" pt1 pt2 '((0 . "INSERT"))))
(command "_.CHPROP" ss "" "LA" "图块层1" "")
)
))
(setvar "CMDECHO" 1)
(princ)
)

;这个是通用函数
(defun c:ly ()
(setvar "CMDECHO" 0)
(if (and (setq pt1 (getpoint "\n框选第一角点: "))
(setq pt2 (getcorner pt1 "\n框选第二角点: "))
(setq wei (getstring "\n层名尾号: "))) (progn
(if (setq ss (ssget "W" pt1 pt2 '((0 . "CIRCLE"))))
(command "_.CHPROP" ss "" "LA" (strcat "立管层" wei) "")
)
(if (setq ss (ssget "W" pt1 pt2 '((0 . "LINE"))))
(command "_.CHPROP" ss "" "LA" (strcat "管道层" wei) "")
)
(if (setq ss (ssget "W" pt1 pt2 '((0 . "*POLYLINE,DIMENSION,*TEXT"))))
(command "_.CHPROP" ss "" "LA" (strcat "标注层" wei) "")
)
(if (setq ss (ssget "W" pt1 pt2 '((0 . "INSERT"))))
(command "_.CHPROP" ss "" "LA" (strcat "图块层" wei) "")
)
))
(setvar "CMDECHO" 1)
(princ)
)

陨落 · 发表于 2013-5-11 12:06:01

这个应该好做

仲文玉 · 发表于 2013-5-11 12:25:02

这个自己尝试写下，无非就是dxf组码筛选改层

半听可乐 · 发表于 2013-5-11 13:11:40

仲文玉发表于 2013-5-11 12:25
这个自己尝试写下，无非就是dxf组码筛选改层

如果会肯定自己弄了~~

500w008 · 发表于 2013-5-11 13:36:00

提示: 作者被禁止或删除内容自动屏蔽

半听可乐 · 发表于 2013-5-11 16:01:02

各种观望不出手啊？

crazylsp · 发表于 2013-5-11 17:17:57

自己写写更健康

半听可乐 · 发表于 2013-5-11 19:45:36

你们不能这样啊~

wowan1314 · 发表于 2013-5-12 03:26:10

(Defun c:j1 ()
(Sets Ss (ssget ":L" '((0 . "Circle")));建选择集
(command "_chprop" Ss "" "la" "立管层" "");改图层
)
供你参考！其他类似！

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

求框选图元，根据图元类型进入不同图层

最佳答案

评分

500w008 500w008 当前离线积分 6432 明经币个注册时间 2009-9-28 在线时间小时威望金钱个贡献激情	发表于 2013-5-11 13:36:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复使用道具举报显身卡