---

Beispiel_mit_Kasten.jpg Beispiel_ohneKasten.jpg

Hallo zusammen,

ich habe ein Modell mit einer Zeichnung drauf :-)

Nun möchte ich mir alle Elemente (Linien)
mit deren Koordinaten ausgeben lassen.

Hintergrund ist, das ichum eine Teil der Zeichnung einen
Kasten legen will (siehe Dateien). Da die Grösse der
Ausgangsdatei immer verschieden kann ich keinen "einheitlichen"
Kasten mit festen Koordinaten verwenden. Kann mir da jemand
einen Tipp geben, wie man da vorgehen könnte?

Viele Grüsse

:-) Fluvio

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

---

Hi zusammen,

ich habe die Sache etwas falsch beschrieben (ist mir gerade leider erst aufgefallen), sorry :-(

Also in der Ausgangszeichung soll ein Kasten um einen bestimmten
Bereich der Zeichnung gelegt werden. Ich habe mehrere Zeichnungen
dieser Art. Diese Zeichnungen sind aber nicht gleich gross,
so dass die Kästen demnach auch verschieden gross sind.

Nun möchte ich das Problem lösen, in dem ich sämtliche Linien,
die sich auf Zeichnung befinden, mit Koordinaten ausgeben lassen möchte und so die 2 Linien finden will, an die der Kasten
automatisch gezeichnet werden soll (siehe Zeichnung_mit_Kasten).

Ich hoffe, ich habe es nicht zu kompliziert erklärt :-)

Viele Grüsse und vielen Dank für eure Hilfe

:-) Fluvio

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

---

Hallo zusammen,

ich habe nun selbst eine Lösung zum Problem gefunden 

Folgender Code listet die Koordinaten aller Linien auf dem
Modellblatt auf:

Public Sub LinienKoordinaten()
  Dim sst_ents As AcadSelectionSet
  Dim ent_loop As AcadLine
  Dim dxf_code(0) As Integer
  Dim dxf_valu(0) As Variant
  Dim pnt_str As Variant
  Dim pnt_end As Variant
  Dim dbl_X_str As Double
  Dim dbl_Y_str As Double
  Dim dbl_Z_str As Double
  Dim dbl_X_end As Double
  Dim dbl_Y_end As Double
  Dim dbl_Z_end As Double
  'sset filter, um die Linien der Zechnung zu erfassen:
  dxf_code(0) = 0
  dxf_valu(0) = "LINE"
 
  Set sst_ents = ThisDrawing.SelectionSets.Add("TEMP")
  sst_ents.Select acSelectionSetAll, , , dxf_code, dxf_valu
 
  For Each ent_loop In sst_ents
    pnt_str = ent_loop.StartPoint
    pnt_end = ent_loop.EndPoint
     
    dbl_X_str = pnt_str(0)
    dbl_Y_str = pnt_str(1)
    dbl_Z_str = pnt_str(2)
     
    dbl_X_end = pnt_end(0)
    dbl_Y_end = pnt_end(1)
    dbl_Z_end = pnt_end(2)
  Next
 
  ThisDrawing.SelectionSets("TEMP").Delete
  Set sst_ents = Nothing
End Sub

Viele Grüsse

:-) Marcus

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