---

hallo,

ich möchte kontrollieren, ob die punkte alle auf der ebene liegen, die die ersten beiden und der letzte punkt einer polylinie aufspannt.

hier mein code:

(defun c:fc_gc (/ n punkte)
  (setq punkte (fc_punkt_extrakt (car (entsel))))
  (if (> (distance (nth 0 punkte) (nth (- (length punkte) 1) punkte)) 0.0)
    (setq lp (nth (- (length punkte) 1) punkte))
    (setq lp (nth (- (length punkte) 2) punkte))
  )
  (if cal
    (princ)
    (arxload "geomcal")
  );if
  (setq 1p (nth 0 punkte))
  (setq 2p (nth 1 punkte))
  (setq 3p (nth 2 punkte))
  (princ (cal "ilp(1p,3p,1p,2p,lp)"))
  (princ)
);defun

; ERMITTELT DIE PUNKTE einer polylinie oder linie
;aufruf :  (fc_punkt_extrakt element)
(defun fc_punkt_extrakt (element / element n punktliste)
  (cond
    ((= (cdr (assoc 0 (cdr (entget element)))) "POLYLINE") (setq punktliste (fc_punkt_extrakt_polylinie element)))
    ((= (cdr (assoc 0 (cdr (entget element)))) "LWPOLYLINE") (setq punktliste (fc_punkt_extrakt_linie element)))
    ((= (cdr (assoc 0 (cdr (entget element)))) "LINE") (setq punktliste (fc_punkt_extrakt_linie element)))
    );cond
  punktliste
);defun

; ERMITTELT DIE PUNKTE einer polylinie
;aufruf :  (fc_punkt_extrakt_polylinie element)
(defun fc_punkt_extrakt_polylinie (element / element punktliste)
  (setq punktliste nil)
  (setq xelement (entnext element))
  (while (/= (cdr (assoc 0 (entget xelement))) "SEQEND")
    (setq punktliste (append punktliste (list (cdr (assoc 10 (entget xelement))))))
    (setq xelement (entnext xelement))
  );while
  punktliste
);defun

; ERMITTELT DIE PUNKTE einer linie
;aufruf :  (fc_punkt_extrakt_linie element)
(defun fc_punkt_extrakt_linie (element / element punktliste n)
  (setq punktliste nil)
  (foreach n (entget element)
    (if (= (car n) 10)
      (setq punktliste (append punktliste (list (cdr n))))
    );if
  );foreach
  punktliste
);defun

fehlermeldung: >> Fehler: Komma in Argumentliste der Funktion ILP erwartet.

------------------
MfG
Frank

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

---

Ein kleiner Tip, der AutoCAD-Geometrierechner hat solche Funktionen. Aufruf über geomcal - ist auch über LISP steuerbar!

------------------
Nur Döner macht schöner und wenn du ihn nicht isst, bleibst du wie du bist!

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

---

(arxload "geomcal")
(cal "ilp(p1,p2,p3,p4,p5)")

p1,p2 ... Linie
p3,p4,p5 ... Ebene

------------------
Nur Döner macht schöner und wenn du ihn nicht isst, bleibst du wie du bist!

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

---

@Ulf
erst lesen, dann posten 

Zitat:

---

Original erstellt von fca_mi2:
...  (setq 2p (nth 1 punkte))
  (setq 3p (nth 2 punkte))
  (princ (cal "ilp(1p,3p,1p,2p,lp)"))
...

---

es geht um die Art und Weise wie man dem geocal
die Daten zukommen lässt..

[Diese Nachricht wurde von cadffm am 25. Feb. 2005 editiert.]

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

---

Stimmt, zeige mich reuhig! Ich würde ein BKS reinlegen und die Benutzerkoordinaten der Punkt prüfen. Mit entsprechnendem BKS müsste dann eine Koordinate Null sein!
Ich hofffe ich habe nicht wieder zu wenig gelesen!

------------------
Nur Döner macht schöner und wenn du ihn nicht isst, bleibst du wie du bist!

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

---

Wenn ich die Punkte per (setq p1 (getpoint)) ermittel dann läuft es,
hole ich die Koordinaten aus einer LWP (aber als 3D Koord.) bekomme ich es ebensowenig
hin wie der Fragesteller - kam aber nicht "schnell" genug auf die Lösung, dann
habe ich es wieder beiseite gelegt.

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