//获得工程文件名称
//获得数据存储路径
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