帮忙把这个autolisp的画正弦曲线的程序解释一下;画正弦曲：x=a,y=sina;(defunc:zxqx(/dabpAilptbp1bp2)(initget1);（initget［位］字符串）设定下次getxxx函数的有效输入)(setqbp(getpoint"\n起始点?:"

Question

帮忙把这个autolisp的画正弦曲线的程序解释一下
;画正弦曲：x=a ,y=sin a ;
(defun c:zxqx(/ da bp Ai lpt bp1 bp2)
(initget 1) ;（initget ［位］字符串）设定下次getxxx函数的有效输入)
(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 (< 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)
)
一定要详细,

Answer 1

材料工程专业硕士专业课资料