cad画正弦曲线lisp_Autolisp曲线绘制

3、程序代码如下：

;画正弦曲：x=a , y=sin a ;

(defun c:zxqx(/ da bp Ai lpt bp1 bp2)

(initget 1)

(setq bp (getpoint "\n 起始点?:"))

(initget 7)

(setq da (getangle "\n 角度增量?:"))

(setq Ai 0 Ae (* pi 2.0) bp1 (car bp) bp2 (car (cdr bp)))

(while (&lt Ai Ae)

(setq lpt (append lpt (list (list (+ bp1 Ai) (+ bp2 (sin Ai))))))

(setq Ai (+ Ai da))

)

(setq lpt (append lpt (list (list (+ bp1 Ae) (+ bp2 (sin Ae))))))

(setvar "cmdecho" 0)

(command "pline")

(foreach pt lpt (command pt))

(command ^c)

(command "pedit" "l" "f")

(command ^c)

(setvar "cmdecho" 1)

)

;渐开线画法x=br*(cos(a)+a*sin(a)) y=br*(sin(a)-a*cos(a));

(defun c:jkx(/ ti lpt ae pt bp1 bp2)

(initget 1)<