Jeżeli to kółko ma być rysowane w Acadzie, to tak powinna wyglądać procedura :
Public Sub RysujKolko()
Dim Srodek(0 To 2) As Double
Dim Promien As Double
Dim kolko As AcadCircle
Srodek(0) = 111 'x
Srodek(1) = 232 'y
Srodek(2) = 315 'z
Promien = 50
Set kolko = ThisDrawing.ModelSpace.AddCircle(Srodek, Promien)
Set kolko = Nothing
End Sub
W zasadzie rysowanie czegokolwiek wygląda bardzo podobnie, a wyczerpujące informacje o parametrach wywołania metod .AddCośTam z przykładami są w pomocy.
Powodzenia. |