---

Moin!

ich bin einmal wieder in der AutoCAD-Welt (nicht TB) und versuche an die Stützpunkte einer LW-Polylinie zu gelangen.

Als Grundlage habe ich mir http://through-the-interface.typepad.com/through_the_interface/2007/04/iterating_throu.html rausgesucht und versucht den C# in vb.net zu übersetzen.

Das ist dabei herausgekommen bis jetzt:

Code:

---

        Private _Editor As Autodesk.AutoCAD.EditorInput.Editor
        Private _Database As Autodesk.AutoCAD.DatabaseServices.Database
...
        Dim PromptEntRes As PromptEntityResult = Nothing
        Dim TransAc As Autodesk.AutoCAD.DatabaseServices.Transaction = _Database.TransactionManager.StartTransaction
...
        _Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
        _Database = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Database

...
PromptEntRes = _Editor.GetEntity("wählen Sie eine Polylinie")

                            If Not (PromptEntRes.Status = PromptStatus.Cancel Or IsNothing(PromptEntRes)) Then
                                Using (TransAc)

                                    '' Open the Block table for read
                                    Dim PolyLineObj As DBObject
                                    PolyLineObj = TransAc.GetObject(PromptEntRes.ObjectId, _
                                                                Autodesk.AutoCAD.DatabaseServices.OpenMode.ForRead)

                                    Dim acPoly As Polyline = New Polyline
                                    acPoly = PolyLineObj
                                End Using
                            Else
                                Return Rückgabe_Exit

                            End If

---

Bei dem Punkt, wo geprüft wird, ob eine LW-Polylinie vorliegt bin ich gescheitert!

Kann mir einer von Euch weiterhelfen ?

Gruß Jan

------------------
jan :-)

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

---

typeoff(Polyline) == dboject.GetType();

so kann man in c# Objecttypen vergleichen.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Hallo Jan,

ich glaube du suchst so was:

Code:

---

                If TypeOf (acEntity) Is Autodesk.AutoCAD.DatabaseServices.Polyline Then
                    acPolyline = acEntity
                    EntityName = "POLYLINE"
                    AnzahlPunkte = acPolyline.NumberOfVertices
                    ' Logische Punkte
                    Dim AnzahlLogPunkte As Integer = AnzahlPunkte
                    If acPolyline.Closed Then
                        ' Wenn geschlossen, dann einen dran hängen
                        AnzahlLogPunkte = AnzahlLogPunkte + 1
                    End If

                    ' Neue Linien anlegen
                    TBLine = New Autodesk.Map.IM.Graphic.LineString

                    ' Alle Punkte durchlaufen
                    For PunktZeiger = 1 To AnzahlLogPunkte
                        ' Lese Punkt
                        If PunktZeiger <= AnzahlPunkte Then
                            acPoint3D = acPolyline.GetPoint3dAt(PunktZeiger - 1)
                        Else
                            'Wenn fiktiver Endpunkt-> dann ist es der Startpunkt
                            acPoint3D = acAnfangspunkt
                        End If

                        ' Neuer Punkt mit Koordinaten
                        TBLinienPunkt = New Autodesk.Map.IM.Graphic.LinePoint
                        TBLinienPunkt.Y = acPoint3D.Y
                        TBLinienPunkt.X = acPoint3D.X

                        ' Ersten Punkt merken wenn Linie geschlossen ist
                        If PunktZeiger = 1 Then
                            TBAnfangspunkt = TBLinienPunkt
                            acAnfangspunkt = acPoint3D
                        End If
...

---

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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