XDRX_Database_readDwg应用

st788796

以前不打开图形进行编辑 Lisp 只能通过 ObjectDBX 来做，看到 API 有几个 DataBase 函数就试了一下，没有摸到头绪，xdrx_database_selDB 后哪些是相关函数？ api 中的数据库大都是基于实体的，这个实体一般也是用 ssget entsel 获取，在ObjectDBX下处理 Modelspace PaperSpace也是用遍历方式，不支持选择的，问题是 API 提供了 ReadDWG 方法，可这个 Datebase 内的实体用什么函数获得？

XDSoft

你选择了外部数据库后，API的所有关于对象等函数都是对那个外部数据库操作了。

比如：
你再使用
(xdrx_object_get "layer" "0") 获得的就是那个数据库的图层定义了
你也一样用其他的API函数去修改那个数据库中的实体，比如：
修改层名。

通过这些数据库相关函数，就可以写批量的处理外部数据库内容的程序了，比如批量根据定义的层名替换文件，去修改层名，进行标准化等。

你试试。

XDSoft

API的所有对数据库对象操作的函数，都是对着一个数据库指针，你修改了这个指针，API函数就处理那个数据库。

记得操作完，一定要关闭外部数据库。API才正常回到当前图形。

st788796

比如我要替换数据库某些Text为 Newstring 怎么操作？

newer

st788796 发表于 2013-9-23 23:06
比如我要替换数据库某些Text为 Newstring 怎么操作？

我想，你要先找到这些实体，选择集函数肯定用不了，你只能用API函数。

那只能遍历数据库了，

下面是我的测试：

命令: (setq ob (xdrx_object_get "block" "*model_space"))
<图元名: 7ef93cf8>

命令: (while (setq e (xdrx_object_next))(setq entlst (cons e entlst)))
(("AcDbBlockReference" <图元名: 7ef955a0>) ("AcDbBlockReference" <图元名: 7ef95450>)
("AcDbBlockReference" <图元名: 7ef95430>) ("AcDbBlockReference" <图元名: 7ef95410>))


找到你需要的文字，然后用 xdrx_SetPropertyValue 尽情修改吧。

newer

另外一个测试：

命令: (setq ob (xdrx_object_get "block" "*model_space"))
<图元名: 7ef93cf8>

命令: (setq entl (xdrx_getpropertyvalue ob "allentities"))
(<图元名: 7ef95410> <图元名: 7ef95400> <图元名: 7ef95408> <图元名: 7ef95430> <图元名:
7ef95450> <图元名: 7ef955a0> <图元名: 7ef95600>)

命令: (setq entl (xdrx_getpropertyvalue ob "entities"))
(<图元名: 7ef95410> <图元名: 7ef95430> <图元名: 7ef95450> <图元名: 7ef955a0> <图元名:
7ef95600>)

st788796

newer 发表于 2013-9-23 23:14
我想，你要先找到这些实体，选择集函数肯定用不了，你只能用API函数。

那只能遍历数据库了，

{:soso_e113:} 我怎么没想到这个 Name 用 *modelspce!

newer

st788796 发表于 2013-9-23 23:20
我怎么没想到这个 Name 用 *modelspce!

呵呵，越来越感觉API太强悍了。

还有一个 (xdrx_block_getEntity ob '((0 . "text"))) 就是支持过滤了，不过没试出来，问老大，老大说 这个函数过滤暂时支持带参数的 "C" "W"，以后支持全选这种，期待。