Excelden Nokta Adı Değiştirme Makrosu (Change Point Names from Excel Macro)

Excel ile Netcad Nokta Adlarını Kolayca Değiştirin! 🚀

Easily Change Netcad Point Names with Excel! 🚀

Bu makro, Netcad projelerinizdeki nokta adlarını Excel dosyası üzerinden hızlı ve toplu bir şekilde değiştirmenizi sağlar. 📊 Excel dosyanızın A sütununa mevcut nokta adlarını, B sütununa ise yeni adları girerek, Netcad projenizdeki noktaları otomatik olarak güncelleyebilirsiniz. Ayrıca, eski isimleri GIS adına veya GIS sınıfına aktarma seçenekleri sunar. Bu, büyük projelerde zaman tasarrufu sağlar ve manuel düzenleme hatalarını ortadan kaldırır. Özellikle harita mühendisleri, GIS uzmanları ve CAD kullanıcıları için tasarlanmıştır. ✅

This macro enables you to quickly and batch-update point names in your Netcad projects using an Excel file. 📊 By entering the current point names in column A and the new names in column B of your Excel file, you can automatically update the points in your Netcad project. It also offers options to transfer old names to GIS names or GIS classes. This saves time on large projects and eliminates manual editing errors. Designed for survey engineers, GIS specialists, and CAD users. ✅

Excel Dosyası Hazırlama: Excel dosyanızda, A sütununa Netcad projenizdeki mevcut nokta adlarını, B sütununa ise bu noktalar için yeni adları girin. Makroyu Çalıştırma: Makro, bir dosya seçme penceresi açar. Excel dosyanızı (.xls formatında) seçin. Seçenekler: Eski isimleri GIS adına veya GIS sınıfına aktarmak isteyip istemediğinizi belirleyin. Nokta Seçimi: Netcad projenizde değiştirmek istediğiniz noktaları seçin. Otomatik Güncelleme: Makro, Excel’deki verilere göre noktaların adlarını otomatik olarak değiştirir ve işlemi tamamlar. Sonuç Bildirimi: Kaç nokta adının değiştirildiği size bildirilir.

Prepare Excel File: In your Excel file, enter the current point names from your Netcad project in column A and the new names in column B. Run the Macro: The macro opens a file selection window. Choose your Excel file (.xls format). Options: Decide whether to transfer old names to GIS names or GIS classes. Point Selection: Select the points you want to update in your Netcad project. Automatic Update: The macro automatically updates the point names based on the Excel data and completes the process. Result Notification: You are informed about how many point names were changed.

nokta adı değiştirme, excel netcad entegrasyonu, netcad makro, harita mühendisliği, GIS otomasyonu, toplu veri güncelleme, CAD otomasyonu, excel otomasyonu, mühendislik makroları, veri yönetimi

point name change, excel netcad integration, netcad macro, survey engineering, GIS automation, bulk data update, CAD automation, excel automation, engineering macros, data management

📝 Netcad NVB Code

' Şaban GÜL, sabangul67@gmail.com, sabangul.com
Sub Main
Dim I,J,O,SEL,xls,XLSPATH,ALAN,DEG,CL,bd,U,V,R,W
DIM NO(50000,2)
set xls = CreateObject("excel.application")
set BD = Netcad.NewBDialog("Excelden Nokta Adı Değiştirme...")
bd.PutPrompt "- XLS Formatındaki Excel dosyasında 1.Sütuna(A) Netcad projesindeki nokta isimlerini "
bd.PutPrompt "- 2.Sütuna(B) yerine yazılacak yeni nokta isimlerini giriniz ve adımları izleyiniz. "
BD.GetFileName "item7","Excel Dosyasını Seçiniz...","D:\","Excel Dosyalari|*.xls|Tum Dosyalar|*.*","xls"
BD.GetCheck "item1", "Eski İsimleri GIS Adına Aktar", 0
BD.GetCheck "item2", "Eski İsimleri GIS Sınıfına Aktar", 0
Dim SEC1,SEC2 
if BD.showmodal then
    xlspath = BD.ValueByName("item7")
    SEC1 = BD.ValueByName("item1")
    SEC2 = BD.ValueByName("item2")
else
    exit sub
end if
set BD = Nothing
xls.workbooks.open(xlspath)
xls.range("A1").select
FOR U=1 TO 50000
   CL=CL+1
   NO(U,1)="*" & XLS.CELLS(U,1)
   NO(U,2)=XLS.CELLS(U,2)
   IF NO(U,2)="" THEN NO(U,2)=0
   IF NO(U,1)="*" THEN U=50000
NEXT
xls.quit
MSGBOX CL-1 & " adet Nokta Adı Exceldeki gibi değiştirilecek" & chr(10) & "   Değişmesini istediğiniz noktaları Seçiniz"
with Netcad
    set SEL = .NewSelectionSet
    set o = .NewObject
    if SEL.SELECT("Alan Objelerini Seçiniz...",array(opoint)) then
      for i = 0 to SEL.NE-1
        j = SEL.GetSelectedObject(i, o)
        alan = o.pname
        FOR V=1 TO CL
            W=NO(V,1)
            if W ="*" & alan then
                o.PNAME = NO(V,2)
                if SEC1=1 then o.objname = ALAN
                if SEC2=1 then o.cls = ALAN 
                .putobject j, o
                NO(V,1)="**"
                R=R+1
                V=U
            end if
        NEXT
      next
    SEL.RedrawAndRewind
    end if
    set SEL = nothing
    set o = nothing
end with
MSGBOX R & " adet Nokta Adı Değiştirildi"
end sub

netcad-excel-nokta-adi-degistir