Lisp per cambiare chiave di registro

jim78b

Utente Standard
Professione: PROGETTISTA
Software: Solidworks 2016- autocad mech 2013-2017
Regione: lombardia
#1
salve siccome possiedo autocad mech 2013 e c'è il bug del fatto che ogni volta che si fa dxfout cambia le preview in esplora risorse e non diventano più visibili i file dwg; volevo chiedere se potreste crearmi un lisp che permetta di cambiare il valore come nel link che ho messo in 1.

HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R19.0\ACAD-B005:409\Profiles\<<ACADMPP>>\Dialogs\Select File - PreviewVisible =1

questo che ho scritto è il mio percorso, infatti ogni volta che faccio il comando dxfout mi cambia la chiave di registro previewvisible in 0 e devo andare io manualmente a ricambiarla.
mi serivrebbe solo un comodo lisp da lanciare al bisogno ;)

metto il link della risoluzione:
http://blogs.rand.com/support/2014/03/autocad-2014-no-preview-in-the-select-file-open-dialog.html

grazie
 

rpor66

Utente Standard
Professione: Programmatore
Software: AutoCad, GstarCAD, CadWorx, Excel, Lisp, VBA
Regione: Sicilia
#2
(defun c:SetPreview()
(vl-load-com)
(vl-registry-write "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R19.0\\ACAD-B005:409\\Profiles\\<<ACADMPP>>\\Dialogs\\Select File" "PreviewVisible" 1)
)