1、autolisp对Excel表的数据无法直接读取，需要将Excel保存为.csv的格式读取。
2、(setq str_list nil)
(if (setq path (findfile "C:\\Users\\ASUS\\Desktop\\工作簿1.csv"))
(progn
(setq file (open path "r"))
(while (setq str (read-line file))
(setq str_list (append str_list (list str)))
)
)
)
(print str_list)
(princ )
再用这段函数读取到CAD，命令行显示如图所示。
3、接下来再根据所需要格式用lisp函数对表进行编辑获取所需数据格式。
