StripMtext修改示例不起作用

jlogan02 · 发表于 2022-7-8 12:51:44

根据lisp文件中的描述…
这似乎不起作用。我错过了什么
找到文本并创建选择集

  (if (setq ss (ssget "x" '((0 . "mtext") (62 . 1)))) (StripMtext ss '("C")))

＜br＞在命令行..＜br＞处

copy

Command: (setq ss (ssget "x" '((0 . "mtext") (62 . 1))))
Command: (StripMtext ss '("C"))
1

尝试了此变体
选择集，但在发出命令后再次返回选择集

copy

  (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＞时，所有操作都可以正常进行

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

jlogan02 · 发表于 2022-7-8 13:36:54

需要进一步阅读描述。
(strip mtext(ss get " x ")" c ")
起作用。
编辑:现在隔离红色。

jlogan02 · 发表于 2022-7-8 15:54:38

好的...我只是把这个加到了套路的最后。

copy

 (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.

不是最佳的，但至少有了警告、一些训练，并且用户有希望用他们的眼睛来完成它。
这我可以接受。

[编程交流] StripMtext修改示例不起作用

发表回复

精选推荐