选择标注及引线标注颜色随层

白皮猪 · 发表于 2014-4-10 21:13:15

本帖最后由白皮猪于 2014-4-10 21:47 编辑

各位大侠，请帮忙看看，如下是在明经某个帖看到的(有一点改动，但据体是那里看到的给忘了，不好意思)。
以下部分有个问题，所选择的所有标注可以颜色随层，不过在此同时选择的引线标注只能是所选择的第一个引线标注颜色随层，其它的都不会变，这是怎么回事，要怎么改？
(setq ss (ssget '((0 . "DIMENSION,leader"))))
  (setq n 0)
(repeat (sslength ss)
   (setq EN  (cdr (assoc -1 (entget (ssname ss n)))))
(setq OBJ (vlax-ename->vla-object  EN))
(princ en)
(vla-put-dimensionlineColor OBJ 256)
(vla-put-extensionlineColor OBJ 256)
(vla-put-textColor OBJ 256)
(setq n (1+ n))
  ))

ZZXXQQ · 发表于 2014-4-11 07:58:40

(setq ss (ssget '((0 . "DIMENSION,LEADER"))))
(command "_.CHPROP" ss "" "C" "bylayer" "")

白皮猪 · 发表于 2014-4-28 19:40:21

谢谢版主回复.不过好像行不通呀

白皮猪 · 发表于 2014-4-28 19:42:18

ZZXXQQ 发表于 2014-4-11 07:58
(setq ss (ssget '((0 . "DIMENSION,LEADER"))))
(command "_.CHPROP" ss "" "C" "bylayer" "")

谢谢版主回复.不过好像行不通呀

LIULISHENG · 发表于 2020-1-15 15:23:14

研究学习一下

cqu20104225 · 发表于 2020-2-20 10:30:22

(setq BlockSel (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))))
(vlax-for Block BlockSel
  (vlax-for DimObject Block
(if (wcmatch
      (vla-get-ObjectName DimObject)
      "TDbSymbMultiLeader,TDbSymbArrow,TDbSymbElevation"
      )
      (vla-put-TextColor DimObject acByLayer)
)
  )
)
;;;这是我用来处理天正标注的

账号		自动登录	找回密码
密码			注册

[提问] 选择标注及引线标注颜色随层

点评