Cyph3r Posted June 21, 2016 Share Posted June 21, 2016 Arkadaşlar elimde bir netcad makrosu var ve bu makro herhangi bir noktanın adını GIS Bağlantı Anahtarı olarak atıyor. Ancak ben nokta adlarını Nokta Koduna aktarmak istiyorum. Netcad makrosu yada visual basic pratiği olan arkadaşlardan kodu düzenlemek yada daha basit yolla hazırlamak için yardım bekliyorum. Sub Main Dim i,j,o,SEL,K with Netcad set SEL = .NewSelectionSet set o = .NewObject if SEL.SELECT("'VT' Kodları 'Ad' Olarak Atanacak Noktaları Seçin",array(opoint)) then for i = 0 to SEL.NE-1 j = SEL.GetSelectedObject(i, o) o.objname=o.pname .putobject j, o next SEL.RedrawAndRewind end if set SEL = nothing set o = nothing end with end sub Quote Link to comment Share on other sites More sharing options...
hasandedekaya Posted April 24, 2017 Share Posted April 24, 2017 noktaları yardımcı işlemler yazdan exele aktarıp kolonların yerlerini değiştirebilirsiniz. daha sonra tekrar yardımcı işlemlerden oku diyerek exel formatında çağırırsanız istediğinizi elde edebilirsiniz. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.