| |
| 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: Block- Ursprung- Gruppe (3062 mal gelesen)
|
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 13. Jul. 2010 06:38 <-- editieren / zitieren --> Unities abgeben:
Guten Morgen! Folgende Fragestellung ergab sich bei der Arbeit: Immer wieder werden Blöcke eingefügt und dann einzeln in Ursprung zerlegt. Nachher wird aus den Einzelteilen wieder eine Gruppe erstellt damit man eben diesen ursprünglichen Block bzw. Blöcke noch greifen kann. Aus diesem Grund habe ich mal folgendes Lisp "gebastelt". Dieses verwendet auch ein Lisp ("MG") hier aus dem Forum! Danke an dieser Stelle auch mal an den Verfasser für dieses tolle Lisp. (defun c:Urgruppe (/ AWS) (if (null C:mg) (load "mg.lsp"))(princ) (if (=(getvar "OPMSTATE") 0) (progn (command "_.properties") (command "_.propertiesclose"))) (setq AWS(ssget)) (while (/=(getvar "CMDACTIVE")0)(command pause)) (command "_.pselect" "V" "") (c:burst) (while (/=(getvar "CMDACTIVE")0)(command pause)) (command "_.pselect" "V" "") (c:MG) (command "_graphscr") (command "PICKSTYLE" "0") ) Bitte dieses Lisp nur als Beispiel ansehen! Bin leider kein Könner so wie viele hier! Es soll nur zum Verständnis dienen. Frage 1) Kann mir jemand weiterhelfen um obiges Lisp so umzubauen damit man mehrere Blöcke mit Fensterwahl auswählen kann und anschließend alle gewählten Blöcke in eigene Gruppen umgewandelt werden? Frage 2) Code auf Button: ^C^C_delg;\\\;_MG;\;;PICKSTYLE;0;;; Mit diesem Macro kann ich eine erstellte Gruppe anwählen und einen ausgewählten Teil aus der bestehenden Gruppe herausnehmen und daraus eine eigene Gruppe bilden. Könnte man diese beiden "Sachen"(Lisp und Macro) vereinen und bei Ausführung wählen ob man Blöcke in Gruppen oder eine "Teilgruppe aus gewählter Gruppe erstellen möchte. Vieleicht hab ich ja mit diesem Beitrag die creative Ader einiger getroffen und es kommen noch einige Ideen zum Thema Block->Ursprung->Gruppe! Bitte um Geduld bei meinen Antworten. Bin nicht immer am Computer! lg Martin
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 13. Jul. 2010 08:44 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
|
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 13. Jul. 2010 09:34 <-- editieren / zitieren --> Unities abgeben:
Hallo Thomas! Danke für deine Hilfe! Es freut mich daß auch ich mal was hier im Forum beitragen kann. Dein Programm läuft genial. Ich hoffe es ist nicht Laufzeitbeschränkt! Vieleicht wäre auch noch die Idee Gruppe aus Gruppe machbar?? Danke nochmal! lg Martin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 13. Jul. 2010 09:39 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
|
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 13. Jul. 2010 09:43 <-- editieren / zitieren --> Unities abgeben:
|
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 14. Jul. 2010 06:58 <-- editieren / zitieren --> Unities abgeben:
Hallo Thomas! Hab gestern das Programm getestet und folgenden Vorschlag: Einige Blöcke sind mit Layer 0 erstellt und nehmen beim Einfügen die Eigenschaften des aktuellen Layers an. Mit dem Befehl "Burst" aus den "ET" bleibt das Objekt auf dem Einfügelayer erhalten. Bei deinem Programm wird auf dem Layer 0 umgestellt. Könntest man das in deinem Programm noch ändern? Auch eine Option für Teile aus Gruppe in neue Gruppe wäre toll. Dann wäre dieses Programm eine super Ergänzung zu "MG.lsp" Falls du keine Zeit hast-- macht auch nichts! Trotzdem vielen Dank für deine Hilfe! lg Martin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 14. Jul. 2010 07:57 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
|
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 14. Jul. 2010 08:15 <-- editieren / zitieren --> Unities abgeben:
Hallo Thomas! Danke für deine Hilfe die nicht selbstverständlich für mich ist. Auch das zweiter Progamm von dir ist wie gewohnt einsame SPIIIIIIIIITTTTZZZZEEEE!!!!!!! Die UUUs müssten doch mal auf 20 erhöht werden find ich! Danke! lg Martin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 14. Jul. 2010 08:29 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
|
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 14. Jul. 2010 08:40 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 14. Jul. 2010 08:43 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
|
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 14. Jul. 2010 08:46 <-- editieren / zitieren --> Unities abgeben:
|
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 14. Jul. 2010 09:24 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
Hi, im Anhang mal was mit burst... (Expresstools erforderlich) ... nicht so schön wie CADmiums aber auf die Schnelle ist nicht mehr drin ------------------ Mfg Heiko
Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." [Diese Nachricht wurde von Dorfy am 14. Jul. 2010 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 14. Jul. 2010 09:42 <-- editieren / zitieren --> Unities abgeben:
|
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 18. Nov. 2010 09:10 <-- editieren / zitieren --> Unities abgeben:
Hallo! Obige Arbeitsweise mit Euren Lisp funktioniert sehr gut. Nun hab ich aber eine neue Situation die sicher auch Euch interessieren wird. Beschreibung: Ich erstelle z.Bsp. 3 Gruppen. 1) Erstellung Gruppe 1 2) Erstellung Gruppe 2 3)Erstellung Gruppe 3 die aus den Gruppen 1+2 besteht. Nun sollte ich die Objekte der Gruppe 1 z.Bsp. verschieben. Ich hab aber nur die Möglichkeit alle Gruppen einzuschalten oder alle auszuschalten. Wenn alle eingeschaltet sind kann ich nur die Gruppe 3 wählen. Sicher kann ich mir durch den ACAD Befehl "Gruppe" die Gruppe suchen und den Rest auf nicht wählbar setzen. Diese vorgehensweise ist aber nicht sinnvoll zumal ich bei einer automatisch erstellten Gruppe den Namen ja nicht weis. Lösungsansatz: Ein Lisp das mir die Auswahl mit "Objekt wählen" erlaubt. Das objekt im Auswahlsatz soll nun geprüft werden zu wechen Gruppen es gehört. Wenn es zu mehreren Gruppen gehört sollte die Gruppe ausgewählt werden zu der keine "übergeordnete Gruppe gehören! Ist nun diese Gruppe aktiv sollte man div. Befehle wie Schieben etc. ausführen können. Vielleicht gefällt jemand diese Idee und könnte sie für UNS ALLE in einem Lisp umsetzen. lg Martin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 18. Nov. 2010 09:17 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
|
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 18. Nov. 2010 09:18 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
Wer sind denn WIR ALLE ? Wenn man mit unbenannten Gruppen arbeitet dann soll man sich nicht beschweren. Den Namen der Gruppen kann man sich anzeigen lassen. Bei der Objektwahl kann man angeben welche Gruppe gewählt werden soll. (DAS fällt natürlich bei "benannten" Gruppen deutlich leichter zugegeben) Fazit: Du kannst das also alles schon mit Boardmitteln machen, das der Wunsch nach einer 1Knopflösung da ist kann man natürlich verstehen. Hoffentlich hast du Glück ------------------ CAD.de System-Angaben - CAD on demand - User:FAQ(Acad) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd10 Mitglied
Beiträge: 763 Registriert: 20.11.2003 Intel(R) Xeon(R) W-2123 CPU @ 3.60GHz 16 GB RAM Windows 10 Pro 64-bit AutoCAD Mechnical 2020 Deu
|
erstellt am: 19. Nov. 2010 08:20 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
Hallo Martin, Zitat: Original erstellt von MARTINLE:
Diese vorgehensweise ist aber nicht sinnvoll zumal ich bei einer automatisch erstellten Gruppe den Namen ja nicht weis.
mit der beiliegenden Lisp-Funktion ermittle ich den Namen der Gruppe, in der das Objekt enthalten ist. Vielleicht hilft das ein Stück weiter. Viele Grüße Bernd
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 19. Nov. 2010 09:29 <-- editieren / zitieren --> Unities abgeben:
|