Include "MAPBASIC.DEF"Dim gsWorkPath,filename,fullname,datapath,tylx,dtlx,st as StringDim name as stringDim pos as integer'OnError Goto my_handlegsWorkPath = ApplicationDirectory$()datapath = Left$(gsWorkPath,len(gsWorkPath)-9)If FileExists(datapath + "projectinfo.tab") = False Thenfilename = datapath + "projectinfo.dbf"fullname = datapath + "projectinfo"Register Table filename Type "DBF" Into fullnameEnd IfOpen Table datapath + "projectinfo.tab"Fetch First From projectinfodatapath = projectinfo.datapathopen table datapath + "mytab"fetch first from mytabst = mytab.nameDrop table myta
bp
os = InStr(1, st, "\")If pos <> 0 Thenopen table stst = PathToTableName$(st)Elseopen table datapath + st + ".tab"End Ifmap from sttylx = tableinfo(st,TAB_INFO_COORDSYS_CLAUSE)dtlx = "set map " + tylxrun command dtlxset map scale 1 units "m" for 10 units "km" if fileexists(datapath + "limit.tab") = false thencreate table limit(mc char(10)) file datapath + "limit"end ifopen table datapath + "limit.tab"tylx = "create map for limit " + tylxrun command tylxadd map auto layer limitcommit table limitclose all'my_handle:'resume next以上是mapbasic 原代码 我在vb里这样调用 filename = "" & gsWorkPath & "" & "MapBasic\Createbound.mbx"objmap.Do "run application """ & filename & """"这里老是出错 请那位老师帮我加上注释 谢谢

dd