检测标题b之外的对象

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

你好

我是一个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

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

copy


[i](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[/i]