转换对象数据到扩展实体数据

XDSoft · 发表于 2021-2-4 14:15:00

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

x

Converting object data to xdata using AutoLISP

问题：

Can I use AutoLISP to export object data to XData so that it can be easily read
in a DXF file?

解答：

Yes. The following example is one implementation. It creates XData under
appname "MYODLIST" that is grouped by table, with records from that table nested
in that group. Note that because XData is limited to only 16KB, there is no
scope to handle overflow errors.

Here is sample XData that shows six records from three different tables that are
attached to this entity:

(-3 ("MYODLIST"
(1002 . "{")
(1000 . "test1")
(1002 . "{") (1070 . 0) (1000 . "num=1.0000") (1000 . "ordinal=First")
(1002 . "}")
(1002 . "}")

(1002 . "{")
(1000 . "test2")
(1002 . "{") (1070 . 0) (1000 . "num2=1.0000") (1000 . "ordinal=First")
(1002 . "}")
(1002 . "{") (1070 . 1) (1000 . "num2=2.0000") (1000 . "ordinal=Second")
(1002 . "}")
(1002 . "}")

(1002 . "{")
(1000 . "test3")
(1002 . "{") (1070 . 0) (1000 . "num3=1.0000") (1000 . "ordinal=First")
(1002 . "}")
(1002 . "{") (1070 . 1) (1000 . "num3=2.0000") (1000 . "ordinal=Second")
(1002 . "}")
(1002 . "{") (1070 . 2) (1000 . "num3=3.0000") (1000 . "ordinal=Third")
(1002 . "}")
(1002 . "}"))))

Here is the code:

游客，本帖隐藏的内容需要积分高于 30 才可浏览，您当前积分为 0

杨天龙 · 发表于 2021-2-4 22:47:32

666666666666

yoyoho · 发表于 2021-2-5 07:39:14

缺(ade_开头函数

liulisheng · 发表于 2021-2-6 19:24:00

必须支持楼主一下

xk15c · 发表于 2021-2-7 04:15:30

受教受教，涨姿势了

xvjiex · 发表于 2021-2-15 06:50:39

转换对象数据到扩展实体数据，感谢分享！

janshyl · 发表于 2021-3-22 08:28:43

很實用的教學受教了

weizx2000 · 发表于 2021-4-5 00:09:20

谢谢分享谢谢分享

hxuerong1 · 发表于 2021-5-9 17:25:46

666666666666

sooma78 · 发表于 2022-5-26 20:24:28

这个想法很好

账号		自动登录	找回密码
密码			立即注册

[其他] 转换对象数据到扩展实体数据

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。