MapX常见问题解答

MapX常见问题解答（1 ）
时间：2005-1-7 11:12:18 作者：MICROGERM 点击：69 评论
在阅读以下资料之前，请仔细查看本站资料使用条款及版权申明，如果您不接受本站相关条款申明，请离开本页面。

;模糊查询
Set ftrs = lyr.Search("Character_Name = ""北京市
nnn +
Set ftrs = lyrUSA.Search("TOTPOP >
thm.AutoRecompute = True
thm.Visible = True
7. 用MapX输出表格
用mapx直接输出图象是可以的，但是输出数据，可以有以下两种方式：
1。

输出为文本文件，然后由VB读取
2。

转换为VB中的groud
8. mapxtreme2.0 for NT 下，非地球坐标系出现的问题
假设line.tab 地图的投影为非地球坐标系，单位为米，边界为(-40,030.15474 ,-10,007.53869 )( 40,030.15474 ，
10,007.53869 )。

(1) 对地图的处理。

a. 文件/另存为，在弹出的另存为对话框上点击投影按钮，确认，弹出边界对话框，将原来的边界值乘以 1.609再添入，即 -40030.15474*1.609=-64408.51898 。

四个边界值作同样处理。

b. 输入文件名如linenew.tab，确认.
(2) 在geoset manager中调入文件linenew.tab.设置其视野范围。

如果实际设置为0至U 0.19，则输入到对话框
中时为0至U 0.19*1.609.但在设置zoom(视野值)时的范围仍为0-0.19.
9. 如何实现测距
a. //创建测距工具
global const calculatedistance=1
Private Sub Form_Load()
map1.CreateCustomTool(calcilatedistance,miToolTypepoly ,microsscursor)
End Sub
Private Sub Distances_Click()
map1.currenttool=calculatetool
End Sub
b. // 在mapx 的PolyToolUsed 事件中，
用Distance( x1,y1,x2,y2 ) 计算距离，由状态条中或label显示。

Private Sub Map1_PolyToolUsed(ByVal ToolNum As Integer , ByVal Flags As Long, ByVal points As Object, ByVal bShift As Boolean, ByVal bCtrl As Boolean, EnableDefault As Boolean)
Dim DisSum As Double
Dim Dis As Double
Dim n As Integer
Dim pts As New MapXLib.points
Dim x1 As Double, y1 As Double, x2 As Double, y2 As Double
Set pts = points
DisSum = 0
23. C++下variant类型的参数若不添则该参数位置用COptionalVariant()来替代，其定义如下
class COptionalVariant;
class COptionalVariant: public COleVariant
COptionalVariant() { vt = VT_ERROR; scode = DISP_E_PARAMNOTFOUND; }
24. 用户自定义工具创建点时，若为非地球坐标系，Toolused事件中获取的值不对
使用用户自定义工具创建图元(点线面)时，若坐标系为非地球坐标系，则要满足：
1。

在调入geoset 或layer 后，将map1.numericcoordsys=map1.displaycoordsys
2. 设置
Dim csys As New mapxlib.CoordSys
csys.Set 0, , 7, , , , , , , , , , yers.Bounds
Set Formmain.Map1.NumericCoordSys = csys
Set Formmain.Map1.DisplayCoordSys = csys
25 . 与SymbolCharacter
二者皆用来定义Trutype字符集，但最好使用。

Private Sub Command1_Click()
Dim pt As New Point ' Point object passed to the CreateSymbol method of the FFeatureFactory
Dim sty As New Style ' Style object passed to the CreateSymbol method, determines
what symboltype/style...etc.
x1 = Map1.CenterX
y1 = Map1.CenterY
pt.Set x1, y1 ' Set the point for where the user clicked...
= "MapInfo Arrows"
sty.SymbolFont.Size = 48 ' set the size of the symbol to be 48...
sty.SymbolFontColor = 255 ' set color of the symbol to be red...
sty.SymbolFontHalo = True ' turn Halo effect on...
sty.SymbolFontBackColor = miColorBlue ' change the Halo color to blue
Set ftr = lyr .AddFeature(FF .CreateSymbol(pt, sty))
End Sub
另一种用来选择字符集的方法：sty.PickSymbol
26. MapX40与Pro的兼容性问题
mapx40生成的表在Pro调用时，需要在pro中重新为此表创建索引
27 .什么时候需要为表中字段创建索引。

1. 若该字段参与自动绑定时。

2 .若该字段的值用Find对象的Search方法来查找时。

28 .关于自定义鼠标。

在mapx4.0中允许用户自定义鼠标。

程序如下：
1.请不要轻易更改硬盘及格式化
2.黄页上的信息应为代理或开发商的信息
3.请妥善保存好黄页（请将产品内不干胶上的SN#贴在黄页上）:lol::mad::D:(:cool::P:o;):)。