扫“黄”专贴

young-yi

刚好也在找这个插件

尘缘一生

llsheng_73 发表于 2018-6-29 11:37
(command"chprop"(SELECTBYLAYER'((0 . "*")) '((62 . 2))"AND")"""c"1"")

我啊，正在写这段代码，调试没通过，希望谁能修改下。

1. ;;;;;改所有黄色的图层为红色
   
2. (defun c:yetorl  (/ ss lay l n enm)
   
3.   (vl-load-com)
   
4.   (setq ss (ssget "X" (list (cons 62 2)))) 选黄色
   
5.   (setq app (vlax-get-acad-object)
   
6.     doc (vla-get-activedocument app)
   
7.     lays (vla-get-layers doc))
   
8.   (if ss (progn
   
9.            (setq l 0 n (sslength ss))
   
10.            (while (< l n)
    
11.              (setq enm (cdr (assoc 8 (setq en (entget (ssname ss l))))));;;获取黄色对象的图层名
    
12.              (if (tblsearch "layer" enm)
    
13.                (progn
    
14.                  (setq lay (vla-item lays enm))                 
    
15.                  (vlax-put-property lay 'Color 1)
    
16.                )
    
17.                (alert (strcat enm "不存在!"))
    
18.              );if
    
19.              (setq l (+ l 1))
    
20.            )
    
21.          )
    
22.   )
    
23. )
    

;;;;;改所有黄色的图层为红色<br /> (defun c:yetorl  (/ ss lay l n enm)<br />   (vl-load-com)<br />   (setq ss (ssget "X" (list (cons 62 2)))) 选黄色<br />   (setq app (vlax-get-acad-object)<br />     doc (vla-get-activedocument app)<br />     lays (vla-get-layers doc))<br />   (if ss (progn<br />            (setq l 0 n (sslength ss))<br />            (while (< l n)<br />              (setq enm (cdr (assoc 8 (setq en (entget (ssname ss l))))));;;获取黄色对象的图层名<br />              (if (tblsearch "layer" enm)<br />                (progn<br />                  (setq lay (vla-item lays enm))                 <br />                  (vlax-put-property lay 'Color 1)<br />                )<br />                (alert (strcat enm "不存在!"))<br />              );if<br />              (setq l (+ l 1))<br />            )<br />          )<br />   )<br /> )<br />

llsheng_73

改图层颜色简单，得到指定颜色的图层也简单，麻烦之处在于，把图元颜色改为随层，只能一个个图元修改

Linhay

改图层的话(vlax-for n (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object))) (if (= (vla-get-color n) 2) (vla-put-color n 1)))就差不多了吧

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)));;锁定图层解锁
....

jun353835273

确实修改打印样式表最简单粗暴

ysq101

llsheng_73 发表于 2018-6-29 17:55
(MODlayers'((370 . -3)(370 . 50)));;线宽为默认的的改为0.5
(MODlayers'((62 . 2)(62 . 1)));;颜色为2 ...

龙大师出手相助了!!!!

尘缘一生

llsheng_73 发表于 2018-6-29 11:37
(command"chprop"(SELECTBYLAYER'((0 . "*")) '((62 . 2))"AND")"""c"1"")

顶起来这个代码，这个很有用，但是代码出错，请修改下吧？

e2002

很多用户提出来问题，总是希望能有人来写段代码去解决，而不是先认真学习和掌握acad的基本功能。有的人工作了近十年，居然连ltscale都不知道....很多人只是在AutoCAD知识的大山脚下绕圈子...