Latest Contributions by DemetrisDemetriou

Thank you both for the answers. Although I eventually did it with a different way you helped me very much. I eventually used one loop passing the pFeature from another procedures and using the Boundary property of  ITopologicalOperator Inteface. Many thanks again. I have given points to both of you. ... View more

Yes, Duncan. You are right! That was the mistake. Thank you very much. Demetris ... View more

Ok. Thanks. ... View more

Thanks Neil. So, I can use this DLL only as a command icon within ArcGIS? In this case, how can I find its GUID so as to run it through VBA using the Execute method of the ICommandItem interface? ... View more

Neil, Thanks you are right. However, I have a new message now : "Run-time error 453-Can't find DLL entry point in C:\....*.DLL. I think that this acttually means that this function cannot run the DLL. Is that right? How can I find the so called "Entry point"? Thanks ... View more

Thanks for the information. I note the following relevant details that may help: I try to use the Thiessen Polygon 3.0 DLL downloaded from the link arcscripts.esri.com/details.asp?dbid=11958. This DLL creates Thiessen polygons. I have already placed this DLL in a toolbar that works fine. However, I need to incorporate it within a loop of the VBA code and I do not know any functions, procedures included in the DLL. However, I found a  relevant function from archives postings  http://forums.esri.com/Thread.asp?c=93&f=992&t=107377 and I used it as shown in code below. In particular, I declare it and I try to call it via the Calldll() procedure and I receive the following message "Run-time error 13- Type mismatch". I think that the arguments of the function match with the appropriate data type provided. Could you please have a look in the code below to find what is going on? Any more help, will be appreciate it.   Public Declare Function CreateParcelsShape Lib "C:\Program    Files\ArcGIS\CreatePoly.dll" (Centroids As IFeatureClass, Block As  IPolygon, pFDS As IFeatureDataset)     Public Sub CallDll()     Dim pMxDoc As IMxDocument     Set pMxDoc = ThisDocument     'Get the active map (data frame)     Dim pMap As IMap     Set pMap = pMxDoc.FocusMap     'Get the layers     Dim pLayers As IEnumLayer     Set pLayers = pMap.Layers     Dim pLayer1 As ILayer     Set pLayer1 = pLayers.Next     Do Until pLayer1 Is Nothing       If pLayer1.Name = "Block12" Then         Exit Do              End If     Set pLayer1 = pLayers.Next     Loop     Dim pBlocks As IFeatureLayer     Set pBlocks = pLayer1     Dim pBlocksFC As IFeatureClass     Set pBlocksFC = pBlocks.FeatureClass     Dim pBlocksCursor As IFeatureCursor     Set pBlocksCursor = pBlocksFC.Search(Nothing, False)     Dim pBlockFeature As IFeature     Set pBlockFeature = pBlocksCursor.NextFeature     'Get the shape of the polygon (Block)     Dim polygon As IPolygon     Set polygon = pBlockFeature.Shape     Dim pLayers2 As IEnumLayer     Set pLayers2 = pMap.Layers     Dim pLayer2 As ILayer     Set pLayer2 = pLayers2.Next     Do Until pLayer2 Is Nothing     If pLayer2.Name = "CentroidsBlock12" Then     Exit Do             End If     Set pLayer2 = pLayers2.Next     Loop     Dim pCentroids As IFeatureLayer     Set pCentroids = pLayer2     Get the dataset     Dim pFDataSet As IFeatureDataset     Dim pFWorkspace As IFeatureWorkspace     Dim pAWFactory As IWorkspaceFactory     Set pAWFactory = New AccessWorkspaceFactory     Set pFWorkspace = pAWFactory.OpenFromFile("C:\LACONISS\GAPopulation.mdb", 0)     Set pFDataSet = pFWorkspace.OpenFeatureDataset("Polygons")     'Call the DLL function     CreateParcelsShape pCentroids, polygon, pFDataSet     End Sub ... View more

Thanks for the answer. However, I suppose I have just to select the polygon first and then use that code? Deme ... View more