扫“黄”专贴

尘缘一生

如题：
由于黄色不好打印，转PDF也显示不清楚。求两段代码：

1：所有实体颜色随层

2：把图中所有 黄色 的图层的颜色改为 红色！


    经以上处理后，图中不允许出现黄色实体。

llsheng_73

1. (Defun MODlayers(codes / d a b c)
   
2.   (setq b(car codes)c(cadr codes))
   
3.   (While(SetQ a(TblNext"layer"(not d)))
   
4.     (if(member b(setq a(entget(tblobjname"layer"(cdadr a)))))(entmod(subst c b A)))
   
5.     (SetQ d t)))

(Defun MODlayers(codes / d a b c)<br />   (setq b(car codes)c(cadr codes))<br />   (While(SetQ a(TblNext"layer"(not d)))<br />     (if(member b(setq a(entget(tblobjname"layer"(cdadr a)))))(entmod(subst c b A)))<br />     (SetQ d t)))

(MODlayers'((370 . -3)(370 . 50)));;线宽为默认的的改为0.5
(MODlayers'((62 . 2)(62 . 1)));;颜色为2的改成1
(MODlayers'((70 . 4)(70 . 0)));;锁定图层解锁
....

lrd1861

设置一下打印样式不就完了

张大锤

我有一个 选择相对属性  用法：命令qw 输入c 选择 你要选择的颜色（比如黄色）之后框选 只选择黄色

(defun c:qw (/ kw Myqselect)
(defun My_qselect (code typ / ss en lst styp)
(princ "\n請選擇種類")
(princ typ)
(if (setq en (entsel "的一個對象"))
(progn (setq en (car en))
(setq lst (entget en))
(setq styp (assoc code lst))
(if styp (progn (setq ss (ssget (list styp))))
(progn (if (= 62 code)
(setq ss (ssget (list ;|'(-4 . "<not")'(-4 . "<")|;(cons code 256) ;|'(-4 . "not>")|;
)))
(setq ss (ssget (list ;|'(-4 . "<not")'(-4 . "<")|;(cons code "bylayer") ;|'(-4 . "not>")|;
))))))
(if ss (progn (sssetfirst nil ss))
(alert "該類型的圖元不存在")
)))
(princ)
)
(initget "C L X W K T")
(setq kw (getkword "\n請選擇需要的類型,線型<X>,文字<W>,塊名<K>,顏色<C>,圖層<L>,圖元類型<T>:" )
)
(cond
((= "X" kw)  (My_qselect 6 "線型"))
((= "W" kw) (My_qselect 1 "文字"))
((= "C" kw)  (My_qselect 62 "顏色"))
((= "K" kw)  (My_qselect 2 "塊名"))
((= "L" kw)  (My_qselect 8 "圖層"))
((= "T" kw)  (My_qselect 0 "圖元類型"))
)
(princ"\n過濾選擇程序")
(princ)
)


这个解决不了你要的要求 但是 在你没找到办法的时候 可以用这个过度
这段码 是在明经里面找到的 但是我忘记作者是谁了 很抱歉

panliang9

龙龙仔有一个程序，就是作这个的，你可以找找看！

张大锤

理解错了~~~嘿嘿

panliang9

http://bbs.xdcad.net/forum.php?mod=viewthread&tid=2474&page=2

明经的贴已经消失了，找到的如下：

panliang9

这个命令也可以选定对象改颜色为“随层”！

panliang9

改图层颜色的代码：
(defun VxChgLayCol (Old New / AcdDoc)
(vla-load-com)
(setq AcdDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
(vlax-for Obj (vla-get-Layers AcdDoc)
(if (= (vla-get-Color Obj) Old)
(vla-put-Color Obj New)
)
(vlax-release-object Obj)
)
(vlax-release-object AcdDoc)
(princ)
)

命令执行：
(VxChgLayCol 2 1)

网上刨到的，亲测可行！

llsheng_73

1. (Defun STB(TAB / d a)
   
2.   (While(SetQ a(TblNext TAB(not d)))
   
3.     (SetQ d(Cons a d)))
   
4.   d)
   
5. (defun Selectbylayer(dxf code f / ly)
   
6.   (setq ly(mapcar'(lambda(x)(cons(assoc 370(entget(tblobjname"layer"(cdadr x))))x))(STB"Layer")))
   
7.   (ssget"X"(if code(append dxf(list(cons -4(strcat"<"f)))
   
8.                           (vl-remove'nil(apply'append(mapcar'(lambda(x)(list'(-4 . "<or")x
   
9.                                                               '(-4 . "<and")(assoc(car x)'((62 . 256)(6 . "Bylayer")))
   
10.                                                               (cons 8(apply'strcat(mapcar'(lambda(x)(strcat(cdaddr x)","))
    
11.                                                                                          (vl-remove-if-not'(lambda(y)(member x y))ly))))
    
12.                                                               '(-4 . "and>")'(-4 . "or>")))code)))
    
13.                           (list(cons -4(strcat f">"))))
    
14.             dxf)))

(Defun STB(TAB / d a)<br />   (While(SetQ a(TblNext TAB(not d)))<br />     (SetQ d(Cons a d)))<br />   d)<br /> (defun Selectbylayer(dxf code f / ly)<br />   (setq ly(mapcar'(lambda(x)(cons(assoc 370(entget(tblobjname"layer"(cdadr x))))x))(STB"Layer")))<br />   (ssget"X"(if code(append dxf(list(cons -4(strcat"<"f)))<br />                           (vl-remove'nil(apply'append(mapcar'(lambda(x)(list'(-4 . "<or")x<br />                                                               '(-4 . "<and")(assoc(car x)'((62 . 256)(6 . "Bylayer")))<br />                                                               (cons 8(apply'strcat(mapcar'(lambda(x)(strcat(cdaddr x)","))<br />                                                                                          (vl-remove-if-not'(lambda(y)(member x y))ly))))<br />                                                               '(-4 . "and>")'(-4 . "or>")))code)))<br />                           (list(cons -4(strcat f">"))))<br />             dxf)))

(command"chprop"(SELECTBYLAYER'((0 . "*")) '((62 . 2))"AND")"""c"1"")

1993063

有一个一劳永逸的办法,修改打印样式表