[求助]：自已没有参考可看，请教扩展数据问题最好能举个例子谢谢

xxming

对象加入扩展数据和读取扩展数据有什么出函数？它们加入扩展数据有什么作用？它有哪些固定的DXF组码吗？

舟自横

(defun HY_PutXData (vlaObj XData);;;;對圖原加入擴展數據列表
  (cond ((= (type vlaObj) 'ENAME) (SETQ vlaObj (vlax-ename->vla-object vlaObj)))
       ((= (type vlaObj) 'VLA-OBJECT) (SETQ vlaObj vlaObj))
       (t (setq olderror *error*)))
  (setq XData
         (hy_BuildFilter
           (mapcar
             '(lambda (item / key)
                (setq key (car item))
                (if (<= 1010 key 1033)
                  (cons key
                        (vlax-variant-value
                          (vlax-3d-point
                            (cdr item)
                            )
                          )
                        )
                  item
                  )
                )
             XData
             )
           )
        )
  (vla-setXData vlaObj (car XData) (cadr XData))
  )

;;;;(hy_PutXData myVlaObj '((1001 . "ACADX") (1000 . "myStringData")))

(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)
          )
  )

xxming

例子看不太懂，谁能解释一下我的三个问题