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

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你是怎么写的，把代码贴上来，帮你看下。

newer

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

测试下XDATA

命令: (setq ed (entget (entlast) '("*"))
(_> )
((-1 . <图元名: -9a8d48>) (0 . "LINE") (330 . <图元名: -267308>) (5 . "917") (100 .
"AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbLine") (10 2146.04
710.146 0.0) (11 2354.2 804.642 0.0) (210 0.0 0.0 1.0))

命令: (xdrx_xdata_set (entlast) "aaa" 1 2.0 3.0 4.0)
T

命令: (entget (entlast) '("*"))
((-1 . <图元名: -9a8d48>) (0 . "LINE") (330 . <图元名: -267308>) (5 . "917") (100 .
"AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbLine") (10 2146.04
710.146 0.0) (11 2354.2 804.642 0.0) (210 0.0 0.0 1.0) (-3 ("AAA" (1070 . 1)
(1040 . 2.0) (1040 . 3.0) (1040 . 4.0))))

命令: (xdrx_xdata_set (entlast) "BBB" "faf" 1.2)
T

命令: (entget (entlast) '("*"))
((-1 . <图元名: -9a8d48>) (0 . "LINE") (330 . <图元名: -267308>) (5 . "917") (100 .
"AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbLine") (10 2146.04
710.146 0.0) (11 2354.2 804.642 0.0) (210 0.0 0.0 1.0) (-3 ("AAA" (1070 . 1)
(1040 . 2.0) (1040 . 3.0) (1040 . 4.0)) ("BBB" (1000 . "faf") (1040 . 1.2))))


可以看到，能追加。分别加了两个，AAA,BBB

liuyj

最近API的几个版本不知道有哪些更新。我再来提两个问题，不知道提的是否对：
1、xdex_cell_readrange好像无法读取内容，请老大看看；
2、xdrx_xdata_set是否只能替换，不能追加扩展数据的内容？如不能是否可以设一个参数，使其能够追加？

XDSoft

XDRX API 更新 2017.02.12