±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 1977  |  »Ø¸´: 10

zzahkj

ľ³æ (ÖøÃûдÊÖ)


[½»Á÷] Vb.net+ArcEngineÉú³Éµã״ͼ²ãµÄËÙ¶ÈÌ«ÂýÁ˸ÃÔõô°ì£¿

Vb.net+ArcEngineÉú³Éµã״ͼ²ãµÄËÙ¶ÈÌ«ÂýÁ˸ÃÔõô°ì£¿ÓÉÓÚÎÒ×öµÄÊÇÔ¤¾¯Ô¤±¨ÏµÍ³£¬ËٶȾ¡¿ÉẠ̈ܶ¬ÏÖÔÚÉú³ÉÈ«²¿µãÒªºÃ¼¸Ì죬ÕâҲ̫ÂýÁË£¬¸ù±¾¾Í²»ÊÊÓã¬ÇëÎÊÓÐʲôºÃµÄ°ì·¨½â¾öÂð£¿ÎҵĴúÂëÈçÏ£º
CODE:
Public Sub dianshengcheng()
        Dim filePath As String = My.Computer.FileSystem.CurrentDirectory & "\ResultsFileName"
        If System.IO.File.Exists(filePath & "\µã.shp") Then
            MessageBox.Show("µãÎļþÒÑ´æÔÚ")
            Main.AxMapControl1.AddShapeFile(filePath, "µã")
        Else
            Dim pShpWksFact As IWorkspaceFactory = New ShapefileWorkspaceFactory()
            Dim pFeatWks As IFeatureWorkspace
            pFeatWks = CType(pShpWksFact.OpenFromFile(filePath, 0), IFeatureWorkspace)
            Const strShapeFieldName As String = "shape"
            Dim pFields1 As IFields
            Dim pFieldsEdit1 As IFieldsEdit
            pFields1 = New FieldsClass()
            pFieldsEdit1 = CType(pFields1, IFieldsEdit)
            Dim pField1 As IField = New FieldClass()
            Dim pFieldEdit1 As IFieldEdit = New FieldClass()
            pFieldEdit1.Name_2 = strShapeFieldName
            pFieldEdit1.Type_2 = esriFieldType.esriFieldTypeGeometry
            pField1 = CType(pFieldEdit1, IField)
            Dim pGeomDef1 As IGeometryDef = New GeometryDefClass()
            Dim pGeomDefEdit1 As IGeometryDefEdit = New GeometryDefClass()
            pGeomDefEdit1 = CType(pGeomDef1, IGeometryDefEdit)
            pGeomDefEdit1.GeometryType_2 = esriGeometryType.esriGeometryPoint
            pGeomDefEdit1.SpatialReference_2 = Main.AxMapControl1.Map.SpatialReference
            'pGeomDefEdit1.HasZ_2 = True
            pFieldEdit1.GeometryDef_2 = pGeomDef1

            pFieldsEdit1.AddField(pField1)
            pFields1 = CType(pFieldsEdit1, IFields)

            pField1 = New Field
            pFieldEdit1 = pField1
            With pFieldEdit1
                pFieldEdit1.Length_2 = 10
                pFieldEdit1.Name_2 = "ζÈ"
                pFieldEdit1.Type_2 = esriFieldType.esriFieldTypeDouble
            End With
            pFieldsEdit1.AddField(pField1)
            pField1 = New Field
            pFieldEdit1 = pField1
            With pFieldEdit1
                pFieldEdit1.Length_2 = 10
                pFieldEdit1.Name_2 = "ÑζÈ"
                pFieldEdit1.Type_2 = esriFieldType.esriFieldTypeDouble
            End With
            pFieldsEdit1.AddField(pField1)
            pField1 = New Field
            pFieldEdit1 = pField1
            With pFieldEdit1
                pFieldEdit1.Length_2 = 10
                pFieldEdit1.Name_2 = "Ë®ÖÊÖ¸±ê"
                pFieldEdit1.Type_2 = esriFieldType.esriFieldTypeDouble
            End With
            pFieldsEdit1.AddField(pField1)
            Dim pFeatureClass1 As IFeatureClass
            pFeatureClass1 = pFeatWks.CreateFeatureClass("µã", pFields1, Nothing, Nothing, esriFeatureType.esriFTSimple, strShapeFieldName, "")
            Dim pPointCol As IPointCollection = New MultipointClass()
            Dim sr As StreamReader = New StreamReader(My.Computer.FileSystem.CurrentDirectory & "\shu\dianceng.txt")
            Dim str As String = sr.ReadLine()
            While str IsNot Nothing
                Dim strs() As String = Regex.Split(str, "        ")
                Dim x As Double = Convert.ToDouble(strs(0))
                Dim y As Double = Convert.ToDouble(strs(1))
                Dim t As Double = Convert.ToDouble(strs(2))
                Dim s As Double = Convert.ToDouble(strs(3))
                Dim c As Double = Convert.ToDouble(strs(4))
                Dim pPoint As IPoint = New PointClass()
                pPoint.X = x
                pPoint.Y = y
                Dim missing As Object = Type.Missing
                pPointCol.AddPoint(pPoint, missing, missing)
                str = sr.ReadLine()
                Dim i As Integer
                For i = 0 To pPointCol.PointCount - 1 Step 1
                    Dim newFeature As IFeature = pFeatureClass1.CreateFeature
                    newFeature.Shape = pPointCol.Point(i)
                    newFeature.Value(newFeature.Fields.FindField("ζÈ")) = t
                    newFeature.Value(newFeature.Fields.FindField("ÑζÈ")) = s
                    newFeature.Value(newFeature.Fields.FindField("Ë®ÖÊÖ¸±ê")) = c
                    newFeature.Store()
                Next
            End While
            Main.AxMapControl1.Refresh()
            Main.AxMapControl1.AddShapeFile(filePath, "µã")
            MessageBox.Show("Îļþ´´½¨³É¹¦")
        End If
    End Sub

[ Last edited by zzahkj on 2011-5-6 at 15:36 ]
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

» ÇÀ½ð±ÒÀ²£¡»ØÌû¾Í¿ÉÒԵõ½:

²é¿´È«²¿É¢½ðÌù

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

efeng522

ľ³æ (³õÈëÎÄ̳)


¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
Õâ¸öÒª¿´ÄãÊý¾ÝÁ¿µÄ´óС£¬Èç¹ûÊý¾ÝÁ¿²»´ó£¬ÄÇôÕâ¸öЧÂʿ϶¨ÊDz»Õý³£µÄ£»Èç¹ûÊý¾ÝÁ¿È·ÊµÓÐÕâô´ó£¬Äã¾ÍÒª¿¼ÂÇÊÇ·ñÓбØÒªÒ»´ÎÐÔÉú³ÉÕâô¶àÊý¾Ý£¬»òÕßÔÚÕâô´óµÄ¿Õ¼ä·¶Î§ÄÚÉú³ÉÊý¾Ý¡£
VB²»Ê죬ËùÒÔ´úÂëûϸ¿´£¬Ö»ÊÇ·º·º¶øÌ¸£¬Å×שÒýÓñ
2Â¥2011-05-06 16:07:05
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zzahkj

ľ³æ (ÖøÃûдÊÖ)


ÒýÓûØÌû:
Originally posted by efeng522 at 2011-05-06 16:07:05:
Õâ¸öÒª¿´ÄãÊý¾ÝÁ¿µÄ´óС£¬Èç¹ûÊý¾ÝÁ¿²»´ó£¬ÄÇôÕâ¸öЧÂʿ϶¨ÊDz»Õý³£µÄ£»Èç¹ûÊý¾ÝÁ¿È·ÊµÓÐÕâô´ó£¬Äã¾ÍÒª¿¼ÂÇÊÇ·ñÓбØÒªÒ»´ÎÐÔÉú³ÉÕâô¶àÊý¾Ý£¬»òÕßÔÚÕâô´óµÄ¿Õ¼ä·¶Î§ÄÚÉú³ÉÊý¾Ý¡£
VB²»Ê죬ËùÒÔ´úÂëûϸ¿´£¬Ö»ÊÇ ...

Êý¾ÝÁ¿»¹ÊǷdz£´óµÄ£¬±ØÐëµÃÒ»´ÎÐÔÉú³ÉÕâô¶àÊý¾Ý£¡ÎÒÒ²¾õµÃÕâ¸öЧÂʲ»Õý³££¬¿ÉûÓкܺõİ취½â¾ö£¿
3Â¥2011-05-06 16:25:22
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

xiangling1

½ð³æ (ÕýʽдÊÖ)


¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
zzahkj(½ð±Ò+10): 2011-05-07 15:43:13
ºóÃæµÄÑ­»·¿ÉÒÔÓÅ»¯£¬Äã°ÑForÑ­»·Ìá³öÀ´

Äã°ÑÈý¸öÊôÐÔ·âװһϣ¬Ñ­»·Ò»´Î£¬°ÑÈý¸öÊôÐÔ¸³½øÈ¥Öµ

ÄãÕâÑù×ö³öÀ´µÄµãµÄÊôÐÔÖµÊDz»¶ÔµÄ

Äã¶àд¼¸¸öº¯Êý£¬°ÑÕâ¶Î´úÂë·Ö½â¿ªÒ»¶¨²»ÒªÑ­»·ÀïÃæÔÙÓÐÑ­»·

ËÙ¶È»áÔö¼ÓµÄ
4Â¥2011-05-06 21:31:46
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zzahkj

ľ³æ (ÖøÃûдÊÖ)


ÒýÓûØÌû:
Originally posted by xiangling1 at 2011-05-06 21:31:46:
ºóÃæµÄÑ­»·¿ÉÒÔÓÅ»¯£¬Äã°ÑForÑ­»·Ìá³öÀ´

Äã°ÑÈý¸öÊôÐÔ·âװһϣ¬Ñ­»·Ò»´Î£¬°ÑÈý¸öÊôÐÔ¸³½øÈ¥Öµ

ÄãÕâÑù×ö³öÀ´µÄµãµÄÊôÐÔÖµÊDz»¶ÔµÄ

Äã¶àд¼¸¸öº¯Êý£¬°ÑÕâ¶Î´úÂë·Ö½â¿ªÒ»¶¨²»ÒªÑ­»·ÀïÃæÔÙÓÐÑ­»·

ËÙ¶È»á ...

ллÄã°¡£¡ÎÒÈ¥µôÁËÀïÃæÒ»¸öÑ­»·£¬6000¶à¸öµãÉú³ÉÒª¶þÊ®¼¸·ÖÖÓ£¬Õâ¸öËÙ¶ÈÊDz»ÊÇ»¹ÂýÄØ£¿ÎÒÌý˵һÃëÖӾͿÉÒÔÉú³ÉÉÏÍò¸öµã²ÅÊÇÕý³£µÄ£¿
5Â¥2011-05-07 10:15:32
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

xiangling1

½ð³æ (ÕýʽдÊÖ)


¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
¶÷£¬»¹ÊÇÓÐЩÂý£¬6000¸öµã¶ÔÓÚ¼ÆËã»úÀ´ËµÊÇСÊÂÒ»×®

Èç¹ûÄãµÄ¼ÆËã»úÅäÖÿÉÒÔ£¬Ë²¼ä¾Í¿ÉÒÔÍê³ÉµÄ

ÎÒÒÔǰÓÃc#£¬5Ãë×óÓÒ¿ÉÒÔÍê³É£¬²»¹ýûÓÐÕâô¶àµã

ÄãÏÈÔÙÓÅ»¯Ò»Ï£¬Èç¹û²»ÐУ¬Äã¿ÉÒÔ·¢¸øÎÒ£¬ÎÒ¸øÄãµ÷Ò»ÏÂ
6Â¥2011-05-07 13:29:02
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

xiangling1

½ð³æ (ÕýʽдÊÖ)


¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
ÕâÒªÊÇÕâ¶ùÓõ½µÄÊÇÎļþÁ÷µÄ£¬ËùÒÔËÙ¶ÈÉÔÉÔÓеãÂý
7Â¥2011-05-07 13:31:30
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zzahkj

ľ³æ (ÖøÃûдÊÖ)


ÒýÓûØÌû:
Originally posted by xiangling1 at 2011-05-07 13:31:30:
ÕâÒªÊÇÕâ¶ùÓõ½µÄÊÇÎļþÁ÷µÄ£¬ËùÒÔËÙ¶ÈÉÔÉÔÓеãÂý

ÄÇ»¹ÓÐûÓа취Ìá¸ßËÙ¶È£¿
8Â¥2011-05-07 15:42:18
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

À×СÓê

Òø³æ (ÖøÃûдÊÖ)


¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
ûÓÐÔËÐл·¾³£¬¶ÁÁËһϴúÂë
ÔÚwhileÑ­»·ÀïÃæ£¬µÚ1´ÎforÑ­»·Éú³ÉpPointColµÄµÚ1¸öµã
µÚ2´ÎforÑ­»·Éú³ÉpPointColµÄµÚ1~2¸öµã
µÚ3´ÎforÑ­»·Éú³ÉpPointColµÄµÚ1~3¸öµã
µÚN´ÎforÑ­»·Éú³ÉpPointColµÄµÚ1~N¸öµã

Ò²¾Í˵£¬µÚi¸öµãÉú³ÉÁËN-i+1´Î£¬ËùÒÔ²¢²»ÊÇÉú³ÉÁËN¸öµã£¬¶øÊÇÉú³ÉÁËN(N+1)/2¸öµã£¬Ê±¼ä´ÓO(N)ÉÏÉýµ½ÁËO(N^2)£¬²»ÖªµÀÎÒÀí½âµÃ¶Ô²»¶Ô

[ Last edited by À×СÓê on 2011-5-8 at 11:38 ]
9Â¥2011-05-08 11:37:00
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zzahkj

ľ³æ (ÖøÃûдÊÖ)


ÒýÓûØÌû:
Originally posted by À×СÓê at 2011-05-08 11:37:00:
ûÓÐÔËÐл·¾³£¬¶ÁÁËһϴúÂë
ÔÚwhileÑ­»·ÀïÃæ£¬µÚ1´ÎforÑ­»·Éú³ÉpPointColµÄµÚ1¸öµã
µÚ2´ÎforÑ­»·Éú³ÉpPointColµÄµÚ1~2¸öµã
µÚ3´ÎforÑ­»·Éú³ÉpPointColµÄµÚ1~3¸öµã
µÚN´ÎforÑ­»·Éú³ÉpPointColµÄµÚ1~N¸öµã

...

ºÇºÇ Êǰ¡  ÎÒ¸ã´íÁË  ÎÒÏÖÔÚ°ÑforÑ­»·È¥µô  ËÙ¶È´ó¸ÅÊÇ6000¶à¸öµãÍêÈ«Éú³ÉÒª¶þÊ®¶à·ÖÖÓ£¬Õâ¸öËÙ¶ÈÊÇ¿ìÊÇÂýÄØ£¬ÓÉÓÚÎÒ×öµÄÊÇÔ¤¾¯ÏµÍ³£¬Ê®·ÖÖÓ±ðÈ˶¼ÏÓÂý£¬²»Öª»¹ÓÐûÓÐÌá¸ßËٶȵķ½·¨£¿
10Â¥2011-05-08 12:46:52
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

À×СÓê

Òø³æ (ÖøÃûдÊÖ)


¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
ÎÒÈ¥¿´ÁËÒ»ÏÂÎÒÒÔǰ³ÌÐòµÄÔËÐмǼ£¬60595¸öµã£¬1Сʱ52·ÖÖÓ£¬¸úÄãÕâ¸öËٶȲ¶à£¬Ëã·¨¸úÄãÒ»ÑùµÄ

[ Last edited by À×СÓê on 2011-5-8 at 14:56 ]
11Â¥2011-05-08 14:50:20
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ zzahkj µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] Ò»Ö¾Ô¸Äϲý´óѧ£¬085600£¬344·ÖÇóµ÷¼Á +5 µ÷¼ÁÉϰ¶«^ 2026-04-05 5/250 2026-04-05 21:44 by ×íÎÌwl
[¿¼ÑÐ] 08600ÉúÎïÓëÒ½Ò©-327 +5 18755400796 2026-04-05 5/250 2026-04-05 21:05 by ѧԱ8dgXkO
[¿¼ÑÐ] ¹¤¿ÆÇóµ÷¼Á +15 11ggg 2026-04-03 15/750 2026-04-05 16:24 by zzx2138
[¿¼ÑÐ] 272Çóµ÷¼Á +4 µçÆøÀî 2026-04-05 4/200 2026-04-05 10:41 by lbsjt
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +18 Ò»ÑùYWY 2026-04-02 19/950 2026-04-04 22:14 by hemengdong
[¿¼ÑÐ] 282µç×ÓÐÅÏ¢0854ר˶µ÷¼Á +4 202451007219 2026-04-02 6/300 2026-04-04 21:55 by laoshidan
[¿¼ÑÐ] 085600µ÷¼Á +4 1amJJ 2026-04-02 4/200 2026-04-04 21:53 by hemengdong
[¿¼ÑÐ] ÍÁľ304Çóµ÷¼Á +4 ÍÃͻͻͻ£¬ 2026-03-31 4/200 2026-04-04 13:34 by 1753564080
[¿¼ÑÐ] ²ÄÁÏ295 +13 СӢ11 2026-04-03 14/700 2026-04-04 09:02 by À´¿´Á÷ÐÇÓê10
[¿¼ÑÐ] Ò»Ö¾Ô¸Öйú¿ÆÑ§Ôº´óѧ265Çóµ÷¼Á +9 Ìñµ­ye 2026-03-31 10/500 2026-04-03 11:10 by txp1986
[¿¼ÑÐ] 081200-11408-276ѧ˶Çóµ÷¼Á +6 ´Þwj 2026-04-02 6/300 2026-04-03 10:19 by À¶ÔÆË¼Óê
[¿¼ÑÐ] Ò»Ö¾Ô¸´ó¹¤Ñ§Ë¶£¬Çóµ÷¼Á +4 yub0811 2026-04-02 4/200 2026-04-02 21:36 by °ÙÁéͯ888
[¿¼ÑÐ] 279Çóµ÷¼Á +5 ¸µÎÄÇï 2026-04-02 5/250 2026-04-02 18:10 by ±ÊÂä½õÖÝ
[¿¼ÑÐ] »·¾³¹¤³Ì297·ÖÇóµ÷¼ÁÒ»Ö¾Ô¸º¼¸ßÔº +15 GENJIOW 2026-03-31 16/800 2026-04-02 17:56 by cyh¡ª315
[¿¼ÑÐ] 26¿¼Ñе÷¼Á +4 Wnz.20030617 2026-04-01 5/250 2026-04-02 16:11 by 1939136013¹·×³
[¿¼²©] ²ÄÁϹ¤³Ìרҵ˶ʿÉ격 +3 ÷ëÕýÓî 2026-03-30 3/150 2026-04-02 15:04 by greychen00
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©¿Æ¼¼´óѧ085601²ÄÁϹ¤³ÌÓ¢Ò»Êý¶þ³õÊÔ×Ü·Ö335Çóµ÷¼Á +8 Ë«ÂíβƦÀϰå2 2026-04-02 9/450 2026-04-02 14:45 by 5896
[¿¼ÑÐ] °²È«¹¤³Ì 285 Çóµ÷¼Á +3 Xinyu56 2026-04-01 4/200 2026-04-01 21:50 by ¾²¾²¾²¾²¾²¾²¾²¾
[¿¼ÑÐ] 349Çóµ÷¼Á +6 ³ÔµÄ²»ÉÙ 2026-04-01 6/300 2026-04-01 17:55 by JYD2011
[¿¼ÑÐ] »·¾³¹¤³Ìµ÷¼Á +9 hyzzzzzzz. 2026-04-01 9/450 2026-04-01 14:20 by salamander`
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û