如何让图纸所有标注样式的颜色随层呢？

theisland

想把图中所有的标注颜色改成随层，包括文字、尺寸线等，图中已经存在的标注颜色也要改过来，如何实现呢？

菜卷鱼

setbylayer

theisland

菜卷鱼 发表于 2013-12-14 14:08
setbylayer

朋友，能详细点吗？是所有的标注样式

菜卷鱼

theisland 发表于 2013-12-14 16:14
朋友，能详细点吗？是所有的标注样式

输入命令setbylayer，然后选择你需要变成bylayer的东西，选一个变一个

菜卷鱼

如图所示，可以使用 _.QSELECT 全图筛选到所有的标注

q3_2006

2. 
   
3. (defun c:tt ( / a i ss)
   
4.   (setq ss (ssget "X" '((0 . "DIMENSION"))))
   
5.   (setq i -1)
   
6.   (while (setq a (ssname ss (setq i (1+ i))))
   
7.     (setq a (vlax-ename->vla-object a))
   
8.     (vla-put-dimensionlineColor a 256)
   
9.     (vla-put-extensionlineColor a 256)
   
10.     (vla-put-textColor a 256)
    
11.   )
    
12. )

<br /> (defun c:tt ( / a i ss)<br />   (setq ss (ssget "X" '((0 . "DIMENSION"))))<br />   (setq i -1)<br />   (while (setq a (ssname ss (setq i (1+ i))))<br />     (setq a (vlax-ename->vla-object a))<br />     (vla-put-dimensionlineColor a 256)<br />     (vla-put-extensionlineColor a 256)<br />     (vla-put-textColor a 256)<br />   )<br /> )

theisland

q3_2006 发表于 2013-12-14 18:02

怎么有这个提示呢？
; 错误: 参数类型错误: lselsetp nil

theisland

菜卷鱼 发表于 2013-12-14 16:33
如图所示，可以使用 _.QSELECT 全图筛选到所有的标注

这个方法我试过，恶心的是图中有很多标注是在块里面，还有嵌套块什么的，根本无从下手啊

1993063

(Defun C:dgc ( / ss ) (Setvar 'CMDECHO 0)
  (if (setq La (cdr (Assoc 8 (Entget (car (entsel "选择图层"))))))
    (progn
     (setq ss (ssget "X" '((0 . "dimension,qleader"))))
     (Vl-cmdf "chprop" ss "" "c" "bylayer" "lt" "bylayer" "lw" "bylayer" "la" la "")
    )
  )
);这个调用chprop命令,如果想不要提示:lentityp那就要加错误处理

theisland

1993063 发表于 2013-12-15 12:47
(Defun C:dgc ( / ss ) (Setvar 'CMDECHO 0)
  (if (setq La (cdr (Assoc 8 (Entget (car (entsel "选择图 ...

您好！程序运行貌似没什么效果，而且我不太清楚为什么要选择图层呢？我是想将图中所有标注颜色随各自的层，不需要选择图层