autolisp插件，加載後，使用方法如圖：
autolisp代碼如下，復制到記事本，以.lsp為後綴命名，打開cad，輸入appload加載，命令TES（可以自己修改命令）。
(defun?c:tes?(?/?#n5?&p1?tr1) (if?(null?#n1)?(setq?#n1?1)?) (if?(setq?tr1?(getint?(strcat?"\請輸入整數值:<"?(rtos?#n1?2?0)?">"))) (setq?#n1?tr1) (setq?tr1?#n1) ) (if?(null?#n2)?(setq?#n2?100)?) (initget?6) (if?(setq?#n5?(getdist?(strcat?"\n請輸入文字高度:<"?(rtos?#n2)?">"))) (setq?#n2?#n5) (setq?#n5?#n2) ) (while?(setq?&p1?(getpoint?"\n請選擇插入點")) (entmake?(list?'(0?.?"text")?(cons?10?&p1)?(cons?1?(rtos?tr1?2?0))?(cons?40?#n5)?'(41?.?0.5)?'(72?.?4)?(cons?11?&p1))) (entmake?(list?'(0?.?"circle")?(cons?10?&p1)?(cons?40?(*?#n5?0.85)))) (setq?tr1?(1+?tr1)) (setq?#n1?tr1) ) (princ))