Visual LISP, AutoLISP and General Customization

Visual LISP, AutoLISP and General Customization

Reply
Active Member
komet99
Posts: 8
Registered: ‎12-02-2009
Message 1 of 4 (243 Views)

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

243 Views, 3 Replies
07-27-2012 08:09 AM

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

*Expert Elite*
Kent1Cooper
Posts: 5,513
Registered: ‎09-13-2004
Message 2 of 4 (239 Views)

Re: simple lisp not working??????????

07-27-2012 08:43 AM in reply to: komet99

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.

Kent Cooper
*Expert Elite*
scot-65
Posts: 2,179
Registered: ‎12-11-2003
Message 3 of 4 (222 Views)

Re: simple lisp not working?

07-27-2012 02:43 PM in reply to: komet99

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?

 

???

Scot-65
Dyslexia is a permanent physical disability that cannot be seen.
Introverts is proof that there is indeed intelligent life on this planet.
Valued Mentor
Ian_Bryant
Posts: 362
Registered: ‎06-02-2005
Message 4 of 4 (202 Views)

Re: simple lisp not working??????????

07-27-2012 09:18 PM in reply to: komet99
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
Announcements
Are you familiar with the Autodesk Expert Elites? The Expert Elite program is made up of customers that help other customers by sharing knowledge and exemplifying an engaging style of collaboration. To learn more, please visit our Expert Elite website.
Need installation help?

Start with some of our most frequented solutions or visit the Installation and Licensing Forum to get help installing your software.