---

den PSLTSCALE in allen Layouts ändern ohne diese umzuschalten:
hier mein Ansatz, nachdem es mich genervt hat, daß die Proggis die ich gefunden habe immer nur nach dem Umschalten ein setvar durchführen dachte ich mir, daß das ja auch anders funktionieren muss.

getestet unter AutoCad 2009 (DE)

Code:

---

(defun sw*set-psltscale-all (FLAG / LAYENT NEUELISTE)
  (if (and FLAG
  (member FLAG '(0 1))
      )
    (vlax-for LAYOUT
    (vla-get-layouts
      (vla-get-activedocument (vlax-get-acad-object))
    )
      (if (= (getvar "CTAB") (vla-get-Name LAYOUT))
(setvar "psltscale" FLAG)
(progn
  (setq LAYENT (entget (vlax-vla-object->ename LAYOUT)))
  (append!
    'NEUELISTE
    (reverse (member '(100 . "AcDbLayout") (reverse LAYENT)))
  )
  (foreach PAIR (cdr (member '(100 . "AcDbLayout") LAYENT))
    (append! 'NEUELISTE
    (if (= 70 (car PAIR))
      (list (cons 70 FLAG))
      (list PAIR)
    )
    )
  )
  (entmod NEUELISTE)
  (entupd (vlax-vla-object->ename LAYOUT))
  (setq NEUELISTE nil
LAYENT nil
  )
)
      )
    )
  )
)

(defun append!(symbol1 liste2 / )
  (set symbol1(append(eval symbol1)liste2))
)

---

lg
Wolfgang S

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

---

Ich weiß - es ist lange her, aber jetzt hat ein Kollege den "Wunsch" den PSLTSCALE in jedem Layout auf 0 zu setzen ... irgendwie funktioniert aber der Code nicht.
Müsste nicht in der ersten Zeile nach defun c: stehen? Oder wie wird die Lisp sonst aufgerufen?
Wir arbeiten mit AC2013 ...

Wäre über einen Hinweis dankbar
chris

------------------
www.Gestalten-mit-AutoCAD.de

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

---

defun c:irgendwas definiert AutoCAD-Befehl, hier kann man keine Parameter übergeben, daher schlecht in anderem Code verwenden.

(sw*set-psltscale-all 0)

Das würde samt Klammer deinem Wunsch entsprechen.

mit (defun c:PSLTSCALEall0 nil (sw*set-psltscale-all 0))
Hätte man einen AutoCAD-Befehl der das macht..

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Der Code funktuioniert auch in AutoCAD 2016 und muss so aufgerufen werden:

Code:

---

(sw*set-psltscale-all 0)

---

Das ist eine reine LISP Funktion mit Parameter - keine Funktion die als Command (dann mit C: aber ohne Parameter) aufgerufen werden kann.

Mann kann aber noch eine Funktion dazuprogrammieren

Code:

---

(defun C:SETPSLTSCALE0 ()
(sw*set-psltscale-all 0)
)

---

aber ob das notwendig ist in diesem Fall?

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

DANKE! Das wars und ich kann es weitergeben.
Chris

------------------
www.Gestalten-mit-AutoCAD.de

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

---

Hallo!

Leider bin ich was LISP angeht ein Vollt...

Kann ich diese einfache Funktion auch ohne extra "Datei" oder "Programm" starten? Einfach in der Befehlszeile? Ich hatte mal ein LISP, das komplett in der Befehlszeile zu sehen war, aber bei dieser Zeile  (sw*set-psltscale-all 0)  sagt AutoCAD nur

Fehler: no function definition: SW*SET-PSLTSCALE-ALL

Arbeite seit 2 Wochen mit AutoCAD2020

Danke,
Iris

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

---

ohne jetzt geteste zu haben das sollte gehen !
kopiere erst einmal
(defun sw*set-psltscale-all (FLAG / LAYENT NEUELISTE)
...
...
)
und dann den 2ten Befehl
(defun append!(symbol1 liste2 / )
...
)
und dann teste noch einmal mit
(sw*set-psltscale-all 0)

------------------
Gruß Wolfgang

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

---

Hi Meldin! Danke! Ich hab das grad wieder rausgekramt... nach dem 3. Befehl sagt er 'nil' ?

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

---

Das ist doch super wenn es läuft.
Hattest du noch Probleme oder eine Frage, oder warum teilst du uns allen das mit?

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

---

Ich dachte, das nil wäre eine Fehlermeldung, tut mir leid! Ich hab später festgestellt, dass es ja funktioniert hat. Vielleicht hilft das ja doch och jemandem, der genauso doof ist wie ich. Ich hatte das noch nie bei den anderen LISPs gesehen, dass er das am Ende schreibt.

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

---

zumindest aufgepast, finde die Anmerkung auch nicht schlecht ...

Eine Zeile mit ner Ordentlicher "EOF" Meldung wäre sicher nicht verkehrt

cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

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

---

Jepp, nil ist keine Fehlermeldung.
Setze vor die letzte (schliessende) Klammer folgendes ein:
(princ)

Oder (princ "\nend")(princ)

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