建立多重引线样式，卡在字体颜色那里了

yfywk

linque06 发表于 2020-10-19 16:49
我就想知道是不是没有办法通过程序将某个多重引线样式置为当前

(vl-cmdf "CMLEADERSTYLE" nam1)

李钊伟2012

linque06 发表于 2020-10-19 16:49
我就想知道是不是没有办法通过程序将某个多重引线样式置为当前

命令: CMLEADERSTYLE
输入 CMLEADERSTYLE 的新值 <"Standard">: *取消*

G〆h

感谢前面楼主提供的源码，经实践总结如下：
①MLeader样式建立时，要注意把文字颜色设成256，即随层
相关思路是把引线颜色和文字颜色分开
②用前面楼主的 vla-put-LeaderLineColor更改引线颜色（注意颜色值要转换）。
③用vla-put-Color更改文字颜色（注意颜色值直接用0-256即可）

天天问

G〆h 发表于 2021-1-5 16:59
感谢前面楼主提供的源码，经实践总结如下：
①MLeader样式建立时，要注意把文字颜色设成256，即随层
相关 ...

敢问朋友有没有可正常用的lsp新建多吃引线样式？

G〆h

(progn
        (if (not (setq col_num (acad_colordlg 256 )))(setq col_num 256))
        (setq xobj (vlax-ename->vla-object (car(entsel))))
        (setq mlstyle  (vla-item (vla-item (vlax-ename->vla-object (namedobjdict))  "ACAD_MLEADERSTYLE") "Mls_Mtxt"))  ;样式名自已改
        (setq oCol (vlax-create-object (strcat "autocad.accmcolor." (substr (getvar 'acadver) 1 2))))
        (vla-put-ColorIndex oCol 256)
        (vla-put-textcolor mlstyle oCol)   ;多线的字体颜色随层，用于后面的vla-put-Color来修改
        (vla-put-ColorIndex oCol col_num)
        (vla-put-LeaderLineColor xobj oCol) ;引线的颜色
        (vla-put-Color xobj col_num)
)