求助，需要实现一个简单的文本与块批量插入
各位大神，求帮帮忙啊。需要实现的功能很简单，把EXCEL中的文本与块根据其XY位置快速插入到CAD中，文字为单行文字，宋体，字高2，居中。
如果EXCEL不好读取，转换成TXT读取也行。
谢谢大神了
;excel输出成空格分开的txt文件
(defun c:tt ()
(setvar "CMDECHO" 0)
(setq fn (if fn fn ""))
(if (setq fn (getfiled "选择文件" fn "txt" 2)) (progn
(setq fp (open fn "r"))
(while (setq dl (read-line fp))
(setq dl (read(strcat "(" dl ")")))
(command "_.TEXT" (list (cadr dl) (caddr dl)) "" "" (vl-princ-to-string(car dl)))
(command "-INSERT" (vl-princ-to-string(cadddr dl)) (list (nth 4 dl) (last dl)) 1 1 0)
)
))
(setvar "CMDECHO" 1)
(princ)
) 感谢大神
页:
[1]