检查块中的实体

Olhado_ · 发表于 2022-7-6 15:44:52

感谢CarlB，事实证明这很有帮助，不过你知道有什么方法可以获得实体数或打破循环吗？

如果你做不到这些，那么你认为有人可以帮助我掌握以下语句的一般语法吗

工作代码：
语法问题：


(ssget [color=red]":U"[/color] blkent) ; error: too few arguments

copy

(ssget [color=red]":V"[/color] blkent) ; error: too few arguments

根据帮助菜单，这些选择方法中的一种似乎是我最大的希望；但我不知道如何使用它们。我几乎想知道，只是想知道，即使结果证明我不能使用它们。

谢谢

Olhado_ · 发表于 2022-7-6 15:48:19

我希望我能获得荣誉；但根据你说的，我最终在autodesk的论坛上找到了这种方法。

谢谢大家的帮助，我希望我不需要再把这个话题扯上。

Lee Mac · 发表于 2022-7-6 15:52:02

您能在插入之前上传实际块的图形吗？

我将看看是否可以编写LISP来提取坐标。

Olhado_ · 发表于 2022-7-6 15:56:54

既然你问了。。。

块名称：FGSE
寻找层“蓝牛”。这是一条“lwpolyline”
Sample_Border_2000。图纸

Lee Mac · 发表于 2022-7-6 15:59:13

这里什么都没有。。。

copy

Olhado_ · 发表于 2022-7-6 16:01:49

成功非常感谢你真的为我节省了很多时间。

我还对它进行了一些修改，因为我们确实有多个边框，所以现在它在图形中的所有块中循环，寻找带有蓝色边框的块。

当然，它丢失了else语句，因为顶部循环恰好是一个“While”；但在我们的情况下，我们将使用它的一切都将有一个边界。

但再次感谢你，你确实完成了最困难的部分。

copy

Lee Mac · 发表于 2022-7-6 16:08:52

很高兴它能为你工作，Olhado，很高兴能写一个与平常不同的LISP

JohnM · 发表于 2022-7-6 16:09:24

如果你只是在寻找盒子的4个点，试试这个

（defun c：测试（）
（vla GetBoundingBox（vlax ename->vla对象（car（entsel））“minpt”maxpt）_检查高度/宽度
（setq）
llc（vlax safearray->list minpt）
urc（vlax safearray->list maxpt）
有限责任公司（list（car llc）（cadr llc））
urc（列表（汽车urc）（cadr urc））
lrc（list（car urc）（cadr llc））
ulc（list（car llc）（cadr urc））
);_setq公司
（setq pheight（distance llc ulc））
（setq pwidth（distance llc lrc））
);_德芬

[编程交流] 检查块中的实体

发表回复

精选推荐