画隧道圆弧
(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
)
)
论坛上得到，比较简单粗暴
页:
[1]