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
サインインしたメンバーは投稿、更新のフォローなどができます。初めてですか?無料アカウントを登録してください。
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.