Hallo Matthias,
kann es sein, dass "multivaria" aus Deiner Applikation stammt? dann probier einfach mal Befehl: mvaria
Ein ähnliches Tool wurde vor längerem hier mal gepostet:
;******************************************************************************
;VARIA von Objekten die einen definierten Einfügepunkt haben.
;(Texte, Blöcke, Kreise ect.)
;******************************************************************************
(defun c:VARIA-E (/ faktor aus n i nam ins)
(terpri)(terpri)
(setvar "cmdecho" 0)
(princ "\nDer VARIA-BASIS-PUNKT ... ist der jeweilige Objekt-Einfügepunkt.")
(setq faktor (getreal "\nVergrößerungsfaktor für die Objekte: "))
;-----Auswaehlen---------------------------------------------------------------
(setq aus (ssget) as aus) ;aus=Auswahl der Elemente
(setq n (sslength aus)) ;n=Anzahl der Elemente (max)
(command "_ucs" "_w")
(setq i 0) ;Zaehler auf 0
;-----Bearbeiten---------------------------------------------------------------
(setvar "cmdecho" 0)
(while (< i n) ;solange wie Zaehler < max
(setq nam (ssname aus i)) ;jedem i aus Auswahl einen Namen
(setq ins (cdr (assoc 10 (entget nam))))
(command "_scale" nam "" ins faktor) ;nam=nur ein Element
(setq i(1+ i)) ;Zaehler eins weiter
) ;while
(command "_ucs" "_p")
(princ)
) ;defun
------------------
Grüße Karin
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP