[讨论]如何快速获得当前所有图元的左下角和右上角

无痕

有道理。


看来还是酌情使用

雪山飞狐_lzh

去掉两个Zoom可以达到效果，只与EXTMAX和EXTMIN有关 Public Sub test1()
pmax = ThisDrawing.GetVariable("EXTMAX")
pmin = ThisDrawing.GetVariable("EXTMIN")
ThisDrawing.SendCommand "_.RECTANG " & pmin(0) & "," & pmin(1) & vbCr & pmax(0) & "," & pmax(1) & vbCr
End Sub 有点偏差，不过不会影响程序的运行 改进思路：用逼近算法，不断比较两次选择集的实体数量，得到最小边界 在考虑中

hkzwsy

用VBA如何加载？执行命令是：test ？

Public Sub test() Dim ss As AcadSelectionSet Dim i As AcadEntity Set ss = ThisDrawing.ActiveSelectionSet ss.Select acSelectionSetAll ss(0).GetBoundingBox pmin, pmax For Each i In ss i.GetBoundingBox p1, p2 If p1(0) < pmin(0) Then pmin(0) = p1(0) If p1(1) < pmin(1) Then pmin(1) = p1(1) If p2(0) > pmax(0) Then pmax(0) = p2(0) If p2(1) > pmax(1) Then pmax(1) = p2(1) Next i ThisDrawing.SendCommand "_.RECTANG " & pmin(0) & "," & pmin(1) & vbCr & pmax(0) & "," & pmax(1) & vbCr End Sub

雪山飞狐_lzh

工具－>宏－>VB编辑器 Copy到ThisDrawing代码窗口中 运行： －vbarun test 或 (defun c:test()
(setvar "cmdecho" 0)
(command "-vbarun" "test")
(setvar "cmdecho" 1)
(princ)
) 运行test命令

khlg

我想我还是闭嘴的好


因为我是来窃取各位大鸟的技能的

hkzwsy

谢谢雪山飞狐 ！看来我也应该学习VBA


VBA能编译成什么格式文件？是DLL         EXE ？

雪山飞狐_lzh

在这里发贴并不是为了显示VBA比Lisp好,实际上Lisp的很多功能VBA都实现不了,VBA和Lisp互补是正常的编程手段


我只是想求一个最优算法


如果你要学习VBA,请到VBA版块

hkzwsy

我没说VBA比LISP好，只是觉得有些功能比LISP计算速度要快。

雪山飞狐_lzh

如果你还在学习Lisp的初级或中级阶段，还是继续学习下去，也许VBA有些功能比LISP计算速度要快，你改学VBA，以来有会发现VC＋＋计算速度快，又会改学ObjectArx，到最后一样也不精



学好任何一门语言了，学习别的语言事半功倍

yingxunxue

精彩,