<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" />感谢感谢

<P>怎么没有继续发布啊， 关注ing。。。</P>
<P>其实我觉得可以在论坛上举行个比赛，开发一些小程序（包括用户界面），提高大家的编程能力，。 不过，共享的东西总有要限制吧</P>

<P>studying!</P>

有没有空间分析模块的一些程序？或者有谁知道常用的RASTER CACULATOR、栅格图层的显示设置等等一些具体的接口、对象？偶是新手，希望得到大家的帮助、支持！有什么我知道的也定当全力相助！

<P>请问有没有人有在engine里面画线的程序？mapcontrol.trackline的起始点是系统默认的e.x，e.y，我现在需要指定的point的x,y值，请问哪位高人有更改的方法？替换mousedownevent里面的e？？？？？？正在尝试中……</P>
<P>另外，本人有个api画线程序，在vb中能正常运行，但是在.net中，scalex和scaley找不到替代函数，请高人指点……</P>
<P>期待中……</P>

XX

<P>该方法是死加数据，还有可以直接从access中根据字段读取的，稍候会继续</P>

<P>'按下加载SDE按钮<BR>'==================================================<BR>Private Sub btnConToSde_Click()<BR>Dim I As Integer<BR>Dim pPropset As IPropertySet<BR>    Set pPropset = New PropertySet<BR>        With pPropset<BR>             .SetProperty "Server", "yy-server"<BR>             .SetProperty "Instance", "port:5151"<BR>             .SetProperty "user", "pdrq"<BR>             .SetProperty "password", "pdrq"<BR>        End With<BR>Dim pFact As IWorkspaceFactory<BR>Dim pWorkspace As IWorkspace<BR>    Set pFact = New SdeWorkspaceFactory<BR>    Set pWorkspace = pFact.Open(pPropset, 0)</P>
<P>Dim pFeatureWorkspace As IFeatureWorkspace<BR>    Set pFeatureWorkspace = pWorkspace</P>
<P>'打开地物类<BR>Dim pFeatureClassPipe As IFeatureClass<BR>Dim pFeatureClassDevice As IFeatureClass<BR>Dim pFeatureClassLabelPoint As IFeatureClass<BR>Dim pFeatureClassLabelLine As IFeatureClass</P>
<P>    Set pFeatureClassPipe = pFeatureWorkspace.OpenFeatureClass("PDRQ.管线")<BR>    Set pFeatureClassDevice = pFeatureWorkspace.OpenFeatureClass("PDRQ.设施")<BR>    Set pFeatureClassLabelPoint = pFeatureWorkspace.OpenFeatureClass("PDRQ.设施标注点")<BR>    Set pFeatureClassLabelLine = pFeatureWorkspace.OpenFeatureClass("PDRQ.设施标注线")<BR>        <BR>        Set pEditLayerPipe = New FeatureLayer<BR>        Set pEditLayerDevice = New FeatureLayer<BR>        Set pEditLayerLabelPoint = New FeatureLayer<BR>        Set pEditLayerLabelLine = New FeatureLayer<BR>        <BR>        Set pEditLayerPipe.FeatureClass = pFeatureClassPipe<BR>        Set pEditLayerDevice.FeatureClass = pFeatureClassDevice<BR>        Set pEditLayerLabelPoint.FeatureClass = pFeatureClassLabelPoint<BR>        Set pEditLayerLabelLine.FeatureClass = pFeatureClassLabelLine<BR>        '获取每个层的名字<BR>        pEditLayerPipe.Name = pEditLayerPipe.FeatureClass.AliasName<BR>        pEditLayerDevice.Name = pEditLayerDevice.FeatureClass.AliasName<BR>        pEditLayerLabelPoint.Name = pEditLayerLabelPoint.FeatureClass.AliasName<BR>        pEditLayerLabelLine.Name = pEditLayerLabelLine.FeatureClass.AliasName<BR>        <BR>        Set pMap = MapCon.Map<BR>        pMap.AddLayer pEditLayerPipe<BR>        pMap.AddLayer pEditLayerDevice<BR>        pMap.AddLayer pEditLayerLabelPoint<BR>        pMap.AddLayer pEditLayerLabelLine<BR>        For I = 0 To MapCon.LayerCount - 1<BR>            lstLyrName.AddItem (MapCon.Layer(I).Name)           '在下拉框中显示图层名称<BR>        Next<BR>        Set pActiveView = pMap<BR>End Sub</P>

加载shp文件按钮<BR>'===================================================<BR>Private Sub btnLoadSHP_Click()<BR>        Dim sFilePath As String<BR>        Dim pWorkspaceFactory As IWorkspaceFactory<BR>        Dim pFeatureWorkspace As IFeatureWorkspace<BR>        Dim pFeatureLayer As IFeatureLayer<BR>            CommonDialog1.DialogTitle = "Browse Map Document"<BR>            CommonDialog1.Filter = "Map Documents (*.shp)|*.shp"<BR>            CommonDialog1.CancelError = True<BR>        On Error GoTo error<BR>            CommonDialog1.ShowOpen<BR>            If Len(CommonDialog1.FileName) = 0 Then Exit Sub<BR>error:<BR>            sFilePath = CommonDialog1.FileName<BR>            If sFilePath = "" Then Exit Sub<BR>                fname = Left(CommonDialog1.FileTitle, Len(CommonDialog1.FileTitle) - 4)<BR>            Set pWorkspaceFactory = New ShapefileWorkspaceFactory<BR>            Set pFeatureWorkspace = pWorkspaceFactory.OpenFromFile(CurDir, 0)<BR>            Set pFeatureLayer = New FeatureLayer<BR>            Set pFeatureLayer.FeatureClass = pFeatureWorkspace.OpenFeatureClass(fname)<BR>            pFeatureLayer.Name = pFeatureLayer.FeatureClass.AliasName<BR>            Set pMap = MapCon.Map<BR>            pMap.AddLayer pFeatureLayer<BR>                 <BR>                 <BR>            Dim I As Integer<BR>            I = MapCon.LayerCount - 1<BR>            lstLyrName.AddItem (MapCon.Layer(0).Name)           '在下拉框中显示图层名称<BR>End Sub

<P>在下也正在学习当中  希望高手们多多指导~~~~~</P>
<P>谢谢 </P>

<img src="images/post/smile/dvbbs/em01.gif" />