[求助]：如何取得扩展数据里的项目？

fish710605

用(entget (car (entsel)) '("*"))可获得扩展数据，如何取得扩展数据里的项目呢？
比如获得的外部数据如下：
((-1 . <图元名: 7ef5f1f8>) (0 . "DIMENSION") (330 . <图元名:
7ef5dd08>) (5 . "204F") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0")
(100 . "AcDbDimension") (2 . "*D1") (10 179.481 147.894 0.0) (11 136.395
152.894 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0)
(42 . 43.0853) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3
. "$ BASE $") (100 . "AcDbAlignedDimension") (13 93.3099 172.148 0.0) (14
179.481 163.053 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0)
(100 . "AcDbRotatedDimension") (-3 ("ACAD" (1000 . "DSTYLE") (1002 . "{") (1070
. 144) (1040 . 0.5) (1070 . 40) (1040 . 2.0) (1002 . "}"))))
如何取得“ACAD”后的部分呢？

舟自横

有興趣試一下這個。。
(defun hy_GetXData (vlaObj AppID / xType XData);;;;取得圖元擴展數據并列表
  (cond ((= (type vlaObj) 'ENAME) (SETQ vlaObj (vlax-ename->vla-object vlaObj)))
       ((= (type vlaObj) 'VLA-OBJECT) (SETQ vlaObj vlaObj))
       (t (setq olderror *error*)))
  (vla-getxdata vlaObj AppID 'xType 'xData)
  (mapcar '(lambda (key val) (cons key (VLAX-VARIANT-value val)))
          (vlax-safearray->list xType)
          (vlax-safearray->list xData)
          )
  )
參數vlaObj是需要提取的對象
    AppID是檢索地址，象你上面的哪個對象就是"ACAD"

cy956

对表的子项孙项不外乎用car cdr cadr nth之类的硬提，用member，用循环。。。

xdata不方便，建议你用ldata等。坛内搜搜。

fish710605

ldata是什么东东啊？

问题已经解决了！谢谢楼上的兄弟！

骑士

我也有同样的问题，楼主怎么解决的阿
能不能在arx代码中读取这样的扩展数据？
亟盼赐教