---

linie_ebene2.txt

Hi,
bin absoluter lisp neuling und such eine routine, um mehrere schiefe linien im raum mit immer ein und derselben ebene zu schneiden. mit interesse habe ich den Beitrag s.o. gelesen. Die routine war:

(defun c:schnittp ( / P1 P2 P3 P4 P5 P6)
; by Stefan Schwankner - 2008-04-10
(arxload "GEOMCAL")  ;;;Rechner muss geladen werden
    (setq P1 (getpoint "\nErster  Punkt der Linie:"))
    (setq P2 (getpoint "\nZweiter Punkt der Linie:"))
    (setq P3 (getpoint "\nErster Punkt der Ebene:"))
    (setq P4 (getpoint "\nZweiter Punkt der Ebene:"))
    (setq P5 (getpoint "\nDritter Punkt der Ebene:"))
    (setq OSCHNAePP (getvar "osmode"))
    (command "osmode" 0)
    (cal "P6=ilp (p1,p2,p3,p4,p5)")
    (command "_sphere" P6)
    (setvar "OSMODE" OSCHNAePP)
)

(danke übrigens stefan und seinen helfern, die routine klappt)

Mein problem ist, dass die ebene die gleiche ist und ich gerne eine schiefe linie nach der anderen anklicken möchte (viele an der zahl) und gleichzeitig nebenbei eine neue linie von den erzeugten bzw. gerechneten schnittpunkten gezeichnet werden sollte. meine versuche, eine lisp-funktion zu schreiben sind kläglich gescheitert. habe sicher irgenwelche anfängerfehler gemacht!! datei im anhang. weiß jemand rat??

Lg, treffi

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

---

hallo,
1. eckpunkte mittels getpoint von flaeche angeben oder punkte der flaechenbegrenzung auslesen (uebergabe mittels entsel)
2. alle relevanten linien ueber ssget anklicken
3. in einer schleife alle schnittpunkte der flaeche mit einzelnen linien berechnen (siehe dazu auch http://local.wasp.uwa.edu.au/~pbourke/geometry/planeline/  ) und in liste speichern
4. polylinie oder linien aus allen schnittpunkten erzeugen

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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

---

Meinst Du sowas

Code:

---

(defun c:schnittp ( / P1 P2 P3 P4 P5 P6)
; by Stefan Schwankner - 2008-04-10
(arxload "GEOMCAL")  ;;;Rechner muss geladen werden
    (setq P3 (getpoint "\nErster Punkt der Ebene:"))
    (setq P4 (getpoint "\nZweiter Punkt der Ebene:"))
    (setq P5 (getpoint "\nDritter Punkt der Ebene:"))
    (while (setq P1 (getpoint "\nErster  Punkt der Linie:"))
      (setq P2 (getpoint "\nZweiter Punkt der Linie:"))
      (setq OSCHNAePP (getvar "osmode"))
      (command "osmode" 0)
      (cal "P6=ilp (p1,p2,p3,p4,p5)")
      (command "_sphere" P6)
      (setvar "OSMODE" OSCHNAePP)
    )
)

---

------------------
Schöne Grüße
Ernst

www.geopaint.at

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

---

Vielleicht sowas...

Code:

---

;by Stephan Vette - 2006-09-13
(defun c:vme () ;verschneidet alle Linien mit einer Ebene
  (arxload "geomcal" T)
  (setq as (ssget '((0 . "LINE")))
ebene (getreal "\zu erreichende Ebene eingeben: ")
ep1 (list 0.0 0.0 ebene)
ep2 (list 0.0 10.0 ebene)
ep3 (list 10.0 0.0 ebene)
n 0
en (ssname as n)
)
  (while en
    (setq p1 (cdr (assoc 10 (entget en)))
  p2 (cdr (assoc 11 (entget en)))
  )
    (kal "vp=ilp(p1,p2,ep1,ep2,ep3)")
    (cond ((> (nth 2 p1)(nth 2 p2))(entmod (list (car (entget en))(cons 10 vp))))
  ((< (nth 2 p1)(nth 2 p2))(entmod (list (car (entget en))(cons 11 vp))))
  )
    (setq n (1+ n)
  en (ssname as n)
  )
    )
  )

---

------------------

gruß
Stephan

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

---

linie_ebene.txt

Hi zusammen,

habe aus den informationen, die ihr mir gegeben habt eine lsp zusammengestellt und sie funktioniert!
programmiertechnisch sicherlich nicht das feinste, denn man könnte, so wie stephan meinte zuerst alle linien anklicken und dann die berechnung durchführen, aber so auf die schnelle funzt meins auch.

Danke nochmal für die anregungen, habs angehängt.

gruß, treffi

P.S.: Übrigens, Ernst, ich glaube wir kennen uns!!

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