| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Gruppe mit (entmake ...) erzeugen (609 mal gelesen)
|
romi1 Mitglied Bautechniker
Beiträge: 638 Registriert: 09.02.2006 Xeon E3-1245V2 16GB RAM Windows 10 Professional 64 bit AutoCAD 2014
|
erstellt am: 30. Mai. 2007 11:59 <-- editieren / zitieren --> Unities abgeben:
Hallo! Ich möchte eine Gruppe mit (entmake ...) erzeugen, und komme nun nicht mehr weiter: Gegeben ist eine Liste "alle_entities" mit den (Haupt-)entities, die zu einer Gruppe zusammengefaßt werden sollen. Die Liste sieht etwa so aus: (<Entity name: 7e678ce0> <Entity name: 7e678cd8> <Entity name: 7e678cd0> <Entity name: 7e678cc8> <Entity name: 7e678cc0> <Entity name: 7e678cb8> ...) Der Programmteil, der die Gruppe erzeugen soll, sieht bei mir derzeit so aus: (entmake (list '(0 . "GROUP") '(102 . "{ACAD_REACTORS") ;'(330 . "???") '(102 . "}") '(100 . "AcDbGroup") '(300 . "meine_gruppe") ; Beschreibung '(70 . 0) ; Benannte Gruppe '(71 . 1) ; Wählbare Gruppe (foreach a alle_entities (cons 340 a) ) ) ) Es klappt aber leider nicht. Muß ich da zuerst eine Tabelle für die Gruppen anlegen? Irgendwie scheint es an dem Eintrag unter 330 zu liegen ... den hab' ich vorläufig auskommentiert. Eventuell auch unter den aufeinanderfolgenden Einträgen unter 340 .... Kann mir jemand weiterhelfen ?
Roman Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 .
|
erstellt am: 30. Mai. 2007 12:24 <-- editieren / zitieren --> Unities abgeben: Nur für romi1
warum muß es entmake sein ? Wenn du nur nicht die command-Version nutzen willst, nimm die ActiveX-Implementierung. Damit gehts relativ einfach. ------------------ - 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 |
romi1 Mitglied Bautechniker
Beiträge: 638 Registriert: 09.02.2006 Xeon E3-1245V2 16GB RAM Windows 10 Professional 64 bit AutoCAD 2014
|
erstellt am: 30. Mai. 2007 12:52 <-- editieren / zitieren --> Unities abgeben:
Hallo CADmium! Mit ActiveX kenn' ich mich leider überhaupt nicht aus - ich glaube ich hab's beim LT ja auch nicht dabei (ich hab' ja LT + LT-Extender). Ich möchte das - wenn möglich - mit (entmake ...) lösen. Roman Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 - 2014 Arcibem System: Windows 2000, XP, NO VISTA Internet-Startseite: http://www.archi.de
|
erstellt am: 30. Mai. 2007 13:04 <-- editieren / zitieren --> Unities abgeben: Nur für romi1
|
romi1 Mitglied Bautechniker
Beiträge: 638 Registriert: 09.02.2006 Xeon E3-1245V2 16GB RAM Windows 10 Professional 64 bit AutoCAD 2014
|
erstellt am: 30. Mai. 2007 13:09 <-- editieren / zitieren --> Unities abgeben:
|
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 - 2014 Arcibem System: Windows 2000, XP, NO VISTA Internet-Startseite: http://www.archi.de
|
erstellt am: 30. Mai. 2007 13:23 <-- editieren / zitieren --> Unities abgeben: Nur für romi1
Hi Roman, komisch, bei mit wird mit --------------<schnipp>-------------- Code: (setq grp_dict_ename (cdar (dictsearch (namedobjdict) "ACAD_GROUP")) elist (append (list '(0 . "GROUP") '(102 . "{ACAD_REACTORS") (cons 330 grp_dict_ename) '(102 . "}") '(100 . "AcDbGroup") '(300 . "My Little Group") ; Description '(70 . 0) ; Named Group '(71 . 1) ; Selectable Group ) ;_ end of list (mapcar '(lambda (ele) (cons 340 ele)) ss_lst) ) ;_ end of append ) ;_ end of setq (dictadd grp_dict_ename "DILBERT" (entmakex elist))
---------------<schnapp>--------------- eine Gruppe "Dilbert" erzeugt (ss_lst ist deine Objektnamenliste) Grüsse, Henning ------------------ VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
romi1 Mitglied Bautechniker
Beiträge: 638 Registriert: 09.02.2006 Xeon E3-1245V2 16GB RAM Windows 10 Professional 64 bit AutoCAD 2014
|
erstellt am: 30. Mai. 2007 13:55 <-- editieren / zitieren --> Unities abgeben:
Danke wronzky, Du hast natürlich recht! Ich hab's falsch abgeschrieben und nochdazu eigenhädig ein (entmake ...) reingeschrieben, obwohl das ja da gar nichts zu suchen hat ... Es funktioniert nun bei mir auch, bis auf den kleinen Schönheits- fehler, das die Gruppe bei mir scheinbar unbenannt bleibt. "Dilbert" scheint nicht auf in der Liste der Gruppen, wenn man mit -gruppe und * alle Gruppen auflisten läßt ... Danke für Deine Hilfe, Roman Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |