Draw A Line With 2 Circles

[JONTHEPOPE]

NOT SURE HOW I CAN INCORPORATE CIRCLE COMMAND INTO MY LISP

PROGRAM ??? c ENTER 2PT??

GOAL IS TO DRAW A LINE WITH CIRCLE ON EACH END WITH QUESTION FOR RADI> LOTS STUCK

ANY SUGGUESTIONS

 

EG:

(DEFUN C:CCIRCLE)
(SETVAR "CMDECHO" 0)
(GRAPHSCR)
(SETQ P1 (GETPOINT "/N ENTER FIRST POINT:"))
(SETQ P2 (GETPOINT "/N ENTER SECOND:"))
(COMMAND "LINE" P1 P2)
(SETVAR "CIRCLE" D)
(SETVAR "CIRCLED"(D(/SIN A)(COS A))))
(COMMAND "CIRCLE")
(SETVAR "CMDECHO" 1)
(PRINC)
)

BEST REGARDS

[ASMI]

Please use

 tags

[code](defun c:ccircle(/ pt1 pt2 cDia)
 (and
   (setq pt1(getpoint "\nSpecify start point: "))
   (setq pt2(getpoint pt1 "\nSpecify end point: "))
   (setq cDia(/(distance pt1 pt2)20))
   (vl-cmdf "_.line" pt1 pt2 ""
     "_.circle" pt1 cDia
     "_.circle" pt2 cDia)
   ); end and
 (princ)
 ); end of c:ccircle

[JONTHEPOPE]

Wow I was way off.

yet again you show me that i worship the wrong god.

thanks.