| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: alle Polylinien Ursprung (695 mal gelesen)
|
Wolli
Mitglied
Konstrukteur
   Beiträge: 704
Registriert: 28.02.2001 Win7 64Bit+32Bit VM-Ware
I7 12GB
ACAD Mech 2010
Inventor Pro 2010 + 2012
Ansys 13 NLS
|
erstellt am: 12. Mrz. 2003 14:14  <-- editieren / zitieren -->   Unities abgeben:          
Hallo zusammen, ich würde dirgend ein Lisp brauchen welches mir alle Polylinien in der Zeichnung mit Ursprung auflöst, egal ob die Polylinien in Blöcken sind oder nicht.
Hat da jemand was? Danke und Gruß Wolfgang Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH
Beiträge: 4171
Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 13. Mrz. 2003 08:49 <-- editieren / zitieren --> Unities abgeben: Nur für Wolli 
Hallo Wolfgang, für die nicht verschachtelten LWPolylinien/Polylinien ist das ja kein Problem.
Code:
(defun c:plex (/ as elem)
(while
(setq as (ssget "_X"
(list
'(-4 . "<or")
'(0 . "POLYLINE")
'(0 . "LWPOLYLINE")
'(-4 . "or>")
)
)
)
(command "_.explode" as)
)
)
aber für die verschachtelten ... ?
Ich hätte da eine Idee, weiß aber nicht ob's funzt. Läuft auf eine Neudefinition der Blöcke über lisp hinaus... Bei Fragen ... Grüße Holger
------------------
Holger Brischke
CADlon - Lisp over night!
Neue Tool's im Free-&Download
Zugang zum Download schon gesichert?
[Diese Nachricht wurde von Brischke am 13. März 2003 editiert.] [Diese Nachricht wurde von Brischke am 13. März 2003 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Wolli
Mitglied
Konstrukteur
Beiträge: 704
Registriert: 28.02.2001 Win7 64Bit+32Bit VM-Ware
I7 12GB
ACAD Mech 2010
Inventor Pro 2010 + 2012
Ansys 13 NLS
|
erstellt am: 13. Mrz. 2003 09:34 <-- editieren / zitieren --> Unities abgeben:
Hallo Holger, Danke, funktioniert soweit einwandfrei.
Ich als Laie hatte halt gedacht daß das Programm durch die Zeichnung flitzt und überall wo es eine PL findet diese sprengt, Blöcke neu zu definieren ist wohl einiges an Arbeit oder? Danke und Gruß Wolfgang Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
1000Hands
Mitglied
CEO
Beiträge: 990
Registriert: 24.03.2002 HP Workstation Z840 Building Design Suite Premium 2018 auf Windows7 64Bit
|
erstellt am: 13. Mrz. 2003 11:26 <-- editieren / zitieren --> Unities abgeben: Nur für Wolli
@ Holger Wieso nicht einfach die PL rausfiltern und dann auflösen??? Dauert bei mir gesamt ca. 10 Sekunden. Wozu, frag ich, brauch man da ein Lisp??? Darüberhinaus weiß ich nicht genau was das für einen Sinn macht in Blöcken befindliche PL aufzulösen? Vielleicht eine kleine erklärung dazu - gibt ev. ne andere Möglichkeit. Ansonsten wird´s kompliziert weil wie gesagt 1. die Blöcke aufgelöst, 2. PL zerlegen, 3.Block neu definiert (attribute!) werden muß. ------------------
mfG
Stefan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Wolli
Mitglied
Konstrukteur
Beiträge: 704
Registriert: 28.02.2001 Win7 64Bit+32Bit VM-Ware
I7 12GB
ACAD Mech 2010
Inventor Pro 2010 + 2012
Ansys 13 NLS
|
erstellt am: 13. Mrz. 2003 12:20 <-- editieren / zitieren --> Unities abgeben:
Hallo Stefan, Die Polylinien machen uns Probleme beim Einlesen von DWG oder DXF in Medusa-CAD sie kommen dort nicht an. Bis jetzt habe ich das auch ausgefiltert und mit Ursprung belegt, aber
Filter filtert mir keine PL die in Blöcken sind, so muß ich alle Blöcke und Unterblöcke öffnen und dort das Lisp plex ausführen oder dort filtern. Gruß Wolfgang
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH
Beiträge: 4171
Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 13. Mrz. 2003 12:27 <-- editieren / zitieren --> Unities abgeben: Nur für Wolli
Zitat:
Original erstellt von 1000Hands:
@ HolgerWieso nicht einfach die PL rausfiltern und dann auflösen??? Dauert bei mir gesamt ca. 10 Sekunden. Wozu, frag ich, brauch man da ein Lisp???
Richtig, brauch man nicht unbedingt. Auf Knopfdruck ist's aber einfacher, als erst den Filter zu bedienen. Zitat:
Original erstellt von 1000Hands:
Darüberhinaus weiß ich nicht genau was das für einen Sinn macht in Blöcken befindliche PL aufzulösen? Vielleicht eine kleine erklärung dazu - gibt ev. ne andere Möglichkeit. Ansonsten wird´s kompliziert weil wie gesagt 1. die Blöcke aufgelöst, 2. PL zerlegen, 3.Block neu definiert (attribute!) werden muß.
Habe einen Lösungsansatz im Kopf der in ähnlicher Weise darauf abzielt. 'ne andere Lösung fällt mir dazu auch nicht ein. Letztendlich, wird Wolfgang (Stand jetzt) nichts anderes übrigbleiben, als die Blöcke auszulesen, zu ändern und wieder einzulesen. Bei Fragen ... Grüße Holger ------------------
Holger Brischke
CADlon - Lisp over night!
Neue Tool's im Free-&Download
Zugang zum Download schon gesichert?
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADchup
Ehrenmitglied V.I.P. h.c.
Beiträge: 3329
Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht.
Joachim Ringelnatz
|
erstellt am: 13. Mrz. 2003 12:36 <-- editieren / zitieren --> Unities abgeben: Nur für Wolli
|
Wolli
Mitglied
Konstrukteur
Beiträge: 704
Registriert: 28.02.2001 Win7 64Bit+32Bit VM-Ware
I7 12GB
ACAD Mech 2010
Inventor Pro 2010 + 2012
Ansys 13 NLS
|
erstellt am: 14. Mrz. 2003 09:26 <-- editieren / zitieren --> Unities abgeben:
|
| | Head of Mechanical Engineering (m/w/d) | ATLAS ELEKTRONIK ist ein Unternehmen der thyssenkrupp AG und steht für maritime Sicherheit. Seit Jahrzehnten unterstützen wir als führendes Systemhaus für Marineelektronik Marinen auf der ganzen Welt, die See sicherer zu machen. Unseren Kunden bieten wir ein breites Angebot u. a. an Sonaren und Sensoren, Führungssystemen für U-Boote und Überwasserschiffe, Minenabwehrsystemen, unbemannte Unterwasserfahrzeuge und Funk- und Kommunikationsanlagen.... | | Anzeige ansehen | Leitung, Teamleitung |
|
1000Hands
Mitglied
CEO
Beiträge: 990
Registriert: 24.03.2002 HP Workstation Z840 Building Design Suite Premium 2018 auf Windows7 64Bit
|
erstellt am: 14. Mrz. 2003 09:32 <-- editieren / zitieren --> Unities abgeben: Nur für Wolli
Für solch Sachen haben wir DXF-Konv - das erledigt es automatisch. Ev. kann man die dxf erstmal in ein anderes Cad-Progy einlesen in welchem die PL zerlegt werden beim einlesen, dann weiter nach medusa. Oder Uralt-AutoCAD dxf erstellen wo noch keine pl gab, frag mich bitte jetzt nicht ab wann das ging... ------------------
mfG
Stefan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
