自动写入多行文本，然后删除；解决cad2024/2025文字卡死
cad2024/2025；目前有一个通病，打开图纸后，只要双击文字，就时不时出现卡死的问题但是如果在双击文字之前，手动写入任意mtext，再将此mtext删除；即可解决这个故障；
希望大佬出手，写一个功能；
打开任意图档，在图档中写入任意内容的mtext；然后再删除此mtext；
感谢感谢！
本帖最后由 vitalgg 于 2024-3-28 10:30 编辑
(defun entity:make-mtext (str pt fontsize w h / ent-mtext)
"创建多行文本"
"ent"
(setq ent-mtext (entmakex (list (quote (0 . "MTEXT"))
(quote (100 . "AcDbEntity"))
(quote (67 . 0))
(quote (100 . "AcDbMText"))
(cons 10 pt)
(cons 40 fontsize)
(cons 41 w)
(quote (46 . 0.0))
(quote (71 . 1))
(quote (72 . 5))
(cons 1 "premtext")
(cons 7 (getvar "textstyle"))
(quote (210 0.0 0.0 1.0))
(quote (11 1.0 0.0 0.0))
(cons 42 w)
(cons 43 h)
(quote (50 . 0.0))
(quote (73 . 1))
(quote (44 . 1.0)))))
(vla-put-textstring (vlax-ename->vla-object ent-mtext)
str)
ent-mtext)
(entdel(entity:make-mtext "str"'(0 0 0) 250 2500 500)) aumyshow 发表于 2024-3-28 12:30
原版+最新升级补丁，没有双击文字崩溃bug
已装2025no3d版本；（工作中不需要那么多其他功能，精简版轻巧够用）；目前外挂lsp和动作宏；基本无卡死，还算稳定；此方法，适用于2023/2024/2025，双击文字卡死bug；再测试一段时间看看； 据肥马和大佬的实验证明：
纯lisp写字，然后删除，不能解决。
所以他们采用的用动作写字，用lisp删除。
如果没有记错的话，楼主上一个帖子，坛友lshpool有私信给你相应的东西。
http://bbs.mjtd.com/forum.php?mod=redirect&goto=findpost&ptid=189674&pid=974218&fromuid=7326707 完全版这种问题都没见过，那是你装了精简版的问题 lxl217114 发表于 2024-3-28 11:24
据肥马和大佬的实验证明：
纯lisp写字，然后删除，不能解决。
纯lsp写字，是可以的；你觉得不行
请问你是否真的有花时间，亲自测试过？
原版+最新升级补丁，没有双击文字崩溃bug lengxiaxi 发表于 2024-3-28 12:01
纯lsp写字，是可以的；你觉得不行
请问你是否真的有花时间，亲自测试过？
等时间验证吧，可能会有更优解呢。 aumyshow 发表于 2024-3-28 12:30
原版+最新升级补丁，没有双击文字崩溃bug
我的也同上，没问题 欢迎大家来免费解决双击卡死问题，http://bbs.mjtd.com/thread-189733-1-1.html
页:
[1]
2