求助 关于autolisp的一个小程序的解释

mayuew052

各位达人：
      本人最近看到一个用autolisp编写的小插件，可以实现在autocad中绘制正弦曲线，这个绘制出来的曲线，是在wcs下的，我想在当前ucs下实现正弦曲线的绘制，所以没能实现。搜索到一个trans命令，但是不怎么会用。还有对程序中的一些命令不怎么懂，请各位达人解释一下。多谢了。
(defun c:sinline(/ da bp Ai lpt x y)
(initget 1)
(setq bp (getpoint "\n 起始点 :"))
(setq da 500)
(setq Ai -6000 Ae 6000 x (car bp) y (cadr bp) A 100)
(setq Ao Ai)
(while (< Ai Ae)
(setq lpt (append lpt (list (list (+ x Ai) (+ y (* A (sin (* (/ (* 2 pi) 12000) Ai)))) 0))))
(setq Ai (+ Ai da))
)
(setq lpt (append lpt (list (list (+ x Ai) (+ y (* A (sin (* (/ (* 2 pi) 12000) Ai)))) 0))))
(trans lpt 0 1)                                             ;这句是我加上去的，加错了
(setvar "cmdecho" 0)
(command "3dpoly")
(foreach pt lpt (command pt)) ;foreach命令不怎么懂，尤其是command pt这一句不懂
(command ^c)                          ;这句话更是不懂。
(command "pedit" "l" "f")
(command ^c)
(setvar "cmdecho" 1)
)
求助各位高手解释一下上面的三条命令。谢谢。