Mtext执行textedit命令，不能立即全选文字
如图所示，对text和Mtext，分别执行textedit命令，text可全选文字，编辑方便。Mtext不能立即全选文字，需要ctrl+a全选，对于强迫症来说，希望想办法解决。哪位网友知道解决方法：编辑Mtext时用Lisp全选所编辑的文字？
命令没啥好讨论的，把你目的说出来，既然用lisp就有其他办法代替编辑的动作 start4444 发表于 2023-7-11 17:53
命令没啥好讨论的，把你目的说出来，既然用lisp就有其他办法代替编辑的动作
(defun c:tt12 ()
(setq pt (getpoint "\n选择Mtext插入点:"))
(Setqen (entmakex (list '(0 . "MTEXT")
;;(cons 8 Lay)
'(100 . "AcDbEntity")
'(100 . "AcDbMText")
;;(cons 7 sty)
(cons 1 "33333")
(cons 10 pt)
(cons 40 800)
(cons 41 (* 800 25))
)
)
)
(vl-cmdf "textedit" en)
)倒不是讨论CAD的命令，如图所示，输入Mtext后，如果有默认值，执行 (vl-cmdf "textedit" en)不能选定默认文字，需要双击或者Ctrl+A全选。
pxt2001 发表于 2023-7-21 09:12
倒不是讨论CAD的命令，如图所示，输入Mtext后，如果有默认值，执行 (vl-cmdf "textedit" en)不能选定 ...
那你在前面加个 getstring 函数不就行了，把变量代替 33333，直接输出内容，如果要再搞好点就用个dcl文字输入框
页:
[1]