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

zhb236623

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

<br /> (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 /> )

程序的功能 是输入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)))

zhb236623

自己顶下，坐待高人。

gbhsu

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

zhb236623

谢谢。再放上(OSNAP mode)：供有需要的人查询。

使用以下位码设置“对象捕捉”的运行模式(OSNAP mode)：
0 NON（无）1 END（端点）2 MID（中点）4 CEN（圆心）8 NOD（节点）16 QUA（象限点）32 INT（交点）64 INS（插入点）128 PER（垂足）
256 TAN（切点）512 NEA（最近点）1024 QUI（快速）2048 APP（外观交点）4096 EXT（尺寸线）8192 PAR（平行）