[討論]請問如何在不同的線段中打相同的字

我很久之前寫過一個可以在線段中打字的lisp,用的都還算正常,但是最近發現功能需要在改善,就是要打相同的字在碰不同的線,這會用到迴圈,但是剛好迴圈又是我的罩門(應該也是許多剛接觸lisp新手的罩門),想要新增迴圈又不知該如何修改,還請各位高手幫忙看一下

ps.這個程式已經完成約有10年了

;;;修正成批次方式
(defun c:lsp14f ()
(setvar "cmdecho" 0)
(setq old (getvar "osmode"))
(setvar "osmode" 0)
(setq txt (getstring "\n文字內容:")
txth (getreal "\n字高<20>:")
)
(setq ss (ssget '((0 . "LINE")))
i -1
)

(while (setq s1 (ssname ss (setq i (1+ i)))
endata (entget S1)
pt10 (cdr (assoc 10 endata))
pt11 (cdr (assoc 11 endata))
ang (angle pt10 pt11)
mid (midpt pt10 pt11)
)

(if (= txth nil) (setq txth 20))
(command "text" "m" mid txth 0.0 txt)
(setq ee_txt (entlast)
txtdata (entget ee_txt) ;求文字資料
)
(setq box (textbox txtdata)
pt1 (car box) ;字外框左下角
pt3 (cadr box)
)
(if (or
(equal ang 0.0 1e-4)
(equal ang Pi 1e-4)
)
(setq dist (distance pt1 pt3))
(setq dy (- (cadr pt3) (cadr pt1)) ;字外框右上角
dist (* dy 1.25)
) )
(setq ptbr1 (polar mid ang (* dist 1.5)) ;剪斷第一點
ptbr2 (polar mid (+ pi ang) (* dist 1.5)) ;剪斷第二點
)
(command "break" S1 ptbr1 ptbr2) ;設碰物件點為第一點
)
(setvar "osmode" old)
(prin1)
)
;**************線段中打字,線段可垂直