---

Hallo,

ich muß einen Lageplan in einem anderen Maßstab ausgeben.
In diesem Plan sind einige Hundert Blöcke plaziert. Es sind unmaßstäbliche sowie maßstäbliche Symbole. (z.B. Bäume, Schachtdeckel, Grenzsteine, usw.)
Hat jemand von Euch ein LISP oder sowas, womit ich die von mir ausgewählten Blöcke mit einem bestimmten Faktor an ihrem Plazierungspunkt skalieren kann?
Über Eigenschachtsfenster geht das leider nicht, weil die Blöcke schon unterschiedliche Skalierfaktoren haben.

------------------
Mit freundlichen Grüßen

Otze Mach Ed

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

---

Basiswork.txt

"VARIA-E" und "DREHEN-E" sind die "Befehle"

------------------
- Sebastian Mattis -

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

---

(defun SKAL_INSERT ( / FAKTOR AUSWAHL OBJEKT OBJEKTDATEN) 
  (setq FAKTOR 5.0)
  (setq Auswahl (ssget  '((0 . "INSERT"))))
  (repeat (sslength AUSWAHL)                                             
    (setq OBJEKT (ssname AUSWAHL 0))                   
    (setq OBJEKTDATEN (entget OBJEKT))
    (setq OBJEKTDATEN (subst(cons 41  (* (cdr(assoc 41 OBJEKTDATEN)) FAKTOR))
                            (assoc 41 OBJEKTDATEN)
                            OBJEKTDATEN
                      )   
    )
    (setq OBJEKTDATEN (subst(cons 42  (* (cdr(assoc 42 OBJEKTDATEN)) FAKTOR))
                            (assoc 42 OBJEKTDATEN)
                            OBJEKTDATEN
                      )   
    )
    (setq OBJEKTDATEN (subst(cons 43  (* (cdr(assoc 43 OBJEKTDATEN)) FAKTOR))
                            (assoc 43 OBJEKTDATEN)
                            OBJEKTDATEN
                      )   
    )
    (entmod OBJEKTDATEN)     
    (ssdel OBJEKT AUSWAHL)     
  )
) 

------------------
- Thomas -

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

---

Hallo,

gleiches wurde bereits hier einmal behandelt.
http://www.autocad-magazin.de/forum/read.php?f=3&i=10757&t=10756

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Hallo,

ich danke Euch erst mal und werde mal alle durchtesten!

------------------
Mit freundlichen Grüßen

Otze Mach Ed

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

---

So,

@ Sebastian: Danke das funkt!!

@ Thomas: auch Danke, aber leider funkt es nicht (unbekannter Befehl: SKAL_INSERT). mach ich was falsch?

@ Holger: Hmmm, auch Dein "blkscale" funkt leider nicht.

------------------
Mit freundlichen Grüßen

Otze Mach Ed

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

---

das muß in () Klammern angegeben werden !
bei defun C:NAME - reicht der Name aus
bei defun NAME - wird es mit den Klammern aufgerufen !

------------------
- Sebastian Mattis -

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

---

entweder in der Lisp (defun c:skal_insert .... schreiben
oder Aufruf in der Befehlszeile mit (skal_insert)

------------------
- Thomas -

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

---

Hallo,

ist zwar schon einpaar Jährchen her, dass dieser Threat hier zu Ende ging. Doch habe ich heute gerade nach einem solchen Lisp-Programmchen gesucht, wie Thomas es oben beschrieben hat.

Habe es ausprobiert und es funktioniert wunderbar. Da ich mit der Lisp-Programmierung leider keine Erfahrung habe, würde ich gerne wissen: Wie muss ich obigen Code abändern, damit ich zu einer Eingabe des Skalierungsfaktors aufgefordert werde? Oben wird er ja in der Variablen FAKTOR mit 5.0 direkt fest angegeben.
Zweiter Wunsch meinerseits an das Programm: Kann man erreichen, dass nach der Skalierung der Blöcke diese ausgewählt bleiben? Um z.B. eine erneute Skalierung vornehmen zu können ohne alle Blöcke erneut auswählen zu müssen.

Vielen Dank schon mal für die Hilfe.

Gruß
nnnixx

[Diese Nachricht wurde von nnnixx am 23. Jun. 2007 editiert.]

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

---

Ersetze
(setq FAKTOR 5.0)
durch
(or(setq FAKTOR(getreal "\nFaktor:"))(setq FAKTOR 1.0))

zum Auswählen danach usw. Klar, geht auch ..
------------------
      - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Vielen Dank!! 

Funktioniert super! Habe zwar selbst schon ein bisschen mit Lisp herumexperimentiert, aber es leider nicht hinbekommen.

Kannst du mir evtl. noch verraten, wie ich es anstelle, dass die ausgewählten Blöcke nach der Skalierung auch ausgewählt bleiben? Leider hatte ich damit bis jetzt auch noch keinen Erfolg.

BTW: Super Forum hier  Bin jedesmal dankba, so schnell und fachkundig Hilfe zu bekommen. So werde ich hoffentlich auch noch "ACAD-Experte" und kann mein Wissen an andere User weitergeben.

Gruß
nnnixx

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

---

füge mal vor der letzten abschließenden Klammer 
(sssetfirst AUSWAHL AUSWAHL) ein und beles dich in der VLIDE-Hilfe zu der Funktion.

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

OK, Danke sehr.

Leider hats irgendwie nicht so geklappt mit sssetfirst. Vielleicht bin ich einfach zu grün für diese Sprache.
Naja, habe mich inzwischen auch noch mal umgesehen und löse das Problem jetzt so: Nachdem ich die Objekte mittels der Routine SKAL_INSERT skaliert habe und dann nochmals die gleichen Objekte skalieren will, starte ich den Befehl einfach nochmals. Ich werde dann wieder nach der Auswahl der Objekte gefragt. Hier gebe ich "v" ein und die gleichen Objekte werden ausgewählt und skaliert.

Gruß
nnnixx

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