关于WHILE程序的使用问题
最近，我编了一个程序，其中用到WHILE函数，但是怎么也循环不起来，不知为什么，请高手指点一二，谢谢，程序如下：(defun c:bygg ()
;----------从TEXT文件中读取数据
(defun jstxt (fname fa)
(setq f (open fname "r"))
(setq vb (read (read-line f)))
(setq loop t)
(while loop
(setq jb (read (read-line f)))
(if (equal fa (car jb)) (setq jb1 jb loop nil)
)
)
(setq j -1 jb1 (cdr jb1))
(repeat (length vb)
(setq j (1+ j) x (nth j vb))
(setq x (nth j jb1))
)
(close f)
jb1)
(setq wj "D:/byqtj.TXT")
(setq numb (getint "请输入起始变压器序号："))
(if (= numb "")
(setq numb 1))
(setq loop T)
(while loop
(setq slist (jstxt wj numb))
(setq n 0)
(setq a (nth n slist))
(print (strcat "现在要更改的是" (vl-prin1-to-string a)))
(repeat 7
(setq a (nth n slist))
(cond
((= n 0)
(progn
(setq enna (entsel "现在要更改的是变压器名！"))
(setq database (entget (car enna)))
(setq database (subst (cons 1 (vl-prin1-to-string a)) (assoc '1 database) database))
(entmod database)
);progn
)
((= n 1)
(progn
(setq enna (entsel "现在要更改的是变压器容量！"))
(setq database (entget (car enna)))
(setq database (subst (cons 1 (strcat "SCB10H-" (itoa a) "/10")) (assoc '1 database) database))
(entmod database)
);progn
)
((= n 2)
(progn
(setq enna (entsel "现在要更改的是装设功率！"))
(setq database (entget (car enna)))
(setq database (subst (cons 1 (rtos a 2 2)) (assoc '1 database) database))
(entmod database)
);progn
)
((= n 3)
(progn
(setq enna (entsel "现在要更改的是需要系数！"))
(setq database (entget (car enna)))
(setq database (subst (cons 1 (rtos a 2 2)) (assoc '1 database) database))
(entmod database)
);progn
)
((= n 4)
(progn
(setq enna (entsel "现在要更改的是功率因数！"))
(setq database (entget (car enna)))
(setq database (subst (cons 1 (rtos a 2 2)) (assoc '1 database) database))
(entmod database)
);progn
)
((= n 5)
(progn
(setq enna (entsel "现在要更改的是计算电流！"))
(setq database (entget (car enna)))
(setq database (subst (cons 1 (rtos a 2 2)) (assoc '1 database) database))
(entmod database)
);progn
)
((= n 6)
(progn
(setq enna (entsel "现在要更改的是电容补偿量！"))
(setq database (entget (car enna)))
(setq database (subst (cons 1 (strcat "折算后电容" (itoa a) "kvar")) (assoc '1 database) database))
(entmod database)
);progn
)
);cond
(setq n (+ n 1))
);repeat
(if (= (strcase (getstring "是否需要继续？Y/N(N)")) "N")
(setq loop nil)
(setq numb (+ numb 1))
);if
);while
)
格式。。。眼花。。。
把最后的(if (= (strcase (getstring "是否需要继续？Y/N(N)")) "N")改为
(if (= (getstring "是否需要继续？Y/N(N)") "N")
试试
页:
[1]