奇怪呀,这个图元对象的数据词典是怎么把1001组码添加上去的?

xiao_longxin

附件中的DWG文件中的一图元,可得到它的数据词典
((-1 . <图元名: 7ffff60e680>) (0 . "XRECORD") (5 . "2080") (102 .
"{ACAD_REACTORS") (330 . <图元名: 7ffff60c410>) (102 . "}") (330 . <图元名:
7ffff60c410>) (100 . "AcDbXrecord") (280 . 1) (1001 . "QLR_TDZH") (1000 . "土地证号")) )

但这不合规矩啊,XRECORD不是不支持1000以上的组码吗?搞得我想更新 (1000 . "土地证号") 为其它数据都不可以

xiao_longxin

st788796 发表于 2013-10-24 21:47
你要把数据分析到底才能替换 , -3 下面还有多个 要 assoc ，在子表中修改，最后重新 赋 整个 -3 表

我指的不是XDATA,是LDATA,是指XRECORD,按XRECORD说明是不支持1-369以外的组码,但以上DWG文件中的XRECORD中就是包含了1001和1000,不知道是怎么生成出来的,结果我想更新也没法更新

st788796

传 DWG 测试

xiao_longxin

数据样本                                      

xiao_longxin

st788796 发表于 2013-10-24 20:59
传 DWG 测试

数据样本                           

st788796

xiao_longxin 发表于 2013-10-24 21:37
数据样本

你要把数据分析到底才能替换 , -3 下面还有多个 要 assoc ，在子表中修改，最后重新 赋 整个 -3 表

st788796

xiao_longxin 发表于 2013-10-24 22:14
我指的不是XDATA,是LDATA,是指XRECORD,按XRECORD说明是不支持1-369以外的组码,但以上DWG文件中的XRECORD ...

你怎么得到的 Ldata ?
命令: (vlax-ldata-list (car (entsel)))
选择对象: nil

xiao_longxin

st788796 发表于 2013-10-24 22:39
你怎么得到的 Ldata ?
命令: (vlax-ldata-list (car (entsel)))
选择对象: nil

(defun c:tt (/ dicts DicObj RecObj xType xData e1)
  (setq        e1 (ssget "x")
        e1 (ssname e1 0)
  )

  (SETQ        Edata (entget e1 '("*"))
        edata (cdr (member '(102 . "{ACAD_XDICTIONARY") Edata))
  )
  (if Edata
    (progn
      ;; 360 所有者词典的硬所有者 ID/句柄。
      ;; 在此不考虑出现多个360的情况，感觉这种情况不应该存在。
      (setq DEname (cdr (assoc '360 Edata))) ;_词典对象。

      (setq DEdata         (entget DEname) ;_词典数据。
            ;;条目名称SOUTHDIJI所对应的XRECORD对象
            XrEnameSouth (cdr
                           (assoc '360
                                  (cdr (member '(3 . "QLR_TDZH") DEdata))
                           )
                         )
      ) ;_ End setq
      (if XrEnameSouth
        (progn
          (print (setq XrEdataSouth (entget XrEnameSouth)))
          (entmod XrEdataSouth)

        )
      )

    ) ;_ End progn
  ) ;_ End if
)

st788796

xiao_longxin 发表于 2013-10-24 22:45
(defun c:tt (/ dicts DicObj RecObj xType xData e1)
  (setq        e1 (ssget "x")
        e1 (ssname e1 0)

你修改 XDATA 试试

xiao_longxin

st788796 发表于 2013-10-24 22:57
你修改 XDATA 试试

试过了,修改XDATA跟XRECORD没有关系

st788796

xiao_longxin 发表于 2013-10-24 23:01
试过了,修改XDATA跟XRECORD没有关系

1001 是不符合 Autocad 标准的

命令: _audit
是否更正检测到的任何错误？[是(Y)/否(N)] <N>: y
核查表头
核查表
第 1 阶段图元核查
阶段 1 已核查 200     个对象
第 2 阶段图元核查
AcDbDictionary(D)        Owner Id Is Null               Fix it
AcDbDictionary(E)        Owner Id Is Null               Fix it
AcDbMlineStyle(1B)       Owner Id Is Null               Fix it
阶段 2 已核查 200     个对象
核查块
已核查 0       个块
正在核查 AcDsRecords
共发现 3 个错误，已修复 3 个
已删除 0 个对象

VBA 类名:	AcadXRecord
创建方法:	Dictionary.AddXRecord
访问途径:	Dictionary.Item

该对象在概念上与扩展数据(XData)类似，但没有尺寸或次序的限制。 与扩展数据(XData)不同，XRecord 可和小于1000的标准 AutoCAD 组码一起使用，它支持所有标准的 AutoCAD 组码。这意味着，除通常使用的数据类型之外，XRecord能够保存对象ID，从而它可以拥有包括其它 XRecords 在内的对象。 下列组码是所有XRecord对象所共有的： 100 子类标记(AcDbXrecord) 1-369 (除5和105之外)

这些值可由应用程序以任何方式使用

XRecord 对象直接保存在当前图形中，可以被其它ObjectARX和LISP程序直接访问到。因此，若你的应用程序中，数据安全性是一个重要问题时，在使用 XRecord 对象保存数据应该很小心。

注意 XRECORD 对象的工作方式使得在 R13c0 到 R13c3 版本之间不会发生冲突。但是，如果读入到 AutoCAD? R13c4 以前的版本中，XRECORD 对象则会消失。

xiao_longxin

st788796 发表于 2013-10-24 23:06
1001 是不符合 Autocad 标准的

命令: _audit

修复后查询到的XRECORD数据还是包含1001 1000组码,我就是不明白,这两组数据是怎么附上去.既然可以附上去,就可以用同样的方法修改更新

st788796

xiao_longxin 发表于 2013-10-24 23:13
修复后查询到的XRECORD数据还是包含1001 1000组码,我就是不明白,这两组数据是怎么附上去.既然可以附上去, ...

懒得研究, Google 了几个代码
用 Google 搜索 GetXRecordData，很多现成代码的

• (defun dict-get  (owner name / d)
•   (cond
•     ((not owner) (dict-get (namedobjdict) name))
•     ((= (type owner) 'str)
•      (dict-get (dict-get (namedobjdict) owner) name))
•     ((= (type owner) 'ename) (dict-get (entget owner) name))
•     ((not (listp owner)) nil)
•     ((eq (cdr (assoc 0 owner)) "DICTIONARY")
•      (cond ((dictsearch (cdar owner) name))
•            ((and (setq d (entmakex '((0 . "DICTIONARY") (100 . "AcDbDictionary"))))
•                  (dictadd (cdar owner) name d))
•             (entget d))))
•     ((setq d (assoc 360 owner)) (dict-get (cdr d) name))
•     ((and (setq d (entmakex '((0 . "DICTIONARY") (100 . "AcDbDictionary"))))
•           (entmod
•             (append owner (list '(102 . "{ACAD_XDICTIONARY") (cons 360 d) '(102 . "}")))))
•      (dict-get d name))))
• (defun dict-get-xrecord  (owner name / d)
•   (cond
•     ((not owner) (dict-get-xrecord (namedobjdict) name))
•     ((= (type owner) 'str)
•      (dict-get-xrecord (dict-get (namedobjdict) owner) name))
•     ((= (type owner) 'ename) (dict-get-xrecord (entget owner) name))
•     ((not (listp owner)) nil)
•     ((eq (cdr (assoc 0 owner)) "DICTIONARY")
•      (cond ((dictsearch (cdar owner) name))
•            ((and (setq d (entmakex '((0 . "XRECORD") (100 . "AcDbXrecord"))))
•                  (dictadd (cdar owner) name d))
•             (entget d))))
•     ((setq d (assoc 360 owner)) (dict-get-xrecord (cdr d) name))
•     ((and (setq d (entmakex '((0 . "DICTIONARY") (100 . "AcDbDictionary"))))
•           (entmod
•             (append owner (list '(102 . "{ACAD_XDICTIONARY") (cons 360 d) '(102 . "}")))))
•      (dict-get-xrecord d name))))
  

st788796

• (defun create-or-get-dict (location name / dict)
  
•   ;; is it present?
  
•   (if (not (setq dict (dictsearch location name)))
  
•     ;;if not present then create a new one
  
•     (progn
  
•       (setq dict (entmakex '((0 . "DICTIONARY")(100 . "AcDbDictionary"))))
  
•       ;;if succesfully created, add it to the location
  
•       (if dict (setq dict (dictadd location name dict)))
  
•     )
  
•     ;;if present then just return its entity name
  
•     (setq dict (cdr (assoc -1 dict)))
  
•   )
  
• )
  
• 
  
• (defun get-or-make-Xrecord (adict name / anXrec)
  
•   (cond
  
•     ((not (setq anXrec (dictsearch adict name)))
  
•      ;;if name was not found then create it
  
•      (setq anXrec (entmakex '((0 . "XRECORD")
  
•                               (100 . "AcDbXrecord")
  
•                              )
  
•                   )
  
•      )
  
•      ;;if creation succeeded then add it to our dictionary
  
•      (if anXrec
  
•        (setq anXrec (dictadd adict name anXrec))
  
•      )
  
•     )
  
•     ;;if it's already present then just return its entity name
  
•     (setq
  
•      anXrec
  
•      (cdr (assoc -1 (dictsearch adict name)))
  
•     )
  
•   )
  
• )
  
• 
  
• (defun add-to-Xrecord (xrec data)
  
•   (entmod (append (entget xrec) (list->dxf-pairs data)))
  
• )
  
• 
  
• (defun list->dxf-pairs (data)
  
•   (mapcar (function (lambda (x) (cons (type->dxfcode (type x)) x))) data)
  
• )
  
• 
  
• 
  
  

xiao_longxin

别沉了