Mtext执行textedit命令，不能立即全选文字

pxt2001

如图所示，对text和Mtext，分别执行textedit命令，text可全选文字，编辑方便。Mtext不能立即全选文字，需要ctrl+a全选，对于强迫症来说，希望想办法解决。哪位网友知道解决方法：编辑Mtext时用Lisp全选所编辑的文字？





         

start4444

命令没啥好讨论的，把你目的说出来，既然用lisp就有其他办法代替编辑的动作

pxt2001

start4444 发表于 2023-7-11 17:53
命令没啥好讨论的，把你目的说出来，既然用lisp就有其他办法代替编辑的动作

2. (defun c:tt12 ()
   
3.   (setq pt (getpoint "\n选择Mtext插入点:"))
   
4.   (Setq  en (entmakex (list '(0 . "MTEXT")
   
5.          ;;(cons 8 Lay)
   
6.          '(100 . "AcDbEntity")
   
7.          '(100 . "AcDbMText")
   
8.          ;;(cons 7 sty)
   
9.          (cons 1 "33333")
   
10.          (cons 10 pt)
    
11.          (cons 40 800)
    
12.          (cons 41 (* 800 25))
    
13.          )
    
14.      )
    
15.   )
    
16.   (vl-cmdf "textedit" en)
    
17. )

(defun c:tt12 ()<br />   (setq pt (getpoint "\n选择Mtext插入点:"))<br />   (Setq  en (entmakex (list '(0 . "MTEXT")<br />          ;;(cons 8 Lay)<br />          '(100 . "AcDbEntity")<br />          '(100 . "AcDbMText")<br />          ;;(cons 7 sty)<br />          (cons 1 "33333")<br />          (cons 10 pt)<br />          (cons 40 800)<br />          (cons 41 (* 800 25))<br />          )<br />      )<br />   )<br />   (vl-cmdf "textedit" en)<br /> )

倒不是讨论CAD的命令，如图所示，输入Mtext后，如果有默认值，执行 (vl-cmdf "textedit" en)不能选定默认文字，需要双击或者Ctrl+A全选。

start4444

pxt2001 发表于 2023-7-21 09:12
倒不是讨论CAD的命令，如图所示，输入Mtext后，如果有默认值，执行 (vl-cmdf "textedit" en)不能选定 ...

那你在前面加个 getstring 函数不就行了，把变量代替 33333，直接输出内容，如果要再搞好点就用个dcl文字输入框