社区 › Auto Lisp › 检测标题b之外的对象

iDeeW 发表于 2022-7-6 06:18:23

检测标题b之外的对象

你好
 
我是一个Lisp程序的新手，这是我的第一篇帖子。提前感谢您花在我身上的宝贵时间。
 
我需要找出是否有任何物体/区块放置在我的标题栏边界外（附示例）。然后提示用户&询问是否将其从图形中删除。如果是，则需要删除所有外部对象。如果有变化，最后保存它。
 
需要在VLisp中完成这一切。。。。！请帮帮我。
C_uUsers_iweerasinghe_Desktop_147970_1479702I8025型号（1）。pdf
1479702I8025。图纸

pBe 发表于 2022-7-6 06:26:15

不知怎的，您的图形文件被修改了：
 
如果边界是块实体，那么它很容易，
您的问题：
你的画上有不止一个边框吗？如果是，它们是否都在同一布局上？

iDeeW 发表于 2022-7-6 06:30:46

我只有一个寄宿生&它是一个街区实体。。。
我正在使用AutoCAD 2013。。。我再次附上它供您参考。。。
 
1479702I8025。图纸

Tharwat 发表于 2022-7-6 06:35:34

当你使用vla getboundingbox上的函数时，这个块真的很奇怪，实际上它给出了左下角和右上角的点
块界限（边界）之外。

iDeeW 发表于 2022-7-6 06:43:14

我认为你是对的。。。。我的画上有多个寄宿生。。。
 
再次上载。。。1479702I8025。图纸

Tharwat 发表于 2022-7-6 06:44:49

 
我今天在办公室写了一段代码，除了在你的街区之外，它运行得很好，所以这就是为什么我没有发布代码。

iDeeW 发表于 2022-7-6 06:52:28

我试过这个代码。。但什么都没有回报

(defun c:al-getboundingbox ()
(vl-load-com)
(setq util (vla-get-utility (vla-get-activedocument (vlax-get-acad-object))))
(vla-getentity util 'obj 'ip "\nSelect Object: ")
(vla-GetBoundingBox obj 'minpoint 'maxpoint)
    ;minpoint contains the minimum point of the bounding box
    ;maxpoint contains the maximum point of the bounding box
(princ minpoint)
(terpri)
(princ maxpoint)
(princ)
);defun

iDeeW 发表于 2022-7-6 06:54:00

 
 
你愿意分享吗。。。

Tharwat 发表于 2022-7-6 07:03:12

 
当然，但它不适用于您想要使用的代码块，我可以说，毫无疑问，该块有问题。

iDeeW 发表于 2022-7-6 07:06:00

 
我试试看。。。至少我有一个出发点：震惊：
 
 
你能再解释一下吗。。。

查看完整版本: 检测标题b之外的对象