[求助]：函数不知道如何求最终图形

leebrucecad

此函数在加载后回到AUTOCAD中要如何打入命令绘制出所求图形，我在输入(Psin(4))后提示4函数错误，换成其他数字也是函数错误，求助解决，谢谢
(defun Psin(d) ;其中d是函数的步长
    (setq i 0)
    (setq e 360)
    (setq x i)
    (setq y (cal "2*x-100*sin(x)"))
    (setq p1 (list x y))
    (while (< i e)
    (setq i (+ i d))
    (setq x i)
    (setq y (cal "2*x-100*sin(x)"))
    (setq p2 (list x y))
    (command "_line" p1 p2 "")
    (setq p1 p2)
    )
    )

似水无痕

你应该输入(Psin 4)
程序好像也有点问题，运行时未找到cal函数，我大致改了一下，不知理解是否正确：

2. (defun Psin (d)                                ;其中d是函数的步长
   
3.   (setq i 0)
   
4.   (setq e 360)
   
5.   (setq x i)
   
6.   (setq y (- (* 2 x) (* 100 (sin x))))
   
7.   (setq p1 (list x y))
   
8.   (while (< i e)
   
9.     (setq i (+ i d))
   
10.     (setq x i)
    
11.     (setq y (- (* 2 x) (* 100 (sin x))))
    
12.     (setq p2 (list x y))
    
13.     (command "_line" p1 p2 "")
    
14.     (setq p1 p2)
    
15.   )
    
16. )

(defun Psin (d)                                ;其中d是函数的步长<br />   (setq i 0)<br />   (setq e 360)<br />   (setq x i)<br />   (setq y (- (* 2 x) (* 100 (sin x))))<br />   (setq p1 (list x y))<br />   (while (< i e)<br />     (setq i (+ i d))<br />     (setq x i)<br />     (setq y (- (* 2 x) (* 100 (sin x))))<br />     (setq p2 (list x y))<br />     (command "_line" p1 p2 "")<br />     (setq p1 p2)<br />   )<br /> )

leebrucecad

楼上更改的函数可以使用，但是我要用到cal函数