[源码]明细表，逐步添加程序

cabinsummer

文字库功能


图形库功能


智能交互标号

　　近期在开发明细表程序，为了与公司原有的程序兼容，增加了不少难度。这个过程中也学到不少东西，感谢Chen QJ一直以来的大力支持。现在将思路奉献出来，供大家提些建议。
　　程序开发要满足人操作的方便性，这个是最主要的。因此程序必须有库并且具有导向性，让新人能很快适应。
　　明细表由“序号”、“代号”、“名称”、和“备注”几项构成。在实际生产过程中，图纸存在大量的复用，这样带来的工艺流程也完全不一样，因此不能简单的将分为加工件和采购件两类。我根据实际情况，将明细分为：

　　明细表必须对此做出区分，以方便后期人员的操作。分类是个麻烦的事，无论交给设计人员还是交给物料管理人员。尤其是当大量写入表格时总难免不了出错。因此要有常用的文字库便于选择，有常用的图形库且能从中提取信息直接提供给明细表。
　　仿公司国外的习惯，引出的标号如下图：

　　说明一下，圆圈类的都是要出图的；分叉上线是双线的表明此号为部件，有下级装配图和明细；单线是配图的；分叉单线是采购用的，根据集团内部组织方式，填写略有区别。程序采用属性块加扩展数据。
　　由此，定义操作的数据结构，先定义构成数据结构的几个基本函数

1. ;;;属性块
   
2. (defun BOM_BLOCK (BlockName)
   
3.   (entmake (list '(0 . "BLOCK")'(10 0.0 0.0 0.0)'(70 . 2)(cons 2 BlockName)))
   
4. )
   
5. ;;;圆
   
6. (defun BOM_CIRCLE (CenterPoint Radius)
   
7.   (entmake (list '(0 . "CIRCLE")'(100 . "AcDbEntity")'(8 . "0")'(100 . "AcDbCircle")(cons 10 Centerpoint)(cons 40 Radius)))
   
8. )
   
9. ;;;直线
   
10. (defun BOM_LINE (StartPoint EndPoint)
    
11.   (entmake (list '(0 . "LINE")'(100 . "AcDbEntity")'(8 . "0")'(100 . "AcDbLine")(cons 10 StartPoint)(cons 11 EndPoint)))
    
12. )
    
13. ;;;属性定义
    
14. (defun BOM_ATTDEF (Height Value Width TextStyle Horizontal AlignPoint Pmpt Tag Visibility Vertical)
    
15.   (entmake
    
16.     (list
    
17.       '(0 . "ATTDEF")
    
18.       '(100 . "AcDbEntity")
    
19.       '(8 . "TEXT")
    
20.       '(100 . "AcDbText")
    
21.       '(10 0.0 0.0 0.0)
    
22.       (cons 40 Height)
    
23.       (cons 1 Value)
    
24.       (cons 41 Width)
    
25.       (cons 7 TextStyle)
    
26.       (cons 72 Horizontal)
    
27.       (cons 11 AlignPoint)
    
28.       '(100 . "AcDbAttributeDefinition")
    
29.       (cons 3 Pmpt)
    
30.       (cons 2 Tag)
    
31.       (cons 70 Visibility)
    
32.       (cons 74 Vertical)
    
33.     )
    
34.   )
    
35. )
    
36. ;;;小圆点引线
    
37. (defun BOM_LEADER (StartPoint Endpoint AssocBlock)
    
38.   (entmake
    
39.     (list
    
40.       '(0 . "LEADER")
    
41.       '(100 . "AcDbEntity")
    
42.       '(8 . "DIM")
    
43.       '(100 . "AcDbLeader")
    
44.       '(71 . 1)
    
45.       '(73 . 2)
    
46.       '(74 . 0)
    
47.       '(76 . 2)
    
48.       (cons 10 StartPoint)
    
49.       (cons 10 Endpoint)
    
50.       (cons 340 AssocBlock)
    
51.       (list -3
    
52.             (list "ACAD"
    
53.                   (cons 1000 "DSTYLE")
    
54.                   (cons 1002 "{")
    
55.                   (cons 1070 341)
    
56.                   (cons 1005 (cdr (assoc 5 (entget (cdr (assoc 330 (entget (tblobjname "block" "_dotsmall"))))))))
    
57.                   (cons 1002 "}")
    
58.             )
    
59.       )
    
60.     )
    
61.   )
    
62. )
    
63. ;;;块属性
    
64. (defun BOM_ATTRIB (Height Value Width TextStyle Horizontal AlignPoint Tag Visibility Vertical)
    
65.   (entmake
    
66.     (list
    
67.       '(0 . "ATTRIB")
    
68.       '(100 . "AcDbEntity")
    
69.       '(8 . "TEXT_ENGLISH")
    
70.       '(100 . "AcDbText")
    
71.       '(10 0.0 0.0 0.0)
    
72.       (cons 40 (* Height scl))
    
73.       (cons 1 Value)
    
74.       (cons 41 Width)
    
75.       (cons 7 TextStyle)
    
76.       (cons 72 Horizontal)
    
77.       (cons 11 AlignPoint)
    
78.       '(100 . "AcDbAttribute")
    
79.       (cons 2 Tag)
    
80.       (cons 70 Visibility)
    
81.       (cons 74 Vertical)
    
82.     )
    
83.   )
    
84. )

;;;属性块<br /> (defun BOM_BLOCK (BlockName)<br />   (entmake (list '(0 . "BLOCK")'(10 0.0 0.0 0.0)'(70 . 2)(cons 2 BlockName)))<br /> )<br /> ;;;圆<br /> (defun BOM_CIRCLE (CenterPoint Radius)<br />   (entmake (list '(0 . "CIRCLE")'(100 . "AcDbEntity")'(8 . "0")'(100 . "AcDbCircle")(cons 10 Centerpoint)(cons 40 Radius)))<br /> )<br /> ;;;直线<br /> (defun BOM_LINE (StartPoint EndPoint)<br />   (entmake (list '(0 . "LINE")'(100 . "AcDbEntity")'(8 . "0")'(100 . "AcDbLine")(cons 10 StartPoint)(cons 11 EndPoint)))<br /> )<br /> ;;;属性定义<br /> (defun BOM_ATTDEF (Height Value Width TextStyle Horizontal AlignPoint Pmpt Tag Visibility Vertical)<br />   (entmake<br />     (list<br />       '(0 . "ATTDEF")<br />       '(100 . "AcDbEntity")<br />       '(8 . "TEXT")<br />       '(100 . "AcDbText")<br />       '(10 0.0 0.0 0.0)<br />       (cons 40 Height)<br />       (cons 1 Value)<br />       (cons 41 Width)<br />       (cons 7 TextStyle)<br />       (cons 72 Horizontal)<br />       (cons 11 AlignPoint)<br />       '(100 . "AcDbAttributeDefinition")<br />       (cons 3 Pmpt)<br />       (cons 2 Tag)<br />       (cons 70 Visibility)<br />       (cons 74 Vertical)<br />     )<br />   )<br /> )<br /> ;;;小圆点引线<br /> (defun BOM_LEADER (StartPoint Endpoint AssocBlock)<br />   (entmake<br />     (list<br />       '(0 . "LEADER")<br />       '(100 . "AcDbEntity")<br />       '(8 . "DIM")<br />       '(100 . "AcDbLeader")<br />       '(71 . 1)<br />       '(73 . 2)<br />       '(74 . 0)<br />       '(76 . 2)<br />       (cons 10 StartPoint)<br />       (cons 10 Endpoint)<br />       (cons 340 AssocBlock)<br />       (list -3<br />             (list "ACAD"<br />                   (cons 1000 "DSTYLE")<br />                   (cons 1002 "{")<br />                   (cons 1070 341)<br />                   (cons 1005 (cdr (assoc 5 (entget (cdr (assoc 330 (entget (tblobjname "block" "_dotsmall"))))))))<br />                   (cons 1002 "}")<br />             )<br />       )<br />     )<br />   )<br /> )<br /> ;;;块属性<br /> (defun BOM_ATTRIB (Height Value Width TextStyle Horizontal AlignPoint Tag Visibility Vertical)<br />   (entmake<br />     (list<br />       '(0 . "ATTRIB")<br />       '(100 . "AcDbEntity")<br />       '(8 . "TEXT_ENGLISH")<br />       '(100 . "AcDbText")<br />       '(10 0.0 0.0 0.0)<br />       (cons 40 (* Height scl))<br />       (cons 1 Value)<br />       (cons 41 Width)<br />       (cons 7 TextStyle)<br />       (cons 72 Horizontal)<br />       (cons 11 AlignPoint)<br />       '(100 . "AcDbAttribute")<br />       (cons 2 Tag)<br />       (cons 70 Visibility)<br />       (cons 74 Vertical)<br />     )<br />   )<br /> )

　　标号有左右方向，为防止镜像后文字难以识别，特定义八种属性块

1. ;;;定义出图类的标号形式，插入点在左侧
   
2. (if (not (tblsearch "BLOCK" "DTL-L"))
   
3.   (progn
   
4.     (BOM_BLOCK "DTL-L")
   
5.     (BOM_CIRCLE '(13.0 0.0 0.0) 8.0)
   
6.     (BOM_ATTDEF 4.5 "00" 1.0 "BOLD" 4 '(13.0 0.0 0.0) "Detail number" "CODE_ID" 0 0)
   
7.     (BOM_ATTDEF 2.5 "" 1.0 "STANDARD" 4 '(13.0 -6.0 0.0) "Description" "DESCR" 1 0)
   
8.     (BOM_ATTDEF 2.5 "1" 0.85 "STANDARD" 1 '(2.5 1.0 0.0) "Amount" "AMT" 0 0)
   
9.     (BOM_ATTDEF 2.5 "N" 1.0 "STANDARD" 4 '(13.0 6.0 0.0) "Spare part" "SPARE_PART" 1 0)
   
10.     (BOM_LINE '(5.0 0.0 0.0)'(0.0 0.0 0.0))
    
11.     (entmake '((0 . "ENDBLK")))
    
12.   )
    
13. )
    
14. ;;;定义出图类的标号形式，插入点在右侧
    
15. (if (not (tblsearch "BLOCK" "DTL-R"))
    
16.   (progn
    
17.     (BOM_BLOCK "DTL-R")
    
18.     (BOM_CIRCLE '(-13.0 0.0 0.0) 8.0)
    
19.     (BOM_ATTDEF 4.5 "00" 1.0 "BOLD" 4 '(-13.0 0.0 0.0) "Detail number" "CODE_ID" 0 0)
    
20.     (BOM_ATTDEF 2.5 "" 1.0 "STANDARD" 4 '(-13.0 -6.0 0.0) "Description" "DESCR" 1 0)
    
21.     (BOM_ATTDEF 2.5 "1" 0.85 "STANDARD" 1 '(-2.5 1.0 0.0) "Amount" "AMT" 0 0)
    
22.     (BOM_ATTDEF 2.5 "N" 1.0 "STANDARD" 4 '(-13.0 6.0 0.0) "Spare part" "SPARE_PART" 1 0)
    
23.     (BOM_LINE '(-5.0 0.0 0.0)'(0.0 0.0 0.0))
    
24.     (entmake '((0 . "ENDBLK")))
    
25.   )
    
26. )
    
27. ;;;定义采购类的标号形式，插入点在左侧
    
28. (if (not (tblsearch "BLOCK" "STD-L"))
    
29.   (progn
    
30.     (BOM_BLOCK "STD-L")
    
31.     (BOM_ATTDEF 4.0 "" 1.0 "BOLD" 2 '(94.0 5.0 0.0) "Standard Code #" "CODE_ID" 0 1)
    
32.     (BOM_ATTDEF 3.0 "" 0.9 "BOLD" 2 '(94.0 -5.0 0.0) "Description #1" "DESCR_1" 0 1)
    
33.     (BOM_ATTDEF 3.0 "" 0.9 "BOLD" 2 '(94.0 -10.0 0.0) "Description #2" "DESCR_2" 0 1)
    
34.     (BOM_ATTDEF 2.5 "1" 0.85 "STANDARD" 1 '(2.5 1.0 0.0) "Amount" "AMT" 0 0)
    
35.     (BOM_ATTDEF 2.5 "" 0.85 "STANDARD" 1 '(-2.5 -3.5 0.0) "Spare part" "SPARE_PART" 1 0)
    
36.     (BOM_LINE '(5.0 0.0 0.0)'(0.0 0.0 0.0))
    
37.     (BOM_LINE '(5.0 5.0 0.0)'(5.0 -5.0 0.0))
    
38.     (BOM_LINE '(5.0 5.0 0.0)'(95.0 5.0 0.0))
    
39.     (BOM_LINE '(5.0 -5.0 0.0)'(95.0 -5.0 0.0))
    
40.     (entmake '((0 . "ENDBLK")))
    
41.   )
    
42. )
    
43. ;;;定义采购类的标号形式，插入点在右侧
    
44. (if (not (tblsearch "BLOCK" "STD-R"))
    
45.   (progn
    
46.     (BOM_BLOCK "STD-R")
    
47.     (BOM_ATTDEF 4.0 "" 1.0 "BOLD" 0 '(-94.0 5.0 0.0) "Standard Code #" "CODE_ID" 0 1)
    
48.     (BOM_ATTDEF 3.0 "" 0.9 "BOLD" 0 '(-94.0 -5.0 0.0) "Description #1" "DESCR_1" 0 1)
    
49.     (BOM_ATTDEF 3.0 "" 0.9 "BOLD" 0 '(-94.0 -10.0 0.0) "Description #2" "DESCR_2" 0 1)
    
50.     (BOM_ATTDEF 2.5 "1" 0.85 "STANDARD" 1 '(-2.5 1.0 0.0) "Amount" "AMT" 0 0)
    
51.     (BOM_ATTDEF 2.5 "" 0.85 "STANDARD" 1 '(-2.5 -3.5 0.0) "Spare part" "SPARE_PART" 1 0)
    
52.     (BOM_LINE '(-5.0 0.0 0.0)'(0.0 0.0 0.0))
    
53.     (BOM_LINE '(-5.0 5.0 0.0)'(-5.0 -5.0 0.0))
    
54.     (BOM_LINE '(-5.0 5.0 0.0)'(-95.0 5.0 0.0))
    
55.     (BOM_LINE '(-5.0 -5.0 0.0)'(-95.0 -5.0 0.0))
    
56.     (entmake '((0 . "ENDBLK")))
    
57.   )
    
58. )
    
59. ;;;定义配图类的标号形式，插入点在左侧
    
60. (if (not (tblsearch "BLOCK" "IDT-L"))
    
61.   (progn
    
62.     (BOM_BLOCK "IDT-L")
    
63.     (BOM_ATTDEF 4.0 "" 1.0 "BOLD" 2 '(70.0 0.0 0.0) "Included detail #" "CODE_ID" 0 1)
    
64.     (BOM_ATTDEF 2.5 "1" 0.85 "STANDARD" 1 '(2.5 1.0 0.0) "Amount" "AMT" 0 0)
    
65.     (BOM_LINE '(0.0 0.0 0.0)'(70.0 0.0 0.0))
    
66.     (entmake '((0 . "ENDBLK")))
    
67.   )
    
68. )
    
69. ;;;定义配图类的标号形式，插入点在右侧
    
70. (if (not (tblsearch "BLOCK" "IDT-R"))
    
71.   (progn
    
72.     (BOM_BLOCK "IDT-R")
    
73.     (BOM_ATTDEF 4.0 "" 1.0 "BOLD" 0 '(-70.0 0.0 0.0) "Included detail #" "CODE_ID" 0 1)
    
74.     (BOM_ATTDEF 2.5 "1" 0.85 "STANDARD" 1 '(-2.5 1.0 0.0) "Amount" "AMT" 0 0)
    
75.     (BOM_LINE '(0.0 0.0 0.0)'(-70.0 0.0 0.0))
    
76.     (entmake '((0 . "ENDBLK")))
    
77.   )
    
78. )
    
79. ;;;定义部件类的标号形式，插入点在左侧
    
80. (if (not (tblsearch "BLOCK" "ASM-L"))
    
81.   (progn
    
82.     (BOM_BLOCK "ASM-L")
    
83.     (BOM_ATTDEF 4.0 "" 1.0 "BOLD" 2 '(94.0 5.0 0.0) "Included Assembly #" "CODE_ID" 0 1)
    
84.     (BOM_ATTDEF 3.0 "" 0.9 "BOLD" 2 '(94.0 -5.0 0.0) "Description #1" "DESCR_1" 0 1)
    
85.     (BOM_ATTDEF 3.0 "" 0.9 "BOLD" 2 '(94.0 -10.0 0.0) "Description #2" "DESCR_2" 0 1)
    
86.     (BOM_ATTDEF 2.5 "1" 0.85 "STANDARD" 1 '(2.5 1.0 0.0) "Amount" "AMT" 0 0)
    
87.     (BOM_LINE '(5.0 0.0 0.0)'(0.0 0.0 0.0))
    
88.     (BOM_LINE '(5.0 5.0 0.0)'(5.0 -5.0 0.0))
    
89.     (BOM_LINE '(5.0 5.0 0.0)'(95.0 5.0 0.0))
    
90.     (BOM_LINE '(5.0 4.0 0.0)'(95.0 4.0 0.0))
    
91.     (BOM_LINE '(5.0 -5.0 0.0)'(95.0 -5.0 0.0))
    
92.     (entmake '((0 . "ENDBLK")))
    
93.   )
    
94. )
    
95. ;;;定义部件类的标号形式，插入点在右侧
    
96. (if (not (tblsearch "BLOCK" "ASM-R"))
    
97.   (progn
    
98.     (BOM_BLOCK "ASM-R")
    
99.     (BOM_ATTDEF 4.0 "" 1.0 "BOLD" 0 '(-94.0 5.0 0.0) "Included Assembly #" "CODE_ID" 0 1)
    
100.     (BOM_ATTDEF 3.0 "" 0.9 "BOLD" 0 '(-94.0 -5.0 0.0) "Description #1" "DESCR_1" 0 1)
     
101.     (BOM_ATTDEF 3.0 "" 0.9 "BOLD" 0 '(-94.0 -10.0 0.0) "Description #2" "DESCR_2" 0 1)
     
102.     (BOM_ATTDEF 2.5 "1" 0.85 "STANDARD" 1 '(-2.5 1.0 0.0) "Amount" "AMT" 0 0)
     
103.     (BOM_LINE '(-5.0 0.0 0.0)'(0.0 0.0 0.0))
     
104.     (BOM_LINE '(-5.0 5.0 0.0)'(-5.0 -5.0 0.0))
     
105.     (BOM_LINE '(-5.0 5.0 0.0)'(-95.0 5.0 0.0))
     
106.     (BOM_LINE '(-5.0 4.0 0.0)'(-95.0 4.0 0.0))
     
107.     (BOM_LINE '(-5.0 -5.0 0.0)'(-95.0 -5.0 0.0))
     
108.     (entmake '((0 . "ENDBLK")))
     
109.   )
     
110. )

;;;定义出图类的标号形式，插入点在左侧<br /> (if (not (tblsearch "BLOCK" "DTL-L"))<br />   (progn<br />     (BOM_BLOCK "DTL-L")<br />     (BOM_CIRCLE '(13.0 0.0 0.0) 8.0)<br />     (BOM_ATTDEF 4.5 "00" 1.0 "BOLD" 4 '(13.0 0.0 0.0) "Detail number" "CODE_ID" 0 0)<br />     (BOM_ATTDEF 2.5 "" 1.0 "STANDARD" 4 '(13.0 -6.0 0.0) "Description" "DESCR" 1 0)<br />     (BOM_ATTDEF 2.5 "1" 0.85 "STANDARD" 1 '(2.5 1.0 0.0) "Amount" "AMT" 0 0)<br />     (BOM_ATTDEF 2.5 "N" 1.0 "STANDARD" 4 '(13.0 6.0 0.0) "Spare part" "SPARE_PART" 1 0)<br />     (BOM_LINE '(5.0 0.0 0.0)'(0.0 0.0 0.0))<br />     (entmake '((0 . "ENDBLK")))<br />   )<br /> )<br /> ;;;定义出图类的标号形式，插入点在右侧<br /> (if (not (tblsearch "BLOCK" "DTL-R"))<br />   (progn<br />     (BOM_BLOCK "DTL-R")<br />     (BOM_CIRCLE '(-13.0 0.0 0.0) 8.0) <br />     (BOM_ATTDEF 4.5 "00" 1.0 "BOLD" 4 '(-13.0 0.0 0.0) "Detail number" "CODE_ID" 0 0)<br />     (BOM_ATTDEF 2.5 "" 1.0 "STANDARD" 4 '(-13.0 -6.0 0.0) "Description" "DESCR" 1 0)<br />     (BOM_ATTDEF 2.5 "1" 0.85 "STANDARD" 1 '(-2.5 1.0 0.0) "Amount" "AMT" 0 0)<br />     (BOM_ATTDEF 2.5 "N" 1.0 "STANDARD" 4 '(-13.0 6.0 0.0) "Spare part" "SPARE_PART" 1 0)<br />     (BOM_LINE '(-5.0 0.0 0.0)'(0.0 0.0 0.0)) <br />     (entmake '((0 . "ENDBLK")))<br />   )<br /> )<br /> ;;;定义采购类的标号形式，插入点在左侧<br /> (if (not (tblsearch "BLOCK" "STD-L"))<br />   (progn<br />     (BOM_BLOCK "STD-L")<br />     (BOM_ATTDEF 4.0 "" 1.0 "BOLD" 2 '(94.0 5.0 0.0) "Standard Code #" "CODE_ID" 0 1)<br />     (BOM_ATTDEF 3.0 "" 0.9 "BOLD" 2 '(94.0 -5.0 0.0) "Description #1" "DESCR_1" 0 1)<br />     (BOM_ATTDEF 3.0 "" 0.9 "BOLD" 2 '(94.0 -10.0 0.0) "Description #2" "DESCR_2" 0 1)<br />     (BOM_ATTDEF 2.5 "1" 0.85 "STANDARD" 1 '(2.5 1.0 0.0) "Amount" "AMT" 0 0)<br />     (BOM_ATTDEF 2.5 "" 0.85 "STANDARD" 1 '(-2.5 -3.5 0.0) "Spare part" "SPARE_PART" 1 0)<br />     (BOM_LINE '(5.0 0.0 0.0)'(0.0 0.0 0.0)) <br />     (BOM_LINE '(5.0 5.0 0.0)'(5.0 -5.0 0.0)) <br />     (BOM_LINE '(5.0 5.0 0.0)'(95.0 5.0 0.0)) <br />     (BOM_LINE '(5.0 -5.0 0.0)'(95.0 -5.0 0.0)) <br />     (entmake '((0 . "ENDBLK")))<br />   )<br /> )<br /> ;;;定义采购类的标号形式，插入点在右侧<br /> (if (not (tblsearch "BLOCK" "STD-R"))<br />   (progn<br />     (BOM_BLOCK "STD-R")<br />     (BOM_ATTDEF 4.0 "" 1.0 "BOLD" 0 '(-94.0 5.0 0.0) "Standard Code #" "CODE_ID" 0 1)<br />     (BOM_ATTDEF 3.0 "" 0.9 "BOLD" 0 '(-94.0 -5.0 0.0) "Description #1" "DESCR_1" 0 1)<br />     (BOM_ATTDEF 3.0 "" 0.9 "BOLD" 0 '(-94.0 -10.0 0.0) "Description #2" "DESCR_2" 0 1)<br />     (BOM_ATTDEF 2.5 "1" 0.85 "STANDARD" 1 '(-2.5 1.0 0.0) "Amount" "AMT" 0 0)<br />     (BOM_ATTDEF 2.5 "" 0.85 "STANDARD" 1 '(-2.5 -3.5 0.0) "Spare part" "SPARE_PART" 1 0)<br />     (BOM_LINE '(-5.0 0.0 0.0)'(0.0 0.0 0.0)) <br />     (BOM_LINE '(-5.0 5.0 0.0)'(-5.0 -5.0 0.0)) <br />     (BOM_LINE '(-5.0 5.0 0.0)'(-95.0 5.0 0.0)) <br />     (BOM_LINE '(-5.0 -5.0 0.0)'(-95.0 -5.0 0.0)) <br />     (entmake '((0 . "ENDBLK")))<br />   )<br /> )<br /> ;;;定义配图类的标号形式，插入点在左侧<br /> (if (not (tblsearch "BLOCK" "IDT-L"))<br />   (progn<br />     (BOM_BLOCK "IDT-L")<br />     (BOM_ATTDEF 4.0 "" 1.0 "BOLD" 2 '(70.0 0.0 0.0) "Included detail #" "CODE_ID" 0 1)<br />     (BOM_ATTDEF 2.5 "1" 0.85 "STANDARD" 1 '(2.5 1.0 0.0) "Amount" "AMT" 0 0)<br />     (BOM_LINE '(0.0 0.0 0.0)'(70.0 0.0 0.0)) <br />     (entmake '((0 . "ENDBLK")))<br />   )<br /> )<br /> ;;;定义配图类的标号形式，插入点在右侧<br /> (if (not (tblsearch "BLOCK" "IDT-R"))<br />   (progn<br />     (BOM_BLOCK "IDT-R")<br />     (BOM_ATTDEF 4.0 "" 1.0 "BOLD" 0 '(-70.0 0.0 0.0) "Included detail #" "CODE_ID" 0 1)<br />     (BOM_ATTDEF 2.5 "1" 0.85 "STANDARD" 1 '(-2.5 1.0 0.0) "Amount" "AMT" 0 0)<br />     (BOM_LINE '(0.0 0.0 0.0)'(-70.0 0.0 0.0)) <br />     (entmake '((0 . "ENDBLK")))<br />   )<br /> )<br /> ;;;定义部件类的标号形式，插入点在左侧<br /> (if (not (tblsearch "BLOCK" "ASM-L"))<br />   (progn<br />     (BOM_BLOCK "ASM-L")<br />     (BOM_ATTDEF 4.0 "" 1.0 "BOLD" 2 '(94.0 5.0 0.0) "Included Assembly #" "CODE_ID" 0 1)<br />     (BOM_ATTDEF 3.0 "" 0.9 "BOLD" 2 '(94.0 -5.0 0.0) "Description #1" "DESCR_1" 0 1)<br />     (BOM_ATTDEF 3.0 "" 0.9 "BOLD" 2 '(94.0 -10.0 0.0) "Description #2" "DESCR_2" 0 1)<br />     (BOM_ATTDEF 2.5 "1" 0.85 "STANDARD" 1 '(2.5 1.0 0.0) "Amount" "AMT" 0 0)<br />     (BOM_LINE '(5.0 0.0 0.0)'(0.0 0.0 0.0)) <br />     (BOM_LINE '(5.0 5.0 0.0)'(5.0 -5.0 0.0)) <br />     (BOM_LINE '(5.0 5.0 0.0)'(95.0 5.0 0.0)) <br />     (BOM_LINE '(5.0 4.0 0.0)'(95.0 4.0 0.0)) <br />     (BOM_LINE '(5.0 -5.0 0.0)'(95.0 -5.0 0.0)) <br />     (entmake '((0 . "ENDBLK")))<br />   )<br /> )<br /> ;;;定义部件类的标号形式，插入点在右侧<br /> (if (not (tblsearch "BLOCK" "ASM-R"))<br />   (progn<br />     (BOM_BLOCK "ASM-R")<br />     (BOM_ATTDEF 4.0 "" 1.0 "BOLD" 0 '(-94.0 5.0 0.0) "Included Assembly #" "CODE_ID" 0 1)<br />     (BOM_ATTDEF 3.0 "" 0.9 "BOLD" 0 '(-94.0 -5.0 0.0) "Description #1" "DESCR_1" 0 1)<br />     (BOM_ATTDEF 3.0 "" 0.9 "BOLD" 0 '(-94.0 -10.0 0.0) "Description #2" "DESCR_2" 0 1)<br />     (BOM_ATTDEF 2.5 "1" 0.85 "STANDARD" 1 '(-2.5 1.0 0.0) "Amount" "AMT" 0 0)<br />     (BOM_LINE '(-5.0 0.0 0.0)'(0.0 0.0 0.0)) <br />     (BOM_LINE '(-5.0 5.0 0.0)'(-5.0 -5.0 0.0)) <br />     (BOM_LINE '(-5.0 5.0 0.0)'(-95.0 5.0 0.0)) <br />     (BOM_LINE '(-5.0 4.0 0.0)'(-95.0 4.0 0.0)) <br />     (BOM_LINE '(-5.0 -5.0 0.0)'(-95.0 -5.0 0.0)) <br />     (entmake '((0 . "ENDBLK")))<br />   )<br /> )

未完待续……

cabinsummer

定义如此复杂的数据结构，主要是为了和公司原有的习惯相结合。如果全新的思路，必然所有的属性块都用相同的属性，这样便于后期处理。公司里的标准块里不同类型含有数量不等的属性，因为在没有程序编辑的情况下，双击属性块最简单，含有大量的无用的属性反而会带来操作上的失误。为此程序增加了不少难度，但是对于表处理，也有很多值得学习的技巧。

tm20038175

楼主好样的，奉献出来的都是源码，超赞！
你的局部放大我就很喜欢，只要是你的帖子，都必须顶！！！！

zhongys

要是采购材料，怎能没有“尺寸"这一栏呢。建议加上这一项。

vlisp2012

风之影，好样的。和你学了很多的知识。
赞一个！！！！

xiaoquansb

公司图纸标准用语，公司形象也提高一截

669423907

精神可嘉！
非常支持！

功夫佬

MIMUSI标准件，我有用这个外挂，不过是UG的，

duotu007

看不到图片，是不是挂掉了

cabinsummer

今天再来几个通用函数。说明一下，由于公司内部的块属性不足，所以我添加了扩展数据，所以本程序是属性块和扩展数据混合编程。另外，受CHEN QJ的影响，决定对编程中常用(repeat (sslength ss)采取改进，因为这是LISP中较为低级的方法，高级的应该发挥LISP表处理的优势，大量使用mapcar、apply、lambda和foreach等特有的函数，不但能使程序精练，而且执行速度大大提高。一般对选择集的操作就是选取、添加、删除等，还有就是提取选择集中某个图元，低级的就是针对某个图元操作反复用repeat，既难懂也容易出错，所以我这次将以表处理为主，在以后的编程中将大量使用LISP的高效函数。

1. ;;;定义对齐点
   
2. (defun algpnt (PNT VEC)
   
3.   (mapcar '+ PNT (list (* scl (car VEC)) (* scl (cadr VEC)) 0.0))
   
4. )
   
5. 
   
6. ;;;插入属性块DTL-L
   
7. (defun INS_DTL-L (PNT CODE DESCR AMT SPARE)
   
8.   (INS_ATT_BLK "DTL-L" PNT)
   
9.   (BOM_ATTRIB 4.5 CODE 1.0 "BOLD" 4 (algpnt PNT '(13.0 0.0 0.0)) "CODE_ID" 0 0)
   
10.   (BOM_ATTRIB 2.5 DESCR 1.0 "STANDARD" 4 (algpnt PNT '(13.0 -6.0 0.0)) "DESCR" 1 0)
    
11.   (BOM_ATTRIB 2.5 AMT 0.85 "STANDARD" 1 (algpnt PNT '(2.5 1.0 0.0)) "AMT" 0 0)
    
12.   (BOM_ATTRIB 2.5 SPARE 1.0 "STANDARD" 4 (algpnt PNT '(13.0 6.0 0.0)) "SPARE_PART" 1 0)
    
13.   (entmake '((0 . "SEQEND")))
    
14. )
    
15. 
    
16. ;;;插入属性块DTL-R
    
17. (defun INS_DTL-R (PNT CODE DESCR AMT SPARE)
    
18.   (INS_ATT_BLK "DTL-R" PNT)
    
19.   (BOM_ATTRIB 4.5 CODE 1.0 "BOLD" 4 (algpnt PNT '(-13.0 0.0 0.0)) "CODE_ID" 0 0)
    
20.   (BOM_ATTRIB 2.5 DESCR 1.0 "STANDARD" 4 (algpnt PNT '(-13.0 -6.0 0.0)) "DESCR" 1 0)
    
21.   (BOM_ATTRIB 2.5 AMT 0.85 "STANDARD" 1 (algpnt PNT '(-2.5 1.0 0.0)) "AMT" 0 0)
    
22.   (BOM_ATTRIB 2.5 SPARE 1.0 "STANDARD" 4 (algpnt PNT '(-13.0 6.0 0.0)) "SPARE_PART" 1 0)
    
23.   (entmake '((0 . "SEQEND")))
    
24. )
    
25. 
    
26. ;;;插入属性块STD-L
    
27. (defun INS_STD-L (PNT CODE DESCR_1 DESCR_2 AMT SPARE)
    
28.   (INS_ATT_BLK "STD-L" PNT)
    
29.   (BOM_ATTRIB 4.0 CODE 1.0 "BOLD" 2 (algpnt PNT '(94.0 5.0 0.0)) "CODE_ID" 0 1)
    
30.   (BOM_ATTRIB 3.0 DESCR_1 0.9 "BOLD" 2 (algpnt PNT '(94.0 -5.0 0.0)) "DESCR_1" 0 1)
    
31.   (BOM_ATTRIB 3.0 DESCR_2 0.9 "BOLD" 2 (algpnt PNT '(94.0 -10.0 0.0)) "DESCR_2" 0 1)
    
32.   (BOM_ATTRIB 2.5 AMT 0.85 "STANDARD" 1 (algpnt PNT '(2.5 1.0 0.0)) "AMT" 0 0)
    
33.   (BOM_ATTRIB 2.5 SPARE 0.85 "STANDARD" 1 (algpnt PNT '(2.5 -3.5 0.0)) "SPARE_PART" 1 0)
    
34.   (entmake '((0 . "SEQEND")))
    
35. )
    
36. 
    
37. ;;;插入属性块STD-R
    
38. (defun INS_STD-R (PNT CODE DESCR_1 DESCR_2 AMT SPARE)
    
39.   (INS_ATT_BLK "STD-R" PNT)
    
40.   (BOM_ATTRIB 4.0 CODE 1.0 "BOLD" 0 (algpnt PNT '(-94.0 5.0 0.0)) "CODE_ID" 0 1)
    
41.   (BOM_ATTRIB 3.0 DESCR_1 0.9 "BOLD" 0 (algpnt PNT '(-94.0 -5.0 0.0)) "DESCR_1" 0 1)
    
42.   (BOM_ATTRIB 3.0 DESCR_2 0.9 "BOLD" 0 (algpnt PNT '(-94.0 -10.0 0.0)) "DESCR_2" 0 1)
    
43.   (BOM_ATTRIB 2.5 AMT 0.85 "STANDARD" 1 (algpnt PNT '(-2.5 1.0 0.0)) "AMT" 0 0)
    
44.   (BOM_ATTRIB 2.5 SPARE 0.85 "STANDARD" 1 (algpnt PNT '(-2.5 -3.5 0.0)) "SPARE_PART" 1 0)
    
45.   (entmake '((0 . "SEQEND")))
    
46. )
    
47. 
    
48. ;;;插入属性块IDT-L
    
49. (defun INS_IDT-L (PNT CODE AMT)
    
50.   (INS_ATT_BLK "IDT-L" PNT)
    
51.   (BOM_ATTRIB 4.0 CODE 1.0 "BOLD" 2 (algpnt PNT '(70.0 0.0 0.0)) "CODE_ID" 0 1)
    
52.   (BOM_ATTRIB 2.5 AMT 0.85 "STANDARD" 1 (algpnt PNT '(2.5 1.0 0.0)) "AMT" 0 0)
    
53.   (entmake '((0 . "SEQEND")))
    
54. )
    
55. 
    
56. ;;;插入属性块IDT-R
    
57. (defun INS_IDT-R (PNT CODE AMT)
    
58.   (INS_ATT_BLK "IDT-R" PNT)
    
59.   (BOM_ATTRIB 4.0 CODE 1.0 "BOLD" 0 (algpnt PNT '(-70.0 0.0 0.0)) "CODE_ID" 0 1)
    
60.   (BOM_ATTRIB 2.5 AMT 0.85 "STANDARD" 1 (algpnt PNT '(-2.5 1.0 0.0)) "AMT" 0 0)
    
61.   (entmake '((0 . "SEQEND")))
    
62. )
    
63. 
    
64. ;;;插入属性块ASM-L
    
65. (defun INS_ASM-L (PNT CODE DESCR_1 DESCR_2 AMT)
    
66.   (INS_ATT_BLK "ASM-L" PNT)
    
67.   (BOM_ATTRIB 4.0 CODE 1.0 "BOLD" 2 (algpnt PNT '(94.0 5.0 0.0)) "CODE_ID" 0 1)
    
68.   (BOM_ATTRIB 3.0 DESCR_1 0.9 "BOLD" 2 (algpnt PNT '(94.0 -5.0 0.0)) "DESCR_1" 0 1)
    
69.   (BOM_ATTRIB 3.0 DESCR_2 0.9 "BOLD" 2 (algpnt PNT '(94.0 -10.0 0.0)) "DESCR_2" 0 1)
    
70.   (BOM_ATTRIB 2.5 AMT 0.85 "STANDARD" 1 (algpnt PNT '(2.5 1.0 0.0)) "AMT" 0 0)
    
71.   (entmake '((0 . "SEQEND")))
    
72. )
    
73. 
    
74. ;;;插入属性块ASM-R
    
75. (defun INS_ASM-R (PNT CODE DESCR_1 DESCR_2 AMT)
    
76.   (INS_ATT_BLK "ASM-R" PNT)
    
77.   (BOM_ATTRIB 4.0 CODE 1.0 "BOLD" 0 (algpnt PNT '(-94.0 5.0 0.0)) "CODE_ID" 0 1)
    
78.   (BOM_ATTRIB 3.0 DESCR_1 0.9 "BOLD" 0 (algpnt PNT '(-94.0 -5.0 0.0)) "DESCR_1" 0 1)
    
79.   (BOM_ATTRIB 3.0 DESCR_2 0.9 "BOLD" 0 (algpnt PNT '(-94.0 -10.0 0.0)) "DESCR_2" 0 1)
    
80.   (BOM_ATTRIB 2.5 AMT 0.85 "STANDARD" 1 (algpnt PNT '(-2.5 1.0 0.0)) "AMT" 0 0)
    
81.   (entmake '((0 . "SEQEND")))
    
82. )
    
83. 
    
84. ;;;插入属性块
    
85. (defun INS_ATT_BLK (BlockName PNT)
    
86.   (entmake (list '(0 . "INSERT")(cons 2 BlockName)'(8 . "DIM")'(66 . 1)(cons 10 PNT)(cons 41 scl)(cons 42 scl)))
    
87. )
    
88. 
    
89. ;;;提取选择集中的所有图元名
    
90. (defun ss->entlist (SelectionSet / n entlist)
    
91.   (setq n 0)
    
92.   (repeat (setq n (sslength SelectionSet))
    
93.     (setq entlist (cons (ssname SelectionSet (setq n (1- n))) entlist))
    
94.   )
    
95. )
    
96. 
    
97. ;;;提取图元的DXF组码
    
98. (defun entdxf (ename dxf)
    
99.   (cdr (assoc dxf (entget ename)))
    
100. )
     
101. 
     
102. ;;;提取表中所有图元的某个DXF组码
     
103. (defun entlist->dxflist (entlist dxf)
     
104.   (mapcar '(lambda (x) (entdxf x dxf)) entlist)
     
105. )
     
106. 
     
107. ;;;获得应用程序app附加于图元的扩展数据
     
108. (defun GET_XDATA (ename app)
     
109.   (cdadr (assoc -3 (entget ename (list (eval app)))))
     
110. )
     
111. 
     
112. ;;;删除应用程序app附加于图元的扩展数据
     
113. (defun REM_XDATA (ename app / edata)
     
114.   (if (assoc -3 (setq edata (entget ename (list (eval app)))))(entmod (subst (list -3 (list (eval app))) (assoc -3 edata) edata)))
     
115. )
     
116. 
     
117. ;;;添加应用程序app附加于图元的扩展数据
     
118. (defun ADD_XDATA (ename app xdata)
     
119.   (setq edata (GET_XDATA ename app))
     
120.   (entmod (append (entget ename) (list (list -3 (cons (eval app) (append edata (list (cons 1000 xdata))))))))
     
121. )

;;;定义对齐点<br /> (defun algpnt (PNT VEC)<br />   (mapcar '+ PNT (list (* scl (car VEC)) (* scl (cadr VEC)) 0.0))<br /> )<br /> <br /> ;;;插入属性块DTL-L<br /> (defun INS_DTL-L (PNT CODE DESCR AMT SPARE)<br />   (INS_ATT_BLK "DTL-L" PNT)<br />   (BOM_ATTRIB 4.5 CODE 1.0 "BOLD" 4 (algpnt PNT '(13.0 0.0 0.0)) "CODE_ID" 0 0)<br />   (BOM_ATTRIB 2.5 DESCR 1.0 "STANDARD" 4 (algpnt PNT '(13.0 -6.0 0.0)) "DESCR" 1 0)<br />   (BOM_ATTRIB 2.5 AMT 0.85 "STANDARD" 1 (algpnt PNT '(2.5 1.0 0.0)) "AMT" 0 0)<br />   (BOM_ATTRIB 2.5 SPARE 1.0 "STANDARD" 4 (algpnt PNT '(13.0 6.0 0.0)) "SPARE_PART" 1 0)<br />   (entmake '((0 . "SEQEND")))<br /> )<br /> <br /> ;;;插入属性块DTL-R<br /> (defun INS_DTL-R (PNT CODE DESCR AMT SPARE)<br />   (INS_ATT_BLK "DTL-R" PNT)<br />   (BOM_ATTRIB 4.5 CODE 1.0 "BOLD" 4 (algpnt PNT '(-13.0 0.0 0.0)) "CODE_ID" 0 0)<br />   (BOM_ATTRIB 2.5 DESCR 1.0 "STANDARD" 4 (algpnt PNT '(-13.0 -6.0 0.0)) "DESCR" 1 0)<br />   (BOM_ATTRIB 2.5 AMT 0.85 "STANDARD" 1 (algpnt PNT '(-2.5 1.0 0.0)) "AMT" 0 0)<br />   (BOM_ATTRIB 2.5 SPARE 1.0 "STANDARD" 4 (algpnt PNT '(-13.0 6.0 0.0)) "SPARE_PART" 1 0)<br />   (entmake '((0 . "SEQEND")))<br /> )<br /> <br /> ;;;插入属性块STD-L<br /> (defun INS_STD-L (PNT CODE DESCR_1 DESCR_2 AMT SPARE)<br />   (INS_ATT_BLK "STD-L" PNT)<br />   (BOM_ATTRIB 4.0 CODE 1.0 "BOLD" 2 (algpnt PNT '(94.0 5.0 0.0)) "CODE_ID" 0 1)<br />   (BOM_ATTRIB 3.0 DESCR_1 0.9 "BOLD" 2 (algpnt PNT '(94.0 -5.0 0.0)) "DESCR_1" 0 1)<br />   (BOM_ATTRIB 3.0 DESCR_2 0.9 "BOLD" 2 (algpnt PNT '(94.0 -10.0 0.0)) "DESCR_2" 0 1)<br />   (BOM_ATTRIB 2.5 AMT 0.85 "STANDARD" 1 (algpnt PNT '(2.5 1.0 0.0)) "AMT" 0 0)<br />   (BOM_ATTRIB 2.5 SPARE 0.85 "STANDARD" 1 (algpnt PNT '(2.5 -3.5 0.0)) "SPARE_PART" 1 0)<br />   (entmake '((0 . "SEQEND")))<br /> )<br /> <br /> ;;;插入属性块STD-R<br /> (defun INS_STD-R (PNT CODE DESCR_1 DESCR_2 AMT SPARE)<br />   (INS_ATT_BLK "STD-R" PNT)<br />   (BOM_ATTRIB 4.0 CODE 1.0 "BOLD" 0 (algpnt PNT '(-94.0 5.0 0.0)) "CODE_ID" 0 1)<br />   (BOM_ATTRIB 3.0 DESCR_1 0.9 "BOLD" 0 (algpnt PNT '(-94.0 -5.0 0.0)) "DESCR_1" 0 1)<br />   (BOM_ATTRIB 3.0 DESCR_2 0.9 "BOLD" 0 (algpnt PNT '(-94.0 -10.0 0.0)) "DESCR_2" 0 1)<br />   (BOM_ATTRIB 2.5 AMT 0.85 "STANDARD" 1 (algpnt PNT '(-2.5 1.0 0.0)) "AMT" 0 0)<br />   (BOM_ATTRIB 2.5 SPARE 0.85 "STANDARD" 1 (algpnt PNT '(-2.5 -3.5 0.0)) "SPARE_PART" 1 0)<br />   (entmake '((0 . "SEQEND")))<br /> )<br /> <br /> ;;;插入属性块IDT-L<br /> (defun INS_IDT-L (PNT CODE AMT)<br />   (INS_ATT_BLK "IDT-L" PNT)<br />   (BOM_ATTRIB 4.0 CODE 1.0 "BOLD" 2 (algpnt PNT '(70.0 0.0 0.0)) "CODE_ID" 0 1)<br />   (BOM_ATTRIB 2.5 AMT 0.85 "STANDARD" 1 (algpnt PNT '(2.5 1.0 0.0)) "AMT" 0 0)<br />   (entmake '((0 . "SEQEND")))<br /> )<br /> <br /> ;;;插入属性块IDT-R<br /> (defun INS_IDT-R (PNT CODE AMT)<br />   (INS_ATT_BLK "IDT-R" PNT)<br />   (BOM_ATTRIB 4.0 CODE 1.0 "BOLD" 0 (algpnt PNT '(-70.0 0.0 0.0)) "CODE_ID" 0 1)<br />   (BOM_ATTRIB 2.5 AMT 0.85 "STANDARD" 1 (algpnt PNT '(-2.5 1.0 0.0)) "AMT" 0 0)<br />   (entmake '((0 . "SEQEND")))<br /> )<br /> <br /> ;;;插入属性块ASM-L<br /> (defun INS_ASM-L (PNT CODE DESCR_1 DESCR_2 AMT)<br />   (INS_ATT_BLK "ASM-L" PNT)<br />   (BOM_ATTRIB 4.0 CODE 1.0 "BOLD" 2 (algpnt PNT '(94.0 5.0 0.0)) "CODE_ID" 0 1)<br />   (BOM_ATTRIB 3.0 DESCR_1 0.9 "BOLD" 2 (algpnt PNT '(94.0 -5.0 0.0)) "DESCR_1" 0 1)<br />   (BOM_ATTRIB 3.0 DESCR_2 0.9 "BOLD" 2 (algpnt PNT '(94.0 -10.0 0.0)) "DESCR_2" 0 1)<br />   (BOM_ATTRIB 2.5 AMT 0.85 "STANDARD" 1 (algpnt PNT '(2.5 1.0 0.0)) "AMT" 0 0)<br />   (entmake '((0 . "SEQEND")))<br /> )<br /> <br /> ;;;插入属性块ASM-R<br /> (defun INS_ASM-R (PNT CODE DESCR_1 DESCR_2 AMT)<br />   (INS_ATT_BLK "ASM-R" PNT)<br />   (BOM_ATTRIB 4.0 CODE 1.0 "BOLD" 0 (algpnt PNT '(-94.0 5.0 0.0)) "CODE_ID" 0 1)<br />   (BOM_ATTRIB 3.0 DESCR_1 0.9 "BOLD" 0 (algpnt PNT '(-94.0 -5.0 0.0)) "DESCR_1" 0 1)<br />   (BOM_ATTRIB 3.0 DESCR_2 0.9 "BOLD" 0 (algpnt PNT '(-94.0 -10.0 0.0)) "DESCR_2" 0 1)<br />   (BOM_ATTRIB 2.5 AMT 0.85 "STANDARD" 1 (algpnt PNT '(-2.5 1.0 0.0)) "AMT" 0 0)<br />   (entmake '((0 . "SEQEND")))<br /> )<br /> <br /> ;;;插入属性块<br /> (defun INS_ATT_BLK (BlockName PNT)<br />   (entmake (list '(0 . "INSERT")(cons 2 BlockName)'(8 . "DIM")'(66 . 1)(cons 10 PNT)(cons 41 scl)(cons 42 scl)))<br /> )<br /> <br /> ;;;提取选择集中的所有图元名<br /> (defun ss->entlist (SelectionSet / n entlist)<br />   (setq n 0)<br />   (repeat (setq n (sslength SelectionSet))<br />     (setq entlist (cons (ssname SelectionSet (setq n (1- n))) entlist))<br />   )<br /> )<br /> <br /> ;;;提取图元的DXF组码<br /> (defun entdxf (ename dxf)<br />   (cdr (assoc dxf (entget ename)))<br /> )<br /> <br /> ;;;提取表中所有图元的某个DXF组码<br /> (defun entlist->dxflist (entlist dxf)<br />   (mapcar '(lambda (x) (entdxf x dxf)) entlist)<br /> )<br /> <br /> ;;;获得应用程序app附加于图元的扩展数据<br /> (defun GET_XDATA (ename app)<br />   (cdadr (assoc -3 (entget ename (list (eval app)))))<br /> )<br /> <br /> ;;;删除应用程序app附加于图元的扩展数据<br /> (defun REM_XDATA (ename app / edata)<br />   (if (assoc -3 (setq edata (entget ename (list (eval app)))))(entmod (subst (list -3 (list (eval app))) (assoc -3 edata) edata)))<br /> )<br /> <br /> ;;;添加应用程序app附加于图元的扩展数据<br /> (defun ADD_XDATA (ename app xdata)<br />   (setq edata (GET_XDATA ename app))<br />   (entmod (append (entget ename) (list (list -3 (cons (eval app) (append edata (list (cons 1000 xdata))))))))<br /> )

未完待续