我新手来这请教一下高手，错误: 参数类型错误: numberp: nil,求解，很感激，

不一样的戏

(defun c:hpl()
(setq pt (getpoint"\n 输入图形的中心点："))
(setq pt1 (getpoint pt "\n 输入第一个正方形的起始角点:"))
（initget 7）
(setq num (getint"\n输入画正方形的个数:"))

（setq d (distance pt pt1)）
(setq a (angle pt pt1))
(setq dmin ( / d(expt 2 (/ (1- num) 2))))
(defun box (d a)
(draw d a)
(cond((> d dmin)
(box ( / d 1.4142) (+ a (/ pi 4.0))))
);End cond
);End defun box
(defun draw (d a )
(command "pline"(polar pt a d)
                 "w" 0.6 0.6
(polar pt(+a(/ pi 2.0)) d)
(polar pt(+a pi) d)
(polar pt(-a(/ pi 2.0))d)
"c"
);End Command
);End draw
(box d a)
);end

菜卷鱼

画正方形你可以用 POLYGON 命令，这样搞得复杂了

不一样的戏

菜卷鱼 发表于 2011-10-20 23:51
画正方形你可以用 POLYGON 命令，这样搞得复杂了

不是，我想知道我错哪了，刚学，所以想把它搞懂。

不一样的戏

不是，我想知道我错哪了，刚学，所以想把它搞懂。

highflybir

不一样的戏 发表于 2011-10-20 23:58
不是，我想知道我错哪了，刚学，所以想把它搞懂。

代码错误很多，请仔细对照检查。

1. (defun c:hpl (/ A D DMIN NUM PT PT1)
   
2.   (setq pt (getpoint "\n 输入图形的中心点："))
   
3.   (setq pt1 (getpoint pt "\n 输入第一个正方形的起始角点:"))
   
4.   (initget 7)
   
5.   (setq num (getint "\n输入画正方形的个数:"))
   
6. 
   
7.   (setq d (distance pt pt1))
   
8.   (setq a (angle pt pt1))
   
9.   (setq dmin (/ d (expt 2 (/ (1- num) 2))))
   
10.   (defun box (d a)
    
11.     (draw d a)
    
12.     (cond ((> d dmin)
    
13.      (box (/ d 1.4142) (+ a (/ pi 4.0)))
    
14.     )
    
15.     )          ;End cond
    
16.   )          ;End defun box
    
17.   (defun draw (d a)
    
18.     (command "pline"
    
19.        (polar pt a d)
    
20.        "w"
    
21.        0.6
    
22.        0.6
    
23.        (polar pt (+ a (/ pi 2.0)) d)
    
24.        (polar pt (+ a pi) d)
    
25.        (polar pt (- a (/ pi 2.0)) d)
    
26.        "c"
    
27.     )          ;End Command
    
28.   )          ;End draw
    
29.   (box d a)
    
30. )          ;end

(defun c:hpl (/ A D DMIN NUM PT PT1)<br />   (setq pt (getpoint "\n 输入图形的中心点："))<br />   (setq pt1 (getpoint pt "\n 输入第一个正方形的起始角点:"))<br />   (initget 7)<br />   (setq num (getint "\n输入画正方形的个数:"))<br /> <br />   (setq d (distance pt pt1))<br />   (setq a (angle pt pt1))<br />   (setq dmin (/ d (expt 2 (/ (1- num) 2))))<br />   (defun box (d a)<br />     (draw d a)<br />     (cond ((> d dmin)<br />      (box (/ d 1.4142) (+ a (/ pi 4.0)))<br />     )<br />     )          ;End cond<br />   )          ;End defun box<br />   (defun draw (d a)<br />     (command "pline"<br />        (polar pt a d)<br />        "w"<br />        0.6<br />        0.6<br />        (polar pt (+ a (/ pi 2.0)) d)<br />        (polar pt (+ a pi) d)<br />        (polar pt (- a (/ pi 2.0)) d)<br />        "c"<br />     )          ;End Command<br />   )          ;End draw<br />   (box d a)<br /> )          ;end

不一样的戏

[em84非常感谢你的帮助