[討論]寫了一個方便的lisp，但確執行沒反應，請高手幫幫忙

(defun c:dimx( / en x10-1 x11-1 en1 enqu qu ent x-10 x-11 y10-1 y11-1 z10-1 z11-1 x10 x11)
 (setq en(entget(car (entsel "請選取要要對齊的標註"))))
 (setq x10-1(car(cdr(assoc 10 en))))
 (setq x11-1(car(cdr(assoc 11 en))))
 (setq en1(ssget "_:L" '((0 . "DIMENSION"))))
 (setq enqu(sslength en1))
 (setq qu 0)
 (while (< enqu qu)
   (setq ent(entget(ssname en1 qu)))
   (setq x-10(assoc 10 ent))
   (setq x-11(assoc 11 ent))
   (setq y10-1(cadr(cdr(assoc 10 ent))))
   (setq y11-1(cadr(cdr(assoc 11 ent))))
   (setq z10-1(caddr(cdr(assoc 10 ent))))
   (setq z11-1(caddr(cdr(assoc 11 ent))))
   (setq x10(cons 10 (list x10-1 y10-1 z10-1)))
   (setq x11(cons 11 (list x11-1 y11-1 z11-1)))
   (setq ent(subst x10 x-10 ent))
   (setq ent(subst x11 x-11 ent))
   (entmod ent)
   (setq qu(1+ qu))
   )
 (princ)
 )
此程式的功用是把標註線對齊x軸，我一個一個檢查時(用顯微鏡)沒有問題，但載入使用都沒反應，到底哪邊卡住了...

while 之後的判斷式是不是有相反呢？不會有enqu < qu=0的情況哦！因為不存在所以之後要對齊的代碼就不會運行。

Atsai哥，真是一語點醒，我回去檢查了一下，果然判斷式反了，修改一下OK~
有時候真的都會卡很單純的地方........怪
其實我只要自己等個幾天後再去看程式，也許就能夠自己發現了，但最近也開始收拾心情要轉跑道，或許以後接觸CAD不多，所以怕放著放著又是很久以後....