请教→高手看下

wjl1014

以下为代码

1. （defun c:dsin( /  x n z s dx cm bl x0 y0)
   
2. (setq x 0
   
3.        p (getpoint "\n基点:")x0(car p)y0(cadr p)
   
4.        n (getint "\n精度(全线上直线片段数):")
   
5.        z (getreal "\n周期数：")
   
6.        s (getreal "\n波高系数：")
   
7.        dx (/ (* z 2 pi) n)
   
8.        )
   
9. 
   
10. (setq cm(getvar "cmdecho")bl(getvar "blipmode")
    
11.       os(getvar "osmode")
    
12.       )
    
13. (setvar "cmdecho" 0)(setvar "blipmode" 0)(setvar "osmode" 0)
    
14. (command "pline" p)
    
15. (repeat n
    
16.   (setq x (+ x dx))
    
17.   (command (list (+ x0 x) (+ y0 (* s (sin x)))))
    
18.    )
    
19.   (command "")
    
20.   (setvar "cmdecho" cm)(setvar "blipmode" bl)(setvar "osmode" os)(princ)
    
21.   ）

（defun c:dsin( /  x n z s dx cm bl x0 y0)<br /> (setq x 0<br />        p (getpoint "\n基点:")x0(car p)y0(cadr p)<br />        n (getint "\n精度(全线上直线片段数):")<br />        z (getreal "\n周期数：")<br />        s (getreal "\n波高系数：")<br />        dx (/ (* z 2 pi) n)<br />        )<br /> <br /> (setq cm(getvar "cmdecho")bl(getvar "blipmode")<br />       os(getvar "osmode")<br />       )<br /> (setvar "cmdecho" 0)(setvar "blipmode" 0)(setvar "osmode" 0)<br /> (command "pline" p)<br /> (repeat n<br />   (setq x (+ x dx))<br />   (command (list (+ x0 x) (+ y0 (* s (sin x)))))<br />    )<br />   (command "")<br />   (setvar "cmdecho" cm)(setvar "blipmode" bl)(setvar "osmode" os)(princ)<br />   ）

加载时控制台提示：参数类型错误: numberp: nil
敢为高手问题出在哪？

Andyhon

（defun c:dsin( /  x n z s dx cm bl x0 y0) ...）
Try==>
(defun c:dsin ( /  x n z s dx cm bl x0 y0) ...)

wjl1014

多谢这个问题解决了。
不过调试还有问题：
; 错误: 输入中的点位置不正确

xiabin68

对了，就是要调整，如果一次成功那你级别就高了

wjl1014

调整了一下，把（defun c:dsin( /  x n z s dx cm bl x0 y0)...)改为注释，可以运行。
看来问题还是出在（defun c:dsin( /  x n z s dx cm bl x0 y0)...)这里，
请高手出来解答。