求教！如何用lisp修改多重引线和表格样式中的文字样式

xiaocainiao

如何用LISP获取所有多重引线样式和表格样式名、

然后循环获取并修改多重引线及表格样式中的文字样式、如上图：

我是想要搞合并文字样式功能、发现多重引线和表格样式中也有文字样式的设置、

研究了好几天也弄不出来、所以想请教一下大家！

xiang19751218

试一试
修改多重引线文字样式
(setq mlstyle  (vla-item (vla-item (vlax-ename->vla-object (namedobjdict))  "ACAD_MLEADERSTYLE") "Standard" ));"Standard"当前样式
(vlax-put mlstyle 'textstyle "XG-04");;修改"XG-04"为你需要的文字样式
修改表格样式中的文字样式
(setq tbstyle  (vla-item (vla-item (vlax-ename->vla-object (namedobjdict))  "ACAD_tableSTYLE") "Standard"));"Standard"当前样式
(Vlax-Invoke-Method tbstyle 'SetTextStyle acDataRow "XG-04");;修改"XG-04"为你需要的文字样式

ssyfeng

是修改多重引线样式的文字样式？

xiaocainiao

ssyfeng 发表于 2024-3-30 15:59
是修改多重引线样式的文字样式？

是的、还有表格样式中的文字样式、不是针对图元的

xiaocainiao

给自己顶一下、有没有会的大神啊、研究好几天了、毫无头绪

G〆h

用这个来查找使用方法：(vlax-dump-object (vla-item (vla-item (vlax-ename->vla-object (namedobjdict))  "ACAD_MLEADERSTYLE") "Standard") t)
例如：(setq mlstyle  (vla-item (vla-item (vlax-ename->vla-object (namedobjdict))  "ACAD_MLEADERSTYLE") "Standard")) ;获取取这个样式
（vlax-put mlstyle  '方法) 来实现内部操作

xiaocainiao

G〆h 发表于 2024-3-31 10:37
用这个来查找使用方法：(vlax-dump-object (vla-item (vla-item (vlax-ename->vla-object (namedobjdict))  ...

大神！有没有更详细点的操作、谢谢！
我对vla是一窍不通、lisp也是会个基础、
提这个问题主要是想要搞个合并文字样式的功能、
因为多重引线和表格样式中也涉及到了文字样式、
所以想着能不能用Lisp直接判断并修改对应文字样式

xiaocainiao

重新编辑了一下需求、希望各位大神能理解

kozmosovia

TextStyle很复杂，非常多地方被引用。合并TextStyle会是个非常大的工程

xiaocainiao

kozmosovia 发表于 2024-4-1 18:48
TextStyle很复杂，非常多地方被引用。合并TextStyle会是个非常大的工程

我也发现了、现在是能搞定一种情况是一种、实在搞不定也没办法了