lzxy3000 发表于 2008-7-26 22:22:00

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

本帖最后由 作者 于 2008-7-26 23:36:35 编辑 <br /><br /> <p>Sub ViewPort_Default(ByRef Center() As Double, ByRef Width As Double, ByRef Height As Double)<br/>''修改默认的视口属性</p><p>Dim pViewPortObj As Object<br/>AcadObj.ActiveDocument.ActiveSpace = acPaperSpace<br/>''获取当前的视口为活动视口<br/>Set pViewPortObj = AcadObj.ActiveDocument.ActivePViewport<br/>''修改当前的视口</p><p>pViewPortObj.Center = Center<br/>pViewPortObj.Height = Height<br/>pViewPortObj.Width = Width</p><p>pViewPortObj.CustomScale = 1<br/>pViewPortObj.DisplayLocked = True</p><p>''重新被设为口活动视口<br/>Set AcadObj.ActiveDocument.ActivePViewport = pViewPortObj</p><p>End Sub</p>

yhjyhjyhj 发表于 2010-10-4 14:41:00

我也有同感，pViewPortObj.DisplayLocked = True，我主要需要的是视口锁定的问题
页: [1]
查看完整版本: 急，我的源代码，为何修改不了已经存在的视口的属性？？？