---

Hallo,
kann mir jemand sagen, wie man einem Scheitelpunkt der P-Linie eine Information mitgeben kann?
Diese Information möchte ich später beim beim Auslesen der Scheitelpunkte nutzen.

Gruß
Leo!

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

---

Hi Leo,

ich weiss zwar nich was ich jetze hier grade schreibe, aber was soll's ;-)

Ehm, hast Du nicht ein besondres Merkmal des Stützpunkttrios?
Also einen bestimmten Wert von x/y/z oder gar ist's immer der zB i/3'te Punkt?

Dann halt irgendwie in der Schleife ein if i mod 3 = 0 and i = deine Nummer einbauen, also einfach nen Zähler mitlaufen lassen.

Oder du schreibst Dir die Koordinaten [wenn bekannt] in eine eigenständige Variable und prüfst
sukzessive auf Übereinstimmung derer mit der der Polylinie.

Aber vielleicht mal noch eine Root-Frage, wer erstellt, bzw. wie werden deine Plines erstellt, vielleicht kannste deine Info ja auch 'nem Hyperlink mit auf den Weg geben?

Gruss Nancy   

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

---

Im Gegensatz zur LW-Polylinie werden bei der 2D-Polylinie die Stützpunkte in extra Objekten (Stichwort "Vertex") abgespeichert, an denen man was mit -> Stichwort "XDATA" anpappen könnte.

Aber werd mal genauer, um was für Infos es sich handelt, und ob ein einfacher Zugriff über den Index nicht reicht?!

------------------
- 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

---

Danke für nützliche Hinweise.
Das Problem konnte ich danach schnell lösen. Zuvor noch einige Anmerkungen zu der Aufgabe. Zum Drahterodieren liegen die einzelnen Konturen als Polylinien vor. Kurz vor Ende eines Schnittes muss im Programm ein programmierter Halt (M01) eingefügt werden. Um das zu erreichen habe ich an allen Konturen einen neuen Scheitelpunkt samt einem Block eingefügt.
Alle Blöcke lasse ich nun auslesen und die Einfügepunkte auf Übereinstimmung mit den Stützpunkten der Polylinien überprüfen.
Für Interresierte:
Das untenstehende Programm speichert alle Einfügepunkte in einer Liste.

(defun p_halt (/ ss1 la index elem sl z e1 stopp )
  (setq ss1 (ssget "X" '((0 . "INSERT") (2 . "Stopp"))))
  (Setq la (sslength ss1))
  (setq index 0)
  (setq s_liste ())
  (while (< index la)
  (setq elem (entget (ssname ss1 index)))
  (setq sl (length elem))
  (setq z 0)
        (repeat sl
  (setq e1 (car (nth z elem)))
        (if (= e1 10)
                (progn
          (setq stopp (cdr (nth z elem)))
                  (setq s_liste (cons stopp s_liste))

        )
            )
  (setq z (1+ z))
);repeat
    (setq index (1+ index))
    (setq ss1 (ssget "X" '((0 . "INSERT") (2 . "Stopp"))))
    ); while
) 
;
Mit foreach findet nun im Hauptprogramm eine Überprüfung statt und die NC-Ausgabe kann erfolgen:

(foreach element s_liste
    (if (equal p2 element 0.001)
        ..... hier erfolgt die Ausgabe
    )
); foreach

Gruß
Leo!

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