Lisp Routine for setting The pipe network catalog
McJudge, sorry I didn't look closer at your code the other day. There are definitely some typos and incorrect usage of the vl-registry-* functions. This should help with that:
(setq netprefpath (strcat "HKEY_CURRENT_USER\\" (if vlax-user-product-key (vlax-user-product-key) (vlax-product-key) ) "\\Profiles\\<<C3D_Imperial>>\\Preferences\\AeccUiNetwork100\\")) (setq pipecatpath1 (vl-registry-read netprefpath "16C49365-B844-484b-92CE-9A8ACE681B57") (if (/= pipecatpath1 "C:\\ProgramData\\Autodesk\\C3D 2014\\enu\\Pipes Catalog\\US Imperial Pipes\\US Imperial Pipes.apc") (vl-registry-write netprefpath "16C49365-B844-484b-92CE-9A8ACE681B57" "L:\\Resource Library\\Cad\STANDARDS\\Civ\\Pipes_Catalog\\US Imperial Pipes\\US Imperial Pipes.apc")
I do seem to recall seeing a post about reinitializing C3D so it will read the new registry values, but I'm drawing a blank as to how to do so.
@tyronebk Thanks for clarifying that. It's been so long since I've tried doing any of this my mind was a bit foggy on it.
I have a lisp routine that changes Pipe Network Catalogs and works well.
Feel free to modify as you need.
Here is the code below:
;;;===================================Aecc Shared Content path=============================================
(defun SetAeccSharedContentPath (v)
(vl-load-com)
(vl-registry-write
(strcat
"HKEY_CURRENT_USER\\"
(vlax-product-key)
"\\Profiles\\"
(vla-get-activeprofile
(vla-get-profiles
(vla-get-preferences (vlax-get-acad-object))
)
)
"\\Preferences\\AeccUiNetwork100" ;;****AeccUiNetwork100**** could change in future versions
)
"SharedContentPath"
v
)
);defun
;;;=========================================================================================================
;;;===================================US Imperial Pipes=====================================================
(defun SetUSImperialPipes (v)
(vl-load-com)
(vl-registry-write
(strcat
"HKEY_CURRENT_USER\\"
(vlax-product-key)
"\\Profiles\\"
(vla-get-activeprofile
(vla-get-profiles
(vla-get-preferences (vlax-get-acad-object))
)
)
"\\Preferences\\AeccUiNetwork100" ;;****AeccUiNetwork100**** could change in future versions
)
"16C49365-B844-484b-92CE-9A8ACE681B57" ;;This guid code could change in future versions
v
)
);defun
;;;=========================================================================================================
;;;===================================US Imperial Structures================================================
(defun SetUSImperialStructures (v)
(vl-load-com)
(vl-registry-write
(strcat
"HKEY_CURRENT_USER\\"
(vlax-product-key)
"\\Profiles\\"
(vla-get-activeprofile
(vla-get-profiles
(vla-get-preferences (vlax-get-acad-object))
)
)
"\\Preferences\\AeccUiNetwork100" ;;****AeccUiNetwork100**** could change in future versions
)
"DCE203A2-D381-466f-A23E-08A9D9F8FDBD" ;;This guid code could change in future versions
v
)
);defun
;;;=========================================================================================================
;;;===================================Metric Pipes=====================================================
(defun SetMetricPipes (v)
(vl-load-com)
(vl-registry-write
(strcat
"HKEY_CURRENT_USER\\"
(vlax-product-key)
"\\Profiles\\"
(vla-get-activeprofile
(vla-get-profiles
(vla-get-preferences (vlax-get-acad-object))
)
)
"\\Preferences\\AeccUiNetwork100" ;;****AeccUiNetwork100**** could change in future versions
)
"F670B5B9-DA12-476d-B461-4FB5C5650A82" ;;This guid code could change in future versions
v
)
);defun
;;;=========================================================================================================
;;;===================================Metric Structures================================================
(defun SetMetricStructures (v)
(vl-load-com)
(vl-registry-write
(strcat
"HKEY_CURRENT_USER\\"
(vlax-product-key)
"\\Profiles\\"
(vla-get-activeprofile
(vla-get-profiles
(vla-get-preferences (vlax-get-acad-object))
)
)
"\\Preferences\\AeccUiNetwork100" ;;****AeccUiNetwork100**** could change in future versions
)
"F1FEBE2D-D589-4f85-BF8E-650ED06A5EA5" ;;This guid code could change in future versions
v
)
);defun
;;;=========================================================================================================
;;;===================================AUTO RUN THE SETTINGS PIPES=================================
(SetAeccSharedContentPath "C:\\My\\Catalog\\Location\\Pipes Catalog\\Aecc Shared Content")
(SetUSImperialPipes "C:\\My\\Catalog\\Location\\Pipes Catalog\\US Imperial Pipes\\US Imperial Pipes.apc")
(SetUSImperialStructures "C:\\My\\Catalog\\Location\\Pipes Catalog\\US Imperial Structures\\US Imperial Structures.apc")
(SetMetricPipes "C:\\My\\Catalog\\Location\\Pipes Catalog\\Metric Pipes\\Metric Pipes.apc")
(SetMetricStructures "C:\\My\\Catalog\\Location\\Pipes Catalog\\Metric Structures\\Metric Structures.apc")
(princ "\nPipe Catalog is set... \n")
(princ)
;;;=========================================================================================================
Steve Hill,Civil Designer / .NET Developer / AutoCAD and AutoCAD Civil 3D Certified Professional
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
http://redtransitconsultants.com/
Autodesk Exchange Store
Twitter | LinkedIn | YouTube
Next question.
What determines the "current" pipe catalog and structure catalog?
The registry lists Imperial and Metric, but what makes one or the other the 'current' drop-down choice in the dialog?
What version are you using @C3DJAKE? The code I posted seems to work fine for me...
With one caveat I encountered in 2017... Autodesk changed the AeccUiNetwork100 to AeccUiNetwork110 in 2017. So for Pipes, I added an additional sub for both pipe and structures similar to what's posted below. Then call these subs based on the product version that calls this lisp routine into action...
(defun SetUSImperialPipes (v)
(vl-load-com)
(vl-registry-write
(strcat
"HKEY_CURRENT_USER\\"
(vlax-product-key)
"\\Profiles\\"
(vla-get-activeprofile
(vla-get-profiles
(vla-get-preferences (vlax-get-acad-object))
)
)
"\\Preferences\\AeccUiNetwork100" ;;****AeccUiNetwork100**** could change in future versions
)
"16C49365-B844-484b-92CE-9A8ACE681B57" ;;This guid code could change in future versions
v
)
);defun
(defun SetUSImperialPipes2017 (v)
(vl-load-com)
(vl-registry-write
(strcat
"HKEY_CURRENT_USER\\"
(vlax-product-key)
"\\Profiles\\"
(vla-get-activeprofile
(vla-get-profiles
(vla-get-preferences (vlax-get-acad-object))
)
)
"\\Preferences\\AeccUiNetwork110" ;;****AeccUiNetwork110**** could change in future versions
)
"16C49365-B844-484b-92CE-9A8ACE681B57" ;;This guid code could change in future versions
v
)
);defun
Steve
Steve Hill,Civil Designer / .NET Developer / AutoCAD and AutoCAD Civil 3D Certified Professional
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
http://redtransitconsultants.com/
Autodesk Exchange Store
Twitter | LinkedIn | YouTube
Can you post a screen shot of your catalog folder? For instance this is mine...
Steve Hill,Civil Designer / .NET Developer / AutoCAD and AutoCAD Civil 3D Certified Professional
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
http://redtransitconsultants.com/
Autodesk Exchange Store
Twitter | LinkedIn | YouTube
