Routine to set search paths, file names, and file locations

Printable View

Show 40 post(s) from this thread on one page

2007-03-05, 11:05 PM
Capn

Routine to set search paths, file names, and file locations

Enough to be dangerous... looking for help with this lisp routine that will set these specific search paths, file names, and file locations:

Thanks to rkmcswain for getting me started!

Code:

(setq paths (apply 'strcat (list "\\\\Carla\\Autodesk\\Support;" "\\\\Carla\\Autodesk\\Fonts;" (getvar "ROAMABLEROOTPREFIX") "C:\\Program Files\\Autodesk Land Desktop 2007\\support;" (getvar "LOCALROOTPREFIX") "C:\\Program Files\\Autodesk Land Desktop 2007\\help;" "C:\\Program Files\\Autodesk Land Desktop 2007\\express;" "\\\\Carla\\autodesk\\Support\\Color;" "\\\\Carla\\Autodesk\\LDD 2007;" "\\\\Carla\\Autodesk\\LDD 2007\\Land;" "C:\\Program Files\\Common Files\\Autodesk Shared\\AxUi;" "C:\\Program Files\\Autodesk Land Desktop 2007\\civil;" "C:\\Program Files\\Autodesk Land Desktop 2007\\FDO\\bin;" "C:\\Program Files\\Autodesk Civil 3D 2007\\FDO\\bin;" "C:\\Program Files\\Raster Design 2007;" "C:\\Program Files\\Autodesk Land Desktop 2007\\Support\\Lisp\\Startup;" "\\\\Carla\\autodesk\ARD 2007\Help;" ) ) ) (vla-put-SupportPath ; Device Driver File Search Path (vla-put-driverspath "\\Carla\\autodesk\\Drv") ; ; Customization Files ; ; Text Editor, Dictionary, and Font File Names (setvar "dctcust" "\\carla\\autodesk\\support\\sample.cus") (setvar "fontalt" "simplex.shx") (setvar "fontmap" "\\carla\\autodesk\\support\\acad.fmp") ; ; Print Support File Path (vla-put-PrinterConfigPath "\\Carla\\Autodesk\\Plotters\\PMP Files") (vla-put-PrinterDescPath "\\Carla\\Autodesk\\Plotters") (vla-put-PrinterStyleSheetPath "\\Carla\\Autodesk\\Plot Styles") ; ; Color Book Locations (vla-put-ColorBookPath "\\Carla\\autodesk\\Support\\Color") ; ; Template Settings (vla-put-TemplateDwgPath "\\Carla\\Autodesk\\Templates") ; Missing Sheet Set Template File (vla-put-???????????????????? "xxx") (vla-put-QNewTemplateFile "\\Carla\\Autodesk\\Templates") (vla-put-PageSetupOverridesTemplateFile "\\Carla\\Autodesk\\Templates\\Sheet Sets\\PageOverride.dwt") ; ; Tool Palettes File Locations (getvar "TOOLPALETTEPATH") paths )
2007-03-06, 02:38 AM
.T.

RE: Support w/o .arg

Quote:

Originally Posted by kirkm.89518

Enough to be dangerous... looking for help with this lisp routine that will set these specific search paths, file names, and file locations:

Thanks to rkmcswain for getting me started!

I haven't tested this, but maybe it will lead you down the path a ways on your journey:

Code:

(setq pref_files (vla-get-files (vla-get-preferences (vlax-get-acad-object)))) (setq paths (apply 'strcat (list "\\\\Carla\\Autodesk\\Support;" "\\\\Carla\\Autodesk\\Fonts;" (getvar "ROAMABLEROOTPREFIX") ";";<--Note semicolon in red "C:\\Program Files\\Autodesk Land Desktop 2007\\support;" (getvar "LOCALROOTPREFIX") ";";<--Note semicolon in red "C:\\Program Files\\Autodesk Land Desktop 2007\\help;" "C:\\Program Files\\Autodesk Land Desktop 2007\\express;" "\\\\Carla\\autodesk\\Support\\Color;" "\\\\Carla\\Autodesk\\LDD 2007;" "\\\\Carla\\Autodesk\\LDD 2007\\Land;" "C:\\Program Files\\Common Files\\Autodesk Shared\\AxUi;" "C:\\Program Files\\Autodesk Land Desktop 2007\\civil;" "C:\\Program Files\\Autodesk Land Desktop 2007\\FDO\\bin;" "C:\\Program Files\\Autodesk Civil 3D 2007\\FDO\\bin;" "C:\\Program Files\\Raster Design 2007;" "C:\\Program Files\\Autodesk Land Desktop 2007\\Support\\Lisp\\Startup;" "\\\\Carla\\autodesk\ARD 2007\Help;" ))) (vla-put-SupportPath pref_files path) ; Device Driver File Search Path (vla-put-driverspath pref_files "\\Carla\\autodesk\\Drv") ; Customization Files ; ; Text Editor, Dictionary, and Font File Names (setvar "dctcust" "\\carla\\autodesk\\support\\sample.cus") (setvar "fontalt" "simplex.shx") (setvar "fontmap" "\\carla\\autodesk\\support\\acad.fmp") ; Print Support File Path (vla-put-PrinterConfigPath pref_files "\\Carla\\Autodesk\\Plotters\\PMP Files") (vla-put-PrinterDescPath pref_files "\\Carla\\Autodesk\\Plotters") (vla-put-PrinterStyleSheetPath pref_files "\\Carla\\Autodesk\\Plot Styles") ; Color Book Locations (vla-put-ColorBookPath pref_files "\\Carla\\autodesk\\Support\\Color") ; Template Settings (vla-put-TemplateDwgPath pref_files "\\Carla\\Autodesk\\Templates") ; Missing Sheet Set Template File (vla-put-???????????????????? "xxx") (vla-put-QNewTemplateFile pref_files "\\Carla\\Autodesk\\Templates") (vla-put-PageSetupOverridesTemplateFile pref_files "\\Carla\\Autodesk\\Templates\\Sheet Sets\\PageOverride.dwt") ; Tool Palettes File Locations ;(getvar "TOOLPALETTEPATH"); I'm not sure where you are going here...but maybe: (vla-put-toolpalettepath pref_files "\\Carla\\Autodesk\\Tool Palettes")

HTH
2007-03-06, 02:51 PM
Capn

RE: Routine to set search paths, file names, and file locations

I appreciate the help! I just tested the lisp and received the following error:

(LOAD "//carla/autodesk/Support/acad2007test4a.lsp") ; error: ActiveX
Server returned an error: Parameter not optional
2007-03-06, 04:03 PM
Opie

Quote:

Originally Posted by kirkm.89518

I appreciate the help! I just tested the lisp and received the following error:

(LOAD "//carla/autodesk/Support/acad2007test4a.lsp") ; error: ActiveX
Server returned an error: Parameter not optional

Try adding (vl-load-com) to the beginning of the routine.
2007-03-06, 04:09 PM
Capn

RE: Routine to set search paths, file names, and file locations

That didn't work either, same problem:

Command: (LOAD "//Carla/autodesk/Support/acad2007test4a.lsp") ; error: ActiveX
Server returned an error: Parameter not optional
2007-03-06, 05:48 PM
.T.

RE: Routine to set search paths, file names, and file locations

Quote:

Originally Posted by kirkm.89518

That didn't work either, same problem:

Command: (LOAD "//Carla/autodesk/Support/acad2007test4a.lsp") ; error: ActiveX
Server returned an error: Parameter not optional

Oops, typo: :Oops:

Code:

(vla-put-SupportPath pref_files path)

should be:

Code:

(vla-put-SupportPath pref_files paths)

There may be more; we'll just have to work through it...

And yes, add (vl-load-com) as the first line as Opie suggested.
2007-03-06, 06:03 PM
Capn

Well that took me to the next step, unfortunately it was another error:

Command: (LOAD "//Carla/autodesk/Support/acad2007test4a.lsp") ; error: AutoCAD
variable setting rejected: "fontmap" "carlaautodesksupportacad.fmp"

...yes acad.fmp does exist in the support folder
2007-03-06, 06:09 PM
Opie

Quote:

Originally Posted by kirkm.89518

Well that took me to the next step, unfortunately it was another error:

Command: (LOAD "//Carla/autodesk/Support/acad2007test4a.lsp") ; error: AutoCAD
variable setting rejected: "fontmap" "carlaautodesksupportacad.fmp"

...yes acad.fmp does exist in the support folder

Can you open this file in the VLIDE? You can then set a break point and step through the routine one step at a time to find out what is not working.
2007-03-06, 06:17 PM
kennet.sjoberg

RE: Routine to set search paths, file names, and file locations

Quote:

Originally Posted by kirkm.89518

. . ."carlaautodesksupportacad.fmp". . .

...hmmm something strange is going on here.
Are AutoCAD not treating \\ in the same way anymore ?
try single / or add drivename X: C: or . . .

: ) Happy Computing !

kennet
2007-03-06, 06:22 PM
Opie

Quote:

Originally Posted by kennet.sjoberg

...hmmm something strange is going on here.
Are AutoCAD not treating \\ in the same way anymore ?
try single / or add driver name X: C: or . . .

: ) Happy Computing !

kennet

kennet, that looks more like the forum's spell checker messing with the slashes.

Show 40 post(s) from this thread on one page