怎么用txt文本导入数据的方式实现自动画图？

cd342978119

本人是从事钣金工作的，刚刚学习用lisp画图，现在手里有一个单子是已知3边长的任意三角形，自己用lisp写了一个程序，输入3个边长自动生成图形，但是有1000多个号，手输太慢了，有没有老师能指点一下，把所有的号的3边长都放到一个TXT文本里面，然后导入到CAD能自动生成图形。在此先感谢大家！


这是我写的画三角形的程序

(defun c:1tt(  / pt1 pt2 pt3 L1 L2 L3 ang1 a b c e
           )
   (COMMAND "ucs" "w")
   (setvar "cmdecho" 0)
   (setvar "blipmode" 0)
   (setq j (getvar "osmode"))
   (setvar "osmode" 0)

    (setq pt1 (getpoint "\n输入起点:"))
   (setq L1 (getreal "\n输入L1值:"))
(setq L2 (getreal "\n输入L2值:"))
(setq L3 (getreal "\n输入L3值:"))
   (setq a (* L2 L2))
   (setq b (* L3 L3))
   (setq c (* L1 L1))
   (setq d (*(* b c) 2))
   (setq e (/ (-(+ b c) a) d))
   (setq ang1 (atan (sqrt (-(/ 1 (* e e)) 1))))
   (setq pt3 (polar pt1 ang1 L3))
   (command "pline" pt1 pt2 pt3 "c")
   (setvar "osmode" j)
   )

王鹏_pBZlo

(setq of (open "filename.txt" "r"))
(while (setq txt (read-line of))
.....
.....
...  
)(close of)