---

Hallo,

ich suche nach einem Tool, welches für Polylinien bei denen der Endpunkt auf dem Anfangspunkt liegt die Eigenschaft geschlossen auf ja stellt.
Das ganze sollte mit Mehrfachauswahl funktionieren, weil ich das auf einer Fremdzeichnung mit mehreren tausend PLs machen muss.

Gibt es sowas schon? Oder muss ich mir das selber schreiben?

lg
Didi

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

---

Gibts sicher .. aber imho ist selberschreiben schneller als suchen

(defun C:CLOSALL(/ AWS I OBJ)
  (vl-load-com) 
  (if(setq AWS(ssget "_X" '((0 . "*POLYLINE"))))
    (progn
      (setq I -1)
      (repeat (sslength AWS)
        (if(setq OBJ(vlax-ename->vla-object(ssname AWS (setq I(1+ I)))))
          (vla-put-closed OBJ :vlax-true)
        ) 
      ) 
    )
  )
)

Für PLs in Blöcken müßte man aber noch etwas weiter ausholen

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Cadmium,

danke für deinen rasche Antwort und den Code.
PLs [Edit Schreibfehler] in Blöcken habe ich nicht, kann man also ignorieren.

Aber dein Code schließt die Polygone ohne zu prüfen ob Anfangspunkt und Endpunkt ident sind. Das würde ich auch bekommen, wenn ich alle PLs filtere und im Eigenschaftenfenster bei geschlossen auf Ja stelle.
Das Problem dabei ist, daß Autocad in diesem Falle eine zusätzliche Linie zwischen Endpunkt und Anfangspunkt einfügt.
Das darf ich aber auf keinen Fall machen!

Wenn du das mit weiteren 2 Zeilen Lisp einfügen kannst (bzw. willst, ich habe schon Verständnis für den Unterschied zwischen kleiner Hilfestellung und verrechenbarer Dienstleistung) wäre das supernett von dir.
Falls nicht, werde ich es mir in VBA schreiben, weil ich (leider) kein LISP spreche (zumindest nichts mit mehr als 3 Zeilen *grins*).

lg
Didi

[Diese Nachricht wurde von Goofy007 am 05. Okt. 2011 editiert.]

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

---

ach so ...

(defun C:CLOSALL(/ AWS I OBJ)
  (vl-load-com) 
  (if(setq AWS(ssget "_X" '((0 . "*POLYLINE"))))
    (progn
      (setq I -1)
      (repeat (sslength AWS)
        (if(and(setq OBJ(vlax-ename->vla-object(ssname AWS (setq I(1+ I)))))
                (equal(vlax-curve-getstartpoint OBJ)
                      (vlax-curve-getendpoint OBJ)
                      0.01
                )
            )             
          (vla-put-closed OBJ :vlax-true)
        ) 
      ) 
    )
  )
) 

die 0.01 sind die Toleranz der Punkte , kannste erhöhen oder verkleinern

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Thomas,

Total SuperNett! Danke! Genau das habe ich gesucht.

lg
Didi

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