Etransmit 'TransmittalSetiups'

[Aftertouch]

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?

[ronjonp]

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:

 

[Aftertouch]

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)

 

[ronjonp]

@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))
)