topic Re: LISP QUESTION FOR A CIRCLE COMMAND in AutoCAD Forum

LISP QUESTION FOR A CIRCLE COMMAND

alx86 — Wed, 20 Jun 2012 15:43:34 GMT

Hi,

I'm beginner with Lisp Editor. I'm able to create basic functions (really basic 😉 ) I wan't to create a Lisp that will start a circle with 3 points wich the 3 point selection mode being:

1st: TAN
2nd: TAN

3th: NEAR

I think that what I need would look something like this, but I don't know if it's possible to insert a mouse click (for the selection) in the routine. :

(defun C:c3t (/)

(command "circle" "3p" "TAN" (MOUSE CLICK) "TAN" (MOUSE CLICK) "NEAR")

)

Re: LISP QUESTION FOR A CIRCLE COMMAND

nestly — Wed, 20 Jun 2012 16:19:15 GMT

I'm a beginner with AutoLisp also, but I knew this one thanks to Lynn Allen

http://www.youtube.com/watch?feature=player_detailpage&v=nnkX7M0Hikk

(defun C:c3t ()
(command "circle" "3p" "TAN" pause "TAN" pause "NEAR" pause)
(princ)
)

Re: LISP QUESTION FOR A CIRCLE COMMAND

alx86 — Wed, 20 Jun 2012 16:29:17 GMT

Thank a lot, exactly what I was looking for.

I also add Lynn Allen to my subscription on Youtube 🙂

Re: LISP QUESTION FOR A CIRCLE COMMAND

scot-65 — Wed, 20 Jun 2012 22:15:29 GMT

@Anonymous wrote:
Hi,
I'm beginner with Lisp Editor. I'm able to create basic functions (really basic 😉 ) I wan't to create a Lisp that will start a circle with 3 points wich the 3 point selection mode being:
1st: TAN
2nd: TAN
3th: NEAR

I think that what I need would look something like this, but I don't know if it's possible to insert a mouse click (for the selection) in the routine. :

(defun C:c3t (/)
(command "circle" "3p" "TAN" (MOUSE CLICK) "TAN" (MOUSE CLICK) "NEAR")
)

Next, create a toolbar with your first button.

Where it shows the "Macro" line, inside the CUI, declare the following script:

^C^C.circle;3p;tan;\tan;\nea;\

Backslash "\" is for user to specify a point on the screen.

Semi-colon ";" is equal to [Enter].

untested.