如何取得cad图的范围

marain

请教用vba如何取得cad图的长和宽（图形单位）


或x，y的最大最小值


谢谢

yulijin608

Sub test()
Dim p As Variant
Dim q As AcadDocument
Set q = ThisDrawing
p = q.Limits
MsgBox p(0) & " " & p(1) & " " & p(2) & " " & p(3)
End Sub

tiger8888

好像不是这样的吧。


如果是我的话，会选择extmax和extmin两个系统变量

yulijin608

对,3楼说的对.

marain

hehe,搞定了，谢谢二位