"No function definition" After COMMAND Call

[stusic]

Hey All,

Simple little problem, lisp works fine, but I get an annoying "error: no function definition: nil".

I know this line of code returns nil, but I don't know how to stop the error... Any ideas?

(command "_.shademode" "G")

Full lisp (to toggle wireframe/shaded modes):

(defun c:togglevs (/ cvs)       (setq cvs
	      (assoc 281 (entget (tblobjname "VPORT" "*ACTIVE")))
	     )
  (setq cvs (cdr cvs))
  
  (cond
    (
     (OR
     (= cvs 0)
     (= cvs 1)
     (= cvs 2)
     )
     (
      (command "_.shademode" "G")
      (prompt "Toggling to Shaded mode")
      )
     )
    (
     (OR
     (= cvs 4)
     (= cvs 6)
     )
     (
      (command "_.shademode" "3D")
      (prompt "Toggling to Wireframe mode")
      )
     )
    )
  (princ)
  )

[Tharwat]

I guess you have an extra parenthesis before that command call which is no needed.

[stusic]

I guess you have an extra parenthesis before that command call which is no needed.

That parentheses wraps the "command" and "prompt" statements together as the "then" part of the COND statement.

(
   (command "_.shademode" "G")
   (prompt "Toggling to Shaded mode")
)

[Tharwat]

That parentheses wraps the "command" and "prompt" statements together as the "then" part of the COND statement.

(
   (command "_.shademode" "G")
   (prompt "Toggling to Shaded mode")
)

That is not needed with cond function nor even the progrn function

[stusic]

That is not needed with cond function nor even the progrn function

How would I separate the "ifs" from the "thens"?

[Tharwat]

Try this UNTESTED :

(defun c:togglevs (/ cvs)
  (if (setq csv (tblobjname "VPORT" "*ACTIVE"))
    (setq cvs (cdr (assoc 281 (entget csv))))
  )
  (cond
    ((<= 0 cvs 2)
     (command "_.shademode" "G")
     (prompt "Toggling to Shaded mode")
    )
    (
     (OR
       (= cvs 4)
       (= cvs 6)
     )
     (command "_.shademode" "3D")
     (prompt "Toggling to Wireframe mode")
    )
  )
  (princ)
)

[stusic]

Interesting.

I tried your code: works.
I tried my code, but removed the parentheses as you suggested: works.

Note: I see now how the COND statement still works without the parentheses. Thanks

[Tharwat]

Interesting.

I tried your code: works.
I tried my code, but removed the parentheses as you suggested: works.

Note: I see now how the COND statement still works without the parentheses. Thanks

Excellent. You're welcome.