Community
What makes you think you are doing something wrong? If it's that you don't see the result immediately, it's likely because C3D doesn't reread the paths automatically. It's been a few years since I looked into this, but I think I recall that since you don't edit the paths in memory, when you exit C3D whatever your lisp changes it to gets overwritten with what is in memory. So you are fighting a losing battle....I could be wrong, though.
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.
Also, do not put anything into the acad20XX.lsp file. Instead, create your own acad.lsp file, put all of your custom code that runs at session startup in there. Put in your own customization folder and add that folder to Autocad's Support path. That way you edits will not be wiped out when you apply a Service Pack or need to uninstall. Plus, when you move to the next version, all you need do is add the Support Path to the new install.
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 Certified Professional
AutoCAD Civil 3D Certified Professional
http://redtransitconsultants.com/
Autodesk Exchange Store
Twitter | LinkedIn
Please select the Accept this solution button if my post solves your issue or answers your question.
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 Certified Professional
AutoCAD Civil 3D Certified Professional
http://redtransitconsultants.com/
Autodesk Exchange Store
Twitter | LinkedIn
Please select the Accept this solution button if my post solves your issue or answers your question.
Can you post a screen shot of your catalog folder? For instance this is mine...
Steve Hill
Civil Designer / .NET Developer
AutoCAD Certified Professional
AutoCAD Civil 3D Certified Professional
http://redtransitconsultants.com/
Autodesk Exchange Store
Twitter | LinkedIn
Please select the Accept this solution button if my post solves your issue or answers your question.
Can't find what you're looking for? Ask the community or share your knowledge.
Post to forums
![Autodesk Design & Make Report](https://forums.autodesk.com/t5/image/serverpage/image-id/1350519iCB55845EBFC43016/image-size/large?v=v2&px=999" "Autodesk Design & Make Report")