simple lisp not working??????????

[komet99]

ok...wrote this and added it to my lisp. my other commands work but not these.

(defun c:lm () (command "line" "mid"))
(defun c:lmm () (command "line" "mid" pause "mid"))
(defun c:le () (command "line" "end"))
(defun c:lee () (command "line" "end" pause "end"))
(defun c:lc () (command "line" "cen"))
(defun c:lcc () (command "line" "cen" pause "cen"))
(defun c:li () (command "line" "int"))
(defun c:lii () (command "line" "int" pause "int"))
(defun c:lq () (command "line" "qua"))
(defun c:lqq () (command "line" "qua" pause "qua"))
(defun c:ln () (command "line" "nea"))
(defun c:lnn () (command "line" "nea" pause "nea"))
(defun c:lme () (command "line" "mid" pause "end"))
(defun c:lmc () (command "line" "mid" pause "cen"))
(defun c:lmi () (command "line" "mid" pause "int"))
(defun c:lmq () (command "line" "mid" pause "qua"))
(defun c:lmn () (command "line" "mid" pause "nea"))
(defun c:lec () (command "line" "end" pause "cen"))
(defun c:lei () (command "line" "end" pause "int"))
(defun c:leq () (command "line" "end" pause "qua"))
(defun c:len () (command "line" "end" pause "nea"))
(defun c:lem () (command "line" "end" pause "mid"))
(defun c:lim () (command "line" "int" pause "mid"))
(defun c:lie () (command "line" "int" pause "end"))
(defun c:lic () (command "line" "int" pause "cen"))
(defun c:liq () (command "line" "int" pause "qua"))
(defun c:lin () (command "line" "int" pause "nea"))
(defun c:lcm () (command "line" "cen" pause "mid"))
(defun c:lce () (command "line" "cen" pause "end"))
(defun c:lci () (command "line" "cen" pause "int"))
(defun c:lcq () (command "line" "cen" pause "qua"))
(defun c:lcn () (command "line" "cen" pause "nea"))
(defun c:lqm () (command "line" "qua" pause "mid"))
(defun c:lqe () (command "line" "qua" pause "end"))
(defun c:lqc () (command "line" "qua" pause "cen"))
(defun c:lqi () (command "line" "qua" pause "int"))
(defun c:lqn () (command "line" "qua" pause "nea"))
(defun c:lnm () (command "line" "nea" pause "mid"))
(defun c:lne () (command "line" "nea" pause "end"))
(defun c:lnc () (command "line" "nea" pause "cen"))
(defun c:lni () (command "line" "nea" pause "int"))
(defun c:lnq () (command "line" "nea" pause "qua"))

Dale

[komet99]

ok...wrote this and added it to my lisp. my other commands work but not these.

(defun c:lm () (command "line" "mid"))
(defun c:lmm () (command "line" "mid" pause "mid"))
(defun c:le () (command "line" "end"))
(defun c:lee () (command "line" "end" pause "end"))
(defun c:lc () (command "line" "cen"))
(defun c:lcc () (command "line" "cen" pause "cen"))
(defun c:li () (command "line" "int"))
(defun c:lii () (command "line" "int" pause "int"))
(defun c:lq () (command "line" "qua"))
(defun c:lqq () (command "line" "qua" pause "qua"))
(defun c:ln () (command "line" "nea"))
(defun c:lnn () (command "line" "nea" pause "nea"))
(defun c:lme () (command "line" "mid" pause "end"))
(defun c:lmc () (command "line" "mid" pause "cen"))
(defun c:lmi () (command "line" "mid" pause "int"))
(defun c:lmq () (command "line" "mid" pause "qua"))
(defun c:lmn () (command "line" "mid" pause "nea"))
(defun c:lec () (command "line" "end" pause "cen"))
(defun c:lei () (command "line" "end" pause "int"))
(defun c:leq () (command "line" "end" pause "qua"))
(defun c:len () (command "line" "end" pause "nea"))
(defun c:lem () (command "line" "end" pause "mid"))
(defun c:lim () (command "line" "int" pause "mid"))
(defun c:lie () (command "line" "int" pause "end"))
(defun c:lic () (command "line" "int" pause "cen"))
(defun c:liq () (command "line" "int" pause "qua"))
(defun c:lin () (command "line" "int" pause "nea"))
(defun c:lcm () (command "line" "cen" pause "mid"))
(defun c:lce () (command "line" "cen" pause "end"))
(defun c:lci () (command "line" "cen" pause "int"))
(defun c:lcq () (command "line" "cen" pause "qua"))
(defun c:lcn () (command "line" "cen" pause "nea"))
(defun c:lqm () (command "line" "qua" pause "mid"))
(defun c:lqe () (command "line" "qua" pause "end"))
(defun c:lqc () (command "line" "qua" pause "cen"))
(defun c:lqi () (command "line" "qua" pause "int"))
(defun c:lqn () (command "line" "qua" pause "nea"))
(defun c:lnm () (command "line" "nea" pause "mid"))
(defun c:lne () (command "line" "nea" pause "end"))
(defun c:lnc () (command "line" "nea" pause "cen"))
(defun c:lni () (command "line" "nea" pause "int"))
(defun c:lnq () (command "line" "nea" pause "qua"))

Dale

[Kent1Cooper]

---

@komet99 wrote:

ok...wrote this and added it to my lisp. my other commands work but not these.

....

---

What does "not working" mean?  When you type in one of the command names, does it do something different from what you expect, or does it not recognize it as a command name, or something else?

http://catb.org/~esr/faqs/smart-questions.html

I copied one of your lines, put it into a file, loaded it, and it worked.  It's probably something in the loading of "my lisp," whatever that is and whatever is supposed to be loading it.  Since there are a number of ways to accomplish that, more detail would be essential.

[Kent1Cooper]

ok...wrote this and added it to my lisp. my other commands work but not these.

....

---

[scot-65]

This is what I have:

(defun c:LE    () (command "Line" "endp" pause)(princ))
(defun c:LI    () (command "Line" "int" pause)(princ))

A pause / second pause perhaps?

???

[Ian_Bryant]

If by "not working" you mean that you do not see the osnap marker etc.
and you have the system variable Osnapcoord set to 1, you could
try the effect of setting this to 2
Ian