[求助]：在编写LISP程序时出现的一个问题

380262155

DCL
fl:dialog{
label=
"螺母正视图绘制器"                        ;
:text{
label=
"输入数据，然后单击确定"                ;
}
:boxed_row{
label=
"输入螺母的中心点"                        ;
:edit_box{
label=
"x轴坐标"                                ;
key=
"cpx"                                        ;
fixed_width=true                        ;
width=5                                        ;
alignment=centered                        ;
}
:edit_box{
label=
"y轴坐标"                                ;
key=
"cpy"                                        ;
fixed_width=true                        ;
width=5                                        ;
alianment=centered                        ;
}
}
:boxed_row{
label=
"轮廓尺寸参数"                                ;
:edit_box{
label=
"螺母口径"                                ;
key=
"kj"                                        ;
edit_limit=20                                ;
edit_width=5                                ;
}
:edit_box{
label=
"螺母内孔半径"                                ;
key=
"nb"                                        ;
edit_limit=20                                ;
edit_width=5                                ;
}
}
ok_only                                        ;
}


AUTOLISP
(defun c:fl (/ dcl_id)
  (setq dcl_id (load_dialog "fl.dcl"))
  (if (not (new_dialog "fl" dcl_id))
    (exit)
  )
  (action_tile "accept" "(date_manage)")
  (start_dialog)
  (unload_dialog dcl_id)
  (draw1)
  (princ)
)
(defun date_manage (/ x y cp rd rx pt1 pt2 pt3 pt4 pt5 pt6)
  (setq x (atof (get_tile "cpx")))
  (setq y (atof (get_tile "cpy")))
  (setq cp (list x y))
  (setq rd (atof (get_tile "kj")))
  (setq rx (atof (get_tile "nb")))
  (setq pt1 (polar cp (/ pi 6) (* (/ rd 2) (/ 2 (sqrt 3)))))
  (setq pt2 (polar cp (/ pi (- 0 6)) (* (/ rd 2) (/ 2 (sqrt 3)))))
  (setq pt3 (list x (- y (+ 2 (/ rd 2)))))
  (setq pt4 (list x (+ y (+ 2 (/ rd 2)))))
  (setq pt5 (list (- x (+ 2 (/ rd 2))) y))
  (setq pt6 (list (+ x (+ 2 (/ rd 2))) y))
)
(defun draw1 ()
  (command "line" pt1 pt2 "")
  (command "array" "l" "" "p" cp "6" "" "y")
  (command "circle" cp "D" rd)
  (command "circle" cp "D" rx)
  (command "layer" "m" 1 "c" 1 "" "")
  (command "line" pt3 pt4 "")
  (command "line" pt5 pt6 "")
  (command "arc" "c" cp (list (* 0.55 rx) y) "a" "270.0")
  (command "layer" "m" 0 "on" "" "")
)
在加载执行时却出现"命令: ; 错误: 参数类型错误: numberp: nil"
谢谢```