---

Hallo,

ich suche eine Möglichkeit, Koordinaten in einer Zeichnung eindeutig bestimmen zu können, damit ich mit diesen in VBA weiterarbeiten kann.

Ich habe eine Blockreferenz eines Bauteils vorliegen, an welchem sich ein Einfügepunkt eines Anbauteils befindet. Leider stimmt dieser nicht mit dem InsertionPoint der Blockreferenz überein, sodaß ich seine Koordinaten nicht darüber ermitteln kann. Hinzu kommt, dass die Koordinaten des Einfügepunktes des Anbauteils nicht "rund" sind, sondern viele Kommastellen haben. Ich kann also die Werte nicht einfach manuell aus der Zeichnung ausmessen, das wird dann sonst ungenau.

Theoretisch könnte ich zwar einen Punkt (über Objektfang) dorthin setzen und dann die Koordinaten des Punktes nutzen, aber das kann ich nicht tun. Denn ich habe einer Musterzeichnung als Vorlage, in die ich keine weiteren Hilfs-Elemente einfügen darf. An der Stelle der Koordinaten, welche mich interessieren, befindet sich jedoch eine Polylinie. Welche Eigenschaften kann man einer Polylinie mit VBA entnehmen? Kommt man auch an die Koordinaten der Greifpunkte (also die blauen Punkte bei markiertem Element) ran - und wenn ja, wie?

------------------
Gruß
Tobias

[Diese Nachricht wurde von kiltswitch am 06. Dez. 2004 editiert.]

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

---

Schon mal heute vor dem Posten F1-Taste gedrückt ?

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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

---

Ja das habe ich. Und ich habe auch gefunden, dass die Polylinien über ihre Scheitelpunkte (Stützpunkte) beschrieben sind. Ich hab auch herausgefunden, dass man Stützpunkte hinzufügen, löschen usw. kann. Nur wie man an die Koordinate eines bestimmten Stützpunktes herankommt, hab ich noch nicht gefunden - wenn es die Möglichkeit gibt?

------------------
Gruß
Tobias

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

---

wie wäre es mit der Property POLYLINE.COORDINATES ???
F1 .. brachte folgendes Beispiel :

Sub Example_Coordinates()
    ' This example creates a polyline. It then uses the Coordinates
    ' property to return all the coordinates  in the polyline. It then
    ' resets one of the vertices using the Coordinates property.
   
    Dim plineObj As AcadPolyline

    ' Create Polyline
    Dim points(5) As Double
    points(0) = 3: points(1) = 7: points(2) = 0
    points(3) = 9: points(4) = 2: points(5) = 0
    Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)
    ThisDrawing.Regen True

    ' Return all the coordinates of the polyline
    Dim retCoord As Variant
    retCoord = plineObj.Coordinates

    ' Display current coordinates for the first vertex
    MsgBox "The current coordinates of the second vertex are: " & points(3) & ", " & points(4) & ", " & points(5), vbInformation, "Coordinates Example"

    ' Modify the coordinate of the second vertex to (5,5,0). Note that in
    ' case of a lightweight Polyline, indices will be different because the points are 2D only.
    points(3) = 5
    points(4) = 5
    points(5) = 0
    plineObj.Coordinates = points

    ' Update display
    ThisDrawing.Regen True

    MsgBox "The new coordinates have been set to " & points(3) & ", " & points(4) & ", " & points(5), vbInformation, "Coordinates Example"
End Sub

Und bitte , bitte , bitte .. erst denken, dann suchen, dann posten!!

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Sorry, das Beispiel habe ich echt übersehen. Ich versuch es mal damit.

---------
Hab mir nun erstmal folgenden Code zum Testen ausgedacht. Er soll für jede Polylinie vom zweiten Stützpunkt die Koordinate im Direktfenster ausgeben. Aber es tut sich nichts. Was ist am Code falsch?

Code:

---

Sub polyline()

Dim elem As AcadEntity
Dim coord As Variant
     
For Each elem In ThisDrawing.ModelSpace
 
      'Ermitteln der Polylinien der Anschlußpunktmarkierungen am Mast zur Nutzung bei der
      'Einfügepunkt-Koordinaten-Ermittlung
   
      If TypeOf elem Is AcadPolyline Then
             
      coord = elem.Coordinate(2)
      Debug.Print coord(1)
                   
      End If
   
Next

End Sub

---

------------------
Gruß
Tobias

[Diese Nachricht wurde von kiltswitch am 06. Dez. 2004 editiert.]

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

---

Hab den Fehler gefunden - es muß so heißen:

If TypeOf elem Is AcadLWPolyline Then

coord = elem.Coordinate(2)
      Debug.Print coord(1)
                   
End If

Nur bricht er mir jetzt den Prozess mit dem Fehler ab: ungültiger Index. Ich vermute, weil es vielleicht Polylinien gibt, die keinen zweiten Stützpunkt besitzen? Nun wollte ich das einschränken, dass nur Polylinien mit mindestens zwei Stützpunkten untersucht werden.
Aber einer If-Anweisung ging das nicht.

------------------
Gruß
Tobias

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

---

Tobias,

Code:

---

coord=elem.coordinates ' !!!
for i=lbound(coord) to ubound(coord) STEP 2
  debug.print coord(i),coord(i+1)
next

---

HTH, Nancy

[Diese Nachricht wurde von startrek am 06. Dez. 2004 editiert.]

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

---

Ach so muß ich das machen. Danke, die Ausgabe klappt. Jetzt müßte ich aber noch die richtige Polylinie ansprechen können?

An den Einfügestellen am Hauptbauteil, deren Koordinaten ich ja benötige, liegen überall diese Polylinien. Deren zweiter Stützpunkt liegt genau auf diesen Koordinaten. Nun weiß ich aber nicht, wie ich die entsprechende Polylinie ansprechen kann, um die in ihr enthaltenen Koordinaten nutzen zu können?

Hab mal was von SelectionSet Window gehört, wo alle Objekte innerhalb eines Fensters gewählt werden?

------------------
Gruß
Tobias

[Diese Nachricht wurde von kiltswitch am 06. Dez. 2004 editiert.]

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

---

Wenn du eh schon davon gehört hast, dann probier es doch einmal aus.
Gerade was SelectionSets anbelangt kannst du die Hilfe durchsuchen.
Auch in diesem Forum findest du zig Beiträge über SS.

------------------
Roland

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

---

Zitat:

---

Original erstellt von kiltswitch:
Ach so muß ich das machen. Danke, die Ausgabe klappt. Jetzt müßte ich aber noch die richtige Polylinie ansprechen können?
...
Hab mal was von SelectionSet Window gehört, wo alle Objekte innerhalb eines Fensters gewählt werden?

---

Hab mal was von CAD.de gehört, da kann man einfach Fragen stellen ohne selbst erst gründlich zu recherieren.

(Alternative wären Bücher zur Programmierung, Kurse, Online-Hilfen, Web-Seiten mit VBA-Beispielen, CAD.de mal nur lesend benutzen uvm.).

Hier findet sich immer ein Dummer der schlauer ist als ich.

Danke

Udo Hübner

------------------
Von zwei möglichen Ereignissen wird nur das nicht gewünschte tatsächlich eintreffen.

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