用MAPINFO画三叶草的代码（freeheart原创）原名：张金柱
用MAPINFO画三叶草的代码（freeheart原创）原名：张金柱
在移动通信网络优化工作中，经常需要地图画的网元信息，并要包含大量的辅助信息
为此，用MAPINFO做了自动生成三叶草的小程序，现在已经弄清楚mif文件格式了
，这宏也没什么价值了，但或许对大家有用。
Dim intNowCell as Integer,intPower as Integer,intPos as Integer,strUseFile as String,strTempFile as String,i As Integer
Dim tmpStr as String,tmpStr2 as string,tmpStr3 as Integer,mcolor as Integer
intNowCell=1
´**create temp table**
strUseFile=FileOpenDlg("C:\","","TXT","打开源数据文件")
If Not FileExists(strUseFile) Or strUseFile="" Then
Exit Sub
End if
strTempFile=GetMyTempFile(strUseFile,"tempSite.TAB")
´strTempFile=TableInfo(0, TAB_INFO_NAME)
Register Table strUseFile
Type ASCII Titles CharSet "Neutral"
Into strTempFile
Open Table strTempFile Interactive
Create Map For tempSite CoordSys Earth Projection 1, 0
Map from tempSite Max
set map redraw off
Create Table "WYSite" (
SITE_ID Char (8) ,SITE_NAME char(40), BSCID Char (7) , MSCID Char (6) , LAC Smallint , LONGITUDE Float ,
LATITUDE Float , CELL_NAME Char (1), POWER Smallint , BCC Smallint , NCC Smallint , ANTDIR Float ,
ANTTIL Float , ANTBAND Float , ANTNUM Smallint , ANTHIGH Float , GROUNDHIGH Float ,
ANTTYPE Char (10) , ANTPLUS Smallint , ANTLEN Smallint ,
OPENTIME Date , SiteType Char (7) , TRANSTYPE Char (4) ,
