JONTHEPOPE Posted August 28, 2008 Share Posted August 28, 2008 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 Quote Link to comment Share on other sites More sharing options...
ASMI Posted August 28, 2008 Share Posted August 28, 2008 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 Quote Link to comment Share on other sites More sharing options...
JONTHEPOPE Posted August 29, 2008 Author Share Posted August 29, 2008 Wow I was way off. yet again you show me that i worship the wrong god. thanks. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.