自动写入多行文本，然后删除；解决cad2024/2025文字卡死

lengxiaxi

cad2024/2025；目前有一个通病，打开图纸后，只要双击文字，就时不时出现卡死的问题


但是如果在双击文字之前，手动写入任意mtext，再将此mtext删除；即可解决这个故障；

希望大佬出手，写一个功能；

打开任意图档，在图档中写入任意内容的mtext；然后再删除此mtext；

感谢感谢！

vitalgg

2. (defun entity:make-mtext (str pt fontsize w h / ent-mtext)
   
3.   "创建多行文本"
   
4.   "ent"
   
5.   (setq ent-mtext (entmakex (list (quote (0 . "MTEXT"))
   
6.         (quote (100 . "AcDbEntity"))
   
7.         (quote (67 . 0))
   
8.         (quote (100 . "AcDbMText"))
   
9.         (cons 10 pt)
   
10.         (cons 40 fontsize)
    
11.         (cons 41 w)
    
12.         (quote (46 . 0.0))
    
13.         (quote (71 . 1))
    
14.         (quote (72 . 5))
    
15.         (cons 1 "pre  mtext")
    
16.         (cons 7 (getvar "textstyle"))
    
17.         (quote (210 0.0 0.0 1.0))
    
18.         (quote (11 1.0 0.0 0.0))
    
19.         (cons 42 w)
    
20.         (cons 43 h)
    
21.         (quote (50 . 0.0))
    
22.         (quote (73 . 1))
    
23.         (quote (44 . 1.0)))))
    
24.   (vla-put-textstring (vlax-ename->vla-object ent-mtext)
    
25.     str)
    
26.   ent-mtext)
    
27. (entdel(entity:make-mtext "str"  '(0 0 0) 250 2500 500))

(defun entity:make-mtext (str pt fontsize w h / ent-mtext)<br />   "创建多行文本"<br />   "ent"<br />   (setq ent-mtext (entmakex (list (quote (0 . "MTEXT"))<br />         (quote (100 . "AcDbEntity"))<br />         (quote (67 . 0))<br />         (quote (100 . "AcDbMText"))<br />         (cons 10 pt)<br />         (cons 40 fontsize)<br />         (cons 41 w)<br />         (quote (46 . 0.0))<br />         (quote (71 . 1))<br />         (quote (72 . 5))<br />         (cons 1 "pre  mtext")<br />         (cons 7 (getvar "textstyle"))<br />         (quote (210 0.0 0.0 1.0))<br />         (quote (11 1.0 0.0 0.0))<br />         (cons 42 w)<br />         (cons 43 h)<br />         (quote (50 . 0.0))<br />         (quote (73 . 1))<br />         (quote (44 . 1.0)))))<br />   (vla-put-textstring (vlax-ename->vla-object ent-mtext)<br />     str)<br />   ent-mtext)<br /> (entdel(entity:make-mtext "str"  '(0 0 0) 250 2500 500))

lengxiaxi

aumyshow 发表于 2024-3-28 12:30
原版+最新升级补丁，没有双击文字崩溃bug

已装2025  no3d版本；（工作中不需要那么多其他功能，精简版轻巧够用）；目前外挂lsp和动作宏；基本无卡死，还算稳定；此方法，适用于2023/2024/2025，双击文字卡死bug；再测试一段时间看看；

lxl217114

据肥马和大佬的实验证明：
纯lisp写字，然后删除，不能解决。

所以他们采用的用动作写字，用lisp删除。

如果没有记错的话，楼主上一个帖子，坛友lshpool有私信给你相应的东西。
http://bbs.mjtd.com/forum.php?mo ... amp;fromuid=7326707

429014673

完全版这种问题都没见过，那是你装了精简版的问题

lengxiaxi

lxl217114 发表于 2024-3-28 11:24
据肥马和大佬的实验证明：
纯lisp写字，然后删除，不能解决。

纯lsp写字，是可以的；你觉得不行

请问你是否真的有花时间，亲自测试过？

aumyshow

原版+最新升级补丁，没有双击文字崩溃bug

lxl217114

lengxiaxi 发表于 2024-3-28 12:01
纯lsp写字，是可以的；你觉得不行

请问你是否真的有花时间，亲自测试过？

等时间验证吧，可能会有更优解呢。

wangsr

aumyshow 发表于 2024-3-28 12:30
原版+最新升级补丁，没有双击文字崩溃bug

我的也同上，没问题

lxl217114

欢迎大家来免费解决双击卡死问题，http://bbs.mjtd.com/thread-189733-1-1.html