//獲得工程文件名稱
//獲得數據存儲路徑
flname() flname()
dim project
set project=SGWorld.Project
msgbox project.Name
msgbox SGWorld.Application.DataPath
end function
//獲得座標信息的sub過程
sub Button1_onclick
dim IWindow
dim worldinfo
set IWindow=SGWorld.Window
set worldinfo=IWindow.CenterPixelToWorld(0)
msgbox worldinfo.Position.X
end sub
//獲得數據存儲路徑
flname() flname()
dim project
set project=SGWorld.Project
msgbox project.Name
msgbox SGWorld.Application.DataPath
end function
//獲得座標信息的sub過程
sub Button1_onclick
dim IWindow
dim worldinfo
set IWindow=SGWorld.Window
set worldinfo=IWindow.CenterPixelToWorld(0)
msgbox worldinfo.Position.X
end sub