and while I'm thinking about Development,
a couple of things to play with file pathing ...
;|
(setq DevPaths (list "K:\\kdubpro2010;"
"K:\\kdubpro2010\\source\\pipefittings;"
)
)
(AddDevPath DevPaths)
(RemoveDevPath DevPaths)
|;
;;
;; Prefix AutoCAD's Support File Search Path
;; with development folder names.
;; KerryBrown@theSwamp
;;
(defun AddDevPath (DevPaths / IAcadPreferencesFiles pathsString)
(vl-load-com)
(setq IAcadPreferencesFiles (vla-get-files
(vla-get-preferences (vlax-get-acad-object))
)
pathsString (vla-get-supportpath IAcadPreferencesFiles)
)
(vla-put-supportpath IAcadPreferencesFiles
(strcat (apply 'strcat DevPaths) pathsString)
)
(princ)
)
;;
;; Remove development folder names
;; from AutoCAD's Support File Search Path.
;; KerryBrown@theSwamp
;;
(defun RemoveDevPath (DevPaths / IAcadPreferencesFiles pathsString DevPaths)
(vl-load-com)
(setq IAcadPreferencesFiles (vla-get-files
(vla-get-preferences (vlax-get-acad-object))
)
pathsString (vla-get-supportpath IAcadPreferencesFiles)
)
(foreach path DevPaths
(setq pathsString (vl-string-subst "" path pathsString))
)
(vla-put-supportpath IAcadPreferencesFiles pathsString)
(princ)
)