2013-08-14 QQ群：ALISP＆VLISP(143438137) 聊天记录：[image={C750ACFA-B5B1-2A24-DA9B-E66AB

tangjunasd58

梦宇ぁ恋(281383277)于2013-08-14 19-50-40：
[qqimg]{5DA49E61-68C0-D279-7459-34E0F707BFFE}.jpg[/qqimg]

tangjunasd58

梦宇ぁ恋(281383277)于2013-08-14 19-50-46：
[qqimg]{5BAA29B3-9A10-0D1A-C960-108D08552833}.jpg[/qqimg]

CCarch

Z(229337500)于2013-08-14 20-51-15：
谁有自动分层工具

tangjunasd58

梦宇ぁ恋(281383277)于2013-08-14 20-53-08：
有颜色自动分到层工具，

CCarch

Z(229337500)于2013-08-14 20-53-57：
能发我一份吗

tangjunasd58

梦宇ぁ恋(281383277)于2013-08-14 20-54-53：
我这个是带在一个收费软件里的。

tangjunasd58

梦宇ぁ恋(281383277)于2013-08-14 20-55-16：
命令名称叫色归层。

CCarch

Z(229337500)于2013-08-14 20-55-55：
不时单独外挂吗

tangjunasd58

梦宇ぁ恋(281383277)于2013-08-14 20-56-04：
[qqimg]{3A133762-168B-B319-1232-BAEB793FAF91}.jpg[/qqimg]

tangjunasd58

梦宇ぁ恋(281383277)于2013-08-14 20-56-06：
不是的。

eachy

eachy(124471899)于2013-08-14 20-57-33：
自己写个反应器，有实体自动归层

CCarch

Z(229337500)于2013-08-14 20-57-59：
[face27.gif]

tangjunasd58

梦宇ぁ恋(281383277)于2013-08-14 21-03-17：
(defun c:zh (/ COLOR C_LAYER DZB ENAME I SS SubUpd SS_CHANGE);;_根据组码修改图元;;_(AT_E:SubUpd (car(entsel)) (list (cons 8 "1") (cons 62 4)))(defun SubUpd (ename tylst / e_data c n)(if (= (type ename) 'ENAME)(setq e_data (entget ename)))(foreach n tylst(if (setq c (assoc (car n) e_data))(setq e_data (subst n c e_data))(setq e_data (append e_data (list n)))))(entmod e_data)(princ))(setq ss (ssget '((-4 . "=") (62 . 1) (-4 . "")))) ;_选择颜色从1到255的 需要定义255以外的自行修改(if ss(progn(setq ss_change (ssadd)) ;_定义修改过的选择集 用于最后修改 颜色 线型 线宽 随层(setq dzb '((1 "0") (8 "2虚线") (2 "螺纹"))) ;_定义颜色与图层对照表(setq i -1)(while (setq ename (ssname ss (setq i (1+ i))))(setq color (cdr (assoc 62 (entget ename)))) ;_获取颜色值(if (setq color (assoc color dzb)) ;_如果颜色在 对照表dzb 中存在就修改(progn(setq c_layer (cadr color)) ;_根据颜色获取到需要转换的图层(SubUpd ename (list (cons 8 c_layer))) ;_修改图层(setq ss_change (ssadd ename ss_change)) ;_把图元名添加到修改过的选择集)))(if (> (sslength ss_change) 0) ;_如果有修改过的继续修改   线型 线宽 随层(command "change" ss_change "" "p" "c" "bylayer" "lt" "bylayer" "lw" "bylayer" "") ;_颜色 线型 线宽 随层)))(princ))

CCarch

Z(229337500)于2013-08-14 21-04-16：
有外挂程序吗

tangjunasd58

梦宇ぁ恋(281383277)于2013-08-14 21-04-45：
这个是LSP啊，你复制去试下。