lisp voor Printer Description File search Path ? (opgelost)

[balletje23]

Wie weet een lisp net als hieronder voor
Printer Support file path->> Printer Description File search Path


(defun C:styleu()
(setenv  "PrinterStyleSheetDir" "\\\\\S31000800\\appl$\\Acad2010\\Plotten\\Plot Styles")
)

[sschevers]

Code Selecteer Uitklappen


(defun C:Desceu()
   (setenv  "PrinterDescDir" "pad naar pmp")
)




groeten stephan

[balletje23]

Code Selecteer Uitklappen


(defun C:Desceu()
   (setenv  "PrinterDescDir" "pad naar pmp")
)




groeten stephan

Ja hij werkt perfect dankjewel!!

nog wel 1 vraagje

Met commando changeplot wil ik alle instelling veranderen. Welke lisp code heb ik dan nodig?



(defun C:changeplot()
(setenv  "PrinterStyleSheetDir" "\\\\\S31000800\\appl$\\Acad2010\\Plotten\\Plot Styles")
)


(defun C:changeplot()
   (setenv  "PrinterDescDir" "\\\\\S31000800\\appl$\\Acad2010\\Plotten\\Files pmp")
)

(defun C:changeplot()
   (setenv  "config...." "\\\\\S31000800\\appl$\\Acad2010\\Plotten\\plotters")
)

[sschevers]

Als je de paden in een keer  wil aanpassen voer alle setenv commando's in een lisp uit

Code Selecteer Uitklappen



(defun C:changeplot()
   (setenv  "PrinterStyleSheetDir" "\\\\\S31000800\\appl$\\Acad2010\\Plotten\\Plot Styles")
   (setenv  "PrinterDescDir" "\\\\\S31000800\\appl$\\Acad2010\\Plotten\\Files pmp")
   (setenv  "config...." "\\\\\S31000800\\appl$\\Acad2010\\Plotten\\plotters")
)


groeten

stephan

[balletje23]

Als je de paden in een keer  wil aanpassen voer alle setenv commando's in een lisp uit

Code Selecteer Uitklappen



(defun C:changeplot()
   (setenv  "PrinterStyleSheetDir" "\\\\\S31000800\\appl$\\Acad2010\\Plotten\\Plot Styles")
   (setenv  "PrinterDescDir" "\\\\\S31000800\\appl$\\Acad2010\\Plotten\\Files pmp")
   (setenv  "config...." "\\\\\S31000800\\appl$\\Acad2010\\Plotten\\plotters")
)

groeten

stephan


yes dat is hem dankjewel thxxxx
[/code]