如何用LISP修改现有的多重引线文字颜色?

qazxswk · 发表于 2024-10-9 10:16:28

如题，如何用LISP修改现有的多重引线文字颜色？不是新建。找了很久没有找到相关变量。网上也都是新建的相关资料。

wzg356 · 发表于 2024-10-9 10:16:29

本帖最后由 wzg356 于 2024-10-9 16:22 编辑

改多行文字

(and
      (setq e(Car(Entsel)))
      (setq e(Vlax-Ename->Vla-Object e))
      (wcmatch (Vlax-Get e 'ObjectName) "AcDbMLeader")
      (setq str(Vlax-Get e 'TextString))
      ;如str修改过颜色，则先消除多行文字原格式，自己搜函数
      (setq str(strcat"{\\C" "3" ";" str"}"));改为3号色
      (Vlax-put e 'TextString str)

)
另一个方法比较好的http://bbs.mjtd.com/forum.php?mo ... %D1%F9%CA%BD&page=2
即修改样式：固定箭头颜色，文字颜色随实体可用 (Vlax-Get obj 'color 色号)修改

kozmosovia · 发表于 2024-10-9 10:45:28

本帖最后由 kozmosovia 于 2024-10-9 10:47 编辑

MLeaderStyle有TextColor可以改
https://help.autodesk.com/view/O ... 9-982D-9112539F8DE8

如果已有的改不掉，可以自己给已有的内容添加MTEXT的颜色修饰符指定颜色

qazxswk · 发表于 2024-10-9 10:51:46

kozmosovia 发表于 2024-10-9 10:45
MLeaderStyle有TextColor可以改
https://help.autodesk.com/view/O ... 9-982D-9112539F8DE8

MLeaderStyle没有透明命令吧。

kozmosovia · 发表于 2024-10-9 11:07:00

你要lisp改，直接COM改就是了，跟透明不透明命令有啥关系？

天天问 · 发表于 2024-10-12 19:51:17

曾经也受到这个问题的困扰，写过一个代码，自己凑活用的。供参考。

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

[讨论] 如何用LISP修改现有的多重引线文字颜色?

最佳答案

本帖子中包含更多资源