am einfachsten mit ActiveX :
(not(vl-catch-all-error-p
(vl-catch-all-apply
'vla-put-name
(list(vla-get-activelayout
(vla-get-activedocument
(vlax-get-acad-object)
)
)
"NEUERNAME"
)
)
)
)
------------------

- Thomas -
"Bei 99% aller Problemen ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."[Diese Nachricht wurde von CADmium am 07. Okt. 2004 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP