yxp 发表于 2008-7-2 13:50:00

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

<p>300到309的组码可以保存字符。有没有那个组码可以保存表或者多维表的？</p><p>目前我把一维表转换为字符串保存在300号组码，但多维表比较麻烦。</p><p>大家在程序需要保存数据时怎么处理?</p><p>除了保存到txt文件或注册表。</p>

yxp 发表于 2008-7-2 17:05:00

<p><strong><font color="#f70909">下面是我的数据保存程序</font></strong></p><p><strong><font color="#f70909"></font></strong><br/>;;可存储空间:&nbsp; 10-18&nbsp;&nbsp; 点位表&nbsp; 40-47&nbsp;&nbsp; 实型数&nbsp;&nbsp; 90-99&nbsp;&nbsp; 整数值 32位 <br/>;;可存储空间:&nbsp; 300-309 字符串&nbsp; 50-58&nbsp;&nbsp; 角度值&nbsp;&nbsp; 280-289 整数值 8位&nbsp;&nbsp; </p><p><br/>;;下面程序将一个字符串通过非图形词典保存到dwg<br/>;;数据保存时调用(bc-cd a b) 参数a为名字，b为内容，均为字符串变量，不成功返回nil<br/>;;数据取出时调用(get-cd a)&nbsp; 返回参数a中保存的内容，没有a则返回nil<br/>;;数据修改时调用(xg-cd a b)</p><p><br/>;;从词典中取出数据内容，a为保存的词典名<br/>(defun get-cd(a)<br/>&nbsp;(cdr (assoc 300 (dictsearch (namedobjdict) a)))<br/>)</p><p>;;修改词典，如果a不存在返回nil<br/>(defun xg-cd(a b)<br/>&nbsp;(re-cda a 300 (cons 300 b))<br/>)</p><p>;;创建词典，如果词典名已存在返回nil<br/>(defun bc-cd (a b / c)<br/>&nbsp;(if (dictsearch (namedobjdict) a) nil<br/>&nbsp;(progn <br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq c (list(cons 0&nbsp;&nbsp; "XRECORD")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cons 100 "AcDbXrecord")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cons 300&nbsp; b)))&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp; (dictadd (namedobjdict) a (entmakex c))<br/>&nbsp;&nbsp;&nbsp; ) <br/>&nbsp;&nbsp; ) <br/>)</p><p>;;更新词典的程序<br/>(defun re-cda (cx_name cx_code cx_newl / cxlist cxename)<br/>&nbsp; (if (setq cxlist (dictsearch (namedobjdict) cx_name)) (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (dictremove (namedobjdict) cx_name) ;;删除词典<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq cxlist (subst cx_newl (assoc cx_code cxlist ) cxlist)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cxename (entmakex cxlist)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp; (dictadd (namedobjdict) cx_name cxename)))<br/>)</p>

sailorcwx 发表于 2008-7-2 17:25:00

<p>用(vlax-ldata-put)和(vlax-ldata-get)</p>

yxp 发表于 2008-7-2 18:36:00

<p>感谢！</p><p>大家都到VL了我在AL徘徊。</p>
页: [1]
查看完整版本: 各位高手，关于图形词典对象