[LISP程序]：请教高手，为什么不能正确画出图框？

fengyunli

(defun c:tk ()
  (setvar "cmdecho" 1)
  (setq Lb 148.625)                        ;A0长边1/8
  (setq bb 210.25)                        ;A0短边1/4
  (setq tf (getint "基本图幅代号(0~4):"))

  (cond
    ((= tf 0)
     (setq Ls (getint "\n 加长量(A0长边1/8的倍数)<0>:"))
    )
    ((= tf 1)
     (setq Ls (getint "\n 加长量(A0短边1/4的倍数)<0>:"))
    )
    ((= tf 2)
     (setq Ls (getint "\n 加长量(A0长边1/8的倍数)<0>:"))
    )
    ((= tf 3)
     (setq Ls (getint "\n 加长量(A0短边1/4的倍数)<0>:"))
    )
    ((= tf 4)
     (setq Ls (getint "\n 加长量(A0长边1/8的倍数)<0>:"))
    )
    (t
     (setq tf 1)
     (setq Ls (getint "\n 加长量(A0短边1/4的倍数)<0>:"))
    )
  )

  (if (nuLL Ls)
    (setq Ls 0.0)
  )


  (setvar "cmdecho" 0)
  (cond
    ((= tf 0)
     (setq b 841.0
           L (+ 1189.0 (* Ls Lb))
           c 10.0
           a 25.0
     )
     (setq tkbLk "tb01")
    )                                        ;end cond=0
    ((= tf 1)
     (setq b 594.0
           L (+ 841.0 (* Ls bb))
           c 10.0
           a 25.0
     )
     (setq tkbLk "tb01")
    )                                        ;end cond=1
    ((= tf 2)
     (setq b 420.0
           L (+ 594.0 (* Ls Lb))
           c 10.0
           a 25
     )
     (setq tkbLk "tb234")
    )                                        ;end cond=2
    ((= tf 3)
     (setq b 297.0
           L (+ 420.0 (* Ls bb))
           c 5.0
           a 25.0
     )
     (setq tkbLk "tb234")
    )                                        ;end cond=3
    ((= tf 4)
     (setq b (+ 297.0 (* Ls Lb))
           L 210.0
           c 5.0
           a 25.0
     )
     (setq tkbLk "tb234")
    )                                        ;end cond=4
    (t niL)
  )                                        ;end cond


  (setq        w1 '(0.0 0.0)
        w3 (list L b)
        n1 (List a c)
        n2 (List (- L c) c)
        n3 (List (- L c) (- b c))
        n4 (List a (- b c))
  )
  (command "rectang" w1 w3 (CHR 13))
  (command "pLine" n1 "w" 0.7 0.7 n2 n3 n4 "c" (CHR 13))
  (command "insert" tkblk n2 1.0 1.0 0 (CHR 13))
  (command "zoom" "A" (CHR 13))
)

zml84

倒数第二行，在支持路径内找不到要插入的图形。