Yazı Değerlerini Kolayca Toplayın ve Çıkarın: NetCAD için Pratik Makro Çözümü 🚀
Easily Add and Subtract Text Values: Practical Macro Solution for NetCAD 🚀
Bu makro, NetCAD ortamında proje üzerindeki yazıların sayısal değerlerini toplamak veya çıkarmak için geliştirilmiştir. Kullanıcı dostu bir arayüzle, seçilen yazıların değerlerini hızlıca hesaplar, sonuçları ekranda gösterir veya mesaj kutusuyla bildirir. Ayrıca, seçilen yazıları özel bir tabakaya taşıma ve ortalama hesaplama gibi ek özellikler sunar. Tek tek veya toplu seçim yapma seçenekleriyle esneklik sağlar. Harita mühendisleri ve CAD kullanıcıları için zaman kazandıran bu araç, Şaban GÜL tarafından geliştirilmiştir.
This macro is designed to add or subtract numerical values of texts in a NetCAD environment. With a user-friendly interface, it quickly calculates the values of selected texts, displays results on the screen, or notifies via a message box. It also offers features like moving selected texts to a custom layer and calculating averages. With options for single or bulk selection, it provides flexibility. This time-saving tool, developed by Şaban GÜL, is ideal for surveyors and CAD users.
Nasıl Çalışır (How Does It Work)
Makro, NetCAD’in VBScript dilinde yazılmıştır ve şu adımları izler:
- Kullanıcı Arayüzü: Makro çalıştığında, bir diyalog kutusu açılır. Kullanıcı, toplama veya çıkarma işlemi, seçim türü (tek tek veya toplu), tabaka taşıma tercihi ve sonuç gösterim yöntemini seçer.
- Değer Girişi: İlk değer, toplama veya çıkarma işlemine başlangıç noktası olarak alınır.
- Seçim Süreci: Kullanıcı, yazı objelerini tek tek veya toplu olarak seçer. Seçilen yazıların sayısal değerleri, belirtilen işlem türüne göre (toplama/çıkarma) hesaplanır.
- Tabaka Yönetimi: Eğer seçilirse, yazılar “sagul_yazitopla” adlı bir tabakaya taşınır.
- Sonuç Gösterimi: Hesaplama tamamlandığında, toplam değer, seçilen yazı sayısı ve ortalama bir mesaj kutusunda gösterilir. Alternatif olarak, sonuç proje ekranına yazdırılabilir.
Bu makro, özellikle büyü
The macro is written in NetCAD’s VBScript language and follows these steps:
User Interface: When activated, a dialog box appears, allowing the user to choose the operation (addition or subtraction), selection type (single or bulk), layer transfer preference, and result display method.
Value Input: An initial value is taken as the starting point for the operation.
Selection Process: Users select text objects individually or in bulk. The numerical values of selected texts are calculated based on the chosen operation (addition/subtraction).
Layer Management: If opted, texts are moved to a layer named “sagul_yazitopla”.
Result Display: Upon completion, the total value, number of selected texts, and average are shown in a message box. Alternatively, results can be printed on the project screen.
This macro eliminates manual calculations in large projects, reducing errors and speeding up workflows.
Etiket ( Labels )
yazı toplama, yazı çıkarma, NetCAD makro, CAD otomasyonu, harita mühendisliği, Şaban GÜL, toplu seçim, tabaka yönetimi, ortalama hesaplama, proje yönetimi, VBScript makro, SagulCAD, kullanıcı dostu makro, hızlı hesaplama, CAD araçları
text addition, text subtraction, NetCAD macro, CAD automation, surveying, Şaban GÜL, bulk selection, layer management, average calculation, project management, VBScript macro, SagulCAD, user-friendly macro, fast calculation, CAD tools
📝 Netcad NVB Code
17.05.2025 tarihli güncelleme ile artık çıkarmada yapılabilmektedir.
'' www.sabangul.com.tr Web Sayfasından İndirilmiştir
' Şaban GÜL , Harita Mühendisi
' Her Türlü Hata, İstek ve Öneriler İçin
' haritaakademi@gmail.com veya sagulnet@gmail.com
' adresine durumu anlatan bir e-posta gönderiniz.
sub main
dim secim,c,layerno,obj,yaz1,yaz2,yaz3,yaz4,top,o,sagul,sel,i,j,elifyaren ,yazi,ruhan,gulailesi ,saban,kop
Dim BD
with netcad
on error resume next
set BD = Netcad.NewBDialog("Yazı Değerleri Toplama/Çıkarma [SagulCAD, Şaban GÜL]")
BD.putprompt " Toplama/Çıkarmaya Başlanacak İlk Değer:"
BD.Getfloat "item1","",0,10
BD.Getradio "item5","İşlem Türü Seçiniz: ","Toplama|Çıkarma" ,0
BD.Getradio "item2","Proje Üzerindeki Seçim Türü:","Tek Tek Seçim|Toplu Seçim" ,1
BD.Getradio "item3","Seçilenleri SAGUL_YAZITOPLA Tabakasına Al","Evet|Hayır" ,1
BD.Getradio "item4","Sonuç Gösterimi","Sadece Mesaj Olarak Göster|Sonucu Ekrada Yazdır|Hem Mesaj Göster Hem Ekrana Yazdır" ,0
if BD.showmodal then
sagul=1
elifyaren=1
dim tc
sagul= BD.ValueByName("item2")
elifyaren= BD.ValueByName("item3")
ruhan= BD.ValueByName("item4")
tc= BD.ValueByName("item5")
gulailesi=0
if sagul=0 then
set secim = .NewSelectStatus()
set c = .newc(0,0,0)
top= BD.ValueByName("item1")
set yazi = .NewSelectStatus
while .SelectObjectInstant ("Toplam/Çıkarma yapılacak yazıları seçiniz. İşlem tamamlandıktan sonra fare ile sağ tıklayınız",1,array(otext),yazi)
set o = yazi.objects(0)
kop=top
if tc=0 then
top=top+o.s
else
top=top-o.s
end if
if kop<>top then
gulailesi=gulailesi+1
end if
if elifyaren=1 then
o.tabaka=.createlayer("sagul_yazitopla",2)
end if
.PutObject yazi.indexs(0), o
wend
End if
if sagul=1 then
top= BD.ValueByName("item1")
set SEL = .NewSelectionSet ' Yeni kume yarat
set o = .NewObject
if SEL.SELECT("Toplam Yapılacak Yazıları Seçiniz",array(otext)) then ' istenen turleri kumeye ekle
for i = 0 to SEL.NE-1 ' kumenin her bir elemani icin
j = SEL.GetSelectedObject(i, o) ' objeyi ve gercek indeksini al
kop=top
if tc=0 then
top=top+o.s
else
top=top-o.s
end if
if kop<>top then
gulailesi=gulailesi+1
end if
if elifyaren=1 then
o.tabaka=.createlayer("sagul_yazitopla",2)
end if
.putobject j, o ' objeyi geri koy
next
SEL.RedrawAndRewind ' secim kumesini toplu kendi renginde
end if ' cizdir ve kumeyi basa sardir.
set SEL = nothing
set o = nothing
end if
set c = nothing
set yazi = nothing
set o = nothing
if ruhan=0 or ruhan=2 then
saban= round(top/gulailesi ,2)
msgbox ("Seçilen Değerler Toplamı: "& top &chr(13)&chr(10)&" Toplam " & gulailesi & " tane seçildi." &chr(13)&chr(10)&" Ortalama= " & saban ) &chr(13)&chr(10)& " **İlk Değer (" & BD.ValueByName("item1") & ") hesaba katılmamıştır" ,64,"SagulCAD, Şaban GÜL"
end if
if ruhan=1 or ruhan=2 then
set secim = .NewSelectStatus()
set c = .newc(0,0,0)
set yazi = .NewSelectStatus
if .SelectPoint("Nokta seç", c, 2) then
set yaz1=.maketext(c,top,0,0,2,0,"1",.createlayer("ROL_CEPHE_1",4))
.addobject(yaz1)
end if
eND if
set o = nothing
eND if
end with
end sub
netcad-yazi-deger-toplama-cikarma
17.05.2025 tarihli güncelleme ile çıkarma özelliğide gelmiştir.
\' www.sabangul.com.tr Web Sayfasından İndirilmiştir
\' Şaban GÜL , Harita Mühendisi
\' Her Türlü Hata, İstek ve Öneriler İçin
\' haritaakademi@gmail.com veya sagulnet@gmail.com
\' adresine durumu anlatan bir e-posta gönderiniz.
sub main
dim secim,c,layerno,obj,yaz1,yaz2,yaz3,yaz4,top,o,sagul,sel,i,j,elifyaren ,yazi,ruhan,gulailesi ,saban,kop
Dim BD
with netcad
on error resume next
set BD = Netcad.NewBDialog(\" Seçilen Objedeki Yazıları Toplama [Şaban GÜL]\")
\' Kullanıcıdan toplama için başlangıç değeri alınır
BD.Getfloat \"item1\",\"Toplama Başlanacak İlk Değer: \",0,5
\' Seçim türü: tek tek veya toplu
BD.Getradio \"item2\",\"Proje Üzerindeki Seçim Türü\",\"Tek Tek Seçim|Toplu Seçim\" ,1
\' Seçilenlerin özel tabakaya alınıp alınmayacağı
BD.Getradio \"item3\",\"Seçilenleri SAGUL_YAZITOPLA Tabakasına Al\",\"Evet|Hayır\" ,1
\' Sonuç gösterim tercihi
BD.Getradio \"item4\",\"Sonuç Gösterimi\",\"Sadece Mesaj Olarak Göster|Sonucu Ekrada Yazdır|Hem Mesaj Göster Hem Ekrana Yazdır\" ,0
if BD.showmodal then
sagul=1
elifyaren=1
sagul= BD.ValueByName(\"item2\")
elifyaren= BD.ValueByName(\"item3\")
ruhan= BD.ValueByName(\"item4\")
gulailesi=0
if sagul=0 then
set secim = .NewSelectStatus()
set c = .newc(0,0,0)
top= BD.ValueByName(\"item1\")
set yazi = .NewSelectStatus
\' Tek tek seçim döngüsü
while .SelectObjectInstant (\"Toplam yapılacak yazıları seçiniz. İşlem tamamlandıktan sonra fare ile sağ tıklayınız\",1,array(otext),yazi)
set o = yazi.objects(0)
kop=top
top=top+o.s
if kop<>top then
gulailesi=gulailesi+1
end if
if elifyaren=1 then
o.tabaka=.createlayer(\"sagul_yazitopla\",2)
end if
.PutObject yazi.indexs(0), o
wend
End if
if sagul=1 then
top= BD.ValueByName(\"item1\")
set SEL = .NewSelectionSet \' Yeni kume yarat
set o = .NewObject
if SEL.SELECT(\"Toplam Yapılacak Yazıları Seçiniz\",array(otext)) then \' istenen turleri kumeye ekle
for i = 0 to SEL.NE-1 \' kumenin her bir elemani icin
j = SEL.GetSelectedObject(i, o) \' objeyi ve gercek indeksini al
kop=top
top=top+o.s
if kop<>top then
gulailesi=gulailesi+1
end if
if elifyaren=0 then
o.tabaka=.createlayer(\"sagul_yazitopla\",2)
end if
.putobject j, o \' objeyi geri koy
next
SEL.RedrawAndRewind \' secim kumesini toplu kendi renginde
end if \' cizdir ve kumeyi basa sardir.
set SEL = nothing
set o = nothing
end if
set c = nothing
set yazi = nothing
set o = nothing
\' Mesaj kutusu ile sonuç gösterimi
if ruhan=0 or ruhan=2 then
saban= round(top/gulailesi ,2)
msgbox (\"Seçilen Değerler Toplamı: \"& top &chr(13)&chr(10)&\" Toplam \" & gulailesi & \" tane seçildi.\" &chr(13)&chr(10)&\" Ortalama= \" & saban ),64,\", Şaban GÜL\"
end if
\' Ekrana sonuç yazdırma
if ruhan=1 or ruhan=2 then
set secim = .NewSelectStatus()
set c = .newc(0,0,0)
set yazi = .NewSelectStatus
if .SelectPoint(\"Nokta seç\", c, 2) then
set yaz1=.maketext(c,top,0,0,2,0,\"1\",.createlayer(\"SAGUL_TOPLAM\",4))
.addobject(yaz1)
end if
eND if
set o = nothing
eND if
end with
end sub