---

test.dwg.txt

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

---

Doppelte Punkte in der Liste will ssget scheinbar nicht!
(sich kreuzende Polylinie auch nicht)

Mal zum Testen :
(vl-load-com)
(defun DT:AWS-HIGHLIGHT (AUSWAHLSATZ EIN? / INDEX)
  (if(=(type AUSWAHLSATZ) 'PICKSET)
    (progn
      (setq INDEX 0)
      (Repeat (sslength AUSWAHLSATZ)
        (if EIN?
          (redraw (ssname AUSWAHLSATZ INDEX) 3)
          (redraw (ssname AUSWAHLSATZ INDEX) 4)
        )
        (setq INDEX (1+ INDEX))
      )
    )
  )
  (princ)
)
(defun DT:PL-Coords->PKTLIST ( OBJEKT NODOUBLE? / OBJEKTDATEN DIMS ZAHLLISTE PKT PUNKTLISTE) 
  (if (and(=(type OBJEKT) 'ENAME)
          (member (cdr(assoc 0 (setq OBJEKTDATEN(entget OBJEKT)))) '("LWPOLYLINE" "POLYLINE")) 
      )
    (progn                       
      (setq DIMS (cond
                  ((=(cdr(assoc 0 OBJEKTDATEN)) "LWPOLYLINE") 2)
                  ((=(cdr(assoc 0 OBJEKTDATEN))  "POLYLINE") 3)
                )
      )     
      (setq ZAHLLISTE (vlax-safearray->list
                        (vlax-variant-value                 
                          (vlax-get-property (vlax-ename->vla-object OBJEKT) 'coordinates)
                        )
                      )       
      )     
      (repeat (/(length ZAHLLISTE)DIMS)
        (cond
          ((= DIMS 2)
            (setq PKT (list(car ZAHLLISTE)(cadr ZAHLLISTE) 0.0))           
            (setq ZAHLLISTE (cddr ZAHLLISTE))
          ) 
          ((= DIMS 3)
            (setq PKT (list(car ZAHLLISTE)(cadr ZAHLLISTE) (caddr ZAHLLISTE)))           
            (setq ZAHLLISTE (cdddr ZAHLLISTE))             
          ) 
        )
        (if NODOUBLE?
          (if (not(member PKT PUNKTLISTE))
            (setq PUNKTLISTE (cons PKT PUNKTLISTE)) 
          )
          (setq PUNKTLISTE (cons PKT PUNKTLISTE))
        )
      )
      PUNKTLISTE
    )
  )
)
(defun C:ssget-poly ( / ptlist aws)
  (setq PTlist (DT:PL-Coords->PKTLIST (car(entsel)) 'T))
  (prin1 PTlist)
  (setq AWS (ssget "_WP" PTLIST)) 
  (DT:AWS-HIGHLIGHT AWS 'T)
)
------------------
  - Thomas -

[Diese Nachricht wurde von CADmium am 05. Apr. 2004 editiert.]

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

---

Vielen Dank für das Proggi.

Es scheint einige Feinheiten bei ssget Auswahlsätzen zu geben - ein weiterer ist annscheinend, das er die Stützpunkte der übergebenen 10er Liste nur richtig interprätiert, wenn die Koordinaten vollumfänglich also incl. des Z-Wertes übergeben werden.
werden die Koordinaten so übergeben, wie sie ausgelesen werden (Bei LWPL ist das ja nur 2 Stellig) treten in diesen Fällen, wo sich Doppelte oder annähernd Deckungsgleiche PLZüge befinden Fehler auf - in sofern, das ein Objekt, welches normalerweise ohne Probleme 'gegriffen' würde eben nicht gefunden wird.

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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