xdex_cell_writerange函数出现错误

liuyj

用xdex_cell_writerange函数时出现错误，提示“Created by LibXL trial version. Please renew your maintenance for using the latest releases.”之前没问题的，急啊！

newer

把你的完整代码贴上来吧

liuyj

哪里是我写的，就是借鉴了各位大师的代码。
(if (and (xdex_book_open) (xdex_book_addsheet "设备表" t))
             (progn (xdex_cell_writerange 0 0 sb_lst)
                    (if        (xdex_book_save "设备表.xls")
                      (xdrx_system_shellexecute "设备表.xls")
                    )
             )
)

newer

liuyj 发表于 2016-12-30 10:16

贴完整点啊，  sb_lst 值是什么，我没法测试你的代码。

liuyj

(setq sb_list '(("XH(1)-1-1" "热回收机组" "L=6000m3/h,H=600Pa,Ql=0.027kW,Qr=0.025kW,N=2.2kW,69dBA"
"一层空调机房" "一层办公")))

liuyj

有几张图出现了这个问题

newer

liuyj 发表于 2016-12-30 16:00

你把全部的代码发上来吧。

liuyj

(defun c:sbb (/ CNTR GJ_NAME GJ_TYPE SBSS SB_LST ET)
  (if (setq sbss (ssget '((0 . "INSERT"))))
    (progn (setq cntr        (- (sslength sbss) 1)
                 sb_lst        '()
           )
           (while (>= cntr 0)
             (if (setq et (ssname sbss cntr))
               (setq gj_name (mx_getxdata et)
                     gj_type (mx_str_split gj_name ":" 2)
                     gj_name (mx_str_split gj_name ":" 1)
               )
             )
             (setq sb_lst (cons        (list (if (XD_readX et "设备编号")
                                        (car (XD_readX et "设备编号"))
                                        ""
                                      )
                                      (car (XD::String:CEChrSplit gj_name))
                                      gj_type
                                      (if (XD_readX et "设备安装位置")
                                        (car (XD_readX et "设备安装位置"))
                                        ""
                                      )
                                      (if (XD_readX et "设备服务范围")
                                        (car (XD_readX et "设备服务范围"))
                                        ""
                                      )
                                )
                                sb_lst
                          )
             )
             (setq cntr (- cntr 1))
           )
           (if (and (xdex_book_open) (xdex_book_addsheet "设备表" t))
             (if (and (xdex_cell_writerange 1 0 sb_lst)
                      (xdex_book_save "设备表.xls")
                 )
               (xdrx_system_shellexecute "设备表.xls")
             )          
           )
    )
  )
  (princ)
)

newer

http://bbs.xdcad.net/thread-676614-1-1.html

去这个帖子，用下里面的保存图层，我试了，没有LIBXL TRIAL。。。。的提示

如果你还有，说明你没下载最新的API

newer

liuyj 发表于 2016-12-30 16:26

首先程序要读扩展实体数据，你得传一个DWG上来
另外里面还有 (XD_readX 这些自己的函数，不提供程序执行不了。

liuyj

别的我不敢说，API的更新我基本是第一时间的。发布一小时之内肯定更新了

newer

liuyj 发表于 2016-12-30 16:36

测试下那个图层导出EXCEL的，看看结果如何

liuyj

你链接的例子我也还有那个提示，我搜了一下，这是C++的链接库

newer

liuyj 发表于 2016-12-30 16:40

不可能我没有，你有那个提示。

你看下 XDRX.X86.dll 和 XDRX.X64.dll的文件大小和日期是什么？ 截图上来。

XDSoft

liuyj 发表于 2016-12-30 16:40

API更新了，下载下新的测试下。