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