求教！如何用lisp修改多重引线和表格样式中的文字样式
本帖最后由 xiaocainiao 于 2024-4-1 08:24 编辑如何用LISP获取所有多重引线样式和表格样式名、
然后循环获取并修改多重引线及表格样式中的文字样式、如上图：
我是想要搞合并文字样式功能、发现多重引线和表格样式中也有文字样式的设置、
研究了好几天也弄不出来、所以想请教一下大家！
试一试
修改多重引线文字样式
(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 发表于 2024-3-30 15:59
是修改多重引线样式的文字样式？
是的、还有表格样式中的文字样式、不是针对图元的 给自己顶一下、有没有会的大神啊、研究好几天了、毫无头绪 用这个来查找使用方法：(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'方法) 来实现内部操作 G〆h 发表于 2024-3-31 10:37
用这个来查找使用方法：(vlax-dump-object (vla-item (vla-item (vlax-ename->vla-object (namedobjdict))...
大神！有没有更详细点的操作、谢谢！
我对vla是一窍不通、lisp也是会个基础、
提这个问题主要是想要搞个合并文字样式的功能、
因为多重引线和表格样式中也涉及到了文字样式、
所以想着能不能用Lisp直接判断并修改对应文字样式 重新编辑了一下需求、希望各位大神能理解 TextStyle很复杂，非常多地方被引用。合并TextStyle会是个非常大的工程 kozmosovia 发表于 2024-4-1 18:48
TextStyle很复杂，非常多地方被引用。合并TextStyle会是个非常大的工程
我也发现了、现在是能搞定一种情况是一种、实在搞不定也没办法了
页:
[1]
2