获取扩展数据的函数

cag · 发表于 2004-4-9 16:01:00

谁能帮我编一个获取扩展数据的函数
只要能获取注册的应用程序名和1000 项就行了。
谢了。

spring · 发表于 2004-4-9 17:49:00

应用程序可以调用 entget 来获得已经注册的扩展数据。entget 函数既能返回定义数据，也能返回应用程序所需的扩展数据。这需要一个额外的参数 application，它用于指定应用名称。传给 entget 的名称必须与上一次调用 regapp 注册的应用一致，它们也可以包含通配符。
在缺省情况下，关联填充图案也包含扩展数据。下列代码显示了该扩展数据的关联表。
命令：    (entget (car (entsel)) '("ACAD"))
选择对象：    选择关联图案填充
在命令行中输入上述代码，会返回如下所示的一个表：
((-1 . ) (0 . "INSERT") (8 . "0") (2 . "*X0")
(10 0.0 0.0 0.0) (41 . 1.0) (42 . 1.0) (50 . 0.0) (43 . 1.0) (70 . 0) (71 . 0)
(44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0) (-3 ("ACAD" (1000 . "HATCH")
(1002 . "{") (1070 . 16) (1000 . "LINE") (1040 . 1.0) (1040 . 0.0)
(1002 . "}"))))
这段代码段演示了为两个指定的应用获取扩展数据的典型序列。请注意，参数 application 以表的格式来传入应用名称：
(setq working_elist
   (entget ent_name
   '("MY_APP_1" "SOME_OTHER") ; 仅当扩展数据来自“MY_APP_1”和
   ) ;“SOME_OTHER”时，才被获取
)
(if working_elist
   (progn
   ... ; 更新工作图元组
   (entmod working_elist) ; 只有仍在表 working_elist 中的注册
   ) ; 应用程序的扩展数据才被修改
)
如样例代码所示，与用 entmod 修改正常定义数据一样，可以通过调用 entmod 的子序列修改用 entget 获取的扩展数据，也可以在传递给 entmake 的图元表中定义扩展数据来创建它。
只返回应用明确要求的扩展数据，可以防止一个应用误用另一个应用的数据。它也控制了应用程序需要使用的内存数量，并简化了应用程序需进行的扩展数据处理。
注意由于 application 传入的字符串可以包含通配符，因此应用名为“*”将导致 entget 返回附着在图元上的所有扩展数据。;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:ttt()
(setq ed (entget (car (entsel)) '("MY_TAG")))
   (setq xdata (cadr (assoc -3 ED)))
   )

spring · 发表于 2004-4-9 17:51:00

漏说了一点，在上面的程序中只能取的注册名是 MY_TAG 的扩展数据

BDYCAD · 发表于 2004-4-9 20:31:00

sping 真細心

cag · 发表于 2004-4-10 09:30:00

多谢，请问如何用ActiveX方法获取一个扩展数据？
Function Object_GetxData(Obj As AcadObject) As String
   On Error Resume Next
   Dim xdataOut As Variant
   Dim xtypeOut As Variant
   Obj.GetXData "", xtypeOut, xdataOut
   Object_GetxData = xdataOut(1)
End Function
这是我以前编的一个VBA函数用来获取扩展数据，运行通过，如何将其转换成VL代码？

meflying · 发表于 2004-4-10 10:45:00

不知道楼主到底要做什么,有问题不凡一次性都说出来,不要一点一点地问,拿些例子性的东西要别人转换...
(defun Object_GetxData(obj / xtypeOut xdataOut)
(vla-getxdata obj "" 'xtypeOut 'xdataOut)
(cdr (mapcar 'vlax-variant-value (vlax-safearray->list xdataOut)))
)