Dim dataset As IDataset = fLayer.FeatureClass dataset = fLayer.FeatureClass Dim ftrClass As IFeatureClass = dataset ' Turn the new line feedback into a shape Dim lineGeometry As IGeometry5 ' Stop the feedback and put into geometry lineGeometry = m_newLineFeedback.Stop If Not lineGeometry Is Nothing Then '' Save the digitized line in the new shapefile Dim feature As IFeature feature = ftrClass.CreateFeature feature.Shape = lineGeometry feature.Store()
Further to this question, I want to save the line feedback which I've stored in a module variable m_newlineFeedBack into a shapefile.Can I do this? Public Overrides Sub OnDblClick() ...snip... m_newLineFeedback.Stop() ...snip... Dim feature As IFeature feature = ftrClass.CreateFeature feature.Shape = m_newlineFeedBack m_newLineFeedback = Nothing feature.Store()
Public Overrides Sub OnDblClick() ...snip... m_newLineFeedback.Stop() ...snip... Dim feature As IFeature feature = ftrClass.CreateFeature feature.Shape = m_newlineFeedBack m_newLineFeedback = Nothing feature.Store()
If you're setting your own symbol for the tool then you'll need to set the ROP2 property to NotXorPen.symbol.ROP2 = esriRasterOpCode.esriROPNotXOrPen
Angemeldete Mitglieder können Beiträge verfassen, Updates folgen und mehr. Neu hier? Registriere ein kostenloses Konto.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.