释放不掉的局部变量！1

aaacjh

小的写了条程序，不知是哪里写错了，死活就是不能把局部变量给释放掉，求助于高手！
如以下程序，局部变量( t1 mn i ni ay ax n t2 str k a1 a10 fom)死活去不掉!!

(defun c:qf( / t1 mn i ni ay ax n t2 str k a1 a10 fom)
  (setvar "osmode" 0)
  (print "<QF编码>功能已开启")
  (princ ">>请选择对象...")
  (setq nu(ssget (list '(0 . "INSERT") '(8 . "1"))))
  (setq t1 1)
  (form1)
  (setq i 0 n 0)
  (repeat (sslength nu)
    (setq mn(nth n fom))
    (setq i 0)
    (repeat (sslength nu)
      (setq ni(entget(ssname nu i)))
      (setq ax(cadr(assoc 10 ni)))
      (setq ay(- (caddr(assoc 10 ni)) 12.69))
(if (= mn ax)
   (progn (setq ax(+ 4.61 (cadr(assoc 10 ni)))) (xt))
)
      (setq i(1+ i))
    )
    (setq n(1+ n))
  )
  (setvar "osmode" 15359)
  (princ)
)
(defun xt()
  (setq t1(rtos t1))
  (setq t2(strcat t1 "QF"))
  (setq text(list (cons 0 "TEXT") (cons 102 "{ACAD_REACTORS") (list 10 ax ay 0.0) (cons 40 3) (cons 1 t2) (cons 8 "2")))
  (entmake text)
  (setq t1(atof t1))
  (setq t1(+ t1 1))
  (princ)
)
(defun form1()
  (setq str nil k 0)
  (repeat (sslength nu)
    (if (ssname nu k);判断是否存在下一个图素
      (progn (setq a1(entget(ssname nu k)))
        (setq a10(cadr(assoc 10 a1)))
(setq str(append str (list a10)))
      )
    )
    (setq k(1+ k))
  )
  (setq fom(vl-sort str '<))
  (princ)
)

zyhandw

试过了，没有出现不能释放的情况，是不是执行中出错了啊？

Andyhon

猜是 命令列 所设定的变量值
Command: (defun C:test (/ a b) (setq a 1 b 2) (+ a b))
C:TEST

Command: test
3

Command:
Command: !a
nil

Command: (setq a 5)
5

Command: test
3

Command:
Command: !a
5

richine001

我同样遇到这样的问题，请问该怎么解决哈