| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Gruppencode gezielt positionieren (1347 mal gelesen)
|
tappenbeck Mitglied Vermessungsingenieur
Beiträge: 1217 Registriert: 30.05.2002 AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 24. Mai. 2012 10:45 <-- editieren / zitieren --> Unities abgeben:
Hi ! ich hatte kürzlich ein Posting in welchem es um das Arbeiten mit Views ging. Nun möchte ich mittels entmake Views erstellen lassen. Die Daten von tblsearch reichen hier nicht aus - siehe auch [URL=http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/LISP-to-define-a-VIEW-using-ENTMAKE/td-p/890808][/URL]. Es fehlen 2 GC 100. Von tblsearch bekomme ich folgende Daten: Zitat: ((0 . VIEW) (2 . avt_view_snap) (70 . 0) (40 . 2637.6) (10 3269.69 1766.2) (41 . 5034.1) (11 0.0 0.0 1.0) (12 0.0 0.0 0.0) (42 . 50.0) (43 . 0.0) (44 . 0.0) (50 . 0.0) (71 . 0) (72 . 1) (110 0.0 0.0 0.0) (111 1.0 0.0 0.0) (112 0.0 1.0 0.0) (79 . 0) (146 . 0.0))
Wenn ich mit append die beiden GC anhänge dann stehen diese am Ende: Zitat: ... (146 . 0.0) (100 . AcDbSymbolTableRecord) (100 . AcDbViewTableRecord))
Mit dieser Liste kann ich den View nicht mit entmake erstellen. Es funktioniert nur, wenn die beiden 100er-GC an zweiter Stelle stehen. Zitat: '((0 . "VIEW") (100 . "AcDbSymbolTableRecord") (100 . "AcDbViewTableRecord") (2 . "avt_view_snap") ...
Kann mir einer einen Tipp geben wie ich die beiden GC an die richige Stelle bekomme ohne die ganze Liste neu aufzubauen ? Gruß Jan :-) ------------------ jan :-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 24. Mai. 2012 10:51 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
|
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 24. Mai. 2012 11:13 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
|
tappenbeck Mitglied Vermessungsingenieur
Beiträge: 1217 Registriert: 30.05.2002 AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 24. Mai. 2012 12:58 <-- editieren / zitieren --> Unities abgeben:
|
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 24. Mai. 2012 13:09 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
Hallo Jan, wenn es exakt die 2. Stelle ist, dann kann man das wie folgt machen: Code:
(defun test ( / LISTE1 LISTE2) (setq liste1 '((0 . "VIEW") (2 . "avt_view_snap") (70 . 0) (40 . 2637.6) (10 3269.69 1766.2) (41 . 5034.1) (11 0.0 0.0 1.0) (12 0.0 0.0 0.0) (42 . 50.0) (43 . 0.0) (44 . 0.0) (50 . 0.0) (71 . 0) (72 . 1) (110 0.0 0.0 0.0) (111 1.0 0.0 0.0) (112 0.0 1.0 0.0) (79 . 0) (146 . 0.0))) (setq liste2 '((100 . "AcDbSymbolTableRecord") (100 . "AcDbViewTableRecord"))) (apply 'append (list (list (car liste1)) liste2 (cdr liste1))))
Wenn es nach einem bestimmten Gruppencode eingefügt werden soll, dann wird die Liste z.B. mit Hilfe einer Schleife in 2 Liste getrennt, und dann kannst Du auch wieder (apply 'append verwenden.
------------------ viele Grüße Jörn http://www.bosse-engineering.com Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 26. Mai. 2012 12:11 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
|