利用VBA编程实现从EXCEL表到AUTOCAD表转换(4)

利用VBA编程实现从EXCEL表到AUTOCAD表转换

End If

Lineweight lwployobj, ma.Borders(xlEdgeLeft).Weight

End If

If ma.Borders(xlEdgeRight).LineStyle

< > xlNone Then

ptArray(0) = xpoint + xh

‘第二点坐标（数组下标 0 and 1)

ptArray(1) = ypoint

ptArray(2) = xpoint + xh

‘第三点坐标（数组下标 2 and 3）

ptArray(3) = ypoint – yh

Lineweight lwployobj,

ma.Borders(xlEdgeRight).Weight

End If

Set lwployobj = moSpace.AddLightWeightPolyline(ptArray)

‘在AutoCAD文件里画线

With lwployobj

.Layer = ‘指定lwployobj所在图层

.Color = acBlue ‘指定lwployobj的颜色

End With

Lwployobj.Update

Next y

Next x

End Sub

‘下面程序控制线条粗细

Sub Lineweight(ByVal line As Object, u As Integer)

Select Case u

Case 1

Call line.SetWidth(0, 0.1, 0.1)

Case 2

Call line.SetWidth(0, 0.3, 0.3)

Case -4138

Call line.SetWidth(0, 0.5, 0.5)

Case 4

Call line.SetWidth(0, 1, 1)

Case Else

Call line.SetWidth(0, 0.1, 0.1)

End Select

End Sub

‘下面程序完成列号转换

Function zh(pp As Integer) As String

If pp < 26 Then

zh = Chr(64 + pp)

Else

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库利用VBA编程实现从EXCEL表到AUTOCAD表转换(4)在线全文阅读。