请高手看看这段用LISP往EXCEL里写数据的代码哪不对！？？
本帖最后由 monkeycctv 于 2012-11-10 11:11 编辑目的是将当前图中模型空间内的所有实体的对象名、ID号、层、颜色及线型等属性值写入到Excel的单元格中，但运行后提示错误: “Automation 错误。未提供说明”，是什么原因？？？另附上图纸及说明。
(defun C:YYY ()
(vl-load-com) ;调入ActiveX支持函数
(setq *AcadApp* (vlax-get-acad-object)) ;建立与AutoCAD Application对象的链接
(setq *ModelSpace* (vla-get-ModelSpace (vla-get-ActiveDocument *AcadApp*))) ;链接到模型空间
(if (equal nil exc-xlScaleLinear) ;检查一Excel常数以判断Excel对象库是否输入
(vlax-import-type-library ;输入Excel2010对象库
:tlb-filename "c:/program files/Microsoft Office/Office14/excel.exe"
:methods-prefix "exm-"
:properties-prefix "exp-"
:constants-prefix "exc-"
)
)
(setq msexcel (vlax-get-object "excel.application.14")) ;链接Excel2010
(if (/= nil msexcel)
(progn
(setq acsheet (exp-get-activesheet msexcel)) ;链接当前工作表
(setq n 0)
(vlax-for ent *ModelSpace* ;循环扫描模型空间实体
(progn
(setq n (1+ n))
(exp-put-value (exp-get-range acsheet (strcat "a" (itoa n))) (vla-get-ObjectName ent);取得对象名属性
) ;向Excel单元格"An"写入数据
(exp-put-value (exp-get-range acsheet (strcat "b" (itoa n))) (vla-get-ObjectID ent) ;取得对象ID属性
) ;向Excel单元格"Bn"写入数据
(exp-put-value (exp-get-range acsheet (strcat "c" (itoa n))) (vla-get-Layer ent) ;取得层名属性
) ;向Excel单元格"Cn"写入数据
(exp-put-value (exp-get-range acsheet (strcat "d" (itoa n))) (vla-get-Color ent) ;取得颜色属性
) ;向Excel单元格"Dn"写入数据
(exp-put-value (exp-get-range acsheet (strcat "e" (itoa n))) (vla-get-Linetype ent) ;取得线型属性
) ;向Excel单元格"En"写入数据
) ;_ end of progn
);_ end of vlax-for
(if (equal 0 n)
(alert "模型空间内未发现实体！")
)
) ;_ end of progn
(alert "Microsoft Excel2010 链接失败！")
) ;_ end of if
)
写入EXCEL的格式是这种
知道的高手给点意见呀！ 经过多日研究，终于解决了 要用到脚本吧？ 挺需要的回个 请看这个方法http://bbs.mjtd.com/thread-96635-1-1.html 本帖最后由 jyzas 于 2013-8-6 20:39 编辑
只提问题，怎么解也不贴出来
我也有这种看法，有些人发贴问别人，解决了却保密，不地道
路过，学习下，楼主怎么解决的也要说下啊，
页:
[1]
2