---

Hallo,

des öffteren habe ich mich früher über sich selbst verstellende Sysvars geärgert.Habe mir eine Datei sysvars.lsp erzeugt in der ich nachfolgende Sysvars einstellen lasse
(setvar "Attdia" 1)
(setvar "PDmode" 0)
(setvar "OSNAPCOORD" 1)
(setvar "TEXTFILL" 1)
(setvar "Regenmode" 1)
(setvar "UCSFOLLOW" 0)
(setvar "UCSICON" 1)
(setvar "Pickstyle" 0)
(setvar "Pickfirst" 1)
(setvar "Edgemode" 1)
(setvar "PSLTSCALE" 0)
(setvar "Fontalt" "ISO8FW.shx")
(setvar "COORDS" 2)
(setvar "Gripblock" 1)

Dann habe ich mir ein Makro gebastelt das erst bereinigt, dann meine Vorlage mit Layern,Linientypen,Textstilen,Bemstilen einfügt.Danach werden die Sysvars richtig eingestellt und eine Prüfung durchgeführt.

^C^C-bereinig;al;;n;-einfüge;*MeineVorlage;0,0,0;1;;_audit;j ^C^C^P(load "sysvars")

das ab und zu in der Zeichnung ausgeführt, und alles ist immer OK in meinem Sinne.

[Diese Nachricht wurde von AsSchu am 03. Mai. 2004 editiert.]

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

---

oft werden diverse sys-variablen in diversen lisp-programmen verstellt (weil sie dort so benötigt werden)

wird jetzt ein lisp mit esc abgebrochen, werden siese dann meist nicht richtig zurückgesetzt, (wer programmiert schon eine richtige error-routine)

ich hab mir sowas ähnliches gebastelt
in einem  lisp-start reaktor merke ich mir alle wichtigen sys-vars und setzte sie in einem  lisp-ended und lisp-cancell reaktor wieder richtig zurück
bei einem lisp-abbruch usw. werden alle meine wichtigen sys-vars wieder hergestellt.

------------------

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

---

Ich benutze eine bzw. zwei Funktion(en) die mir die Variablen in eine Ascii-Datei speichert bzw in AutoCAD einliest.

Code:

---

[...]
  (setq f (open "X:\\NORM\\PROXY.VARS" "w"))
  (write-line "'(" f)
  (mapcar '(lambda (VAR)
    (write-line
      (strcat "(\"" VAR "\" . " (itoa (getvar VAR)) ")")
      f
    )
  )
  '(
[...]
eine Menge von Systemvariablen
[...]
  )
  )
  (write-line ")" f)
Und ein paar Klammerzu

----------------------------------------------------------------

[...]
  (mapcar '(lambda (VAR)
    (setvar (car VAR) (cdr VAR))
  )
  (load "X:\\NORM\\PROXY.VARS")
  )
[...]

---

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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