删除整个文本对象

pateksan · 发表于 2022-7-5 15:28:26

你好
我在这里的第一篇帖子得到了很好的回复，所以我希望这次我也能找到一些理解。
我的画有66个布局是用不正确的模板创建的，每个布局都有很多文本对象需要删除。
和以前一样，我排除故障的时间非常有限，所以我希望有人能帮忙。
基于其他几个线程，它们都有一些类似于我所需要的方面，我得出了这一行：

copy

(entdel (car (sssetfirst nil (ssget "_X" '((1 . "TQ00E"))))))

产生

copy

error : bad argument type <NIL> ; expected ENTITYNAME at [entdel]

我希望这是因为sssetfirst返回多个实体，entdel一次需要一个实体——如果是这样，我知道出了什么问题，只是没有时间学习如何进行循环。
如果有帮助的话，文本对象包含特定的已知字符串，如上面的TQ00E-在单个文本实体中没有其他内容。
我很乐意使用Find和replace将所有这些文本替换为空格，但这是一种糟糕的做法，所以我希望有人能更正我的代码。当然，我不介意我得到脏的、非最佳的多行代码。
提前感谢！

rlx · 发表于 2022-7-5 15:37:36

可能是这样的

copy

 (if (setq ss (ssget "x" '((1 . "TQ00E"))))(command "erase" ss ""))

pateksan · 发表于 2022-7-5 15:47:17

多美啊。周末愉快！

rlx · 发表于 2022-7-5 15:53:34

欢迎光临。如果将“TQ00E”更改为“TQ00E”，（用逗号）则同时删除空文本。

祝你周末愉快。

gr.Rlx

pateksan · 发表于 2022-7-5 16:00:45

好的，我有点忘乎所以，这段代码只在当前布局上有效，我希望我可以删除所有布局上特定文本对象的所有副本。这容易做到吗？

rlx · 发表于 2022-7-5 16:12:07

copy


(vl-load-com)
(defun del-txt ()
 (if (ssget "_x" '((0 . "text")(1 . "TQ00E")))
   (vlax-for n (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
     (vla-delete n)))(princ))

gr.Rlx

pateksan · 发表于 2022-7-5 16:15:31

嗨，我需要继续画图，所以我用空格替换了所有相关的字符串。我知道它不好看，但这不是我的错，我继承了一个有问题的模板绘图。可惜Bricscad Quick Select一次只能用于一个布局。我肯定会调查这个VL业务，虽然它不断出现，当我谷歌我的LISP问题。再次感谢您。

BIGAL · 发表于 2022-7-5 16:26:20

pateksan这里是一个单步浏览布局选项卡的示例，通常我也会检查/=“model”

copy


(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vlax-for lay (vla-get-Layouts doc)
(setvar 'ctab (vla-get-name lay) )
(alert (strcat "Tab has changed to " (vla-get-name lay)))
)

Roy_043 · 发表于 2022-7-5 16:35:44

@pateksan：
快速选择确实仅限于当前空间。这完全符合逻辑，同样适用于编辑命令。

[编程交流] 删除整个文本对象

发表回复

精选推荐