جهت استفاده از تمامی امکانات تارنمای انجمن (ایجاد موضوع،دانلود فایل و ...) لازم است،عضویت یک ساله را خریداری فرمائید. برای این کار مبلغ 50 هزار تومان را به کارت 6221061059143315 واریز نموده،سپس نام کاربری خود را به شماره 09128921121 ارسال کنید. 01-07-1402


امتیاز موضوع:
  • 0 رأی - میانگین امتیازات: 0
  • 1
  • 2
  • 3
  • 4
  • 5
arcobject
#1
با سلام خدمت شما، هرچند شاید اینجا مطرح کردن سوال تخصصی مناسب نباشد ولی جایی در سایت ندیدم برا همین اینجا مطرح می کنم، ابتداً از راهنماییتان مچکرم
بنده یک فایل نقطه ای دارم که در کل استان قزوین پخش شده است. در این لایه مقادیر یکی از فیلدها هر روز آپدیت می شود که این مقادیر براساس فیلد پهنه موجود در لایه صورت می پیرد. که برای اینکه سرعت کار بالا رود یک کد نوشته ام که در یک کمبو باکس نوشته شده و کابر با انتخاب پهنه ها در این کمبوباکس و سپس از طریق یک اینپوتباکس مقادیر جدید فیلدهای متناظر را وارد کرده و بدینگونه دیگر نیازی به استفاده از استارت إدیتینگ و.. نمی باشد. ولی کد بنده إرور می دهد ولی با بررسی فراوان نتوانستم علت اجرا نشدن آن را بدانم.اگر امکانش هست بنده را راهنمایی فرمائید.
Private Sub UIComboBoxControl1_SelectionChange(ByVal newIndex As Long)
Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument

Dim pMaps As IMaps
Set pMaps = pMxDoc.Maps

Dim pqazvinMap As IMap
Set pqazvinMap = pMaps.Item(0)



Dim pkolLayerDef As IFeatureLayerDefinition
Set pkolLayerDef = pqazvinMap.Layer(0)



Dim strQuery As String
strQuery = "State_Name = '" & UIComboBoxControl1.EditText & "'"

Dim pEPAActiveView As IActiveView
Set pEPAActiveView = pqazvinMap




pkolLayerDef.DefinitionExpression = strQuery


Dim pFilter As IQueryFilter
Set pFilter = New QueryFilter

pFilter.WhereClause = strQuery



Dim pkolFLayer As IFeatureLayer
Set pkolFLayer = pkolLayerDef

Dim pkolFClass As IFeatureClass
Set pkolFClass = pkolFLayer.FeatureClass

Dim pSelectionSet As ISelectionSet
Set pSelectionSet = pkolFClass.Select _
(pFilter, _
esriSelectionTypeHybrid, _
esriSelectionOptionNormal, _
Nothing)



Dim pkolFClasss As IFeatureSelection
Set pkolFClasss = pkolFLayer
Set pkolFClasss.SelectionSet = pSelectionSet

Dim pFLayer As IFeatureLayer
Set pFLayer = pMxDoc.ContextItem



Dim pFields As IFields
Set pFields = pkolFClass.Fields






Dim pFCursor As IFeatureCursor
Set pFCursor = pkolFClass.Update(pFilter, True)

Dim pFeature As IFeature
Set pFeature = pFCursor.NextFeature

Do Until pFeature Is pFilter
X = InputBox("شماره جديد")
pFeature.Value(3) = X

Set pFeature = pFCursor.NextFeature
pFCursor.UpdateFeature pFeature
Loop
pMxDoc.ActiveView.Refresh
pMxDoc.UpdateContents




End Sub
پاسخ


موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  عملیات ریاضی در raster calculator aminchat 0 2,418 ۱۱-۲۴-۱۳۹۵، ۱۰:۱۱ ب.ظ
آخرین ارسال: aminchat
  جدا کردن پلیگونها ازهم sedighearvand 0 1,858 ۱۱-۰۹-۱۳۹۵، ۱۲:۴۳ ب.ظ
آخرین ارسال: sedighearvand
  نحوه کار نرم افزار StichMap alireza.naghdi 3 3,252 ۰۸-۲۷-۱۳۹۵، ۰۳:۲۶ ب.ظ
آخرین ارسال: monil
  روش نصب ENVI 5 احمد مرادی 4 6,375 ۰۷-۱۳-۱۳۹۵، ۱۱:۳۷ ق.ظ
آخرین ارسال: karimitabar
  نحوه ذخیره کردن اطلاعات در جی ای اس khorshid372@Gmail.com 5 11,681 ۰۶-۰۹-۱۳۹۵، ۱۰:۱۹ ب.ظ
آخرین ارسال: A Behzadfar
  تبدیل به shape sabernoori92 0 1,710 ۰۳-۲۷-۱۳۹۵، ۰۲:۰۷ ق.ظ
آخرین ارسال: sabernoori92
  یک مشکل در بارگذاری فایل erfankt19 0 1,658 ۰۱-۱۲-۱۳۹۵، ۱۲:۲۵ ب.ظ
آخرین ارسال: erfankt19
  سوال : ایجاد یه شبکه grid در آرک yalda 5 5,687 ۰۱-۱۰-۱۳۹۵، ۰۱:۵۱ ب.ظ
آخرین ارسال: melika86
  سوال در مورد جدول توصیفی احمد مرادی 6 4,381 ۰۱-۱۰-۱۳۹۵، ۰۱:۳۳ ب.ظ
آخرین ارسال: melika86
  مشکل لایسنس ابزارها در arc map Sinaa 3 6,198 ۱۲-۲۳-۱۳۹۴، ۱۲:۴۲ ب.ظ
آخرین ارسال: Mehdi Naderi

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 1 مهمان

برای عضویت در خبرنامه جی آی اس ایمیل خود را وارد نمایید:

Delivered by خبرنامه جی آی اس