Yazı Objelerini Sayısal Değerle Bölme Makrosu (Text Object Division Macro)

Yazı Objelerinin Sayısal Değerlerini Kolayca Bölün: Netcad Makrosu ile Hızlı Çözüm 🚀

Easily Divide Text Object Values: Fast Solution with Netcad Macro 🚀

Bu makro, Netcad ortamında yazı objelerinin sayısal değerlerini kullanıcı tarafından belirtilen bir sayıya bölmek için tasarlanmıştır. Örneğin, bir harita üzerindeki metin tabanlı sayısal verileri (ölçüler, alanlar vb.) hızlıca bir katsayı ile bölerek yeni değerler elde edebilirsiniz. Şaban GÜL tarafından geliştirilen bu makro, SagulCAD platformuyla uyumludur ve kullanıcı dostu bir arayüzle çalışır. Makro, Netcad’in araçlar menüsünden kolayca çalıştırılabilir ve seçim yaptığınız yazı objelerinin değerlerini hassas bir şekilde günceller. 🛠️

This macro is designed to divide the numerical values of text objects in the Netcad environment by a user-specified number. For instance, it allows you to quickly divide numerical data in text form (measurements, areas, etc.) on a map by a coefficient to obtain new values. Developed by Şaban GÜL, this macro is compatible with the SagulCAD platform and features a user-friendly interface. It can be easily executed from Netcad’s tools menu and precisely updates the values of selected text objects. 🛠️

Makroyu Çalıştırma: Netcad menüsünden Araçlar > Uygulama Geliştirme > Makro Çalıştır seçeneğiyle makroyu başlatın. Sayısal Katsayı Girişi: Açılan SagulCAD penceresinde, yazı objelerinin değerlerini kaçta bir böleceğinizi belirtin (örneğin, 2 girerseniz değerler yarıya iner). Obje Seçimi: Ekranda bölmek istediğiniz yazı objelerini seçin. Sonuç: Makro, seçilen objelerin sayısal değerlerini girilen katsayıya böler ve sonuçları yuvarlayarak günceller. İşlem tamamlandığında ekran yenilenir. Hata Kontrolü: Eğer sıfırdan küçük bir sayı girerseniz, makro hata mesajı gösterir ve işlemi durdurur.

Run the Macro: Start the macro from Netcad’s menu: Tools > Application Development > Run Macro. Enter Numerical Coefficient: In the SagulCAD dialog box, specify the number by which to divide the text object values (e.g., entering 2 will halve the values). Object Selection: Select the text objects you want to divide on the screen. Result: The macro divides the numerical values of the selected objects by the entered coefficient, rounds the results, and updates them. The screen refreshes upon completion. Error Handling: If a number less than zero is entered, the macro displays an error message and stops the process.

Netcad Makro, Yazı Bölme, SagulCAD, Harita Düzenleme, CAD Makro, Sayısal Değer Düzenleme, Netcad Otomasyon, Yazı İşlemleri, Harita Yazıları, Netcad Yazı Bölme, SagulCAD Makro, Otomatik Hesaplama, CAD Yazı Düzenleme, Netcad Kullanıcı Araçları, Harita Verileri, Sayısal Veri İşleme

Netcad Macro, Text Division, SagulCAD, Map Editing, CAD Macro, Numerical Value Editing, Netcad Automation, Text Processing, Map Texts, Netcad Text Division, SagulCAD Macro, Automatic Calculation, CAD Text Editing, Netcad User Tools, Map Data, Numerical Data Processing

📝 Netcad NVB Code

Sub Main()
Dim obje,toptbk,tbksay,tbsagul,tbex,pc,SEL,i,j,o
DIM anliksecim,objesi,objeal,sgl_1,sgl_2,sgl_3,sgl_4,sgl_5,sgl_6,BD,a,b,c,d,e,f,sagulnet1,sagulnet2,icindeki
dim KG1,KG2,sagulform1,sagulform2,ada
'------------------------------------------------------------------------------------------
'Şaban GÜL Tarafından Üretilmiştir. Telif hakkı gereği bu satırı ve alttaki satırları silmeyiniz.
'Bu Makro SagulCAD ile üretilmiştir. Daha fazla bilgi için www.sagul.net adresini ziyaret ediniz.
'İstediğiniz yenilikleri, tespit ettiğiniz hataları bize ileti gönderiniz. E-posta: sagulnet@gmail.com.
'Bu makro sadece Netcad üzerinden çalışır. 
'Makroyu çalıştırmak için Netcad Menüsünden Araçlar >> Uygulama Geliştirme >> Makro Çalıştır menüsünden makroyu çalıştırabilirsiniz.
'sagul.net/SagulCAD adresinden daha fazla bilgi edinebilirsiniz.
'------------------------------------------------------------------------------------------
'Makro Sıra No: 1
With Netcad
Set SEL = .NewSelectionSet
Set obje = .NewObject
dim boluneceksayi

set sagulform1 = Netcad.NewBDialog("SagulCAD Yazı Bölme İşlemi, Şaban GÜL]")
sagulform1.GetFloat "sagulnetx1" , "Yazılar Kaça Bölünecek:" ,1,2
if sagulform1.showmodal then
KG1= sagulform1.ValueByName("sagulnetx1")
else
exit sub
end if

if KG1<0 then
msgbox " Sayı Sıfırdan Küçük Olamaz"
exit sub
end if
If SEL.Select("LUTFEN OBJE SECIMI YAPINIZ...", Array(otext)) Then
For i = 0 To SEL.NE - 1
j = SEL.GetSelectedObject(i, obje)
toptbk = .numlayers - 1
With nclayermanager
For tbksay = 0 To toptbk
Next
End With
dim k
k= obje.s/KG1
obje.s=round(k,2)
.putobject j, obje 
 Next
SEL.RedrawAndRewind
End If
Set SEL = Nothing
Set o = Nothing

End With
End Sub

netcad-yazilari-bir-degere-bolme