[求助]怎么建立图形的附属列表
 

[求助]怎么建立图形的附属列表
www.dimcax.com
[求助]怎么建立图形的附属列表有没有方法建立图形的附属的列表。
比如我在图纸上画了一个螺栓，但是cad不知道我画的是螺栓。
如果我这个螺栓是用螺栓程序画的，那么cad就知道我画了一个标准的螺栓，大小是m24，长度100，重量0.35。然后就建立一个表，吧，标准，规格，重量存进去。
如果我想知道这个螺栓的属性，那么点击这个螺栓，用函数调出这个表，这个螺栓的属性就出来了，怎么实现呢？

d
可以考虑生成属性块
西北凡人：
属性块好像不好，我不止有m24的螺栓，有m27，m36等等，长度也不止100，有150，120等等，我希望程序画出来以后，自动打上标记，把这些属性都弄上去，然后用程序提取出来。
d
xdata
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
多谢老猫 ！
我看了下帮助，但是还是有点不懂。怎么在我调用螺栓程序的时候就把xdate输进去呢？
##########################################
语法
(xdsize list)
功能及参数
此函数将返回当 list 被附加到一个图元中作为扩展图元数据 (xdata) 时, 它所占用的位组大小。如果不成功, 这个函数会返回 nil。
list 必须是一个合法的
xdata
表, 它必须包含一个前面已经使用 regapp 函数注册过的应用程序名称。大括号({)项 (群组代码1002) 必须要对称。一个不合法的 list 将会产生一个错误, 并将适当的错误代码放置于 errno 变量中。如果
xdata
中包含一个尚未注册的应用程序名称, 则您会看到以下的错误信息(假定 comdecho 为 on):
invalid application name 1001 group
这个 list 可以从群组代码-3 开始, 但是它并不是必须的, 因为
xdata
可以包含多个应用程序的说明。这个表必须要有一组括起来的括号：
(-3 ("myapp" (1000 . "suitofarmor")
(1002 . "{")
(1040 . 0.0)
(1040 . 1.0)
(1002 . "}")
)
)
以下也是没有群组代码
-3 的相同范例。这个表刚好是第一个范例的 cdr, 但是将括起来的括号包含在里面是很重要的。
( ("myapp" (1000 . "suitofarmor")
(1002 . "{")
(1040 . 0.0)
(1040 . 1.0)
(1002 . "}")
)
invalid application name 1001 group
这个 list 可以从群组代码-3 开始, 但是它并不是必须的, 因为
xdata
可以包含多个应用程序的说明。这个表必须要有一组括起来的括号：
(-3 ("myapp" (1000 . "suitofarmor")
(1002 . "{")
(1040 . 0.0)
(1040 . 1.0)
(1002 . "}")
)
)
以下也是没有群组代码
-3 的相同范例。这个表刚好是第一个范例的 cdr, 但是将括起来的括号包含在里面是很重要的。
( ("myapp" (1000 . "suitofarmor")
(1002 . "{")
(1040 . 0.0)
(1040 . 1.0)
(1002 . "}")
)
范例


(setq n2 (list "yourapp" (cons 1000 "suitofarmor")
(cons 1040 0.0)
(cons 1040 1.0)
)
)
(regapp "myapp")
(ragapp "yourapp")
则:
(xdsize (list n1 n2)) 返回 48
#######################################################
(cons 1040 0.0)
(cons 1040 1.0)
)
)
(regapp "myapp")
(ragapp "yourapp")
则:
(xdsize (list n1 n2)) 返回 48
#######################################################
d
> >
扩展数据
扩展数据 (xdata) 由 autolisp 或 objectarx 应用程序创建。如果图元包含扩展数据，则扩展数据将跟随在图元的普通定义数据之后。组码 1000 至 1071 描述了扩展数据。下面是一个包含 dxf 格式扩展数据的图元样例。
普通图元定义数据：
0 insert 5f11100acdbentity 8top100acdbblockreference 2block_a 100.0