[LISP程序]：你们找到了吗？谁能高所我，怎么添加修改码？

小狼

实体属性

((-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”就是面积，你们怎么不看图形和属性，就说我不讲道理，什么都不懂呢？

eachy

你先都填满，搞清 Xrecord 中的 1 部分分别是那个属性，至于修改见上一贴中的几个程序。