[编程交流] 帮助创建基于圆的

(defun c:Test (/ a b)
 ;; Tharwat.        ;;
 (and (setq a (getpoint "\nSpecify 1st point :"))
      (setq b (getpoint "\nSpecify 2nd point :" a))
      (entmake (list '(0 . "LINE") (cons 10 a) (cons 11 b)))
      (entmake
        (list '(0 . "CIRCLE")
              (cons 10 (mapcar '(lambda (q p) (/ (+ q p) 2.)) a b))
              (cons 40 (/ (distance a b) 2.))
        )
      )
 )
 (princ)
)

(C:hhatch)

(defun c:HHatch (/ hcol pt1 clr)
 (initget 1 "Gray Blue greeN Yellow Red Magenta")
 (if (and (setq hcol (getkword "\nEnter COLOR [Gray/Blue/greeN/Yellow/Red/Magenta]: "))
          (setq clr (nth (vl-position hcol '("Gray" "Blue" "greeN" "Yellow" "Red" "Magenta")) '(252 5 3 2 1 200))) 
          (setq pt1 (getpoint "\nSelect INTERNAL point: "))
          )
       
 (command "_-hatch" "Properties" "_Solid" "_COLOR" clr "" pt1 "")
   )
 (princ)
 )

(defun c:Test (/ a b h p c)
   ;; Tharwat.        ;;
 (initget 1 "Gray Blue greeN Yellow Red Magenta")
 (if (and (setq h (getkword "\nEnter COLOR [Gray/Blue/greeN/Yellow/Red/Magenta]: "))
          (setq c (nth (vl-position h '("Gray" "Blue" "greeN" "Yellow" "Red" "Magenta")) '(252 5 3 2 1 200)))
          )
   (while (and
            (setq a (getpoint "\nSpecify 1st point :"))
            (setq b (getpoint "\nSpecify 2nd point :" a))             
            (entmake (list '(0 . "CIRCLE") (cons 10 (setq p (mapcar '(lambda (q p) (/ (+ q p) 2.)) a b)))
                           (cons 40 (/ (distance a b) 2.))
                           )
                     )
            )
     (command "_-hatch" "Properties" "_Solid" "_COLOR" c "" p "")
     (entmake (list '(0 . "LINE") (cons 10 a) (cons 11 b)))
     )
   )
 (princ)
 )