---

Guten Morgen,

ich würde gerne wissen, ob und wie man den Wert von psltscale für ALLE Layouts auf einmal steuern kann. Version ist ACAD 2002 und ohne erstellen einer neuen .dwt, da ich hier keine Schreibrechte habe.

Danke, Jörg

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

---

Für Alle LayoutŽs ? oder
für alle Ansichtsfenster eines Layouts ? oder
für alle Ansichtsfenster in allen Layouts ? , Antwort :

garnicht, zumindest fällt MIR gerade keine AutoCAD-Möglichkeit ein.

Keine Schreibrechte !? OK, um die einstellung zu ändern welche DWT bei SNEU
geladen wird, aber du wirst doch "irgendwohin" eine DWT speichern können, wenn
du das nicht könntest brauchst du ja nicht zu arbeiten weil du deine Arbeit ja nicht
speichern kannst !?

Wenn du eine neue Datei über das Startdialogfeld erstellst kannst du "deine" DWT
auswählen (die du vorher gespeichert hast).
Also in den Optionen/Reiter System/ Start - Startdialogfeld nutzen.. AN und nun
bietet dir der Befehl NEU die Möglichkeit zur Auswahl.

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

---

Hi Jörg,

es gibt hier ein Lisp, das alle Ansichtsfenster sperrt, dazu muss es ja auch alle abfragen, vielleicht kann jemand, der des Lispelns mächtig ist, da noch einen Zusatz reinbasteln. Das kann man aufrufen und ablaufen lassen... Ich habe keine Ahnung ob es geht oder wie viel Aufwand es ist, es ist nur ein Gedanke... http://ww3.cad.de/foren/ubb/Forum145/HTML/000854.shtml das ist der Link zu dem Lisp.

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

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

---

Hi,

so früh am Tag und schon etwas dazu gelernt: Ich wusste gar nicht, dass PSLTSCALE für jedes Layout separat geschaltet werden kann. 

Hier ein Lisp, das alle Layouts inkl. Modellbereich durchgeht und PSLTSCALE wie gewünscht schaltet. Aufruf mit (SetPSLTSCALE 0), bzw. (SetPSLTSCALE 1)

Code:

---

(defun SetPSLTSCALE (mode / currtab acdoc)
  (if (<= 0 mode 1)
    (progn
      (setq currtab (getvar "CTAB"))
      (setq acdoc
    (vlax-get-property
      (vlax-get-acad-object)
      'Activedocument
    )
      )
      (mapcar
'(lambda (x)
  (setvar "CTAB" x)
  (if
    (= acPaperSpace
(vlax-get-property acdoc 'ActiveSpace)
    )
      (vlax-put-property acdoc 'MSpace :vlax-false)
  )
  (setvar "PSLTSCALE" mode)
)
(cons "Model" (layoutlist))
      )
      (vlax-release-object acdoc)
      (setvar "CTAB" currtab)
    )
  )
  (princ)
)

---

Gruß
CADchup

------------------
www.cadditions.de

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

---

@cadchup: sowas hatte ich gemeint, danke.

And the UŽs goes to...

gruß, Jörg

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