如何才能随DWG文件保存程序的参数？

yxp

在程序中调用的一些参数，因图形的不同参数也不同，我以前使用的是那几个随文件保存的系统变量。userr1、userr2.......可是参数多了就不行了，文本参数也保存不了。

请问大家有没有好的子程序，能够实现这个功能(支持R14)？我查了非图形对象的数据扩展，还有什么词典，结果弄不明白啊。

meflying

那就把那些弄不明白的弄明白了吧...

yxp

我照书上敲了一段例程，结果竟然是错的，然后就更不明白了。

能给一段例子吗？大哥。

alin

那你就把你敲的例程贴出来吧.

yxp

我找到了我以前编的程序，时间长了就忘了。

(defun c:aa ( / xname xrec aa )

;;(namedobjdict)
;;返回当前图形的命名对象词典的图元名，它是所有非图形对象的根
;;可存储空间:  10-18   点位表  40-47   实型数   90-99   整数值(32位)
;;可存储空间:  300-309 字符串  50-58   角度值   280-289 整数值(8位） 

 (if (setq aa (dictsearch (namedobjdict) "BZD"))
 (princ aa)
 (progn
     (setq xrec '((0 . "XRECORD")(100 . "AcDbXrecord")
        (1 . "bzd")
        (6 . "Continuous")  ;线型
        (7 . "yxp_bzd")     ;文字样式
        (8 . "Coordinate")  ;图层
    
        (10 0.0 0.0 0.0)     ;原点x坐标
        (11 0.0 0.0 0.0)     ;原点y坐标
        (40 . 3.25)     ;标注文本高度
        (41 . 1)        ;数据比例
        (42 . 3)        ;小数位数
        (43 . 1)        ;横向长度
        (280 . 0)       ;数学坐标
        (300 . "X=")    ;文本前缀x
        (301 . "Y=")    ;文本前缀y

       ))  ;;end setq

      (setq xname (entmakex xrec))
      (dictadd (namedobjdict) "BZD" xname)
 
  (cxrecord "BZD" 40 (cons 40 (/ (getvar "VIEWSIZE") 80))) ;更新默认字高
 

   ) ;;end progn
   ) ;;end if

(dictsearch (namedobjdict) "BZD"))

)

;;更新词典
(defun cxrecord (cx_name cx_code cx_newl / cxlist cxename)
      (setq cxlist (dictsearch (namedobjdict) cx_name))
      (dictremove (namedobjdict) cx_name)
      (setq cxlist (subst cx_newl (assoc cx_code cxlist ) cxlist)
            cxename (entmakex cxlist))
      (dictadd (namedobjdict) cx_name cxename)
)