求高手回答

retfjkl

(defun c:box1( / chk_dd dcl_id)
   (setq dcl_id (load_dialog "box9.dcl"))
   (new_dialog "box9" dcl_id)

   (action_tile "accept" "(ok_exp6)")
   (show_sld "img_1" "XX1")
   (setq chk_dd (start_dialog))
   (if (= chk_dd 1) (XXX))
   (unload_dialog dcl_id)
)
(defun show_sld(sldkey sldname)
  (setq x (dimx_tile sldkey))
  (setq y (dimy_tile sldkey))   
  (start_image sldkey)
  (fill_image 0 0 x y -2)  
  (slide_image 0 0 x y sldname)
  (end_image)
)
(defun ok_exp6()
   (setq GDD (atof (get_tile "GD")))
   (setq CDD (atof (get_tile "CD")))
   (setq KDD (atof (get_tile "KD")))
   (setq ZDKDD (atof (get_tile "ZDKD")))
   (done_dialog 1)
)
(defun XXX()
(setq GD GDD)
(setq CD CDD)
(setq KD KDD)
(setq ZDKD ZDKDD)
(setvar "cmdecho" 0)
(setq p1 (getpoint "输入左下角点="))
(setq p2 (polar p1 0 CD))
(setq p3 (polar p2 0 ZDKD))
(setq p4 (polar p3 0 KD))
(setq p5 (polar p4 0 ZDKD))
(setq p6 (polar p5 (- (/ pi 2)) ZDKD))
(setq p7 (polar p6 (- (/ pi 2)) KD))
(setq p8 (polar p7 (- (/ pi 2)) ZDKD))
(setq p9 (polar p8 (- (/ pi 2)) (/ GD 4)))
(setq p10 (polar p9 0 CD))
(setq p11 (polar p10 (/ pi 2) (/ GD 4)))
(setq p12 (polar p11 (/ pi 2) ZDKD))
(setq p13 (polar p12 (/ pi 2) KD))
(setq p14 (polar p13 (/ pi 2) ZDKD))
(setq p15 (polar p14 0 ZDKD))
(setq p16 (polar p15 0 KD))
(setq p17 (polar p16 0 ZDKD))
(setq p18 (polar p17 0 (/ CD 4)))
(setq p19 (polar p18 (/ pi 2) GD))
(setq p20 (polar p19 pi (/ CD 4)))
(setq p21 (polar p20 pi ZDKD))
(setq p22 (polar p21 pi KD))
(setq p23 (polar p22 pi ZDKD))
(setq p24 (polar p23 (/ pi 2) ZDKD))
(setq p25 (polar p24 (/ pi 2) (/ KD 2)))
(setq p26 (polar p25 pi CD))
(setq p27 (polar p26 (- (/ pi 2)) (/ KD 2)))
(setq p28 (polar p27 (- (/ pi 2)) ZDKD))
(setq p29 (polar p28 pi ZDKD))
(setq p30 (polar p29 pi KD))       
(setq p31 (polar p30 pi ZDKD))
(setq p32 (polar p31 (/ pi 2) ZDKD))
(setq p33 (polar p32 (/ pi 2) (/ KD 2)))
(setq p34 (polar p33  pi CD))
(setq p35 (polar p34 (- (/ pi 2)) (/ KD 2)))
(setq p36 (polar p35 (- (/ pi 2)) ZDKD))
(command "line" p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16
           p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p32
           p33 p34 p35 P36 p1 "")
(command "line" p2 p31 "")
(command "line" p3 p30 "")
(command "line" p4 p29 "")
(command "line" p5 p28 "")
(command "line" p14 p23 "")
(command "line" p15 p22 "")
(command "line" p16 p21 "")
(command "line" p17 p20 "")
(command "line" p35 p32 "")
(command "line" p36 p31 "")
(command "line" p27 p24 "")
(command "line" p28 p23 "")
(command "line" p5 p14 "")
(command "line" p6 p13 "")
(command "line" p7 p12 "")
(command "line" p8 p11 "")
(princ)
)

; 错误: 参数类型错误: stringp nil
怎么改啊？？？

Gu_xl

要学会如何查找错误！如何定位查找错误，请看演示：