2013-06-17 明经 AutoLISP 编程②群(177027547) 群聊记录：请问为何出现错误： (if (= i 0) (progn (se

明经快报

等你 19:56:55

请问为何出现错误：
(if (= i 0)
    (progn
      (setq perpt1 perpt)
      (setq mpt (vlax-curve-getclosestpointTo (car en_jz) perpt1 t))
      (setq st_jz (distance perpt1 mpt))
      (setq gc1 (cadddr (assoc 10 (entget (ssname S2 I)))))
      (setq xy_list (cons spt xy_list))
    )
    (progn
      (setq jl (distance perpt perpt1))
      (setq perpt1 perpt)
      (setq gc2 (cadddr (assoc 10 (entget (ssname S2 I)))))
      (setq gaoc (- gc2 gc1))
                    ;(setq gc1 gc2)
      (setq x (+ (car spt) jl))
      (setq y (+ (cadr spt) gaoc))
      (setq xpt (list x y))
      (setq xy_list (cons xpt xy_list))
    )
      )
      (setq I (1+ I))

参数类型错误: numberp: nil

语法有问题吗

[woshilxh]爱摄影 19:58:14

估计哪行把字符串当数字了

等你 19:58:46

提取的是X Y坐标啊，怎么出错了

[woshilxh]爱摄影 19:59:56

还有就是处理表的时候容易出现错误

等你 20:07:57

请高人指点下

[辰] 20:11:55

(setq gc2 (cadddr (assoc 10 (entget (ssname S2 I)))))

等你 20:12:15

这个错误了吗

[辰] 20:12:52

好像不对，你是要取Z值？

等你 20:13:18

我绘制横断面，需要取得Z值

[辰] 20:13:48

(setq gc2 (last （cdr (assoc 10 (entget (ssname S2 I))))))试试

等你 20:14:42

谢谢，我试试看

等你 20:16:14

还是参数类型错误

[woshilxh]爱摄影 20:16:38

写lisp最怕的就是  参数类型错误了，

[辰] 20:17:13

多加PRINT 函数，找出错在哪句就好办了

等你 20:24:44

就是：(setq gc1 (cadddr (assoc 10 (entget (ssname S2 I)))))这句的错误，求论坛里的高人指点下吧

[vormittag]桔子 20:29:37

要看选择的图元是什么了。

[vormittag]桔子 20:30:17

有的10组码是平面坐标，没有第三个原子。

比如lwpolyline

等你 20:38:48

图元是点

明经快报

等你 21:28:48

请教 类似  @30

[vormittag]桔子 21:29:35

用polar找点

等你 21:30:11

谢谢了