(2024.05.23日更新）XDRX_API FOR ACAD 2004-2025

newer

q81509562 发表于 2017-2-20 16:11

API是 ARX写的， 通用LISP函数库是LISP写的，调用了API里面写的函数。

q81509562

XDRX API与那个通用是2个东西吗

XDSoft

XDRX API 更新 2017.02.18

XDSoft

XDRX API 更新 2017.02.16

XDSoft

liuyj 发表于 2017-2-13 20:46

眼花了，重新下载下。

liuyj

下来的是2016-12-13的

XDSoft

XDRX API 更新 2017.02.13

longeshanpao

成功，基本功能好用，学习中

newer

liuyj 发表于 2017-2-13 11:54

用 xd::excel:readrange 搜索论坛就有了

http://bbs.xdcad.net/thread-704809-1-1.html
http://bbs.xdcad.net/thread-678799-1-1.html

liuyj

这俩一模一样啊，都是一个页面

XDSoft

liuyj 发表于 2017-2-13 01:29

XDEX::Excel:GetSelRange 函数库有两个版本

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

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

通用函数库现在用的是后一个， 你把第一个拷贝回去，就适合你现在写的代码了。

另外，注意的是，XDEX::Excel:ReadRange 之前，你要把当前激活的文档用xdex_book_open   打开。

XDSoft

liuyj 发表于 2017-2-13 01:21

追加，你可以先读出来，然后用LISP添加完数据后，再一起写回去。 之所以没考虑添加，是因为T，NIL这个值也可能作为数据添加。

liuyj

;;;分离字母和数字
  (defun numstr        (txt / num str n tmp len)
    (setq len (strlen txt)
          str ""
          num ""
          n   1
    )
    (repeat len
      (setq tmp        (substr txt n 1)
            n        (1+ n)
      )
      (if (numberp (read tmp))
        (setq num (strcat num tmp))
        (setq str (strcat str tmp))
      )
    )
    (list num str)
  )  
  (setq ra     (caar (XD::Excel:getSelRange))              ;当前单元格的地址
          rc     (xdex_cell_RC2Addr (car ra) (cadr ra))
          row  (car (numstr rc))                                  ;当前单元格所在行
          fjcs   (XD::Excel:ReadRange (strcat "B" row ":" "O" row))       ;这一步没反应了
  )

liuyj

我没有说清楚追加的意思，是像固版的那个API一样，可以对已有的数据的追加。
(XLRX-Ent-addXData ename/ss/enlist appName [bSubst = nil])
功能：将指定应用名作为扩展数据添加到所有ename/ss/enlist对象扩展数据中去
参数:
       ename/ss/enlist 图元名/选择集/图元列表
       appName 指定应用名字符串
       bSubst  是否替换已有的扩展数据，可选参数，T = 替换已有的扩展数据,nil = 追加到已有的扩展数据
例如，原有的NAME的数据为A，现在我又写了个B，我是想把A和B都加进去的，现在我只能先把NAME读出来，再把B加上，再重新写进去，觉得比较麻烦。

newer

liuyj 发表于 2017-2-12 23:47

readrange你是怎么写的，把代码贴上来，帮你看下。