; Test Aussenrand  andUmMaschen
; Suche das Dreieck ganz links und teste die Seiten ob an der Seite 
;noch ein Dreieck liegt oder nicht = Aussendreieck

(defun C:GE#R ( /  GE_Linien2 Dist_01 Dist_12 Dist_23 Dist_30 Linie1 Linie2 Linie3 )
  (setq GE_Layer "DGM-MS-1B OK DICHT"
	GE_AWS (ssget "X" (List '(0 . "3DFACE")(cons 8 GE_Layer)))
	GE_Anz_Face (sslength GE_AWS)
	GE$Linien nil
	GE_MaxRechts 0.0
	i 0
	)
  (repeat GE_Anz_Face
      (setq GE_Face (ssname GE_AWS i)
	    GE_Face_Dat (entget GE_Face)
	    i (1+ i)
	    GE_Face_Rechts (max (car (cdr (assoc 10 GE_Face_Dat)))(car (cdr (assoc 11 GE_Face_Dat)))
				(car (cdr (assoc 12 GE_Face_Dat)))(car (cdr (assoc 13 GE_Face_Dat))))
	    )
      (If (> GE_Face_Rechts GE_MaxRechts)
	(progn
	   (setq GE_MaxRechts GE_Face_Rechts)
	   (cond
	       (If (= GE_Face_Rechts (car (cdr (assoc 10 GE_Face_Dat))))
		     (setq GE_Max_Koo (cdr (assoc 10 GE_Face_Dat))))
	       (If (= GE_Face_Rechts (car (cdr (assoc 11 GE_Face_Dat))))
		     (setq GE_Max_Koo (cdr (assoc 11 GE_Face_Dat)))) 
    	       (If (= GE_Face_Rechts (car (cdr (assoc 12 GE_Face_Dat))))
		     (setq GE_Max_Koo (cdr (assoc 12 GE_Face_Dat))))
	       (If (= GE_Face_Rechts (car (cdr (assoc 13 GE_Face_Dat))))
		     (setq GE_Max_Koo (cdr (assoc 13 GE_Face_Dat))))
	       );ende cond
	  );ende progn
	);ende if
    ) ;ende repeat

  (print GE_Max_Koo)
  (setq GE_Max_Koo_R (rtos (car   GE_Max_Koo) 2 4))
  (setq GE_Max_Koo_H (rtos (cadr  GE_Max_Koo) 2 4))
  (setq GE_Max_Koo_Z (rtos (caddr GE_Max_Koo) 2 4))
  
  (princ GE_Max_Koo_R)(princ "  ") (princ GE_Max_Koo_H) (princ "  ") (princ GE_Max_Koo_Z)
  (setq  GE_Max_Koo (list (atof GE_Max_Koo_R) (atof GE_Max_Koo_H) (atof GE_Max_Koo_Z)))
  (print GE_Max_Koo)
  (print (atof GE_Max_Koo_R))


  (setq i 0)

  (setq GE_AWS (ssget GE_Max_Koo));(11530.2140 33243.0130 323.6640))) die richtigen KOo des Punktes, dann findet er 4 Objekte
  ;))
  (print (sslength GE_AWS))
  
  ;(print (entget (ssname GE_AWS 0)))
  
	   
	   
  )

  (setq GE_Max_Koo_F (pkt2fen GE_MAX