---

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

---

(entget(tblobjname "view" "NAME"))

------------------
  - 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

---

Hier ein Beispiel das funktioniert.

Code:

---

(entmake
'( (0 . "VIEW")
(100 . "AcDbSymbolTableRecord")
(100 . "AcDbViewTableRecord")
(2 . "TEST_VON_CAD-Huebner")
(70 . 0)
(40 . 9.7426)
(10 8.02612 4.61701)
(41 . 16.0522)
(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)
)
)

---

Subfunctions zum Umorganisieren von Listen gibts wie Sand am Meer. Da verwendet aber jeder oft seine Eigenkreationen. http://www.afralisp.net/autolisp/tutorials/list-manipulation.php

------------------
Mit  freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hi !

danke für den Tipp, aber die http://www.afralisp.net/archive/lispa/lisp17.htm hat sich geändert.

Gruß Jan :-)

------------------
jan :-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

Also ich hätte diese Seite gefunden: http://www.afralisp.net/autolisp/tutorials/list-manipulation.php

------------------
Schöne  Grüße
Ernst

www.geopaint.at

[Diese Nachricht wurde von Geos am 26. Mai. 2012 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP