---

Hallo liebe Forumsnutzer,
ich möchte mehrere Kreise gleichzeitig mit einem Faktor skalieren, so daß der jeweilige Mittel- bzw. Basispunkt erhalten bleibt.
Habe im Forum schon folgendes gefunden:
Da ich mich leider mit lisp nicht auskenne meine Frage, wie und wo ich das eingeben kann. Falls das überhaupt für einen Anfänger auf diesem Gebiet praktikabel ist wäre ich für Hilfestellung sehr dankbar.
Gruß dh

;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 "bks" "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 "varia" nam "" ins faktor) ;nam=nur ein Element
  (setq i(1+ i)) ;Zaehler eins weiter
) ;while
(command "bks" "v")
(princ)
) ;defun

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

---

Hi und Herzlich Willkommen

also zuerst mal, das geht relativ einfach 
Dann als Tipp: Der User FAQ hat viele gute Beiträge geschrieben, auch wie man Lisps läd (Suche verwenden)
du speicherst diese Datei als varia-kreis.lsp in einem Support-Pfad von Autocad ab (Optionen-Dateien-Supportdateien).

------------------
Gruß Yvonne                                ADT-Help-Site

"Die Erinnerung ist das einzige Paradies,
woraus wir nicht vertrieben werden können." Jean Paul (1763-1825)

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

---

Tausend Dank,
das ging ja superfix.
Ich hatte das schon als lsp gespeichert, wußte nur nicht, daß man als befeht nicht den Dateinamen benutzt. funktioniert schon und hat mir Stunden Arbeit erspart.
Gruss dh

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