*[已解決]連續插入加工名稱

請幫我指導如何完成此程式謝謝
;[Flow-1]*****加工程序********
(defun C:Flow-1 ()
(setvar "cmdecho" 0) ;;指令執行過程不回應
(setq os (getvar "osmode")) ;;記錄原物件鎖點值
(setvar "osmode" 0) ;;關閉物件鎖點

;(setq old_plinewid (getvar "plinewid"))
;(setvar "plinewid" 0.2)(setvar "plinewid" (* ww1 0.5))
;(setq old_plinewid (getvar "plinewid"))
;(setvar "plinewid" 0.2) .....(setvar "plinewid" old_plinewid)

(prompt "\n======加工程序======")
(setq th (getreal "\n請輸入字高<3>:"))
(if (= th nil) (setq th 3.0))
(setq p0 (getpoint "\n請點及放置點:"))
;(setq ps (polar p0 0 (* th 3.0)))
;(setq p1 (polar ps (* pi 0.5)(/ th 2.0)))
;(setq p2 (polar p1 0 5 ))
;(setq p3 (polar p2 0 3 ))
(while (/= p0 nil)
;(while p0
(initget "MD MM D M S E C H G W P J T N ")
(setq typ(getkword "\nMD(M/C鑽)/MM(M/C銑)/Drill(鑽孔)/Mill(銑削)/Saw(鋸切)/Edm(放電)/Carve(雕刻)/Hrc(熱處理)/Grind(研磨)/Wire(線割)/Plating(電鍍)/Jg(內孔研磨)/tiN(鍍鈦) :"))
(cond ((= typ "MD")(setq ty "M/C鑽"))
((= typ "MM")(setq ty "M/C銑"))
((= typ "D")(setq ty "鑽孔"))
((= typ "M")(setq ty "銑削"))
((= typ "S")(setq ty "鋸切"))
((= typ "E")(setq ty "放電"))
((= typ "C")(setq ty "雕刻"))
((= typ "H")(setq ty "熱處理"))
((= typ "G")(setq ty "研磨"))
((= typ "W")(setq ty "線割"))
((= typ "P")(setq ty "電鍍"))
((= typ "J")(setq ty "內孔研磨"))
((= typ "N")(setq ty "鍍鈦"))
)

(command "text" p0 th "" ty "" )
(setq p3 (polar p0 0 (* th 3 )))
;(command "pline" p1 "w" "0.2" "0.2" p2 "h" "0.5" "0" p3 "" )
(setq p0 p3)
)
(setvar "osmode" os) ;;回復原物件鎖點
(prompt "=========加工程序==========")
(prompt "\n<<指令:Flow-1>>程式撰寫Tseng fu-shu[[加工程序]]2007/10/13")
(prin1)
);defun

關於LISP程式的測試，目前論壇還沒有提供這樣的服務，因為業界的程式需求太多種了，而且很難在論壇中以文字的方式來處理~

或許你可以到以下網址詢問看看!
http://www.autocad.com.tw/asp/ShowRecord.asp?WebName=AutoCAD&ParentWebName=