autolisp to flip variable

[TexShalter]

I'm trying to make an autolisp that "flips" a third party variable. No luck, command line won't recognize after it loads. I've made similar variable flips that work ??

thanks anyone

(defun c:wp (/ wp)
  (setq wp (getvar "kti_archt_wallpoche"))
  (if (= kti_archt_wallpoche 0)(setvar "kti_archt_wallpoche" 1)
  (if (= kti_archt_wallpoche 1)(setvar "kti_archt_wallpoche" 0)

[bgingerich]

Instead of:

(if (= kti_archt_wallpoche 0)(setvar "kti_archt_wallpoche" 1)
(if (= kti_archt_wallpoche 1)(setvar "kti_archt_wallpoche" 0)

 try:

(setvar "kti_archt_wallpoche" (- 1 (getvar "kti_archt_wallpoche"))

 (if ("mysolution"=answer) then (click "Accept As Solution"))
------------------------------------------------------------------------------------

[Kent1Cooper]

---

@TexShalter wrote:

I'm trying to make an autolisp that "flips" a third party variable. No luck, command line won't recognize after it loads. I've made similar variable flips that work ??

thanks anyone

(defun c:wp (/ wp)
  (setq wp (getvar "kti_archt_wallpoche"))
  (if (= kti_archt_wallpoche 0)(setvar "kti_archt_wallpoche" 1)
  (if (= kti_archt_wallpoche 1)(setvar "kti_archt_wallpoche" 0)

---

I would agree with the other suggestion to just subtract the current value from 1, which spares you the need for the wp variable.  But if you want the double (if) approach, they would need to be:

  (if (= wp 0)(setvar "kti_archt_wallpoche" 1)
  (if (= wp 1)(setvar "kti_archt_wallpoche" 0)