白皮猪 发表于 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-objectEN))
(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 static/image/common/back.gif
(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)
    )
)
)
;;;这是我用来处理天正标注的
页: [1]
查看完整版本: 选择标注及引线标注颜色随层