[编程交流] vba说明帮助

Option Explicit
Sub Test()
Dim blkRef As AcadBlockReference
Dim varPt(0 To 2) As Double
Dim i As Integer
For i = 0 To 2
varPt(i) = 0
Next
Set blkRef = ThisDrawing.ModelSpace.InsertBlock(varPt, "MyBlock", 1, 1, 1, 0)
   
   Dim vdir(0 To 2) As Double
   vdir(0) = -1: vdir(1) = -1: vdir(2) = 1
   ThisDrawing.ActiveViewport.Direction = vdir
   ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
   
   Dim minExt As Variant
   Dim maxExt As Variant
   
   blkRef.GetBoundingBox minExt, maxExt
   ZoomWindow minExt, maxExt
   
   ThisDrawing.Regen acActiveViewport
End Sub