Yazı Değerini Bir Değerle Çarpma Makrosu (Text Value Multiplication Macro)

Yazı Değerlerini Hızlıca Çarpın: SagulCAD ile Netcad’de Verimli Çözüm

Multiply Text Values Quickly: Efficient Netcad Solution with SagulCAD

Bu makro, Netcad platformunda yazı objelerinin sayısal değerlerini kullanıcı tarafından belirtilen bir sayıyla çarpar. Mühendislik, haritacılık ve CAD projelerinde sıkça kullanılan bu araç, yazı objelerinin değerlerini hızlı, hatasız ve etkili bir şekilde günceller. Örneğin, bir alan, uzunluk veya herhangi bir sayısal değeri belirli bir katsayı ile çarpmak için mükemmel bir çözümdür. Şaban GÜL tarafından geliştirilen bu makro, SagulCAD altyapısıyla çalışır ve kullanıcı dostu bir arayüz sunar. Netcad’in Araçlar menüsünden kolayca çalıştırılabilir. Daha fazla bilgi için sagul.net adresini ziyaret edebilirsiniz.

This macro multiplies the numerical values of text objects in Netcad by a user-defined number. Ideal for engineering, surveying, and CAD projects, it updates text object values quickly, accurately, and efficiently. For example, it’s perfect for multiplying areas, lengths, or any numerical values by a specific coefficient. Developed by Şaban GÜL, this macro operates on the SagulCAD infrastructure and provides a user-friendly interface. It can be easily launched from Netcad’s Tools menu. Visit sagul.net for more details.

Makroyu Başlatma: Netcad menüsünden Araçlar > Uygulama Geliştirme > Makro Çalıştır seçeneğiyle makroyu çalıştırın. Çarpma Katsayısı Belirtme: SagulCAD arayüzünde, yazı değerlerinin hangi sayıyla çarpılacağını girin (örneğin, 1.5 veya 3). Yazı Objelerini Seçme: Ekranda çarpma işlemi uygulanacak yazı objelerini seçin. Sonuç İşleme: Makro, seçilen yazı objelerinin sayısal değerlerini belirtilen katsayı ile çarpar ve sonucu iki ondalık basamağa yuvarlayarak günceller. Hata Önleme: Sıfırdan küçük bir katsayı girilirse, makro bir hata mesajı gösterir ve işlemi durdurur.
Makro, Netcad’in katman yapısını dikkate alarak güvenli ve sorunsuz bir işlem sağlar.

Launch the Macro: Run the macro from Netcad’s Tools > Application Development > Run Macro menu. Specify Multiplication Factor: In the SagulCAD interface, enter the number to multiply the text values by (e.g., 1.5 or 3). Select Text Objects: Choose the text objects to apply the multiplication to on the screen. Process Result: The macro multiplies the numerical values of the selected text objects by the specified factor, rounds the result to two decimal places, and updates them. Error Prevention: If a negative number is entered, the macro displays an error message and halts the process.
The macro respects Netcad’s layer structure, ensuring safe and seamless operation.

Netcad makro, yazı değeri çarpma, SagulCAD, CAD otomasyon, mühendislik makrosu, Netcad araçlar

Netcad macro, text value multiplication, SagulCAD, CAD automation, engineering macro, Netcad tools

📝 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ı Değeri Çarpma İşlemi, Şaban GÜL]")
sagulform1.GetFloat "sagulnetx1" , "Yazı Değerleri Kaç ile Çarpılacak:" ,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 'Yazı objesinin sayısal değerini kullanıcı katsayısı ile çarpar
obje.s=round(k,2) 'Sonucu 2 ondalık basamağa yuvarlar
.putobject j, obje 
Next
SEL.RedrawAndRewind
End If
Set SEL = Nothing
Set o = Nothing

End With
End Sub

netcad-yazi-degerini-carpma