| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: Regionen auflösen (3809 mal gelesen)
|
jkloeckner Mitglied Zeichner
Beiträge: 11 Registriert: 26.09.2005
|
erstellt am: 10. Nov. 2006 08:25 <-- editieren / zitieren --> Unities abgeben:
Hallo Leute, ich habe eine Zeichnung bekommen die viele Regionen enthält. Es handelt sich um Schraffurumrandungen mit Inselbereichen. Ich kann nun aber die Außenumrandung nicht verändern. Habe mit dem Befehl Ursprung versucht mir zu helfen, bringt aber nix, da dann die Polylinien in Linien aufgelöst werden. Welche Möglichkeit gibt es, Regionen aufzulösen und die Umgrenzung als Polylinie zu erhalten? Danke Jürgen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
heiko_hems Mitglied Freier Architekt
Beiträge: 1305 Registriert: 14.01.2005 BuildingDesignSuitePremium 2021 Revit / ACA
|
erstellt am: 10. Nov. 2006 08:31 <-- editieren / zitieren --> Unities abgeben: Nur für jkloeckner
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 10. Nov. 2006 08:47 <-- editieren / zitieren --> Unities abgeben: Nur für jkloeckner
oder sowas als Automatismus... kann ja auch auf eine Auswahl von Regionen (also mehrere auf einmal ) erweitert werden (defun C:Region2PL(/ Region LASTOBJ AWS) (if(and(setq Region(car(entsel"\nRegion wählen:"))) (=(strcase(cdr(assoc 0(entget Region))))"REGION") (setq LASTOBJ (entlast)) ) (progn (command "_explode" Region) (setq AWS (ssadd)) (while (setq LASTOBJ(entnext LASTOBJ)) (ssadd LASTOBJ AWS) ) (command "_pedit" "_m" AWS "" "_y" "_j" 0.0 "") ) ) ) ------------------ - 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 |
jkloeckner Mitglied Zeichner
Beiträge: 11 Registriert: 26.09.2005
|
erstellt am: 10. Nov. 2006 08:51 <-- editieren / zitieren --> Unities abgeben:
Hallo Heiko, ich kannte den Befehl Umgrenzung noch gar nicht. Habe ihn angewendet, klappt sehr gut. Habe jetzt wieder Polylinien als Umrandung. Klappt der Befehl nur wenn ich in die Fläche reinklicke oder kann ich den Befehl auch auf die ganze Zeichnung durch ziehen eines Fensters anwenden? Gruß Jürgen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
g.r Mitglied Beruf? Ja! Ausbildung: auch!!
Beiträge: 603 Registriert: 06.07.2005 ACA 2010 Scaleo, AMD Athlon64 DC4600+ acer Aspire 8930 4C 4GB VISTA Ultimate HP 750C AMD Athlon, W2k
|
erstellt am: 10. Nov. 2006 08:52 <-- editieren / zitieren --> Unities abgeben: Nur für jkloeckner
|
jkloeckner Mitglied Zeichner
Beiträge: 11 Registriert: 26.09.2005
|
erstellt am: 10. Nov. 2006 09:01 <-- editieren / zitieren --> Unities abgeben:
Hallo Thomas, habe gerade dein LISP-Programm gestartet. Wie kann ich alle Regionen auf einmal ansprechen? Ich habe mit Filter die Regionen herausgesucht und dann dein Programm gestartet. Habe dann "v" für vorher eingegeben, aber leider erkennt das Programm den Auswahlsatz nicht. WAs kann ich machen? Gruß Jürgen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 10. Nov. 2006 09:27 <-- editieren / zitieren --> Unities abgeben: Nur für jkloeckner
na um mehrere Regionen auf einmal umzuwandeln nimm das: (defun C:Regions2PL(/ AUSWAHL INDEX Region LASTOBJ AWS) (if(setq AUSWAHL(ssget '((0 . "REGION")))) (progn (setq INDEX -1) (repeat (sslength AUSWAHL) (setq REGION (ssname AUSWAHL(setq INDEX(1+ INDEX)))) (setq LASTOBJ (entlast)) (command "_explode" Region) (setq AWS (ssadd)) (while (setq LASTOBJ(entnext LASTOBJ)) (if (member (cdr(assoc 0 (entget LASTOBJ))) '( "LINE" "POLYLINE" "LWPOLYLINE" "ARC")) (ssadd LASTOBJ AWS) ) ) (if (>(sslength AWS)0) (command "_pedit" "_m" AWS "" "_y" "_j" 0.0 "") ) ) ) ) ) ------------------ - 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 |
jkloeckner Mitglied Zeichner
Beiträge: 11 Registriert: 26.09.2005
|
erstellt am: 10. Nov. 2006 09:58 <-- editieren / zitieren --> Unities abgeben:
|
friedhelm at work Mitglied Techniker Aluminium Profile
Beiträge: 912 Registriert: 01.04.2003 Creo Elements Direct /Drafting 17+20.x ui classic-Tablett + Ribbon, Modeling 17-20.0,.2,.4,.5 Lizenz auf USB-Netzwerkadapter PE-Express 8 Win 10 Enterprise 64 @work Win 10 Pro 64 @home Notepad++,IrfanView,eDrawings, ....
|
erstellt am: 07. Nov. 2007 17:20 <-- editieren / zitieren --> Unities abgeben: Nur für jkloeckner
Hallo zusammen, erst mal vorstellen. Ich bin eigentlich aus dem CoCreate Forum. Wir benutzen einen AutoCad Platz hauptsächlich zum Aufbereiten von Kunden Cad-daten bevor wir sie in unserer Cad-umgebung weiterverwenden. Bin durch suchen in diesen Beitrag gekommen. Wir haben aktuell das gleiche Problemchen. Die Regionen werden von unserem Translator nicht sauber übersetzt. Wenn ich sie auflöse ist alles ok. Da dies aber zu Fuss bei Zeichnungen mit vielen Regionen viel Arbeit ist, würde ich das gerne verwenden. Nun die Frage eines "blutigen Anfängers" und Nichtlisplers: Wie bekomme ich dieses Lisp unter eine Schaltfläche in meinem Werkzeugkasten? Gruss Friedhelm ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 Sie nannten ihn google.
|
erstellt am: 07. Nov. 2007 17:23 <-- editieren / zitieren --> Unities abgeben: Nur für jkloeckner
|
friedhelm at work Mitglied Techniker Aluminium Profile
Beiträge: 912 Registriert: 01.04.2003
|
erstellt am: 13. Nov. 2007 19:36 <-- editieren / zitieren --> Unities abgeben: Nur für jkloeckner
|