急，我的源代码，为何修改不了已经存在的视口的属性？？？
Sub ViewPort_Default(ByRef Center() As Double, ByRef Width As Double, ByRef Height As Double)''修改默认的视口属性
Dim pViewPortObj As Object
AcadObj.ActiveDocument.ActiveSpace = acPaperSpace
''获取当前的视口为活动视口
Set pViewPortObj = AcadObj.ActiveDocument.ActivePViewport
''修改当前的视口
pViewPortObj.Center = Center
pViewPortObj.Height = Height
pViewPortObj.Width = Width
pViewPortObj.CustomScale = 1
pViewPortObj.DisplayLocked = True
''重新被设为口活动视口
Set AcadObj.ActiveDocument.ActivePViewport = pViewPortObj
End Sub
我也有同感，pViewPortObj.DisplayLocked = True，我主要需要的是视口锁定的问题
页:
[1]