Ich bin gerade am basteln an einem Programm, welches Flächen auswertet.
Ich gehe dazu erstmal folgendermaßen vor:
alle Polygone einsammeln, dann für jedes Polygon die 10 in eine Liste und die Liste an ssget "_CP" übergeben.
Es sollen nun alle Blockreferenzen innerhalb diesen Polygons ermittelt werden.
Alle Elemente liegen Z=0
Annscheinend gibt es aber Probleme beim Ermitteln eines AWS, da es mehrere überflüssige und auch deckungsgleiche Stützpunkte in der PL gibt.
dennoch liegen alle Stützpunkte auf Z=0!
Welche andere Möglichkeit habe ich Zu ermitteln, ob sich innerhalb eines Polygonzuges ein 'Etwas' in diesem Falle eben Blockreferenz befindet?
(setq arb_pl_pkt (M:LWPLIST ENAME))
(setq inhalt_wahl
(ssget "_CP" arb_pl_pkt '((0 . "INSERT")(2 . "Test")
)
) ;_ end of ssget
)
;;Stützpunkte auslesen
(defun M:LWPLIST (ENAM / ELIST PLIST)
(if ENAM
(setq ELIST (entget ENAM)
PLIST (apply
'append
(mapcar
'(lambda (X)
(if (= 10 (car X))
(list
(mapcar '(lambda (w)
(atof(rtos w 2))
)
(cdr x)
)
)
;;; (list (cdr X))
) ;_ end of if
) ;_ end of lambda
ELIST
) ;_ end of mapcar
) ;_ end of apply
) ;_ end of setq
) ;_ end of if
PLIST
) ;_ end of defun
------------------
Gruß
CADwiesel
Besucht uns im CHAT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP