| Name | Type | Description |
|---|---|---|
| x |
Double
|
|
| y |
Double
|
|
| Angle |
Double
|
Sub Test() Const an As Long = 10 Dim i As Long ActiveDocument.DrawingOriginX = 0 ActiveDocument.DrawingOriginY = 0 For i = 0 To an - 1 ActiveLayer.CreateGuideAngle 0, 0, i * 360 / an Next i End Sub