Hallo Leute,
ich möchte in einer Entityliste von Layout mehere Elemente autauschen.
Hinweis zu Werten:
(setq Papierformat "ISO_full_bleed_A2_(594.00_x_420.00_MM)")
(setq Ausrichtung (cons 73 0))
!Bereich -> ((0.0 0.0 0.0) (1211.0 594.0 0.0))
(setq Planlänge (car(car(cdr bereich)))) -> 1211.0
(setq Planhöhe (car(cdr(car(cdr bereich))))) -> 594.0
LayoutEntlist:
(-1 . <Objektname: 319e1520> )
(0 . "LAYOUT")
(5 . "BEB2")
(102 . "{ACAD_REACTORS")
(330 . <Objektname: 3a581560> )
(102 . "}")
(330 . <Objektname: 3a581560> )
(100 . "AcDbPlotSettings")
(1 . "")
(2 . "Kein")
(4 . "Letter_(8.50_x_11.00_Inches)")
(40 . 6.35)
(41 . 6.35)
(42 . 6.35001)
(43 . 6.35001)
(44 . 215.9)
(45 . 279.4)
(46 . -2068.41)
(47 . -752.237)
(48 . 0.0)
(49 . 0.0)
(140 . 1211.0)
(141 . 594.0)
(142 . 1.0)
(143 . 1.0)
(70 . 512)
(72 . 1)
(73 . 0)
(74 . 0)
(7 . "")
(75 . 16)
(147 . 1.0)
(76 . 0)
(77 . 2)
(78 . 300)
(148 . 1042.05)
(149 . 244.961)
(100 . "AcDbLayout")
(1 . "A1Überlänge")
(70 . 1)
(71 . 2)
(10 1020.01 500.926 0.0)
(11 1235.91 780.326 0.0)
(12 0.0 0.0 0.0)
(14 282.434 499.925 -0.00152582)
(15 1711.05 1094.03 3.49246e-08)
(146 . 0.0)
(13 0.0 0.0 0.0)
(16 1.0 0.0 0.0)
(setq newLayoutEntlist (subst (cons 10 (car bereich))(assoc 10 LayoutEntlist);Plotfenster Ecke unten links
(cons 11 (car (cdr bereich)))(assoc 11 LayoutEntlist);Plotfenster Ecke oben rechts
(cons 4 Papierformat) (assoc 4 LayoutEntlist);Papierformat
Ausrichtung (assoc 73 LayoutEntlist);Zeichnungsausrichtung (Querformat 73 . 1)(Hochformat 73 . 0)
(cons 46 0.0) (assoc 46 LayoutEntlist);Abstand von Fenster zu Papierformat unten
(cons 47 0.0) (assoc 47 LayoutEntlist);Abstand von Fenster zu Papierformat oben
(cons 48 0.0) (assoc 48 LayoutEntlist);Abstand von Fenster zu Papierformat rechts
(cons 49 0.0) (assoc 49 LayoutEntlist);Abstand von Fenster zu Papierformat links
(cons 148 0.0) (assoc 148 LayoutEntlist);X-Versatz Fenster zu Papierformat
(cons 149 0.0) (assoc 149 LayoutEntlist);Y-Versatz Fenster zu Papierformat
(cons 44 Planlänge)(assoc 44 LayoutEntlist);Plotfensterlänge von Papierformat
(cons 45 Planhöhe)(assoc 45 LayoutEntlist);Plotfensterhöhe von Papierformat
LayoutEntlist)
)
gibt mir -> Zu viele Argumente -< zurück
Was ist mit dem subst nicht in Ordnung? Ich habe es auch ohne die Kommentare (die Kommentare hinter den versucht. Gleiches Ergebnis.
------------------
Danke Stefan
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP