Visual LISP: If and then?

[mikelf]

Hey guys. First post on here! I've read alot on this site over the last year though.

Now it's my turn to ask for help......

I'm using visual lisp to modify registry entries. Modifying the entry isn't the problem though (since that part already works).

What I would like to do, is write code using if and then (I think that would be the correct way) so that if it finds a certain registry key, it will modify it, and if it doesn't find the key, it doesn't modify anything.

Here is part of my code already: I want it to find the Mechanical profile, and if it does, change the plot stamp entry to 1. If it doesn't find the Mechanical profile, go on to the CADWorx_Raptor profile and if it finds it, change the plot stamp to 1.

 (vl-registry-write "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R17.0\\ACAD-5001:409\\Profiles\\Mechanical\\Dialogs\\Plot Stamp" "PlotStamp" 1)
 (vl-registry-write "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R17.0\\ACAD-5001:409\\Profiles\\CADWorx_Raptor\\Dialogs\\Plot Stamp" "PlotStamp" 1)

Anyone up for a small challenge?

[rkmcswain]

You should be able to use a standard IF statement.

(if condition
  (vl-registry-write.......) ;; if condition is true
  (vl-registry-write.......) ;; if condition is false
)

[mikelf]

Thanks. Here is what I came up with. It's just the three bits and pieces I needed, and obviously not the whole lisp file.

   
(setq stampon (vl-registry-read "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R17.0\\ACAD-5001:409\\Profiles\\CADWorx_Plant_2007\\Dialogs\\Plot Stamp" "PlotStamp"))
   (if (= stampon 0)
      (vl-registry-write "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R17.0\\ACAD-5001:409\\Profiles\\CADWorx_Plant_2007\\Dialogs\\Plot Stamp" "PlotStamp" 1)

   )

(setq stampfile (vl-registry-read "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R17.0\\ACAD-5001:409\\Profiles\\CADWorx_plant_2007\\Dialogs\\Plot Stamp" "PSPFilename"))
   (if (/= stampfile "J:/CAD/Plot Stamp.pss")
      (vl-registry-write "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R17.0\\ACAD-5001:409\\Profiles\\CADWorx_Plant_2007\\Dialogs\\Plot Stamp" "PSPFilename" "J:/CAD/Plot Stamp.pss")

   )

(setq savetime (vl-registry-read "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R17.0\\ACAD-5001:409\\Profiles\\CADWorx_Plant_2007\\Editor Configuration" "AutomaticSaveMinutes"))
   (if (/= savetime 5)
      (vl-registry-write "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R17.0\\ACAD-5001:409\\Profiles\\CADWorx_Plant_2007\\Editor Configuration" "AutomaticSaveMinutes" 5)

   )

[rkmcswain]

On your last point, if your goal is just to ensure that the autosave time is set to 5 - don't bother checking it, just set it.

(setvar "SAVETIME" 5)

Looks like you could skip the IF statement in your second bit of code also.

[mikelf]

Good point. I changed it to reflect that. Thanks for the time and space saver!