Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  PL zu Polygon (schließen)

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  PL zu Polygon (schließen) (1337 mal gelesen)
Goofy007
Mitglied
Vermessungstechniker


Sehen Sie sich das Profil von Goofy007 an!   Senden Sie eine Private Message an Goofy007  Schreiben Sie einen Gästebucheintrag für Goofy007

Beiträge: 578
Registriert: 06.11.2004

Map3D 2018 und Civil3D 2018

erstellt am: 05. Okt. 2011 09:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.

erstellt am: 05. Okt. 2011 09:32    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Goofy007 10 Unities + Antwort hilfreich

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

Goofy007
Mitglied
Vermessungstechniker


Sehen Sie sich das Profil von Goofy007 an!   Senden Sie eine Private Message an Goofy007  Schreiben Sie einen Gästebucheintrag für Goofy007

Beiträge: 578
Registriert: 06.11.2004

erstellt am: 05. Okt. 2011 09:43    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.

erstellt am: 05. Okt. 2011 09:51    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Goofy007 10 Unities + Antwort hilfreich

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

Goofy007
Mitglied
Vermessungstechniker


Sehen Sie sich das Profil von Goofy007 an!   Senden Sie eine Private Message an Goofy007  Schreiben Sie einen Gästebucheintrag für Goofy007

Beiträge: 578
Registriert: 06.11.2004

erstellt am: 05. Okt. 2011 10:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Thomas,

Total SuperNett! Danke! Genau das habe ich gesucht.

lg
Didi

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz