baozhiliang 发表于 2002-10-31 17:26:00

程序测试。。。

本帖最后由 作者 于 2002-10-31 17:26:56 编辑

大家帮忙看看，这两个程序可以说模仿的差不多了
但是excel的程序怎么就是不能新建一个文档呢？
各位高手帮忙找找原因，我初步认为问题出在
(setq docs (vla-get-Documents MSX))
这种用法是不是与word的不同啊？究竟该怎样能达到与另一个word同样效果的程序？

baozhiliang 发表于 2002-11-1 08:26:00

都来帮忙啊，版主，陈老师.....

都来帮忙啊，版主，陈老师.....

baozhiliang 发表于 2002-11-1 08:28:00

alin先生，你也来帮忙呀

baozhiliang 发表于 2002-10-31 17:30:00

附件有错误，再次上传

两个程序中的路径，请各位按照自己机器的office实际安装位置修改

alin 发表于 2002-11-1 11:12:00

test

;I am also confused with these codes and I can't get
;any on-line documents about the usage of these function,
;such as msxc-****.
;
;By changing your codes a little bit, I find it work. It can
;create a new excel book and put it visible.
;
;I am using Office 97 and AuotCAD 2002. Some minor changes have
;to made if you are using diffent Office Version. And, if you
;havn't got the function vlax-get-or-create-object,
;use the vlax-get-object and vlax-create-object as you did.

(defun c:exc()
(vl-load-com)
(if (null msxc-xl24HourClock)
   (vlax-import-type-library
      ;:tlb-filename "d:/Program Files/microsoft office/office10/XL5EN32.OLB";XL5CHS32.OLB
        :tlb-filename "c:/Program Files/microsoft office/office/EXCEL8.OLB"
      :methods-prefix "msxm-"
      :properties-prefix "msxp-"
      :constants-prefix "msxc-")
)
(setq MSX (vlax-get-or-create-object "Excel.Application.8"))
(if (/= nil MSX)
    (progn
      (vla-put-visible MSX :vlax-true)
            (setq wbs (vlax-get-property MSX 'Workbooks))
            (setq wb (msxm-add wbs))
      (vlax-put-property MSX 'ScreenUpdating -1)
    );progn
    (princ "\nNo Microsoft Excel application found.\n")
);endif
)

baozhiliang 发表于 2002-11-2 07:50:00

程序测试通过，非常感谢alin大师！

alin大师真是高，请问您是从哪里学到这么多东西的？
经过您的指点，现在我就可以将CAD中的数据写到excel表格里了，
再次感谢您！

123abc 发表于 2002-11-5 23:00:00

请介绍一下这个程序！

我的e文不行，能否用中文介绍一下这个程序的详细应用及工作原理，使大家共同进步。谢谢！！！！！

alin 发表于 2002-11-6 19:24:00

这

alin 发表于 2002-11-6 19:31:00

用于autocad与excel的通讯吧。把图中的数据输出到excel,或用excel的数据画图。

我在公司打不了中文，南极星会使页面全是乱码。
页: [1]
查看完整版本: 程序测试。。。