程序不能完全运行，求助高手

lys65

(defun c:w5()
(princ "\n##LZZW 5点\n")
(setvar "CMDECHO" 0)    ;关闭AutoCAD提示和输入
(setq oldos (getvar "OSMODE"))    ;关闭对象捕捉
(setq x0 55 y0 30.6)
(setq p0 (list x0 y0))
(setq d1 (getdist"输入偏移距离d1: "))
(setq d2 (getdist"输入偏移距离d2: "))
(setq d3 (getdist"输入偏移距离d3: "))
(setq d4 (getdist"输入偏移距离d4: "))
(setq d5 (getdist"输入偏移距离d5: "))

(setq p1 (list (- x0 8) (+ y0 d1)))
(setq p2 (list (- x0 8) (+ y0 d2)))
(setq p3 (list (- x0 8) (+ y0 d3)))
(setq p4 (list (- x0 8) (+ y0 d4)))
(setq p5 (list (- x0 8) (+ y0 d5)))
(setq p11 (list (- x0 15) (+ y0 d1)))
(setq p21 (list (- x0 15) (+ y0 d2)))
(setq p31 (list (- x0 15) (+ y0 d3)))
(setq p41 (list (- x0 15) (+ y0 d4)))
(setq p51 (list (- x0 15) (+ y0 d5)))

(setvar "OSMODE" 0)    ; ;关闭AutoCAD提示和输入
(command "line" p1 p11 "")
(command "line" p2 p21 "")
(command "line" p3 p31 "")
(command "line" p4 p41 "")
(command "line" p5 p51 "")
(setq p12 (list (- x0 11) (+ y0 d1)))
(setq p22 (list (- x0 11) (+ y0 d2)))
(setq p32 (list (- x0 11) (+ y0 d3)))
(setq p42 (list (- x0 11) (+ y0 d4)))
(setq p52 (list (- x0 11) (+ y0 d5)))

(setq f1 (getint "\n输入分格数f1="))
(setq f2 (getint "\n输入分格数f2="))
(setq f3 (getint "\n输入分格数f3="))
(setq f4 (getint "\n输入分格数f4="))
(command "line" p1 p12 "")
(command "array" "L" "" "R" f1 "" (/ (- d2 d1) f1))
(command "line" p2 p22 "")
(command "array" "L" "" "R" f2 "" (/ (- d3 d2) f2))
(command "line" p3 p32 "")
(command "array" "L" "" "R" f3 "" (/ (- d4 d3) f3))
(command "line" p4 p42 "")
(command "array" "L" "" "R" f4 "" (/ (- d5 d4) f4))

(setq p13 (list (- x0 11.8) (+ y0 (+ d1 0.5))))
(setq p23 (list (- x0 11.8) (+ y0 (+ d2 0.5))))
(setq p33 (list (- x0 11.8) (+ y0 (+ d3 0.5))))
(setq p43 (list (- x0 11.8) (+ y0 (+ d4 0.5))))
(setq p53 (list (- x0 11.8) (+ y0 (+ d5 0.5))))
(command "dtext" "s" "hz0.75" "j" "br" dr 0)
(command "dtext" "s" "hz0.75" "j" "br" d1 0)
(command "dtext" "s" "hz0.75" "j" "br" d2 0)
(command "dtext" "s" "hz0.75" "j" "br" d3 0)
(command "dtext" "s" "hz0.75" "j" "br" d4 0)

(setvar "OSMODE" oldos)    ;打开对象捕捉
(setvar "CMDECHO" 1)     ;打开AutoCAD提示和输入
(princ)
)

fan_zh

(command "dtext" "s" "hz0.75" "j" "br" dr 0)

dr 变量为空

lys65

已解决，得到高手指点，受益匪浅。