---

Hallo,

Ich möchte gerne an den Schnittpunkten einer Polylinie, die von mehreren anderen Polylinien gekreuzt wird, einen Punkt setzen? Alle Polylinien sollen mit einem Auswahlfenster, wenn möglich, ausgewählt werde?

Vielen Dank für Eure Hilfe!

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

---

Einen Punkt kannst du z.B mit (command "_point" '(0 0 0)) erzeugen
und zum Erstellen von Auswahlsätzen dient die Lispfunktion (ssget)

Wo liegt dein konkretes Problem? Oder möchtest du ein fertiges Programm?

------------------
  - Thomas -
"Du bist einen uns unbekannten Weg in eine andere Form des Seins gegangen. - Wir sehen uns wieder in deinem Paradies! - Tschüß Axel.."

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

---

Wie komme ich von der Auswahl zu den Schnittpunktkoordinaten?

Danke!

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

---

die Schnittpunkte kannst du mit der ActiveX-Methode "IntersectWith" ausgebenlassen

------------------
- Thomas -
"Du bist einen uns unbekannten Weg in eine andere Form des Seins gegangen. - Wir sehen uns wieder in deinem Paradies! - Tschüß Axel.."

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

---

Will nicht funktionieren?

(defun c:intersect( / )
  (vl-load-com)
  (foreach p
    (intersect2
      (car(entsel "\nErstes Objekt wählen: "))
      (car(entsel "\nZweites Objekt wählen: "))
    )
    (command"_point"p)
  )
)

Wie kann ich hier die beiden Objekte nicht händisch auswählen, sondern mit einer Koordinate im Programm vorgeben?

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

---

Zitat:

---

Original erstellt von vortex:
Wie kann ich hier die beiden Objekte nicht händisch auswählen, sondern mit einer Koordinate im Programm vorgeben?

---

Was heißt: "mit einer Koordinate im Programm vorgeben" ?
Geht es Dir um die Identifizierung einer bestimmten Menge Polylinien aus einer Gesamtmenge?
IMHO ist eine einzige Koordinate da nicht genug.
Was ist, wenn auch weitere PLines zufällig die gleiche Koordinate referenzieren...
Erklär mal genau.
Und was ist das für 'ne ominöse Funktion:
"intersect2"
Poste mal.

------------------
Ciao,
Marc

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

---

Ich muss zur Zeit das erste Objekt angeben, dann das Zweite. Anschließend wird der Schnittpunkt mit _point markiert.

Ich möchte diese Programm nun mehrmals durchlaufen und damit ich nicht jedes Mal die Objekte wieder anklicken muss sollte das nächste Objekt automatisch gewählt werden.

Wenn ich eine Schleife programmiere, wie kann ich auf das vorherige Objekt zugreifen? Das Nächste ist nämlich immer um den selben Betrag in eine Richtug versetzt.

Was bedeutet car?

Danke!

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

---

Hallo vortex,

in einem der letzten AutoCADMagazine war eine ähnliches Programm (von mir) vorgestellt worden. Dies war für Stromlaufpläne gedacht, und hat an sich kreuzenden Linien kleine Bögen eingefügt. Vielleicht hast du dies oder kannst du dir das besorgen? Da die Programme im Quelltext veröffentlicht werden, solltest du daraus auch die Lösung für deine Aufgabe ableiten können.

Grüße Holger

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

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

---

Zitat:

---

Original erstellt von vortex:
Was bedeutet car?

---

Nix für ungut, aber ich denke, bevor du an deinem Wunschprogramm weitermachst, solltest du dir die Lisp-Grundlagen ( wo die Funktion car auf alle Fälle dazugehört) aneignen. Hilfreich ist dabei das Tutorial vom MapCar

------------------
- Thomas -
"Du bist einen uns unbekannten Weg in eine andere Form des Seins gegangen. - Wir sehen uns wieder in deinem Paradies! - Tschüß Axel.."

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