[LISP函数]：获取附着在AutoCAD对象上的扩展图元数据

spearfish

;;获取附着在AutoCAD对象上的扩展图元数据  
;;语法  
;;(ax:GetXData Obj AppID)  
;;参数  
;;obj:图元名
;;appid:AutoLISP函数REGAPP注册的应用名,如为("*")则返回全部XDATA，如为("AAA" "ACAD")则返回两个程序的数据
;;返回值  
;;返回附着到对象上的扩展图元数据列表  
;;如：  (("south" (1000 . "204201") (1040 . 1.0))
;;       ("AAAA" (1041 . 562.307)  (1000 . "aaaaa"))
;;       ("BBBB" (1000 . "bbbbbbb"))
;;       ("CCCC" (1041 . 752.569))
;;      )
;;样例  
;;(xl:GetXData myVlaObj '("*")) 或 (xl:GetXData myVlaObj '("AAA" "ACAD"))
(defun xl:GetXData
       (Obj AppID / data n i data_i k i_k data_k temp1 temp2)
  (setq data (cdr (assoc -3 (entget obj appid)))
n    (length data)
i    0
  )
  (repeat n
    (setq temp1  (nth i data)
   data_k (list (car temp1))
   temp1  (cdr temp1)
   k  (length temp1)
   i_k  0
    )
    (repeat k
      (setq temp2 (nth i_k temp1)
     i_k   (1+ i_k)
      )
      (if (and (not (equal temp2 '(1002 . "{")))
        (not (equal temp2 '(1002 . "}")))
   )
(setq data_k (append data_k (list temp2)))
      )
    )
    (setq data_i (append data_i (list data_k))
   i  (1+ i)
    )
  )
  data_i
)

asdttkjn

还要学习
多指教

bfz1982

顶起来，楼主辛苦了。

area88

好
好帖
很好帖
确实好帖
少见的好帖
真 TMD 好帖
难得一见的好帖
千年等一回的好帖
好得不能再好的好帖
惊天地且泣鬼神的好帖
让人阅毕击掌三叹的好帖
让人佩服得五体投地的好帖
让人奔走相告曰须阅读的好帖
让斑竹看后决定加精固顶的好帖
让人看后在各论坛纷纷转贴的好帖
让人看后连成人网站都没兴趣的好帖
让人看完后就要往上顶往死里顶的好帖
让人看后不断在各种场合重复引用的好帖
让人一见面就问你看过某某好帖没有的好帖
让人半夜上厕所都要打开电脑再看一遍的好帖
让个读过后都下载在硬盘里详细研究欣赏的好帖
让人走路吃饭睡觉干什么事连做梦都梦到它的好帖
让人翻译成36种不同外语流传国内外世界各地的好帖
让人纷纷唱道过年过节不送礼要送就送某某帖子的好帖
让国家领导人命令将该帖刻在纯金版上当国礼送人的好帖
让网络上纷纷冒出该帖的真人版卡通版搞笑版成人版的好帖
让人在公共厕所里不再乱涂乱化而是纷纷对它引经据典的好帖
让某位想成名的少女向媒体说她与该帖作者发生过性关系的好帖