lisp calling function

[GeryKnee]

(defun fReSetOsM ( )
   (setvar "osmode" 0 )
   (princ)
)
(defun fAddOsMode ( value )
   (setvar "osmode" (logand (logior (getvar "osmode") value) 16383))
   (princ)
)

commands az and ac are working

(defun C:az ();;set osmod to 0
   (fReSetOsM )
)
(defun C:ae ();;add to osmod , endP
   (fAddOsMode 001 )
)

Where is the wrong in the syntax of command ace that is not working?

(defun C:ace ();;add to osmod , Circle , endP
   (fReSetOsM )
   (fAddOsMode 002 )
   (fAddOsMode 001 )
   (fReSetOsM )
)

[hmsilva]

Try

(defun C:ace ();;add to osmod , Circle , endP
   (fReSetOsM )
   (fAddOsMode (+ 001 002))
   (fReSetOsM )
)

 EDIT: if 'Circle' is Center should be 004 instead of 002, 002 is for midpoint.

Henrique

[Kent1Cooper]

---

@GeryKnee wrote:

.... 

Where is the wrong in the syntax of command ace that is not working?

(defun C:ace ();;add to osmod , Circle , endP
   (fReSetOsM )
   (fAddOsMode 002 )
   (fAddOsMode 001 )
   (fReSetOsM )
)

---

Could it be simply that it includes (fReSetOsM) at the end?  Whatever comes before that is undone by that.