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

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

‘求出单元格C的合并单元格地址

If Left(Trim(ma.Address), 4) = Trim(c.Address) Then

假如c.mergearea的绝对地址,如果前4个字符与c单元格的地址相同

xl = "A1:" + ma.Address

xh = xlsheet.Range(ma.Address).Width

yh = xlsheet.Range(ma.Address).Height

Set xlrange = xlsheet.Range(xl)

xinsert = xlrange.Width - xh

yinsert = xlrange.Height - yh

xpoint = xinit + xinsert

ypoint = yinit - yinsert

If x = 1 Then

If ma.Borders(xlEdgeTop).LineStyle

<> xlNone Then

ptArray(0) = xpoint

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

ptArray(1) = ypoint

ptArray(2) = xpoint + xh

‘第二点坐标（数组下标 2 and 3)

ptArray(3) = ypoint

End If

Lineweight lwployobj, ma.Borders(xlEdgeTop).Weight

End If

If ma.Borders(xlEdgeBottom).LineStyle

< > xlNone Then

ptArray(0) = xpoint + xh

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

ptArray(1) = ypoint - yh

ptArray(2) = xpoint

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

ptArray(3) = ypoint – yh

Lineweight lwployobj,

ma.Borders(xlEdgeBottom).Weight

End If

If y = 1 Then

If ma.Borders(xlEdgeLeft).LineStyle

< > xlNone Then

ptArray(0) = xpoint

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

ptArray(1) = ypoint - yh

ptArray(2) = xpoint

‘第一点坐标（数组下标 2 and 3)

ptArray(3) = ypoint

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