topic Building a line and a circle in Visual LISP, AutoLISP and General Customization Forum

Building a line and a circle

Anonymous — Fri, 04 Nov 2016 17:09:00 GMT

What i am trying to do is to build a line and a circle in autocad using lisp.
The code:
( DEFUN C:myprog ()
( COMMAND "_erase" "_all" "" )
( COMMAND "_line" ( LIST 10 10 ) ( LIST 10 100 ) "" )
( COMMAND "_circle" "10.0,50.0" 30.0 "" )
)
As a result I get a correctly build line, but a wrong circle. The center of the circle is in the point (10,10) - the beginning of the line. But it's supposed to be in (10,50).
What am I doing wrong?

Re: Building a line and a circle

Ranjit_Singh — Fri, 04 Nov 2016 17:48:18 GMT

I tested and it shows up correctly at 10,50 at my end.

Re: Building a line and a circle

hmsilva — Fri, 04 Nov 2016 17:52:05 GMT

@Anonymous wrote:

What i am trying to do is to build a line and a circle in autocad using lisp.
The code:
( DEFUN C:myprog ()
( COMMAND "_erase" "_all" "" )
( COMMAND "_line" ( LIST 10 10 ) ( LIST 10 100 ) "" )
( COMMAND "_circle" "10.0,50.0" 30.0 "" )
)
As a result I get a correctly build line, but a wrong circle. The center of the circle is in the point (10,10) - the beginning of the line. But it's supposed to be in (10,50).
What am I doing wrong?

Try

(DEFUN C:myprog ()
    (COMMAND "_erase" "_all" "")
    (COMMAND "_line" "_NON" (LIST 10 10) "_NON" (LIST 10 100) "")
    (COMMAND "_circle" "_NON" "10.0,50.0" 30.0 "")
)

Hope this helps,
Henrique

Re: Building a line and a circle

ВeekeeCZ — Fri, 04 Nov 2016 18:30:59 GMT

@Anonymous wrote:

...
( DEFUN C:myprog ()
( COMMAND "_erase" "_all" "" )
( COMMAND "_line" ( LIST 10 10 ) ( LIST 10 100 ) "" )
( COMMAND "_circle" "10.0,50.0" 30.0 "" )
)
....
What am I doing wrong?

To answer your question, you did not turn OSNAPS off. If they are still running, you can get unpredictible results. @hmsilva used the most simple way to do that.

Re: Building a line and a circle

john.uhden — Sat, 05 Nov 2016 00:27:18 GMT

The difference, clearly to me anyway, is that the OP had a running object snap on, presumably to endpoint, so it picked up the endpoint of the line just created. That's why Henrique's use of "_None" temporarily turns off the snap so that the point supplied is taken literally.