IF statements on a list within an external text file.

[BIGAL]

We use this when making a new box but you could easily add in if statements etc

; This sets a reference to the install path of your product
; the gets are their for info maybe other use
(vl-load-com)
; make temp directory
;(vl-mkdir "c:\\ACADTEMP")
(setq *files*  (vla-get-files  (vla-get-preferences (vlax-get-acad-object))))
; savepath
;(vla-get-AutoSavepath *files*)
(vla-put-AutoSavepath *files* "C:\\ACADTemp")
; custom icons
;(vla-get-CustomIconPath *files*))
(vla-put-CustomIconPath *files* "S:\\Autodesk\\ICONS")
; printers config
;(vla-get-PrinterConfigPath *files*)
(vla-put-PrinterConfigPath *files* "S:\\AutoDESK\\Plotting\\Plot Styles 2011")
; printers style sheet
;(vla-get-PrinterStyleSheetPath *files*)
(vla-put-PrinterStyleSheetPath *files* "S:\\AutoDESK\\Plotting\\Plot Styles")
; printer drv's
;(vla-get-PrinterDescPath *files*)
(vla-put-PrinterDescPath *files* "S:\\AutoDESK\\Plotting\\Drv")
; print spooler
;(vla-get-PrintSpoolerPath *files*)
(vla-put-PrintSpoolerPath *files* "C:\\ACADTemp\\")
; template location
;(vla-get-QnewTemplateFile *files*)
(vla-put-QnewTemplateFile *files* "S:\\Autodesk\\c3d Templates\\cogg.dwt")
;make new support paths exist + new
(setq paths (vla-get-SupportPath *files*))
 
 (setq mygpaths 
  "S:\\autodesk\\supportfiles;
  S:\\autodesk\\lisp;
  S:\\autodesk\\fonts;
  S:\\autodesk\\hfs fonts;"
  )
(setq newpath (strcat mygpaths paths))
(vla-put-SupportPath *files* newpath)
; Tempdirectory 
;(vla-get-TempFilePath *files*))
(vla-put-TempFilePath *files* "C:\\ACADTemp\\")
; template  path
;(vla-get-TemplateDwgPath *files*)
(vla-put-TemplateDwgPath *files* "S:\\Autodesk\\c3d Templates")
; xref temp path
;(vla-get-TempXrefPath *files*))
(vla-put-TempXrefPath *files* "C:\\ACADTemp\\")
; end use of *files*
(vlax-release-object *files*)
; exit quitely
(princ "All Done")

[monk]

Looks good BIGAL. I think we achieve the same thing just with different ways of doing it I am mainly looking at remote administration and gaining feedback via the log file creator. Thanks.

[BIGAL]

Not sure if you are aware but you can get login name from within Autocad (GETENV "username")you may be able to do 1 batch file that checks username and then copys correct profile as you start Autocad you would edit the command line in your Autocad desktop Icon.

[Lee Mac]

Not sure if you are aware but you can get login name from within Autocad (GETENV "username")

Also,

(getvar 'LOGINNAME)

[monk]

I use this:

(getvar "LOGINNAME")

What does the >> ' << mean? as per your example?

(getvar 'LOGINNAME)

[Lee Mac]

In LISP, the apostrophe means "do not evaluate this expression" and so any expression preceded with an apostrophe is taken at face-value.

Now look at the documentation for the getvar function (equally for setvar):

getvar

Retrieves the value of an AutoCAD system variable.

(getvar varname)

Arguments
varname A string or symbol that names a system variable.

Return Values
The value of the system variable; otherwise nil, if varname is not a valid system variable.

[monk]

Awesome I understand

[Lee Mac]

Good stuff