---

Hallo Forum,
ich habe leider zu wenig Ahnung von VBA und in der Hilfe
auf Anhieb auch nichts gefunden, deshalb hier meine Frage:
Ich möchte einen Kreis auswählen und seinen Radius sowie
Mittelpunkt + Höhe abfragen. Radius funktioniert, aber wie lautet
die richtige Abfrage für Koordinaten und Höhe?
Nach der Abfrage möchte ich den Kreis löschen (um ihn mit geänderter
Höhe neuzuzeichen). Aber das Löschen so auch nicht. Danke für jede
Hilfe. Hier der Code:

Private Sub CommandButton46_Click()
   
    Dim PtT As Variant
    Dim Elem3 As AcadEntity
    Dim abstand As Double
    Dim xwert As Variant
     
    Unload Me
   
Kreis:
        On Error Resume Next
        ThisDrawing.Utility.GetEntity Elem3, PtT, "Kreis wählen: "
               
        If Err Then Exit Sub
             
        If Elem.EntityType = acCircle Then
           
            Elem3.Highlight True
            abstand = Elem3.radius
            xwert = Elem3.centerPoint(0)
           
            MsgBox ("R= " & abstand)
            MsgBox ("X= " & xwert)
           
           
            circleObj.Delete
           
            GoTo 100:
         
        Else
           
            GoTo Kreis
           
      End If

100:
End Sub

Wo in der Hilfe steht denn was zu VBA bzw. den spezifischen AutoCAD-Befehen,
also z.B. Linie zeichnen usw. (ich finde nur allgemeine Sache z.B. for...next)
Gruß Jörg

------------------
AutoCAD 2008 DEU +SP1

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Jörg,

zuerst mal zu der Online-Hilfe. Es gibt eine Hilfe für VBA von Microsoft (in der scheinst Du gelandet zu sein) und eine VBA Hilfe von Autodesk. Wenn Du vor einem typischen AutoCAD-Vba Befehl stehst (z.B. GetEntity) und dann F1 drückst, sollte die Autodesk-Hilfe aufgehen und die ist, wie ich finde, sehr ausführlich und umfangreich (zumindest für eine Anfänger wie mich).

Dann zu Deinem Kreis-Problem. Ich verstehe nicht, warum Du den Kreis löschen und neu zeichnen möchtest. Warum verschiebst Du ihn nicht einfach in der Höhe?
Ich hab Dein Beispiel mal kurz umgeschrieben - vielleicht hilft's Dir ja etwas.

Code:

---

Sub Kreis_versetzen()
Dim PtT As Variant
Dim Elem3 As AcadEntity
Dim CirObj As AcadCircle
Dim abstand As Double

Const NeueHoehe = 123.456
     
On Error Resume Next
ThisDrawing.Utility.GetEntity Elem3, PtT, "Kreis wählen: "
If Elem.EntityType = acCircle Then
  Set CirObj = Elem3
  CirObj.Highlight True
  Dim Punkt As Variant
  Punkt = CirObj.center
  abstand = CirObj.radius
  MsgBox ("R= " & abstand)
  MsgBox ("X= " & Punkt(0))
  MsgBox ("Y= " & Punkt(1))
  MsgBox ("Z= " & Punkt(2))
  'Den Kreis in der Höhe versetzen
  Punkt(2) = NeueHoehe
  CirObj.center = Punkt
  MsgBox ("Neues Z= " & Punkt(2))
End If

End Sub

---

Ergänzend sollte man noch dazu sagen, dass man mit VBA leider nicht alles mit dem Kreis machen kann. Du hast lediglich Zugriff auf den Mittelpunkt, bzw. die Koordinaten davon.
Wenn Du den Kreis in der Draufsicht gezeichnet hast und ihn dort rauf, runter, links oder rechts verschieben magst, ist das kein Problem. Shwieriger wird's allerdings, wenn der Kreis in irgendeinem "schrägen" BKS erzeugt wurde. Aber das nur so am Rande erwähnt *smile*

Ich hoffe, es bringt Dich etwas weiter!

Gruß, Hübi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Hübi,
suuuupeeerrr!!! VIELEN DANK :-))) Du hast mir seeehhhrrr geholfen.
10 Units sind eigentlich zu wenig dafür aber natürlich schon
unterwegs.
Gruß Jörg

------------------
AutoCAD 2008 DEU +SP1

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP