Liebe/-r Experte/-in,
ich habe eine Frage zu AutoCad Map 3D.
Ergänzen Sie die nachfolgende VBA Sub-Prozedur Fadenkreuz, die ein Sysmbol, bestehend aus zwei orthogonalen Linien und einem umschließenden Kreis, zeichnen soll.
Private Sub CommandButton1_Click()
Call Fadenkreuz(0, 5)
End Sub
Private Sub Fadenkreuz(einfp As Variant, rad As Double)
Dim VPKreis As AcadCircle
Dim center(0 To 2) As Double
center(0) = einfp
Set VPKreis = ThisDrawing.ModelSpace.AddCircle(center, rad)
End Sub
Also, dieses Modul zeichnet mir einen Kreis, allerdings verzweifle ich daran, das er die Linie zeichnet.
Ich habs versucht mit
ThisDrawing.ModelSpace.AddLine center, rad
Wäre super wenn Sie mir helfen könnten.
Vielen Dank
Gruß Paul