Draw circle

[vasilev1566]

Hello, I am new to the forum and have the following question.

How do I make a lisp file that can be called with a command (for example CVV) that starts circle command.

First I want to indicate where to make my circle - to indicate its center. It should have a radius equal to the distance between two points that I want to indicate from the drawing.

[ВeekeeCZ · Accepted solution]

Simple enough

(defun c:CircleM ( / c r)
  (if (and (setq c (getpoint "\nSpecify center point: "))
	   (setq r (getdist "\nRadius: "))
	   )
    (command "_.circle" "_non" c r))
  (princ)
  )

[vasilev1566]

Thank you very much

[Kent1Cooper]

Or just:

(defun C:CR2P () ; = Circle with Radius by 2 Points
  (command "_.circle" pause (getdist "\nRadius by two points: "))
  (prin1)
)