画隧道圆弧

cjf160204

(defun c:ac ()
(entmake
        (list '(0 . "ARC")
                (cons 10 (setq cen (getpoint "\n指定圆心")))
                (cons 40 (getdist cen "\n指定半径"))
                (cons 50 (setq sang (angle cen (getpoint cen "\n指定起点"))))
                (cons 51 (+ sang (* pi (/ (getreal "\n指定角度(°)") 180.0))))
        )
)
)
(defun c:ac1()
  (setq a (getpoint "\n请指点圆弧的起点："))
  (setq b (getpoint "\n请指定圆弧的端点："))
  (setq c (getreal  "\n请输入你想要的半径:"))
  (command "arc" a "E" b "R" c "")
  (princ
  )
  )

cjf160204

论坛上得到，比较简单粗暴