一个不详错误

楼主^#

更多发布于：2006-07-29 19:41

开发环境：VB+ENGINE
所有的程序在公司电脑里都能很正常的运行，系统环境都已经加设好了，但是把程序拷贝到家里电脑（所安装的环境跟公司一模一样），出现的问题主要是在创建feature的过程中，所有变量和对象的接口都是正确滴，因为在公司能运行：）
程序目的：
画完线后在当前层中加把所画的线加进去
错误代码：
set pFeature(接口是Ifeature)=pCurrentlayer(表示当前操作层，接口是Ifeaturelayer).featureclass.createfeature
错误信息：
与变量未定义信息一样
我拷贝了好几个程序，都有创建feature的过程，都出错了，所以很多工作在家里都没办法做，很郁闷，有没有高人遇到过相同的问题？

还有一个问题：
在mousemove过程中通过hittest我已经找到了我需要的feature上的点，同时也用simplemarksymbol将它显示出来了，但是我需要在mousedown的时候mapcon.trackline，而且线的起点我希望就是hittest中的那个hitpoint，但是trackline中偶没找到设置起点的方法（应该是没有的吧：）），我也试图通过将hitpoint的值赋给maptopoint的这个鼠标点，但是也行不通。可能偶讲的比较模糊，举个比较直观的例子，如果在CAD中开了捕捉圆心，那在管线设施附近移动就能有小方框显示在设施上，同时如果我用pl方法的话，鼠标点下去（捕捉方框出现的情况下），那线的起点就会在那个管线设施的圆心上，效果就要那个样子：）

喜欢0 评分0

举报回复

gis

管理员

注册日期2003-07-16
发帖数15951
QQ
铜币25345枚
威望15368点
贡献值0点
银元0个

加关注写私信

1楼^#

发布于：2006-07-30 12:34

最好能给出实际点的代码，那样比较好调试

GIS麦田守望者，期待与您交流。

举报回复喜欢评分

gisleonzhouly

路人甲

注册日期2006-07-24
发帖数15
QQ
铜币157枚
威望0点
贡献值0点
银元0个

加关注写私信

2楼^#

发布于：2006-07-30 17:36

红色部门为第一个错误的代码（在公司能运行，在家就不行，郁闷ing）
Public Function CreateFea(ByVal pGeo As IGeometry, ByVal pFeaLyr As IFeatureLayer) As IFeature Dim pFeature As IFeature Dim pWSEdit As IWorkspaceEdit Dim pDataSet As IDataset Set pDataSet = pFeaLyr.FeatureClass '创建图层 Set pWSEdit = pDataSet.Workspace If pWSEdit.IsBeingEdited = False Then '判断是否处在编辑状态 Set CreateFea = Nothing Else pWSEdit.StartEditOperation Set pFeature = pFeaLyr.FeatureClass.CreateFeature Set pFeature.Shape = pGeo pFeature.Store pWSEdit.StopEditOperation Set CreateFea = pFeature End If End Function

第二个问题的代码：(下面是已经实现的鼠标移动追踪表示，但偶要的是mousedown的时候，trackline的起始点是从hitpoint出发，mousedown的代码还没头绪，拜求各位高人：）)
Private Sub MapCon_OnMouseMove(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long, ByVal mapX As Double, ByVal mapY As Double) Dim pPoint As IPoint Dim pPointB As IPoint Dim pPointHit As IHitTest Dim pPolylineHit As IHitTest Dim SelectFeatureEX As IFeature Set pPoint = New Point pPoint.x = mapX pPoint.y = mapY If AddPipeFlag = True Then ElseIf SplitPipeflag = True Then ElseIf JoinPipesflag = True Then ElseIf AddDeviceFlag = True Then ElseIf AddDeviceLabelFlag = True Then '捕捉设施 '捕捉点 Set SelectFeatureEX = SelectFeature(pPoint, pCurrentlayerPoint) If Not SelectFeatureEX Is Nothing Then '如果找到设施 HittestDevice pPoint, pPointHit, SelectFeatureEX Else
 End If Else txtCoordX.Text = "X" ; " " ; "=" ; " " ; pPoint.x txtCoordY.Text = "Y" ; " " ; "=" ; " " ; pPoint.y End If ' Set pCurrentlayerLine = pEditLayerPipe '需要捕捉的是线的两端，所以设Pipe层为当前层 End Sub
'获取地物Feature程序 '======================== Private Function SelectFeature(ByVal pPointCur As IPoint, ByVal pCurrentlayer As IFeatureLayer) As IFeature Dim pGeometeyCurrent As IGeometry Dim pTopologicalOperator As ITopologicalOperator txtCoordX.Text = pPointCur.x txtCoordY.Text = pPointCur.y Set pTopologicalOperator = pPointCur Set pGeometeyCurrent = pTopologicalOperator.Buffer(0.001) '这里的Buffer需要很小 Dim pFilter As ISpatialFilter Set pFilter = New SpatialFilter With pFilter Set .Geometry = pGeometeyCurrent '地物形状就是Buffer的图形 .GeometryField = "SHAPE" '查找字段 .SpatialRel = esriSpatialRelIntersects End With Dim pFeatureCursor As IFeatureCursor '指针的集合 Dim pFeature As IFeature Set pFeatureCursor = pCurrentlayer.FeatureClass.Search(pFilter, False) If Not pFeatureCursor Is Nothing Then '如果有知道符合条件的feature Set pFeature = pFeatureCursor.NextFeature '指向下一个feature Set SelectFeature = pFeature Else Set SelectFeature = Nothing Exit Function End If End Function
'捕捉设备中心显示程序 Private Function HittestDevice(ByVal pPoint As IPoint, pPointHit As IHitTest, pSelectFeature As IFeature) Dim pGeometryDevice As IGeometry '定义一个当前几何形状 Dim pTopologicalOperatorDevice As ITopologicalOperator '创建一个新的拓扑 Dim Bhit As Boolean Dim dDist As Double Dim lPartIndex As Long Dim lSegIndex As Long Dim Bright As Boolean Dim pEnvelope As IEnvelope Dim pFeaturePoint As IPoint '定义找到的设施的形状 Dim pHitPoint As IPoint Set pHitPoint = New Point '重设变量 dDist = 0 lPartIndex = 0 lSegIndex = 0 Bright = False Bhit = False Set pFeaturePoint = pSelectFeature.Shape '把设施的shape赋予点 Set pTopologicalOperatorDevice = pFeaturePoint '对点进行拓扑操作 Set pGeometryDevice = pTopologicalOperatorDevice.Buffer(1) '这里的点的Buffer是用来Buffer设施的，形成一个多边形 Set pEnvelope = pGeometryDevice.Envelope '把多边形外框赋给pEnvelope用来捕捉中心点 Set pPointHit = pEnvelope Bhit = pPointHit.HitTest(pPoint, 1, esriGeometryPartCentroid, pHitPoint, dDist, lPartIndex, lSegIndex, Bright) '捕捉到这个点 'Create the Simple Marker Dim pSmplMarker As ISimpleMarkerSymbol Set pSmplMarker = New SimpleMarkerSymbol pSmplMarker.Style = esriSMSDiamond 'Create a red RGB color for the Outline Dim pRGBClr As IRgbColor Set pRGBClr = New RgbColor pRGBClr.Red = 255 'Add the Outline properties to the Simple Marker pSmplMarker.Outline = True pSmplMarker.OutlineSize = 2 pSmplMarker.OutlineColor = pRGBClr '上面几句已经把hitpoint的追踪点画出来了 MapCon.FlashShape pHitPoint, 3, 300, pSmplMarker ' MsgBox pPoint.x ' MsgBox pPoint.y ' MsgBox pHitPoint.x ' MsgBox pHitPoint.y End Function
第三个问题：（估计在论坛中已经出现过了，请再不吝赐教）
我创建了一条polyline，想要给它赋值，我不知道是否要打开一个表，所以我dim ptable as itable，然后指向了我所创建的polyline的feature的table，同时
'确定表编辑启动模块 Public Function StartEditFeaTbl(ByVal pTable As ITable) As Boolean Dim pWSEdit As IWorkspaceEdit '定义编辑工作空间 Dim pDataSet As IDataset If pTable Is Nothing Then StartEditFeaTbl = False Else Set pDataSet = pTable Set pWSEdit = pDataSet.Workspace If pWSEdit.IsBeingEdited Then StartEditFeaTbl = True Else pWSEdit.StartEditing True pWSEdit.EnableUndoRedo StartEditFeaTbl = True End If End If End Function
但是feature.VALUE的值我却想不到应该如何去加，因为我画出来的polyline在catalog中看，只有objectid和shape，shape.len是有值的，其他的都是null：（，我需要的就是把那些为null的field值都读取或者修改为相应的value值，并且用store和update的方式存储，拜求！

举报回复喜欢评分

gis

管理员

注册日期2003-07-16
发帖数15951
QQ
铜币25345枚
威望15368点
贡献值0点
银元0个

加关注写私信

3楼^#

发布于：2006-07-31 10:41

第一个问题：你编辑的数据是否SDE数据库里的数据？
第二个问题：你在建立了polyline后，就可以利用polyline（feature）的value属性来更新属性数值，

GIS麦田守望者，期待与您交流。

举报回复喜欢评分

您需要登录后才可以回帖，登录或者注册

一个不详错误

最新喜欢：