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

1993063

theisland 发表于 2013-12-14 21:11
您好！程序运行貌似没什么效果，而且我不太清楚为什么要选择图层呢？我是想将图中所有标注颜色随各自的层 ...

选择图层是要你指定标注对象放在哪一个图层里,如果不要选择的话,就是这个写:
(Defun C:TT ( / ss ) (Setvar 'CMDECHO 0)
  (progn  ;;选择的标注引线对象放当前层
     (setq ss (ssget "X" '((0 . "dimension,qleader"))))
     (Vl-cmdf "chprop" ss "" "c" "bylayer" "lt" "bylayer" "lw" "bylayer" "la" (Getvar 'clayer) "")
  )
)

(Defun C:TT ( / ss la )
  (setq la (getvar 'CLAYER))
  (Setvar 'CMDECHO 0)
  (Vl-cmdf "layer" "m" "标注" "c" "138" "" "L" "continuous" "" "LW" "0.13" "" "")
  (progn  ;;选择的标注引线对象放当标注层
     (setq ss (ssget "X" '((0 . "dimension,qleader"))))
     (Vl-cmdf "chprop" ss "" "c" "bylayer" "lt" "bylayer" "lw" "bylayer" "la" "标注" "")
  )(Setvar 'CLAYER la)
  (princ)
)

1993063

这个颜色还有个环境问题在里面

theisland

1993063 发表于 2013-12-15 16:06
选择图层是要你指定标注对象放在哪一个图层里,如果不要选择的话,就是这个写:
(Defun C:TT ( / ss ) (Set ...

第二个：命令: tt 应用程序错误: 命令输入时发送的类型无效

第一个没反应

1993063

theisland 发表于 2013-12-15 00:47
第二个：命令: tt 应用程序错误: 命令输入时发送的类型无效

第一个没反应

你如果图纸里什么都没有肯定没反映了,无语,你当我没帖一样,要么上图

theisland

1993063 发表于 2013-12-15 19:15
你如果图纸里什么都没有肯定没反映了,无语,你当我没帖一样,

图纸里面很多标注啊

1993063

theisland 发表于 2013-12-15 01:16
图纸里面很多标注啊

上图看看,不可能的吧,

1993063

   (setq ss (ssget "X" '((0 . "dimension,qleader"))))       ;这句是全选
     (Vl-cmdf "chprop" ......  ;这句是改图层

theisland

1993063 发表于 2013-12-15 19:17
上图看看,不可能的吧,

大侠，您看看吧，tt后我希望那些白色的文字能变成跟绿色（即随层）

1993063

theisland 发表于 2013-12-15 01:40
大侠，您看看吧，tt后我希望那些白色的文字能变成跟绿色（即随层）

你的环境和我不一样,我的都是设置的随层颜色,颜色是由图层的颜色来确定的.你看我上面的图片和你设置的有区别吧.再怎么改也换不了

w245272914

1993063 发表于 2013-12-15 21:36
你的环境和我不一样,我的都是设置的随层颜色,颜色是由图层的颜色来确定的.你看我上面的图片和你设置的有 ...

http://bbs.mjtd.com/thread-176162-1-1.html

哥，能否帮忙改个打印PDF的源码，感谢了，地址链接如上~