Aftertouch Posted January 4, 2023 Share Posted January 4, 2023 Hello all, I am looking for a way to make a 'default' way to create Etransmits for our company. I am running in a few problems here... Is seems like i cannot change the 'transmittal setup' trough Lisp, is that correct? So... i was thinking to create a new 'Transmittal setup' and share this with my co-workers. but i cannot seem to be able to import/export a etransmittal setup? Is there no way to do this? Quote Link to comment Share on other sites More sharing options...
ronjonp Posted January 4, 2023 Share Posted January 4, 2023 Etransmit settings are stored in the registry: Quote Computer\HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R24.2\ACAD-6101:409\ETransmit\Setups\BIND Assuming you're all on the same version of CAD you could export these keys and import. ( Untested ) You could also look at all the subkeys and their values and possibly write them using lisp: 2 1 Quote Link to comment Share on other sites More sharing options...
Aftertouch Posted January 5, 2023 Author Share Posted January 5, 2023 Alright, seems like thats the only way. Nailed it: Works like a charm. Thanks for the direction. (setq regeditetransmit (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Etransmit\\setups\\COMPANY SETUP")) (vl-registry-write regeditetransmit) (vl-registry-write regeditetransmit "AEC_EXPLODE_DWG" 0) (vl-registry-write regeditetransmit "AEC_TEMP_SETUP" 0) (vl-registry-write regeditetransmit "BindType" 0) (vl-registry-write regeditetransmit "BindXref" 0) (vl-registry-write regeditetransmit "Description" "") (vl-registry-write regeditetransmit "DestFile" "") (vl-registry-write regeditetransmit "DestFileAction" 0) (vl-registry-write regeditetransmit "DestFolder" "") (vl-registry-write regeditetransmit "FilePathOption" 0) (vl-registry-write regeditetransmit "IncludeDataLinkFile" 1) (vl-registry-write regeditetransmit "IncludeFont" 1) (vl-registry-write regeditetransmit "IncludeMaterialTextures" 1) (vl-registry-write regeditetransmit "IncludePhotometricWebFile" 1) (vl-registry-write regeditetransmit "IncludeSSFiles" 1) (vl-registry-write regeditetransmit "IncludeUnloadedReferences" 0) (vl-registry-write regeditetransmit "Name" "COMPANY SETUP") (vl-registry-write regeditetransmit "PackageType" 0) (vl-registry-write regeditetransmit "PurgeDatabase" 0) (vl-registry-write regeditetransmit "RootFolder" "") (vl-registry-write regeditetransmit "SaveDrawingFormat" 6) (vl-registry-write regeditetransmit "SendMail" 0) (vl-registry-write regeditetransmit "SetPlotterNone" 0) (vl-registry-write regeditetransmit "ShowInFolder" 0) (vl-registry-write regeditetransmit "UsePassword" 0) (vl-registry-write regeditetransmit "VisualFidelity" 1) 1 Quote Link to comment Share on other sites More sharing options...
ronjonp Posted January 5, 2023 Share Posted January 5, 2023 @Aftertouch Glad you got it working FWIW I'd refactor the code like so: (vl-registry-write (setq regeditetransmit (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Etransmit\\setups\\COMPANY SETUP" ) ) ) (foreach pair '(("AEC_EXPLODE_DWG" 0) ("AEC_TEMP_SETUP" 0) ("BindType" 0) ("BindXref" 0) ("Description" "") ("DestFile" "") ("DestFileAction" 0) ("DestFolder" "") ("FilePathOption" 0) ("IncludeDataLinkFile" 1) ("IncludeFont" 1) ("IncludeMaterialTextures" 1) ("IncludePhotometricWebFile" 1) ("IncludeSSFiles" 1) ("IncludeUnloadedReferences" 0) ("Name" "COMPANY SETUP") ("PackageType" 0) ("PurgeDatabase" 0) ("RootFolder" "") ("SaveDrawingFormat" 6) ("SendMail" 0) ("SetPlotterNone" 0) ("ShowInFolder" 0) ("UsePassword" 0) ("VisualFidelity" 1) ) (vl-registry-write regeditetransmit (car pair) (cadr pair)) ) 2 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.