各位高手，关于图形词典对象

yxp

300到309的组码可以保存字符。有没有那个组码可以保存表或者多维表的？

目前我把一维表转换为字符串保存在300号组码，但多维表比较麻烦。

大家在程序需要保存数据时怎么处理?

除了保存到txt文件或注册表。

yxp

下面是我的数据保存程序

;;可存储空间:  10-18   点位表  40-47   实型数   90-99   整数值 32位
;;可存储空间:  300-309 字符串  50-58   角度值   280-289 整数值 8位  

;;下面程序将一个字符串通过非图形词典保存到dwg
;;数据保存时调用(bc-cd a b) 参数a为名字，b为内容，均为字符串变量，不成功返回nil
;;数据取出时调用(get-cd a)  返回参数a中保存的内容，没有a则返回nil
;;数据修改时调用(xg-cd a b)

;;从词典中取出数据内容，a为保存的词典名
(defun get-cd(a)
 (cdr (assoc 300 (dictsearch (namedobjdict) a)))
)

;;修改词典，如果a不存在返回nil
(defun xg-cd(a b)
 (re-cda a 300 (cons 300 b))
)

;;创建词典，如果词典名已存在返回nil
(defun bc-cd (a b / c)
 (if (dictsearch (namedobjdict) a) nil
 (progn
     (setq c (list(cons 0   "XRECORD")
                  (cons 100 "AcDbXrecord")
                  (cons 300  b))) 
     (dictadd (namedobjdict) a (entmakex c))
    )
   )
)

;;更新词典的程序
(defun re-cda (cx_name cx_code cx_newl / cxlist cxename)
  (if (setq cxlist (dictsearch (namedobjdict) cx_name)) (progn
      (dictremove (namedobjdict) cx_name) ;;删除词典
      (setq cxlist (subst cx_newl (assoc cx_code cxlist ) cxlist)
           cxename (entmakex cxlist)
       )
   (dictadd (namedobjdict) cx_name cxename)))
)

sailorcwx

用(vlax-ldata-put)和(vlax-ldata-get)

yxp

感谢！

大家都到VL了我在AL徘徊。