如何取得cad图的范围

marain · 发表于 2004-11-25 12:05:00

请教用vba如何取得cad图的长和宽（图形单位）
或x，y的最大最小值
谢谢

yulijin608 · 发表于 2004-11-25 15:19:00

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 · 发表于 2004-11-25 18:11:00

好像不是这样的吧。
如果是我的话，会选择extmax和extmin两个系统变量

yulijin608 · 发表于 2004-11-25 18:38:00

对,3楼说的对.

marain · 发表于 2004-11-26 15:35:00

hehe,搞定了，谢谢二位