Kopieren Sie Skala und Mittelpunkt in allen Layouts

[Ingo]

Guten Morgen zu euch allen
Ich bin verzweifelt auf der Suche, ohne in der Lage zu sein, eine Lispe (Autolip oder Visuallisp?)

eine Datei mit varei Präsentationen (layout)
Ich möchte die Positionsskala und das Zentrum von der aktuellen Ansicht auf alle anderen Gegenwart des dwg kopieren

Ich fing an, Stücke von Koks hier und dort zu mischen, aber ohne wirklich in der Lage, es zu tun

Dieser Code ermöglicht es Ihnen, ein Objekt in allen aktuellen Präsentationen zu kopieren,
(es könnte gut sein, wenn jemand es erneut ausgibt, um es zu ändern, um die Präsentationen in den anderen Layouts zu löschen, bevor der Befehl, der es kopiert)

Ich weiß nicht, ob ich es geschafft habe, dank Ihrer Hilfe richtig zu erklären

(defun c:cpp (/ acdoc layouts *error* lay Clayout ss sa)
; Kopien ausgewählter Objekte in allen Präsentationen.

(vl-load-com)

(Setq Layouts (vla-get-layouts)
acdoc (vla-get-activedocument (vlax-get-acad-object))
)

(Defun *error* (msg)
(und msg)
(g)
(Mitglied (Strcase msg) "("Funktion storniert" "quit / Exit abort" "Funktion storniert" "quitter / Ausfahrt verlassen"))
(princ (strcat "\nerror: " msg))
)
)
(falls ss (vla-delete ss))
(vla-endundomark acdoc)
(principal)
)

(vla-startundomark acdoc)

(g)
(und
(/= (Setq Clayout (getvar 'ctab)) "Modell")
(getvar 'cvport) 1)
)
(Prog.)
(principal "\n* Befehl nicht erlaubt im Objektraum**)
(quite)
)
)

(falls)
(g)
(setq ss (ssgetfirst))
(setq ss (ssget))
)
(setq sa (bss:ss2safearray ss))
)
(Prog.)
(vlax-für Layout)
(wenn (und (eq:vlax-false))
(/= Clayout (vla-get-namelay))
)
(vla-copyobjects acdoc sa (vla-get-block lay))
)
);vlax für Layout
(principal "\ncopy did!")
)
); wenn ssget

(*ror* nil)
(cpp)

(defun bs:s2safearray (sset / i entlst)
(setq i 0)
(Länge sset)
(setq entlst (cons (vlax-name->vla-object))
(Setq i (1+i)
)
(vlax-safearray-fill)
(vlax-make-safearray vlax-vbobject (cons 0 (1- (length entlst))))
Geben Sie
)
)

(principal "\command to use: cpp")
(principal)