Sub GetModelSpaceSize()
Dim cPnt As Variant
cPnt = ThisDrawing.Application.ActiveDocument.GetVariable("VIEWCTR")
ThisDrawing.Application.ActiveDocument.Utility.Prompt vbCr & vbCr & "中心坐标:" & cPnt(0) & "," & cPnt(1) & "," & cPnt(2)
Dim dHeight As Double
dHeight = ThisDrawing.Application.ActiveDocument.GetVariable("VIEWSIZE")
ThisDrawing.Application.ActiveDocument.Utility.Prompt vbCrLf & vbCr & "高:" & dHeight
Dim dWidth As Double
Dim dHeightWidth As Variant
dHeightWidth = ThisDrawing.Application.ActiveDocument.GetVariable("SCREENSIZE")
dWidth = dHeightWidth(0) / dHeightWidth(1) * dHeight
ThisDrawing.Application.ActiveDocument.Utility.Prompt vbCrLf & vbCr & "宽:" & dWidth
Dim xPnt(7) As Double
xPnt(0) = cPnt(0) - dWidth / 2
xPnt(1) = cPnt(1) - dHeight / 2
xPnt(2) = cPnt(0) + dWidth / 2
xPnt(3) = cPnt(1) - dHeight / 2
xPnt(4) = cPnt(0) + dWidth / 2
xPnt(5) = cPnt(1) + dHeight / 2
xPnt(6) = cPnt(0) - dWidth / 2
xPnt(7) = cPnt(1) + dHeight / 2
ThisDrawing.Application.ActiveDocument.ModelSpace.AddLightWeightPolyline (xPnt)
End Sub
全部评论