StripMtext修改示例不起作用
根据lisp文件中的描述…这似乎不起作用。我错过了什么
找到文本并创建选择集
(if (setq ss (ssget "x" '((0 . "mtext") (62 . 1)))) (StripMtext ss '("C")))＜br＞在命令行..＜br＞处Command: (setq ss (ssget "x" '((0 . "mtext") (62 . 1))))
Command: (StripMtext ss '("C"))
1
尝试了此变体
选择集，但在发出命令后再次返回选择集
(if (setq ss (ssget "x" '((0 . "mtext") (62 . 1))))
(Command "SMT" ss "C)
在命令行…
命令：（setq ss（ssget“x”（（0.“mtext”）（62.1））
选择>命令：（命令“-SMT”ss“C”）
-SMT未知命令“-SMT”。按F1键获取帮助
命令：＜选择＞＜br＞在lisp之外的SMT中以及在命令行中使用＜br＞命令：SMT…对话框＜br＞时，所有操作都可以正常进行
**** Hidden Message ***** 需要进一步阅读描述。
(strip mtext(ss get " x ")" c ")
起作用。
编辑:现在隔离红色。 好的...我只是把这个加到了套路的最后。
(Alert "Some MText may have not be returned to their bylayer color. Please select them now")
(StripMtext (ssget) "c") ;;select all red text not changed by routine.
不是最佳的，但至少有了警告、一些训练，并且用户有希望用他们的眼睛来完成它。
这我可以接受。
页:
[1]