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

感谢CarlB，事实证明这很有帮助，不过你知道有什么方法可以获得实体数或打破循环吗？
 
如果你做不到这些，那么你认为有人可以帮助我掌握以下语句的一般语法吗
 
工作代码：
语法问题：

(ssget ":U" blkent) ; error: too few arguments

(ssget ":V" 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

这里什么都没有。。。
 
10

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

成功非常感谢你真的为我节省了很多时间。
 
我还对它进行了一些修改，因为我们确实有多个边框，所以现在它在图形中的所有块中循环，寻找带有蓝色边框的块。
 
当然，它丢失了else语句，因为顶部循环恰好是一个“While”；但在我们的情况下，我们将使用它的一切都将有一个边界。
 
但再次感谢你，你确实完成了最困难的部分。
 
 
11

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））
);_德芬
页: 1 [2]
查看完整版本: 检查块中的实体