[求助]：请教ZoomCenter用法

suker23 · 发表于 2004-9-13 00:00:15

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

ZoomCenter
MsgBox "Perform a ZoomCenter using:" & vbCrLf & _
"Center 3, 3, 0" & vbCrLf & _
"Magnification: 10", , "ZoomWindow Example"
Dim zcenter(0 To 2) As Double
Dim magnification As Double
zcenter(0) = 3: zcenter(1) = 3: zcenter(2) = 0
magnification = 10
zoomcenter zcenter, magnification
请问函数ZoomCenter Center, Magnify 中Magnify如何确定？自己输入该输多少，

wyj7485 · 发表于 2004-9-13 08:40:56

magnification-放大倍数

suker23 · 发表于 2004-9-14 13:11:22

那该设置magnification值多大为合适，且怎么取值。取500、1000，对不同图形不一样

看来高手太少了，我花了好几天时间，终于搞清楚了：
magnification=ThisDrawing.GetVariable("VIEWSIZE")
可用这个方法取得。
失望…………

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

[求助]：请教ZoomCenter用法

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子