求助，帮忙看下此程序哪里出错

zhb236623

2. (defun c:tt(/insertp n1 wz )
   
3. 
   
4. (if (not (setq n1 (getint "\n请输入起始顺序号 <1>: ")))
   
5.     (setq n1 1)
   
6. )
   
7. 
   
8. (setq wz (strcat (itoa 3) (itoa -50) (itoa -411) "-" (itoa n1)))
   
9. (setq insertp (getpoint "\n请指定插入点: "))
   
10. (setq insertp_move (pmove insertp 0 -2))
    
11.   (while (/= insertp nil)
    
12. 
    
13.    (command ".text" "j" "mc" insertp_move 0.6 0  wz)  ;;设置文字
    
14.    
    
15.     (setq
    
16.       n1   (+ n1 1)
    
17.       wz (strcat (itoa 3) (itoa -50) (itoa -411) "-" (itoa n1))
    
18.       insertp   (getpoint "\n请指定下一插入点: ")
    
19.       insertp_move (pmove insertp 0 -2)
    
20.     )
    
21.   )
    
22. );end defun
    
23. 
    
24. 
    
25. (defun pmove(/point_xy px py);点位，X Y Z
    
26.     (setq point_x(car point_xy))
    
27.     (setq point_y(cadr point_xy))
    
28.     (list (+ point_x  px)(+ point_y py))
    
29. )
    
30. 
    

(defun c:tt(/insertp n1 wz )<br /> <br /> (if (not (setq n1 (getint "\n请输入起始顺序号 <1>: ")))<br />     (setq n1 1)<br /> )<br /> <br /> (setq wz (strcat (itoa 3) (itoa -50) (itoa -411) "-" (itoa n1)))<br /> (setq insertp (getpoint "\n请指定插入点: "))<br /> (setq insertp_move (pmove insertp 0 -2))<br />   (while (/= insertp nil)<br /> <br />    (command ".text" "j" "mc" insertp_move 0.6 0  wz)  ;;设置文字<br />     <br />     (setq<br />       n1   (+ n1 1)<br />       wz (strcat (itoa 3) (itoa -50) (itoa -411) "-" (itoa n1))<br />       insertp   (getpoint "\n请指定下一插入点: ")<br />       insertp_move (pmove insertp 0 -2)<br />     )<br />   )<br /> );end defun<br /> <br /> <br /> (defun pmove(/point_xy px py);点位，X Y Z<br />     (setq point_x(car point_xy))<br />     (setq point_y(cadr point_xy))<br />     (list (+ point_x  px)(+ point_y py))<br /> )<br /> <br />

程序的功能 是输入3-50-411-1，3-50-411-2 。。。。。。。
捕捉线段的中点，在该点向下偏移2单位输入3-50-411-1
不知道哪里出错，请高手指教。（请指定插入点: ; 错误: 参数类型错误: numberp: nil）
还有怎么定义 wz (strcat (itoa 3) (itoa -50) (itoa -411) "-" (itoa n1))
可以直接写成 (setq wz (strcat  3-50-411-  (itoa n1)))

ljpnb

2. 
   
3. (defun c:tt (/insertp n1 wz)
   
4.   (if (not (setq n1 (getint "\n请输入起始顺序号 <1>: ")))
   
5.     (setq n1 1)
   
6.   )
   
7.   ;;(setq wz (strcat (itoa 3) (itoa -50) (itoa -411) "-" (itoa n1)))
   
8.   (setq wz (strcat "3-50-411-" (itoa n1)))
   
9.   (setq insertp (getpoint "\n请指定插入点: "))
   
10.   (setq insertp_move (pmove insertp 0 -2))
    
11.   (while (/= insertp nil)
    
12.     (command ".text" "j" "mc" insertp_move 0.6 0 wz)
    
13.     ;;设置文字
    
14. 
    
15.     (setq
    
16.       n1           (+ n1 1)
    
17.       wz           (strcat "3-50-411-" (itoa n1))
    
18.       insertp           (getpoint "\n请指定下一插入点: ")
    
19.       insertp_move (pmove insertp 0 -2)
    
20.     )
    
21.   )
    
22. )                                        ;end defun
    
23. 
    
24. (defun pmove (point_xy px py)                ;点位，X Y Z
    
25.   (setq point_x (car point_xy))
    
26.   (setq point_y (cadr point_xy))
    
27.   (list (+ point_x px) (+ point_y py))
    
28. )
    

<br /> (defun c:tt (/insertp n1 wz)<br />   (if (not (setq n1 (getint "\n请输入起始顺序号 <1>: ")))<br />     (setq n1 1)<br />   )<br />   ;;(setq wz (strcat (itoa 3) (itoa -50) (itoa -411) "-" (itoa n1)))<br />   (setq wz (strcat "3-50-411-" (itoa n1)))<br />   (setq insertp (getpoint "\n请指定插入点: "))<br />   (setq insertp_move (pmove insertp 0 -2))<br />   (while (/= insertp nil)<br />     (command ".text" "j" "mc" insertp_move 0.6 0 wz)<br />     ;;设置文字<br /> <br />     (setq<br />       n1           (+ n1 1)<br />       wz           (strcat "3-50-411-" (itoa n1))<br />       insertp           (getpoint "\n请指定下一插入点: ")<br />       insertp_move (pmove insertp 0 -2)<br />     )<br />   )<br /> )                                        ;end defun<br /> <br /> (defun pmove (point_xy px py)                ;点位，X Y Z<br />   (setq point_x (car point_xy))<br />   (setq point_y (cadr point_xy))<br />   (list (+ point_x px) (+ point_y py))<br /> )<br />

zhynt

如果前面的字符串是固定的可以写成
(setq wz (strcat  “3-50-411-"  (itoa n1)))

zhb236623

谢谢zhynt
发错地方多发了帖子，http://bbs.mjtd.com/forum.php?mo ... 01&page=1#pid472759，也谢谢gbhsu 帮忙解决。