Question

CAD lisp 程序中出现参数类型错误: numberp: nil，怎么修改，请指教~！

(defun c:dengfen(/ s d0 d n d1 p)
(prompt"\n选择曲线")
(if(setq s(ssget ":S"'((-4 . "<AND")(0 . "*line,arc")(0 . "~?line")(-4 . "AND>"))))
(progn(setq s(vlax-ename->vla-object(ssname s 0))
d0(vlax-curve-getDistAtParam s(vlax-curve-getEndParam s))
d(getreal(strcat"所选曲线长度"(rtos d0 2 2)"等分距离或者分段数(用负整数表示)")))
(if(< d 0)(progn(setq d(abs d)n 0 d0(/ d0 d))
(while(< n(1- d))(setq n(1+ n)
p(append p(list(vlax-curve-getpointatdist s(* d0 n)))))))
(progn(setq d1 0)
(while(< d1 d0)
(setq d1(+ d1 d)p(append p(list(vlax-curve-getpointatdist s d1)))))))
(setq p(append(list(vlax-curve-getstartpoint s))p(list(vlax-curve-getendpoint s)))))))

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

若以下回答无法解决问题，邀请你更新回答

Answer 1

按一下程序停在哪一句，然后重点分析。应该是返回数据空之类的错误。