急，我的源代码，为何修改不了已经存在的视口的属性？？？

lzxy3000

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

yhjyhjyhj

我也有同感，pViewPortObj.DisplayLocked = True，我主要需要的是视口锁定的问题