请高手看看这段用LISP往EXCEL里写数据的代码哪不对！？？

monkeycctv · 发表于 2012-11-9 20:27:24

本帖最后由 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
)

monkeycctv · 发表于 2012-11-12 12:17:29

写入EXCEL的格式是这种

monkeycctv · 发表于 2012-11-13 13:48:41

知道的高手给点意见呀！

monkeycctv · 发表于 2012-11-19 16:40:49

经过多日研究，终于解决了

crazylsp · 发表于 2012-11-19 16:46:32

要用到脚本吧？

流_星 · 发表于 2013-2-5 20:19:48

挺需要的回个

s678z · 发表于 2013-2-6 08:32:44

请看这个方法http://bbs.mjtd.com/thread-96635-1-1.html

jyzas · 发表于 2013-8-6 20:37:17

本帖最后由 jyzas 于 2013-8-6 20:39 编辑

只提问题，怎么解也不贴出来

清风明月名字 · 发表于 2013-8-17 19:34:49

我也有这种看法，有些人发贴问别人，解决了却保密，不地道

feng83 · 发表于 2014-5-13 07:17:52

路过，学习下，楼主怎么解决的也要说下啊，[em0][em0][em0]

账号		自动登录	找回密码
密码			注册

请高手看看这段用LISP往EXCEL里写数据的代码哪不对！？？

本帖子中包含更多资源

相关帖子

本帖子中包含更多资源