[讨论]：lisp编的excel通讯

shghe

从一本书上抄的一个excel通讯程序，运行不了，请各位指正！

(defun c:ex()
  (vl-load-com)
  (setq *acadapp* (vlax-get-acad-object))
  (setq *modelspace*
         (vla-get-modelspace
           (vla-get-activedocument *acadapp*)
           )
   );end setq
  (if (equal nil exe-xlscalelinear)
    (vlax-import-type-library
   :tlb-filename "c:/program files/microsoft office/office11/excel.exe"
   :properties-prefix "exm-"
   :constants-prefix "exe-"
   )
  );end if
(setq msexcel
  (vlax-get-or-create-object "excel.application")
);end setq
(if (/= nil msexcel)
  (progn
    (setq acsheet "sheet1")
          (setq n 0)
          (vlax-for ent *modelspace*
          (if ent
          (progn
            (setq n (1+ n))
              (exm-put-value
              (exm-get-range acsheet
              (strcat "a" (itoa n)))
              (vla-get-objectname ent))
              (exm-put-value
                (exm-get-range acsheet
                (strcat "b" (itos n)))
                 (vlax-get-object ent))
               (exm-put-value
                 (exm-get-range acsheet
                   (strcat "c" (itoa n)))
                    (vla-get-layer ent))
              (exm-put-value
                (exm-get-range acsheet
                  (strcat "d" (itoa n)))
                (vla-get-color ent))
                (exm-put-value
                 (exm-get-range acsheet
                 (strcat "e" (itoa n)))
                 (vla-get-linetype ent))
                );end progn
              );end if
            );end vlax-for
          );end progn
          (if (equal 0 n)
            (alert "空间模型内没有发现实体！")
          );end if
);end if
  (alert "Microsoft Excel 链接失败！")
);end defun

jx2008

是的，连接错误。附图：

                               
登录/注册后可看大图

shghe

我研究了下 修改了一点不过还不行?
那里有高手请指教

Underway

参考这个
http://b.co.163.com/showlog.jspe ... mp;log_id=558759940

shghe

多谢4楼，我研究下！

mhdp_cn

控制EXCEL的方法不只一种,一般用EXCEL本身提供的函数库,也可以用vlax-get-property和vlax-pu-property函数来取得或者设置EXCEL中SHEET或者CELL的属性即可,对象的属性值和属性的名称可以通过编辑器的监视工具来查看

shghe

谢谢6楼的指点，我现在稍微摸到点门了。不过，那些属性和名称的用法就一点也没头脑了

jyzas

下来学习:)