向大师求教如何画任意段椭圆弧长
向大师求教画任意段椭圆弧长当想画的椭圆不是完整的,而只是已知起点和终点夹角的时候如何画这段椭圆弧长
经多次偿试,只能对四个象限角正常设置,但在任意角度下虽能设置但却无法正确设置起点和终点的参数
请大师给予指点
如何用LISP程序求出
椭圆弧的起点和终点参数
(defun C:DrawEllipseArc()
(setvar "cmdecho" 0)
(setq pa (getpoint "\n 指定中心点:"))
(setq major (getdist pa "\n 长半轴:"))
(setq minor (getdist pa "\n 短半轴:"))
(setq pma (polar pa 0 major))
(setq startAngle (getreal "\n 起始角度"))
(setq endAngle (getreal "\n 终止角度"))
(command "ellipse" "A" "C" pa pma minor startAngle endAngle)
(prin1)
)
命令: drawellipsearc
指定中心点:
长半轴:
短半轴:
起始角度60
终止角度230
页:
[1]