MicroDraw 控件读取AutoLisp设置的扩展属性

如何读写Acad元素的扩展数据？？  扩展数据和MicroDraw属性链表是如何转化的？？
1.  AutoCad的每个元素（包括图层和可视元素点、线、园等）都可以设置扩展属性(XDATA）； 在AutoCAD环境内可以用lisp（VisualLisp）语言进行简单的设置；
2. 当用MicroDraw控件打开DWG文件时， 文件内的元素如何包含扩展属性，则属性项自动转换到元素(MB_Drawable)的属性链表内；可以用控件相关接口进行获取(GetLongProp   GetRealProp 等）；参见：http://www.microdraw.org/dz/viewthread.php?tid=375&highlight=%E5%B1%9E%E6%80%A7
3. 用MicroDraw控件保存DWG时， 元素属性链表将自动保存至acad元素的扩展数据；在acad环境内可以用lisp语言进行读取；
以下是例程lisp代码，文件名为op_xdata.lsp, 关于lisp语言的基本语法参见AutoCAD二次开发相关资料：
;;; 在Acad内对扩展数据(XDATA)进行操作
;;;
;;;
;;;  功能： 1.创建扩展数据  2. 修改扩展数据   3.删除扩展数据
;;;
;;;
;;;---------------------------------------------------------------------------------------------------
(defun c:writexdata(/)
  (setq the_ent_list(entget (car (entsel "\n 请选择元素： "))))
  ;;先判断是否已经有了日期
  (setq cur_date_list(assoc -3 the_ent_list))
  (if (null cur_date_list)
      (progn
         (setq cur_date(getstring "请输入日期（8位 如:20011201）:"))
         ;以下注册扩展数名，数据名"MDRAW_DATA"相当于MicroDraw控件内的属性名称
         (regapp "MDRAW_DATA")
         (setq tem_list (cons '1000 cur_date))
         (setq tem_list (list "MDRAW_DATA" tem_list '(1070 . 1)))
         (setq tem_list (list -3 tem_list))
         (setq exdata (list tem_list))
        ;(setq exdata '((-3
        ;                   ("MDRAW_DATA" (1000 . "20010101") (1070 . 1))
        ;              ))
        ;)
         (setq newent
               (append the_ent_list exdata))
          (entmod newent)
       )
       ;;如果已经有了日期
       (progn
          (setq date_list1 (assoc -3 the_ent_list))
          (setq date_list2 (car (cdr date_list1)))
          (setq date_list (nth 1 date_list2))
          (setq cur_date (cdr date_list))
          (setq the_prompt(strcat "\n当前日期："  cur_date "修改为："))
          (setq new_date(getstring the_prompt))
          (setq date_list20(subst new_date cur_date date_list2))
          (setq date_list1(subst date_list20 date_list2 date_list1))
          (setq date_list1 (cons -3 date_list1))
          (setq the_ent_list (subst date_list1 (assoc -3 the_ent_list) the_ent_list))
          (entmod the_ent_list)
       )
   )
)
;;从元素内读出扩展数据
(defun c:readxdata(/)
 (setq sel_ent_list (entget (car (entsel " \n 请选择元素:")) (list "*")))
 (setq ent_name(cdr (assoc 5 sel_ent_list)))
 (setq ent_type (cdr (assoc 0 sel_ent_list)))
 (princ)
 (princ "元素类型是:")
 (princ ent_type)
 ;(if (= ent_type "TRACE")
 ; (setq trace_name ent_name)
 ;  (progn
 ;    (princ "选择错误！")
 ;    (princ)
 ;    (exit)
 ;  )
 ;)
 (setq trace_list (entget (handent ent_name) (list "*")))
  ;(if(= trace_list nil)
  ;  (progn
  ;      (princ "没有扩展数据")
  ;       (princ)
  ;       (exit)
  ;   )
  ;)
 (setq cur_date "")
 (setq date_list (assoc -3 trace_list))
 (if (not (null date_list))
     (progn
        (setq date_list (car (cdr date_list)))
        (setq date_list (nth 1 date_list))
        (setq cur_date (cdr date_list))
        (setq cur_date (strcat "[日]" cur_date))
      )
     ;else
     (progn
         (princ "没有扩展数据")
         (princ)
         (exit)
     )
 )
 (setq open_price (nth 2 (assoc 10 trace_list))) ;Get the open price
 (setq close_price(nth 2 (assoc 12 trace_list))) ;Get the close price
 (setq line_list (entget (entnext (handent trace_name)) (list "*")))
 (setq high_price (nth 2 (assoc 10 line_list))) ;Get the low price
 (setq low_price (nth 2 (assoc 11 line_list))) ;Get the high pice one day
 (setq open_price (* open_price value_scale)
close_price(* close_price value_scale)
high_price (* high_price value_scale)
low_price(* low_price value_scale))
 (setq str1 (strcat "[开]"  (rtos (+ open_price 1) 2 2)))
 (setq str2 (strcat "[高]"  (rtos high_price 2 2)))
 (setq str3 (strcat "[低]"  (rtos low_price 2 2)))
 (setq str4 (strcat "[收]"  (rtos (- close_price 1) 2 2)))
 (setq str_all (strcat "<<>>" cur_date str1 str2 str3 str4))
 (setvar "modemacro"  str_all)
)
复制代码
虽然MicroDraw和Acad是两个完全不同的CAD平台，但提供了兼容Acad内扩展数据的方法；
在 acad内命令行键入 (load "c:\\op_xdata.lsp")  加载lsp程序 【注：lsp文件在c盘上，文件名称是 op_xdata.lsp】
写入扩展数据
command:writedata [回车]
读取扩展数据
command:readdata [回车]
以下我们要讨论的是如何在MicroDra控件环境内读取这些扩展属性：
"(-3 "  表示扩展数据？？？
((-1 . <图元名: 7efc6f58>) (0 . "TRACE") (330 . <图元名: 7efb9cd0>) (5 .
"2DDB") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "KLRED") (100 .
"AcDbTrace") (10 22556.0 9250.0 0.0) (11 22564.0 9250.0 0.0) (12 22556.0 9319.0
0.0) (13 22564.0 9319.0 0.0) (39 . 0.0) (210 0.0 0.0 1.0) (-3 ("MDRAW_DATA"
(1000 . "20011201") (1070 . 1))))