在图纸空间中(在非激活视口情况下),怎么控制在当前视口中冻结???

zzcctt · 发表于 2007-10-3 21:43:00

本帖最后由作者于 2007-10-3 21:47:10 编辑

请大虾赐招呀....

在激活的视口,我知道如何控制"在当前视口中冻结",但是在图纸空间中,在没有激活视口的情况,怎么控制"在当前视口中冻结"???

注:我不想用 ThisDrawing.SendCommand ("vplayer" & vbCr & "t" & vbCr & 图层名 & vbCr & vbCr & vbCr) 这条命令,因为这个在重复命令的时候,

会使用"VPLAYER"....

alin · 发表于 2007-10-4 10:31:00

本帖最后由作者于 2007-10-4 10:33:46 编辑

与有视口激活的情况类似，但更新的方法不同

Public Sub TEST()
VpLayerOff (图层名)'http://www.contractcaddgroup.com/articles/vport.htm
CURTAB = ThisDrawing.GetVariable("CTAB")
ThisDrawing.SetVariable "CTAB", "Model"
ThisDrawing.SetVariable "CTAB", CURTAB
End Sub

zzcctt · 发表于 2007-10-4 14:22:00

谢谢上面的参考,但是没有解决在图纸空间中非激活视口的情况下,控制"在当前视口中冻结"

alin · 发表于 2007-10-4 15:14:00

"当前视口"不就是指Thisdrawing.ActivePviewport吗？

账号		自动登录	找回密码
密码			注册