Ah, got it working! Apologies, I worked out the coordinates incorrectly before (hence the execution error). The code below works fine - it is started through a lisp that overides my ViewPort command in AutoCAD. The only downfall is that it doesn't show the dashed lines after selecting varPnt and before varPnt2.
Public Sub OcmViewports()
Dim objLayer As AcadLayer
Dim strLayerName As String
Dim objOrigLayer As AcadLayer
Set objOrigLayer = ThisDrawing.ActiveLayer
strLayerName = ("0cm-Annot-VPorts")
Set objLayer = ThisDrawing.Layers.Add(strLayerName)
objLayer.color = 251
If ThisDrawing.Layers.Item("0cm-Annot-VPorts").Freeze = True Then
ThisDrawing.Layers.Item("0cm-Annot-VPorts").Freeze = False
ElseIf ThisDrawing.Layers.Item("0cm-Annot-VPorts").LayerOn = False Then
ThisDrawing.Layers.Item("0cm-Annot-VPorts").LayerOn = True
End If
ThisDrawing.ActiveLayer = objLayer
Dim objVp As AcadPViewport
Dim dblCenter(0 To 2) As Double
Dim dblWidth As Double
Dim dblHeight As Double
Dim varPnt As Variant: Dim varPnt2 As Variant
varPnt = ThisDrawing.Utility.GetPoint(, "Please Select First Point") 'Gets User Insertion Point
varPnt2 = ThisDrawing.Utility.GetPoint(, "Please Select Second Point")
If varPnt(0) < varPnt2(0) Then dblWidth = varPnt2(0) - varPnt(0) Else dblWidth = varPnt(0) - varPnt2(0)
If varPnt(1) < varPnt2(1) Then dblHeight = varPnt2(1) - varPnt(1) Else dblHeight = varPnt(1) - varPnt2(1)
dblCenter(0) = (varPnt2(0) + varPnt(0)) / 2: dblCenter(1) = (varPnt2(1) + varPnt(1)) / 2: dblCenter(2) = 0
Set objVp = ThisDrawing.PaperSpace.AddPViewport(dblCenter, dblWidth, dblHeight)
With objVp
.Display (True)
.ViewportOn = True
End With
ThisDrawing.Regen acAllViewports
ThisDrawing.ActiveLayer = objOrigLayer
End Sub
