[VBA程序]：Excel表格到CAD的示例程序

efan2000

2. 
   
3.   [FONT=courier new]
   
4.    
   
5. Sub Test()
   
6.     Dim xlApp As Excel.Application
   
7.     Set xlApp = GetObject(, "Excel.Application")
   
8.     Dim xlSheet As Worksheet
   
9.     Set xlSheet = xlApp.ActiveSheet
   
10.     Dim iPt(0 To 2) As Double
    
11.     iPt(0) = 0: iPt(1) = 0: iPt(2) = 0
    
12.     Dim BlockObj As AcadBlock
    
13.     Set BlockObj = ThisDrawing.Blocks("*Model_Space")
    
14.     Dim xlRange As Range
    
15.     For Each xlRange In xlSheet.UsedRange
    
16.         AddLine BlockObj, xlRange
    
17.         AddText BlockObj, xlRange
    
18.     Next
    
19.     Set xlRange = Nothing
    
20.     Set xlSheet = Nothing
    
21.     Set xlApp = Nothing
    
22. End Sub
    
23. 
    
24. '边框处理
    
25. Sub AddLine(ByRef BlockObj As AcadBlock, ByVal xlRange As Range)
    
26.     Dim rl As Double
    
27.     Dim rt As Double
    
28.     Dim rw As Double
    
29.     Dim rh As Double
    
30.     rl = xlRange.Left / 2.835
    
31.     rt = xlRange.top / 2.835
    
32.     rw = xlRange.Width / 2.835
    
33.     rh = xlRange.Height / 2.835
    
34.     Dim pPt(0 To 3) As Double
    
35.     Dim pLineObj As AcadLWPolyline
    
36.     If xlRange.Borders(xlEdgeLeft).LineStyle <> xlNone And xlRange.Column = 1 Then
    
37.         pPt(0) = rl: pPt(1) = -rt
    
38.         pPt(2) = rl: pPt(3) = -(rl + rh)
    
39.         Set pLineObj = BlockObj.AddLightWeightPolyline(pPt)
    
40.         With xlRange.Borders(xlEdgeLeft)
    
41.             If .ColorIndex <> xlAutomatic Then
    
42.                 If .ColorIndex = 3 Then
    
43.                     pLineObj.Color = acRed
    
44.                 ElseIf .ColorIndex = 4 Then
    
45.                     pLineObj.Color = acGreen
    
46.                 ElseIf .ColorIndex = 5 Then
    
47.                     pLineObj.Color = acBlue
    
48.                 ElseIf .ColorIndex = 6 Then
    
49.                     pLineObj.Color = acYellow
    
50.                 ElseIf .ColorIndex = 8 Then
    
51.                     pLineObj.Color = acCyan
    
52.                 ElseIf .ColorIndex = 9 Then
    
53.                     pLineObj.Color = acMagenta
    
54.                 End If
    
55.             End If
    
56.             If .Weight = xlThin Then
    
57.                 pLineObj.ConstantWidth = 0
    
58.             ElseIf .Weight = xlMedium Then
    
59.                 pLineObj.ConstantWidth = 0.35
    
60.             ElseIf .Weight = xlThick Then
    
61.                 pLineObj.ConstantWidth = 0.7
    
62.             End If
    
63.         End With
    
64.     End If
    
65.     If xlRange.Borders(xlEdgeBottom).LineStyle <> xlNone And (xlRange.Row = xlRange.MergeArea.Row + xlRange.MergeArea.Rows.Count - 1) Then
    
66.         pPt(0) = rl: pPt(1) = -(rt + rh)
    
67.         pPt(2) = rl + rw: pPt(3) = -(rt + rh)
    
68.         Set pLineObj = BlockObj.AddLightWeightPolyline(pPt)
    
69.         With xlRange.Borders(xlEdgeBottom)
    
70.             If .ColorIndex <> xlAutomatic Then
    
71.                 If .ColorIndex = 3 Then
    
72.                     pLineObj.Color = acRed
    
73.                 ElseIf .ColorIndex = 4 Then
    
74.                     pLineObj.Color = acGreen
    
75.                 ElseIf .ColorIndex = 5 Then
    
76.                     pLineObj.Color = acBlue
    
77.                 ElseIf .ColorIndex = 6 Then
    
78.                     pLineObj.Color = acYellow
    
79.                 ElseIf .ColorIndex = 8 Then
    
80.                     pLineObj.Color = acCyan
    
81.                 ElseIf .ColorIndex = 9 Then
    
82.                     pLineObj.Color = acMagenta
    
83.                 End If
    
84.             End If
    
85.             If .Weight = xlThin Then
    
86.                 pLineObj.ConstantWidth = 0
    
87.             ElseIf .Weight = xlMedium Then
    
88.                 pLineObj.ConstantWidth = 0.35
    
89.             ElseIf .Weight = xlThick Then
    
90.                 pLineObj.ConstantWidth = 0.7
    
91.             End If
    
92.         End With
    
93.     End If
    
94.     If xlRange.Borders(xlEdgeRight).LineStyle <> xlNone And (xlRange.Column >= xlRange.MergeArea.Column + xlRange.MergeArea.Columns.Count - 1) Then
    
95.         pPt(0) = rl + rw: pPt(1) = -(rt + rh)
    
96.         pPt(2) = rl + rw: pPt(3) = -rt
    
97.         Set pLineObj = BlockObj.AddLightWeightPolyline(pPt)
    
98.         With xlRange.Borders(xlEdgeRight)
    
99.             If .ColorIndex <> xlAutomatic Then
    
100.                 If .ColorIndex = 3 Then
     
101.                     pLineObj.Color = acRed
     
102.                 ElseIf .ColorIndex = 4 Then
     
103.                     pLineObj.Color = acGreen
     
104.                 ElseIf .ColorIndex = 5 Then
     
105.                     pLineObj.Color = acBlue
     
106.                 ElseIf .ColorIndex = 6 Then
     
107.                     pLineObj.Color = acYellow
     
108.                 ElseIf .ColorIndex = 8 Then
     
109.                     pLineObj.Color = acCyan
     
110.                 ElseIf .ColorIndex = 9 Then
     
111.                     pLineObj.Color = acMagenta
     
112.                 End If
     
113.             End If
     
114.             If .Weight = xlThin Then
     
115.                 pLineObj.ConstantWidth = 0
     
116.             ElseIf .Weight = xlMedium Then
     
117.                 pLineObj.ConstantWidth = 0.35
     
118.             ElseIf .Weight = xlThick Then
     
119.                 pLineObj.ConstantWidth = 0.7
     
120.             End If
     
121.         End With
     
122.     End If
     
123.     If xlRange.Borders(xlEdgeTop).LineStyle <> xlNone And xlRange.top = 1 Then
     
124.         pPt(0) = rl + rw: pPt(1) = -rt
     
125.         pPt(2) = rl: pPt(3) = -rt
     
126.         Set pLineObj = BlockObj.AddLightWeightPolyline(pPt)
     
127.         With xlRange.Borders(xlEdgeTop)
     
128.             If .ColorIndex <> xlAutomatic Then
     
129.                 If .ColorIndex = 3 Then
     
130.                     pLineObj.Color = acRed
     
131.                 ElseIf .ColorIndex = 4 Then
     
132.                     pLineObj.Color = acGreen
     
133.                 ElseIf .ColorIndex = 5 Then
     
134.                     pLineObj.Color = acBlue
     
135.                 ElseIf .ColorIndex = 6 Then
     
136.                     pLineObj.Color = acYellow
     
137.                 ElseIf .ColorIndex = 8 Then
     
138.                     pLineObj.Color = acCyan
     
139.                 ElseIf .ColorIndex = 9 Then
     
140.                     pLineObj.Color = acMagenta
     
141.                 End If
     
142.             End If
     
143.             If .Weight = xlThin Then
     
144.                 pLineObj.ConstantWidth = 0
     
145.             ElseIf .Weight = xlMedium Then
     
146.                 pLineObj.ConstantWidth = 0.35
     
147.             ElseIf .Weight = xlThick Then
     
148.                 pLineObj.ConstantWidth = 0.7
     
149.             End If
     
150.         End With
     
151.     End If
     
152.     Set pLineObj = Nothing
     
153. End Sub
     
154. 
     
155. '文字处理
     
156. Sub AddText(ByRef BlockObj As AcadBlock, ByVal xlRange As Range)
     
157.     If xlRange.Text = "" Then Exit Sub
     
158.     Dim rl As Double
     
159.     Dim rt As Double
     
160.     Dim rw As Double
     
161.     Dim rh As Double
     
162.     rl = xlRange.Left / 2.835
     
163.     rt = xlRange.top / 2.835
     
164.     rw = xlRange.MergeArea.Width / 2.835
     
165.     rh = xlRange.MergeArea.Height / 2.835
     
166.     Dim iPt(0 To 2) As Double
     
167.     iPt(0) = rl: iPt(1) = -rt: iPt(2) = 0
     
168.     Dim mTextObj As AcadMText
     
169.     Set mTextObj = BlockObj.AddMText(iPt, rw, xlRange.Text)
     
170.     Dim tPt As Variant
     
171.     If xlRange.VerticalAlignment = xlTop And (xlRange.HorizontalAlignment = xlLeft Or xlRange.HorizontalAlignment = xlGeneral) Then
     
172.         mTextObj.AttachmentPoint = acAttachmentPointTopLeft
     
173.         mTextObj.InsertionPoint = iPt
     
174.     ElseIf xlRange.VerticalAlignment = xlTop And xlRange.HorizontalAlignment = xlCenter Then
     
175.         mTextObj.AttachmentPoint = acAttachmentPointTopCenter
     
176.         tPt = ThisDrawing.Utility.PolarPoint(iPt, 0, rw / 2)
     
177.     ElseIf xlRange.VerticalAlignment = xlTop And xlRange.HorizontalAlignment = xlRight Then
     
178.         mTextObj.AttachmentPoint = acAttachmentPointTopRight
     
179.         tPt = ThisDrawing.Utility.PolarPoint(iPt, 0, rw)
     
180.     ElseIf xlRange.VerticalAlignment = xlCenter And (xlRange.HorizontalAlignment = xlLeft _
     
181.             Or xlRange.HorizontalAlignment = xlGeneral) Then
     
182.         mTextObj.AttachmentPoint = acAttachmentPointMiddleLeft
     
183.         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh / 2)
     
184.     ElseIf xlRange.VerticalAlignment = xlCenter And xlRange.HorizontalAlignment = xlCenter Then
     
185.         mTextObj.AttachmentPoint = acAttachmentPointMiddleCenter
     
186.         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh / 2)
     
187.         tPt = ThisDrawing.Utility.PolarPoint(tPt, 0, rw / 2)
     
188.     ElseIf xlRange.VerticalAlignment = xlCenter And xlRange.HorizontalAlignment = xlRight Then
     
189.         mTextObj.AttachmentPoint = acAttachmentPointMiddleRight
     
190.         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh / 2)
     
191.         tPt = ThisDrawing.Utility.PolarPoint(tPt, 0, rw / 2)
     
192.     ElseIf xlRange.VerticalAlignment = xlBottom And (xlRange.HorizontalAlignment = xlLeft _
     
193.             Or xlRange.HorizontalAlignment = xlGeneral) Then
     
194.         mTextObj.AttachmentPoint = acAttachmentPointBottomLeft
     
195.         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh)
     
196.     ElseIf xlRange.VerticalAlignment = xlBottom And xlRange.HorizontalAlignment = xlCenter Then
     
197.         mTextObj.AttachmentPoint = acAttachmentPointBottomCenter
     
198.         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh)
     
199.         tPt = ThisDrawing.Utility.PolarPoint(tPt, 0, rw / 2)
     
200.     ElseIf xlRange.VerticalAlignment = xlBottom And xlRange.HorizontalAlignment = xlRight Then
     
201.         mTextObj.AttachmentPoint = acAttachmentPointBottomRight
     
202.         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh)
     
203.         tPt = ThisDrawing.Utility.PolarPoint(tPt, 0, rw)
     
204.     End If
     
205.     mTextObj.InsertionPoint = tPt
     
206.     Set mTextObj = Nothing
     
207. End Sub
     
208.   [/FONT]
     

<br />   [FONT=courier new]<br />     <br /> Sub Test()<br />     Dim xlApp As Excel.Application<br />     Set xlApp = GetObject(, "Excel.Application")<br />     Dim xlSheet As Worksheet<br />     Set xlSheet = xlApp.ActiveSheet<br />     Dim iPt(0 To 2) As Double<br />     iPt(0) = 0: iPt(1) = 0: iPt(2) = 0<br />     Dim BlockObj As AcadBlock<br />     Set BlockObj = ThisDrawing.Blocks("*Model_Space")<br />     Dim xlRange As Range<br />     For Each xlRange In xlSheet.UsedRange<br />         AddLine BlockObj, xlRange<br />         AddText BlockObj, xlRange<br />     Next<br />     Set xlRange = Nothing<br />     Set xlSheet = Nothing<br />     Set xlApp = Nothing<br /> End Sub<br /> <br /> '边框处理<br /> Sub AddLine(ByRef BlockObj As AcadBlock, ByVal xlRange As Range)<br />     Dim rl As Double<br />     Dim rt As Double<br />     Dim rw As Double<br />     Dim rh As Double<br />     rl = xlRange.Left / 2.835<br />     rt = xlRange.top / 2.835<br />     rw = xlRange.Width / 2.835<br />     rh = xlRange.Height / 2.835<br />     Dim pPt(0 To 3) As Double<br />     Dim pLineObj As AcadLWPolyline<br />     If xlRange.Borders(xlEdgeLeft).LineStyle <> xlNone And xlRange.Column = 1 Then<br />         pPt(0) = rl: pPt(1) = -rt<br />         pPt(2) = rl: pPt(3) = -(rl + rh)<br />         Set pLineObj = BlockObj.AddLightWeightPolyline(pPt)<br />         With xlRange.Borders(xlEdgeLeft)<br />             If .ColorIndex <> xlAutomatic Then<br />                 If .ColorIndex = 3 Then<br />                     pLineObj.Color = acRed<br />                 ElseIf .ColorIndex = 4 Then<br />                     pLineObj.Color = acGreen<br />                 ElseIf .ColorIndex = 5 Then<br />                     pLineObj.Color = acBlue<br />                 ElseIf .ColorIndex = 6 Then<br />                     pLineObj.Color = acYellow<br />                 ElseIf .ColorIndex = 8 Then<br />                     pLineObj.Color = acCyan<br />                 ElseIf .ColorIndex = 9 Then<br />                     pLineObj.Color = acMagenta<br />                 End If<br />             End If<br />             If .Weight = xlThin Then<br />                 pLineObj.ConstantWidth = 0<br />             ElseIf .Weight = xlMedium Then<br />                 pLineObj.ConstantWidth = 0.35<br />             ElseIf .Weight = xlThick Then<br />                 pLineObj.ConstantWidth = 0.7<br />             End If<br />         End With<br />     End If<br />     If xlRange.Borders(xlEdgeBottom).LineStyle <> xlNone And (xlRange.Row = xlRange.MergeArea.Row + xlRange.MergeArea.Rows.Count - 1) Then<br />         pPt(0) = rl: pPt(1) = -(rt + rh)<br />         pPt(2) = rl + rw: pPt(3) = -(rt + rh)<br />         Set pLineObj = BlockObj.AddLightWeightPolyline(pPt)<br />         With xlRange.Borders(xlEdgeBottom)<br />             If .ColorIndex <> xlAutomatic Then<br />                 If .ColorIndex = 3 Then<br />                     pLineObj.Color = acRed<br />                 ElseIf .ColorIndex = 4 Then<br />                     pLineObj.Color = acGreen<br />                 ElseIf .ColorIndex = 5 Then<br />                     pLineObj.Color = acBlue<br />                 ElseIf .ColorIndex = 6 Then<br />                     pLineObj.Color = acYellow<br />                 ElseIf .ColorIndex = 8 Then<br />                     pLineObj.Color = acCyan<br />                 ElseIf .ColorIndex = 9 Then<br />                     pLineObj.Color = acMagenta<br />                 End If<br />             End If<br />             If .Weight = xlThin Then<br />                 pLineObj.ConstantWidth = 0<br />             ElseIf .Weight = xlMedium Then<br />                 pLineObj.ConstantWidth = 0.35<br />             ElseIf .Weight = xlThick Then<br />                 pLineObj.ConstantWidth = 0.7<br />             End If<br />         End With<br />     End If<br />     If xlRange.Borders(xlEdgeRight).LineStyle <> xlNone And (xlRange.Column >= xlRange.MergeArea.Column + xlRange.MergeArea.Columns.Count - 1) Then<br />         pPt(0) = rl + rw: pPt(1) = -(rt + rh)<br />         pPt(2) = rl + rw: pPt(3) = -rt<br />         Set pLineObj = BlockObj.AddLightWeightPolyline(pPt)<br />         With xlRange.Borders(xlEdgeRight)<br />             If .ColorIndex <> xlAutomatic Then<br />                 If .ColorIndex = 3 Then<br />                     pLineObj.Color = acRed<br />                 ElseIf .ColorIndex = 4 Then<br />                     pLineObj.Color = acGreen<br />                 ElseIf .ColorIndex = 5 Then<br />                     pLineObj.Color = acBlue<br />                 ElseIf .ColorIndex = 6 Then<br />                     pLineObj.Color = acYellow<br />                 ElseIf .ColorIndex = 8 Then<br />                     pLineObj.Color = acCyan<br />                 ElseIf .ColorIndex = 9 Then<br />                     pLineObj.Color = acMagenta<br />                 End If<br />             End If<br />             If .Weight = xlThin Then<br />                 pLineObj.ConstantWidth = 0<br />             ElseIf .Weight = xlMedium Then<br />                 pLineObj.ConstantWidth = 0.35<br />             ElseIf .Weight = xlThick Then<br />                 pLineObj.ConstantWidth = 0.7<br />             End If<br />         End With<br />     End If<br />     If xlRange.Borders(xlEdgeTop).LineStyle <> xlNone And xlRange.top = 1 Then<br />         pPt(0) = rl + rw: pPt(1) = -rt<br />         pPt(2) = rl: pPt(3) = -rt<br />         Set pLineObj = BlockObj.AddLightWeightPolyline(pPt)<br />         With xlRange.Borders(xlEdgeTop)<br />             If .ColorIndex <> xlAutomatic Then<br />                 If .ColorIndex = 3 Then<br />                     pLineObj.Color = acRed<br />                 ElseIf .ColorIndex = 4 Then<br />                     pLineObj.Color = acGreen<br />                 ElseIf .ColorIndex = 5 Then<br />                     pLineObj.Color = acBlue<br />                 ElseIf .ColorIndex = 6 Then<br />                     pLineObj.Color = acYellow<br />                 ElseIf .ColorIndex = 8 Then<br />                     pLineObj.Color = acCyan<br />                 ElseIf .ColorIndex = 9 Then<br />                     pLineObj.Color = acMagenta<br />                 End If<br />             End If<br />             If .Weight = xlThin Then<br />                 pLineObj.ConstantWidth = 0<br />             ElseIf .Weight = xlMedium Then<br />                 pLineObj.ConstantWidth = 0.35<br />             ElseIf .Weight = xlThick Then<br />                 pLineObj.ConstantWidth = 0.7<br />             End If<br />         End With<br />     End If<br />     Set pLineObj = Nothing<br /> End Sub<br /> <br /> '文字处理<br /> Sub AddText(ByRef BlockObj As AcadBlock, ByVal xlRange As Range)<br />     If xlRange.Text = "" Then Exit Sub<br />     Dim rl As Double<br />     Dim rt As Double<br />     Dim rw As Double<br />     Dim rh As Double<br />     rl = xlRange.Left / 2.835<br />     rt = xlRange.top / 2.835<br />     rw = xlRange.MergeArea.Width / 2.835<br />     rh = xlRange.MergeArea.Height / 2.835<br />     Dim iPt(0 To 2) As Double<br />     iPt(0) = rl: iPt(1) = -rt: iPt(2) = 0<br />     Dim mTextObj As AcadMText<br />     Set mTextObj = BlockObj.AddMText(iPt, rw, xlRange.Text)<br />     Dim tPt As Variant<br />     If xlRange.VerticalAlignment = xlTop And (xlRange.HorizontalAlignment = xlLeft Or xlRange.HorizontalAlignment = xlGeneral) Then<br />         mTextObj.AttachmentPoint = acAttachmentPointTopLeft<br />         mTextObj.InsertionPoint = iPt<br />     ElseIf xlRange.VerticalAlignment = xlTop And xlRange.HorizontalAlignment = xlCenter Then<br />         mTextObj.AttachmentPoint = acAttachmentPointTopCenter<br />         tPt = ThisDrawing.Utility.PolarPoint(iPt, 0, rw / 2)<br />     ElseIf xlRange.VerticalAlignment = xlTop And xlRange.HorizontalAlignment = xlRight Then<br />         mTextObj.AttachmentPoint = acAttachmentPointTopRight<br />         tPt = ThisDrawing.Utility.PolarPoint(iPt, 0, rw)<br />     ElseIf xlRange.VerticalAlignment = xlCenter And (xlRange.HorizontalAlignment = xlLeft _<br />             Or xlRange.HorizontalAlignment = xlGeneral) Then<br />         mTextObj.AttachmentPoint = acAttachmentPointMiddleLeft<br />         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh / 2)<br />     ElseIf xlRange.VerticalAlignment = xlCenter And xlRange.HorizontalAlignment = xlCenter Then<br />         mTextObj.AttachmentPoint = acAttachmentPointMiddleCenter<br />         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh / 2)<br />         tPt = ThisDrawing.Utility.PolarPoint(tPt, 0, rw / 2)<br />     ElseIf xlRange.VerticalAlignment = xlCenter And xlRange.HorizontalAlignment = xlRight Then<br />         mTextObj.AttachmentPoint = acAttachmentPointMiddleRight<br />         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh / 2)<br />         tPt = ThisDrawing.Utility.PolarPoint(tPt, 0, rw / 2)<br />     ElseIf xlRange.VerticalAlignment = xlBottom And (xlRange.HorizontalAlignment = xlLeft _<br />             Or xlRange.HorizontalAlignment = xlGeneral) Then<br />         mTextObj.AttachmentPoint = acAttachmentPointBottomLeft<br />         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh)<br />     ElseIf xlRange.VerticalAlignment = xlBottom And xlRange.HorizontalAlignment = xlCenter Then<br />         mTextObj.AttachmentPoint = acAttachmentPointBottomCenter<br />         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh)<br />         tPt = ThisDrawing.Utility.PolarPoint(tPt, 0, rw / 2)<br />     ElseIf xlRange.VerticalAlignment = xlBottom And xlRange.HorizontalAlignment = xlRight Then<br />         mTextObj.AttachmentPoint = acAttachmentPointBottomRight<br />         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh)<br />         tPt = ThisDrawing.Utility.PolarPoint(tPt, 0, rw)<br />     End If<br />     mTextObj.InsertionPoint = tPt<br />     Set mTextObj = Nothing<br /> End Sub<br />   [/FONT]<br />

efan2000

附上源代码，过一段时间等整个程序处理完后再上传。

efan2000

附上两个从Excel中的磅单位到毫米单位换算的函数（1 毫米 = 2.835 磅）。

2. 
   
3.   [FONT=courier new]
   
4. '磅换算成毫米
   
5. Function PointsToMillimeters(ByVal Points As Double) As Double
   
6.     PointsToMillimeters = Points * 0.3527778
   
7. End Function
   
8. 
   
9. ''毫米换算成磅
   
10. Function MillimetersToPoints(ByVal Millimeters As Double) As Double
    
11.     MillimetersToPoints = Millimeters * 2.8346457
    
12. End Function
    
13.   [/FONT]
    

<br />   [FONT=courier new]<br /> '磅换算成毫米<br /> Function PointsToMillimeters(ByVal Points As Double) As Double<br />     PointsToMillimeters = Points * 0.3527778<br /> End Function<br /> <br /> ''毫米换算成磅<br /> Function MillimetersToPoints(ByVal Millimeters As Double) As Double<br />     MillimetersToPoints = Millimeters * 2.8346457<br /> End Function<br />   [/FONT]<br />

adian2000

"If xlRange.Borders(xlEdgeTop).LineStyle <> xlNone And xlRange.top = 1 Then"
其中的应该为xlRange.top=0，或者xlRange.row=1

“    If xlRange.VerticalAlignment = xlTop And (xlRange.HorizontalAlignment = xlLeft Or xlRange.HorizontalAlignment = xlGeneral) Then
        mTextObj.AttachmentPoint = acAttachmentPointTopLeft
        mTextObj.InsertionPoint = iPt“
应该把mTextObj.InsertionPoint = iPt改成tpt＝ipt

“    If xlRange.Borders(xlEdgeLeft).LineStyle <> xlNone And xlRange.Column = 1 Then
        pPt(0) = rl: pPt(1) = -rt
        pPt(2) = rl: pPt(3) = -(rl + rh)”
改成ppt(3)=-(rt+rh)

不当之处，请谅解。

efan2000

感谢adian2000和eachy提出的建议，希望更多的人能够对程序的进一步完善提供一些建议。
修改后的程序如下：

2. 
   
3.   [FONT=courier new]
   
4. Sub Test()
   
5.     On Error Resume Next
   
6.     Dim xlApp As Excel.Application
   
7.     Set xlApp = GetObject(, "Excel.Application")
   
8.     If Err Then
   
9.         MsgBox " Excel 应用程序没有运行。请启动 Excel 并重新运行程序。"
   
10.         Exit Sub
    
11.     End If
    
12.     Dim xlSheet As Worksheet
    
13.     Set xlSheet = xlApp.ActiveSheet
    
14.     'Dim iPt(0 To 2) As Double
    
15.     'iPt(0) = 0: iPt(1) = 0: iPt(2) = 0
    
16.     Dim BlockObj As AcadBlock
    
17.     Set BlockObj = ThisDrawing.Blocks("*Model_Space")
    
18.     Dim iPt As Variant
    
19.     iPt = ThisDrawing.Utility.GetPoint(, "指定表格的插入点: ")
    
20.     If IsEmpty(iPt) Then Exit Sub
    
21.     Dim xlRange As Range
    
22.     Debug.Print xlSheet.UsedRange.Address
    
23.     For Each xlRange In xlSheet.UsedRange
    
24.         AddLine BlockObj, iPt, xlRange
    
25.         AddText BlockObj, iPt, xlRange
    
26.     Next
    
27.     Set xlRange = Nothing
    
28.     Set xlSheet = Nothing
    
29.     Set xlApp = Nothing
    
30. End Sub
    
31. 
    
32. '边框线条粗细
    
33. Function LineWidth(ByVal xlBorder As Border) As Double
    
34.     Select Case xlBorder.Weight
    
35.         Case xlThin
    
36.             LineWidth = 0
    
37.         Case xlMedium
    
38.             LineWidth = 0.35
    
39.         Case xlThick
    
40.             LineWidth = 0.7
    
41.         Case Else
    
42.             LineWidth = 0
    
43.     End Select
    
44. End Function
    
45. 
    
46. '边框线条颜色，处理的颜色不全，请自己添加
    
47. Function LineColor(ByVal xlBorder As Border) As Integer
    
48.     Select Case xlBorder.ColorIndex
    
49.         Case xlAutomatic
    
50.             LineColor = acByLayer
    
51.         Case 3
    
52.             LineColor = acRed
    
53.         Case 4
    
54.             LineColor = acGreen
    
55.         Case 5
    
56.             LineColor = acBlue
    
57.         Case 6
    
58.             LineColor = acYellow
    
59.          Case 8
    
60.             LineColor = acCyan
    
61.          Case 9
    
62.             LineColor = acMagenta
    
63.         Case Else
    
64.             LineColor = acByLayer
    
65.     End Select
    
66. End Function
    
67. 
    
68. '给制边框
    
69. Sub AddLine(ByRef BlockObj As AcadBlock, ByVal iPt As Variant, ByVal xlRange As Range)
    
70.     If xlRange.Borders(xlEdgeLeft).LineStyle = xlNone _
    
71.         And xlRange.Borders(xlEdgeBottom).LineStyle = xlNone _
    
72.         And xlRange.Borders(xlEdgeRight).LineStyle = xlNone _
    
73.         And xlRange.Borders(xlEdgeTop).LineStyle = xlNone Then Exit Sub
    
74.     Dim rl As Double
    
75.     Dim rt As Double
    
76.     Dim rw As Double
    
77.     Dim rh As Double
    
78.     rl = PToM(xlRange.Left)
    
79.     rt = PToM(xlRange.top)
    
80.     rw = PToM(xlRange.Width)
    
81.     rh = PToM(xlRange.Height)
    
82.     Dim pPt(0 To 3) As Double
    
83.     Dim pLineObj As AcadLWPolyline
    
84.     If xlRange.Borders(xlEdgeLeft).LineStyle <> xlNone And xlRange.Column = 1 Then
    
85.         pPt(0) = iPt(0) + rl: pPt(1) = iPt(1) - rt
    
86.         pPt(2) = iPt(0) + rl: pPt(3) = iPt(1) - (rt + rh)
    
87.         Set pLineObj = BlockObj.AddLightWeightPolyline(pPt)
    
88.         pLineObj.ConstantWidth = LineWidth(xlRange.Borders(xlEdgeLeft))
    
89.         pLineObj.Color = LineColor(xlRange.Borders(xlEdgeLeft))
    
90.     End If
    
91.     If xlRange.Borders(xlEdgeBottom).LineStyle <> xlNone And (xlRange.Row = xlRange.MergeArea.Row + xlRange.MergeArea.Rows.Count - 1) Then
    
92.         pPt(0) = iPt(0) + rl: pPt(1) = iPt(1) - (rt + rh)
    
93.         pPt(2) = iPt(0) + rl + rw: pPt(3) = iPt(1) - (rt + rh)
    
94.         Set pLineObj = BlockObj.AddLightWeightPolyline(pPt)
    
95.         pLineObj.ConstantWidth = LineWidth(xlRange.Borders(xlEdgeBottom))
    
96.         pLineObj.Color = LineColor(xlRange.Borders(xlEdgeBottom))
    
97.     End If
    
98.     If xlRange.Borders(xlEdgeRight).LineStyle <> xlNone And (xlRange.Column >= xlRange.MergeArea.Column + xlRange.MergeArea.Columns.Count - 1) Then
    
99.         pPt(0) = iPt(0) + rl + rw: pPt(1) = iPt(1) - (rt + rh)
    
100.         pPt(2) = iPt(0) + rl + rw: pPt(3) = iPt(1) - rt
     
101.         Set pLineObj = BlockObj.AddLightWeightPolyline(pPt)
     
102.         pLineObj.ConstantWidth = LineWidth(xlRange.Borders(xlEdgeRight))
     
103.         pLineObj.Color = LineColor(xlRange.Borders(xlEdgeRight))
     
104.     End If
     
105.     If xlRange.Borders(xlEdgeTop).LineStyle <> xlNone And xlRange.Row = 1 Then
     
106.         pPt(0) = iPt(0) + rl + rw: pPt(1) = iPt(1) - rt
     
107.         pPt(2) = iPt(0) + rl: pPt(3) = iPt(1) - rt
     
108.         Set pLineObj = BlockObj.AddLightWeightPolyline(pPt)
     
109.         pLineObj.ConstantWidth = LineWidth(xlRange.Borders(xlEdgeTop))
     
110.         pLineObj.Color = LineColor(xlRange.Borders(xlEdgeTop))
     
111.     End If
     
112.     Set pLineObj = Nothing
     
113. End Sub
     
114. 
     
115. '给制文本
     
116. Sub AddText(ByRef BlockObj As AcadBlock, ByVal InsertionPoint As Variant, ByVal xlRange As Range)
     
117.     If xlRange.Text = "" Then Exit Sub
     
118.     Dim rl As Double
     
119.     Dim rt As Double
     
120.     Dim rw As Double
     
121.     Dim rh As Double
     
122.     rl = PToM(xlRange.Left)
     
123.     rt = PToM(xlRange.top)
     
124.     rw = PToM(xlRange.MergeArea.Width)
     
125.     rh = PToM(xlRange.MergeArea.Height)
     
126.     Dim i As Integer
     
127.     Dim s As String
     
128.     For i = 1 To Len(xlRange.Text) '将EXCEL的换行符替换成\P，注如果是在R2002以上可使用Replace函数。
     
129.         If Asc(Mid(xlRange.Text, i, 1)) = 10 Then
     
130.             s = s & "\P"
     
131.         Else
     
132.             s = s & Mid(xlRange.Text, i, 1)
     
133.         End If
     
134.     Next
     
135.     Dim iPt(0 To 2) As Double
     
136.     iPt(0) = InsertionPoint(0) + rl: iPt(1) = InsertionPoint(1) - rt: iPt(2) = 0
     
137.     Dim mTextObj As AcadMText
     
138.     Set mTextObj = BlockObj.AddMText(iPt, rw, s)  '"{\f" & xlRange.Font.Name & ";" & s & "}")
     
139.     mTextObj.LineSpacingFactor = 0.75
     
140.     mTextObj.Height = PToM(xlRange.Font.Size)
     
141.     Dim tPt As Variant
     
142.     If xlRange.VerticalAlignment = xlTop And (xlRange.HorizontalAlignment = xlLeft Or xlRange.HorizontalAlignment = xlGeneral) Then
     
143.         mTextObj.AttachmentPoint = acAttachmentPointTopLeft
     
144.         tPt = iPt
     
145.     ElseIf xlRange.VerticalAlignment = xlTop And xlRange.HorizontalAlignment = xlCenter Then
     
146.         mTextObj.AttachmentPoint = acAttachmentPointTopCenter
     
147.         tPt = ThisDrawing.Utility.PolarPoint(iPt, 0, rw / 2)
     
148.     ElseIf xlRange.VerticalAlignment = xlTop And xlRange.HorizontalAlignment = xlRight Then
     
149.         mTextObj.AttachmentPoint = acAttachmentPointTopRight
     
150.         tPt = ThisDrawing.Utility.PolarPoint(iPt, 0, rw)
     
151.     ElseIf xlRange.VerticalAlignment = xlCenter And (xlRange.HorizontalAlignment = xlLeft _
     
152.             Or xlRange.HorizontalAlignment = xlGeneral) Then
     
153.         mTextObj.AttachmentPoint = acAttachmentPointMiddleLeft
     
154.         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh / 2)
     
155.     ElseIf xlRange.VerticalAlignment = xlCenter And xlRange.HorizontalAlignment = xlCenter Then
     
156.         mTextObj.AttachmentPoint = acAttachmentPointMiddleCenter
     
157.         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh / 2)
     
158.         tPt = ThisDrawing.Utility.PolarPoint(tPt, 0, rw / 2)
     
159.     ElseIf xlRange.VerticalAlignment = xlCenter And xlRange.HorizontalAlignment = xlRight Then
     
160.         mTextObj.AttachmentPoint = acAttachmentPointMiddleRight
     
161.         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh / 2)
     
162.         tPt = ThisDrawing.Utility.PolarPoint(tPt, 0, rw / 2)
     
163.     ElseIf xlRange.VerticalAlignment = xlBottom And (xlRange.HorizontalAlignment = xlLeft _
     
164.             Or xlRange.HorizontalAlignment = xlGeneral) Then
     
165.         mTextObj.AttachmentPoint = acAttachmentPointBottomLeft
     
166.         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh)
     
167.     ElseIf xlRange.VerticalAlignment = xlBottom And xlRange.HorizontalAlignment = xlCenter Then
     
168.         mTextObj.AttachmentPoint = acAttachmentPointBottomCenter
     
169.         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh)
     
170.         tPt = ThisDrawing.Utility.PolarPoint(tPt, 0, rw / 2)
     
171.     ElseIf xlRange.VerticalAlignment = xlBottom And xlRange.HorizontalAlignment = xlRight Then
     
172.         mTextObj.AttachmentPoint = acAttachmentPointBottomRight
     
173.         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh)
     
174.         tPt = ThisDrawing.Utility.PolarPoint(tPt, 0, rw)
     
175.     End If
     
176.     mTextObj.InsertionPoint = tPt
     
177.     Set mTextObj = Nothing
     
178. End Sub
     
179. 
     
180. ' 磅换算成毫米
     
181. Function PToM(ByVal Points As Double) As Double
     
182.     PToM = Points * 0.3527778
     
183. End Function
     
184.   [/FONT]
     

<br />   [FONT=courier new]<br /> Sub Test()<br />     On Error Resume Next<br />     Dim xlApp As Excel.Application<br />     Set xlApp = GetObject(, "Excel.Application")<br />     If Err Then<br />         MsgBox " Excel 应用程序没有运行。请启动 Excel 并重新运行程序。"<br />         Exit Sub<br />     End If<br />     Dim xlSheet As Worksheet<br />     Set xlSheet = xlApp.ActiveSheet<br />     'Dim iPt(0 To 2) As Double<br />     'iPt(0) = 0: iPt(1) = 0: iPt(2) = 0<br />     Dim BlockObj As AcadBlock<br />     Set BlockObj = ThisDrawing.Blocks("*Model_Space")<br />     Dim iPt As Variant<br />     iPt = ThisDrawing.Utility.GetPoint(, "指定表格的插入点: ")<br />     If IsEmpty(iPt) Then Exit Sub<br />     Dim xlRange As Range<br />     Debug.Print xlSheet.UsedRange.Address<br />     For Each xlRange In xlSheet.UsedRange<br />         AddLine BlockObj, iPt, xlRange<br />         AddText BlockObj, iPt, xlRange<br />     Next<br />     Set xlRange = Nothing<br />     Set xlSheet = Nothing<br />     Set xlApp = Nothing<br /> End Sub<br /> <br /> '边框线条粗细<br /> Function LineWidth(ByVal xlBorder As Border) As Double<br />     Select Case xlBorder.Weight<br />         Case xlThin<br />             LineWidth = 0<br />         Case xlMedium<br />             LineWidth = 0.35<br />         Case xlThick<br />             LineWidth = 0.7<br />         Case Else<br />             LineWidth = 0<br />     End Select<br /> End Function<br /> <br /> '边框线条颜色，处理的颜色不全，请自己添加<br /> Function LineColor(ByVal xlBorder As Border) As Integer<br />     Select Case xlBorder.ColorIndex<br />         Case xlAutomatic<br />             LineColor = acByLayer<br />         Case 3<br />             LineColor = acRed<br />         Case 4<br />             LineColor = acGreen<br />         Case 5<br />             LineColor = acBlue<br />         Case 6<br />             LineColor = acYellow<br />          Case 8<br />             LineColor = acCyan<br />          Case 9<br />             LineColor = acMagenta<br />         Case Else<br />             LineColor = acByLayer<br />     End Select<br /> End Function<br /> <br /> '给制边框<br /> Sub AddLine(ByRef BlockObj As AcadBlock, ByVal iPt As Variant, ByVal xlRange As Range)<br />     If xlRange.Borders(xlEdgeLeft).LineStyle = xlNone _<br />         And xlRange.Borders(xlEdgeBottom).LineStyle = xlNone _<br />         And xlRange.Borders(xlEdgeRight).LineStyle = xlNone _<br />         And xlRange.Borders(xlEdgeTop).LineStyle = xlNone Then Exit Sub<br />     Dim rl As Double<br />     Dim rt As Double<br />     Dim rw As Double<br />     Dim rh As Double<br />     rl = PToM(xlRange.Left)<br />     rt = PToM(xlRange.top)<br />     rw = PToM(xlRange.Width)<br />     rh = PToM(xlRange.Height)<br />     Dim pPt(0 To 3) As Double<br />     Dim pLineObj As AcadLWPolyline<br />     If xlRange.Borders(xlEdgeLeft).LineStyle <> xlNone And xlRange.Column = 1 Then<br />         pPt(0) = iPt(0) + rl: pPt(1) = iPt(1) - rt<br />         pPt(2) = iPt(0) + rl: pPt(3) = iPt(1) - (rt + rh)<br />         Set pLineObj = BlockObj.AddLightWeightPolyline(pPt)<br />         pLineObj.ConstantWidth = LineWidth(xlRange.Borders(xlEdgeLeft))<br />         pLineObj.Color = LineColor(xlRange.Borders(xlEdgeLeft))<br />     End If<br />     If xlRange.Borders(xlEdgeBottom).LineStyle <> xlNone And (xlRange.Row = xlRange.MergeArea.Row + xlRange.MergeArea.Rows.Count - 1) Then<br />         pPt(0) = iPt(0) + rl: pPt(1) = iPt(1) - (rt + rh)<br />         pPt(2) = iPt(0) + rl + rw: pPt(3) = iPt(1) - (rt + rh)<br />         Set pLineObj = BlockObj.AddLightWeightPolyline(pPt)<br />         pLineObj.ConstantWidth = LineWidth(xlRange.Borders(xlEdgeBottom))<br />         pLineObj.Color = LineColor(xlRange.Borders(xlEdgeBottom))<br />     End If<br />     If xlRange.Borders(xlEdgeRight).LineStyle <> xlNone And (xlRange.Column >= xlRange.MergeArea.Column + xlRange.MergeArea.Columns.Count - 1) Then<br />         pPt(0) = iPt(0) + rl + rw: pPt(1) = iPt(1) - (rt + rh)<br />         pPt(2) = iPt(0) + rl + rw: pPt(3) = iPt(1) - rt<br />         Set pLineObj = BlockObj.AddLightWeightPolyline(pPt)<br />         pLineObj.ConstantWidth = LineWidth(xlRange.Borders(xlEdgeRight))<br />         pLineObj.Color = LineColor(xlRange.Borders(xlEdgeRight))<br />     End If<br />     If xlRange.Borders(xlEdgeTop).LineStyle <> xlNone And xlRange.Row = 1 Then<br />         pPt(0) = iPt(0) + rl + rw: pPt(1) = iPt(1) - rt<br />         pPt(2) = iPt(0) + rl: pPt(3) = iPt(1) - rt<br />         Set pLineObj = BlockObj.AddLightWeightPolyline(pPt)<br />         pLineObj.ConstantWidth = LineWidth(xlRange.Borders(xlEdgeTop))<br />         pLineObj.Color = LineColor(xlRange.Borders(xlEdgeTop))<br />     End If<br />     Set pLineObj = Nothing<br /> End Sub<br /> <br /> '给制文本<br /> Sub AddText(ByRef BlockObj As AcadBlock, ByVal InsertionPoint As Variant, ByVal xlRange As Range)<br />     If xlRange.Text = "" Then Exit Sub<br />     Dim rl As Double<br />     Dim rt As Double<br />     Dim rw As Double<br />     Dim rh As Double<br />     rl = PToM(xlRange.Left)<br />     rt = PToM(xlRange.top)<br />     rw = PToM(xlRange.MergeArea.Width)<br />     rh = PToM(xlRange.MergeArea.Height)<br />     Dim i As Integer<br />     Dim s As String<br />     For i = 1 To Len(xlRange.Text) '将EXCEL的换行符替换成\P，注如果是在R2002以上可使用Replace函数。<br />         If Asc(Mid(xlRange.Text, i, 1)) = 10 Then<br />             s = s & "\P"<br />         Else<br />             s = s & Mid(xlRange.Text, i, 1)<br />         End If<br />     Next<br />     Dim iPt(0 To 2) As Double<br />     iPt(0) = InsertionPoint(0) + rl: iPt(1) = InsertionPoint(1) - rt: iPt(2) = 0<br />     Dim mTextObj As AcadMText<br />     Set mTextObj = BlockObj.AddMText(iPt, rw, s)  '"{\f" & xlRange.Font.Name & ";" & s & "}")<br />     mTextObj.LineSpacingFactor = 0.75<br />     mTextObj.Height = PToM(xlRange.Font.Size)<br />     Dim tPt As Variant<br />     If xlRange.VerticalAlignment = xlTop And (xlRange.HorizontalAlignment = xlLeft Or xlRange.HorizontalAlignment = xlGeneral) Then<br />         mTextObj.AttachmentPoint = acAttachmentPointTopLeft<br />         tPt = iPt<br />     ElseIf xlRange.VerticalAlignment = xlTop And xlRange.HorizontalAlignment = xlCenter Then<br />         mTextObj.AttachmentPoint = acAttachmentPointTopCenter<br />         tPt = ThisDrawing.Utility.PolarPoint(iPt, 0, rw / 2)<br />     ElseIf xlRange.VerticalAlignment = xlTop And xlRange.HorizontalAlignment = xlRight Then<br />         mTextObj.AttachmentPoint = acAttachmentPointTopRight<br />         tPt = ThisDrawing.Utility.PolarPoint(iPt, 0, rw)<br />     ElseIf xlRange.VerticalAlignment = xlCenter And (xlRange.HorizontalAlignment = xlLeft _<br />             Or xlRange.HorizontalAlignment = xlGeneral) Then<br />         mTextObj.AttachmentPoint = acAttachmentPointMiddleLeft<br />         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh / 2)<br />     ElseIf xlRange.VerticalAlignment = xlCenter And xlRange.HorizontalAlignment = xlCenter Then<br />         mTextObj.AttachmentPoint = acAttachmentPointMiddleCenter<br />         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh / 2)<br />         tPt = ThisDrawing.Utility.PolarPoint(tPt, 0, rw / 2)<br />     ElseIf xlRange.VerticalAlignment = xlCenter And xlRange.HorizontalAlignment = xlRight Then<br />         mTextObj.AttachmentPoint = acAttachmentPointMiddleRight<br />         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh / 2)<br />         tPt = ThisDrawing.Utility.PolarPoint(tPt, 0, rw / 2)<br />     ElseIf xlRange.VerticalAlignment = xlBottom And (xlRange.HorizontalAlignment = xlLeft _<br />             Or xlRange.HorizontalAlignment = xlGeneral) Then<br />         mTextObj.AttachmentPoint = acAttachmentPointBottomLeft<br />         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh)<br />     ElseIf xlRange.VerticalAlignment = xlBottom And xlRange.HorizontalAlignment = xlCenter Then<br />         mTextObj.AttachmentPoint = acAttachmentPointBottomCenter<br />         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh)<br />         tPt = ThisDrawing.Utility.PolarPoint(tPt, 0, rw / 2)<br />     ElseIf xlRange.VerticalAlignment = xlBottom And xlRange.HorizontalAlignment = xlRight Then<br />         mTextObj.AttachmentPoint = acAttachmentPointBottomRight<br />         tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh)<br />         tPt = ThisDrawing.Utility.PolarPoint(tPt, 0, rw)<br />     End If<br />     mTextObj.InsertionPoint = tPt<br />     Set mTextObj = Nothing<br /> End Sub<br /> <br /> ' 磅换算成毫米<br /> Function PToM(ByVal Points As Double) As Double<br />     PToM = Points * 0.3527778<br /> End Function<br />   [/FONT]<br />

eachy

Excel中自动换行的格转进CAD后没有换行。

efan2000

可能是EXCEL的版本问题吧，先看看你安装的EXCEL中的换行符是不是ASC码为10的符号，如果不是，把Asc(Mid(xlRange.Text, i, 1)) = 10这句后的10更改掉。

lijiao

CAD里的图形能和EXCEL关联吗？即EXCEL的内容改变后，CAD里的图形能自动更新吗？

efan2000

这个你可以通过事件来触发，达到动态更新，如文档激活或者执行命令时，这些主要是自己怎么控制了。

game8888

我想要一个可以向excel中自动填写数据的程序。

efan2000

向EXCEL中传输数据，要知道怎么提取CAD的数据，如文本。在EXCEL中怎么处理，如从哪个单元格开始放置。给个具体的说明吧。

wowoaicad

斑竹，能做个动画演示吗？谢谢！

tiansong

能再加一些注释吗

efan2000

大家可以先看看帮助文件，有什么不明白的地方再提出来。
有兴趣的朋友可以接着往下探索，让Excel和AutoCAD最大限度的发挥各自的长处，有益于自己的工作和学习。

entrophy

我有一套龙震的关于excel和cad通信程序
下次放上来