求助，需要实现一个简单的文本与块批量插入

勤快小熠

各位大神，求帮帮忙啊。
需要实现的功能很简单，把EXCEL中的文本与块根据其XY位置快速插入到CAD中，文字为单行文字，宋体，字高2，居中。
如果EXCEL不好读取，转换成TXT读取也行。

谢谢大神了

ZZXXQQ

2. ;excel输出成空格分开的txt文件
   
3. (defun c:tt ()
   
4. (setvar "CMDECHO" 0)
   
5. (setq fn (if fn fn ""))
   
6. (if (setq fn (getfiled "选择文件" fn "txt" 2)) (progn
   
7. (setq fp (open fn "r"))
   
8. (while (setq dl (read-line fp))
   
9. (setq dl (read(strcat "(" dl ")")))
   
10. (command "_.TEXT" (list (cadr dl) (caddr dl)) "" "" (vl-princ-to-string(car dl)))
    
11. (command "-INSERT" (vl-princ-to-string(cadddr dl)) (list (nth 4 dl) (last dl)) 1 1 0)
    
12. )
    
13. ))
    
14. (setvar "CMDECHO" 1)
    
15. (princ)
    
16. )

;excel输出成空格分开的txt文件<br /> (defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (setq fn (if fn fn ""))<br /> (if (setq fn (getfiled "选择文件" fn "txt" 2)) (progn<br /> (setq fp (open fn "r"))<br /> (while (setq dl (read-line fp))<br /> (setq dl (read(strcat "(" dl ")")))<br /> (command "_.TEXT" (list (cadr dl) (caddr dl)) "" "" (vl-princ-to-string(car dl)))<br /> (command "-INSERT" (vl-princ-to-string(cadddr dl)) (list (nth 4 dl) (last dl)) 1 1 0)<br /> )<br /> ))<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )

勤快小熠

感谢大神