你们找到了吗？谁能高所我，怎么添加修改码？

小狼

实体属性 ((-1 . <Entity name: 4008cd88>) (0 . "LWPOLYLINE") (5 . "7D1")
(102 . "{ACAD_XDICTIONARY") (360 . <Entity name: 4008d2c0>) (102 . "}") (102 .
"{ACAD_REACTORS") (330 . <Entity name: 4008d2d0>) (102 . "}") (330 . <Entity
name: 40087c10>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "JZD") (6 .
"Continuous") (100 . "AcDbPolyline") (90 . 6) (70 . 1) (43 . 0.15) (38 . 0.0)
(39 . 0.0) (10 81827.9 65746.9) (40 . 0.15) (41 . 0.15) (42 . 0.0) (10 81819.2
65747.7) (40 . 0.15) (41 . 0.15) (42 . 0.0) (10 81819.8 65756.3) (40 . 0.15)
(41 . 0.15) (42 . 0.0) (10 81835.0 65754.9) (40 . 0.15) (41 . 0.15) (42 . 0.0)
(10 81834.4 65744.4) (40 . 0.15) (41 . 0.15) (42 . 0.0) (10 81828.4 65741.2)
(40 . 0.15) (41 . 0.15) (42 . 0.0) (210 0.0 0.0 1.0)) 实体360组属性 ((-1 . <Entity name: 4008d2c0>) (0 . "DICTIONARY") (330 .
<Entity name: 4008cd88>) (5 . "8D8") (100 . "AcDbDictionary") (280 . 1) (281 .
1) (3 . "SOUTHDIJI") (360 . <Entity name: 4008d368>)) 字典360组属性 ((-1 . <Entity name: 4008d368>) (0 . "XRECORD") (5 . "8ED") (102 . "{ACAD_REACTORS") (330 . <Entity name: 4008d2c0>) (102 . "}") (330 . <Entity name: 4008d2c0>) (100 . "AcDbXrecord") (280 . 1) (1 . "区号") (1 . "") (1 . "") (1 . "") (1 . "") (1 . "") (1 . "") (1 . "") (1 . "") (1 . "") (1 . "") (1 . "") (1 . "") (1 . "") (1 . "") (1 . "") (1 . "") (1 . "") (1 . "") (1 . "") (1 . "") (1 . "") (1 . "") (40 . 144.169) (40 . 0.0) (40 . 0.0) (70 . 1) (70 . 1) (70 . 1) (70 . 1))
第一个组码“1”就是区号，第一个组码“40”就是面积，你们怎么不看图形和属性就说，我不讲道理，什么都不懂呢？

cad888

惠普打印机不能打印何原因

小狼

晕，我也在问别人问题呢


你发在我这我也不知道，别人也不会来看你的问题

meflying

知道了，主要是你的图中有扩展数据，我看到后就没看别的了，所以就这么以为了。。。这个扩展词典你就使用360组码得到吧，那个XRECORD可以这样得到：


(dictsearch ent "SOUTHDIJI");ent就是那个扩展词典对象名（360组码的），修改就先修改xrecord的组码列表，然后使用entmod函数修改


不过以上修改有小小问题，资料里介绍也不多，我平时也接触得少，也不是很清楚，你可以再问问别人，或查查有关比较详细点的资料。

小狼

我用(ENTMOD)修改了XRECORD，可以更新XRECORD后，再查又没有变啊？



倒是是我哪里做错了啊？


如果本来就不带扩展记录，我要是直接添加记录的话要怎么做啊？

meflying

看看你的代码

龙龙仔

;;如果本来就不带扩展记录，我要是直接添加记录的话要怎么做啊？ Gets the extension dictionary associated with an object. Signature RetVal = object.GetExtensionDictionary Object All Drawing Objects , AttributeRef, Dictionary, DimStyle
, Group, Layer, Linetype, PlotConfigurations, RegisteredApplication, TextStyle, UCS, View, Viewport
; XRecord
The object or objects this method applies to.
RetVal Dictionary; output-only
The extension dictionary for the object. Remarks If an object does not have an extension dictionary, this method will create a new extension dictionary for that object and return it in the return value.
You can query an object to see if it has an extension dictionary by using the HasExtensionDictionary property.

龙龙仔

;| (setq OLDXRECORD (GETXRECORD (setq ENAME (car (entsel)))))
(setq NAME (cdr (assoc 3 (entget (cdr (assoc 330 OLDXRECORD))))))
(setq NEWXRECORD (subst (cons 1 "05") (assoc 1 OLDXRECORD) LDXRECORD))
(CH_XRECORD1 ENAME NAME NEWXRECORD) ;;要改的地方还很多 ;;程序只是要验証!
;| (setq OLDXRECORD (GETXRECORD (setq ENAME (car (entsel)))))
(setq NAME (cdr (assoc 3 (entget (cdr (assoc 330 OLDXRECORD))))))
(setq NEWXRECORD (subst (cons 1 "05") (assoc 1 OLDXRECORD) OLDXRECORD))
(CH_XRECORD1 ENAME NAME NEWXRECORD) |;
(defun GETXRECORD (ENAME / OBJ_XRECORD TMP)
(if (and (setq TMP (assoc 360 (entget ENAME)))
(setq TMP (assoc 360 (entget (cdr TMP))))
)
(setq OBJ_XRECORD (entget (cdr TMP)))
)
OBJ_XRECORD
) (defun CH_XRECORD1 (ENAME NAME NEWXRECORD / A2)
(if
(and (assoc 360 (entget ENAME))
(equal
(strcase NAME)
(strcase
(cdr
(assoc 3 (entget (setq A2 (cdr (assoc 330 NEWXRECORD)))))
)
)
)
)
(progn
(dictremove A2 NAME)
(dictadd A2 NAME (entmakex NEWXRECORD))
)
)
(princ)
)