イッツキャドコミュニティ

その2
With itsCAD
.DBSetDrawFlg False
PointX = 100
PointY = 100

Radius = 50
A = 2 * 3.14159265358979 / 6
X0 = Radius * Sin(0)
Y0 = Radius * Cos(0)
For i = 1 To 6
X = Radius * Sin(A * i)
Y = Radius * Cos(A * i)
.DBSetActivePattern 1 '線種
.DBAddLine X0 + PointX, Y0 + PointY, X + PointX, Y + PointY
X0 = X
Y0 = Y
Next
.DBSetActivePattern 0
.DBAddCircle PointX, PointY, Radius / 2 '円を書く
.DBAddArc PointX, PointY, Radius, 0, 3.141592 / 2 '弧を書く
PointX = PointX + 10
PointY = PointY + 10
.DBAddMarker PointX, PointY, 0 '点

.DBSetCount
.Redraw
.DBSetDrawFlg True
End With

For i = 0 To 5
SendKeys "%V{enter}", True
For j = 1 To i
SendKeys "{down}", True
Next
SendKeys "{enter}", True
Next
End Sub