在VBA查看边界框

CadRover · 发表于 2008-7-6 16:08:26

有人知道在ACAD中是否可以看到实体的边界框吗
如果有，是否有人有这方面的VBA代码示例
谢谢
CAD

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

fixo · 发表于 2008-7-6 16:26:03

这就是你想要的代码0]
~'J'~

CadRover · 发表于 2008-7-6 17:23:46

修复，
这似乎运行得很好，谢谢。
嘿，刚刚想到了一些东西；如果您想在直接窗口中提取实际点，您可以将这段代码添加到末尾

 Dim i As Integer
 For i = 0 To 9
  Debug.Print "Vertice Pnt"; (i); Vertices(i)
 Next i

这应该可以
CAD

fixo · 发表于 2008-7-7 02:19:32

拍得好
很高兴你自己解决了
快乐计算
~'J'~

CadRover · 发表于 2008-7-8 02:14:11

是的，谢谢
如果您想对实体做进一步的操作，如计算midpnt、移动它等，拥有这些点总是很好的