Hi
I'm trying to use ArrayRectangular to create an array of a line.
To create it at an angle the help says use SnapRotationAngle or Snapang
to set the cross-hairs to the desired angle. But I'm damned if I can
work it out. The routine below creates an array, but orthogonal to X & Y
irrespective of the rotation of the cross-hairs.
What am I doing wrong?
Your help would be greatly appreciated.
Cheers
Dave F.
Sub ArrayRectangular_test()
Dim DivArr As Variant
Dim Ent As AcadEntity
Dim EntPt As Variant
ThisDrawing.ActiveViewport.SnapRotationAngle = dtr(45) 'rotationangle
ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
'ThisDrawing.SetVariable "snapang", dtr(60)
ThisDrawing.Regen acActiveViewport
ThisDrawing.Utility.GetEntity Ent, EntPt, "Select Entity to Offset"
DivArr = Ent.ArrayRectangular(4, 2, 1, 200, 1, 1)
End Sub