Biçim Kopyalama ve Uygulama Makrosu (Copy and Apply Object Properties Macro)

Objelerin Biçimini Kolayca Kopyalayın ve Uygulayın: NetCAD Makrosu ile Hızlı Düzenleme 🚀

Easily Copy and Apply Object Properties: Fast Editing with NetCAD Macro 🚀

Bu makro, NetCAD yazılımında bir objenin biçim özelliklerini (renk, çizgi tipi, tabaka, açı, hizalama vb.) kopyalayıp diğer objelere hızlıca uygulamanızı sağlar. Tek bir seçimle, seçtiğiniz objenin tüm stil özelliklerini başka objelere aktararak düzenleme süreçlerinizi hızlandırır. Özellikle büyük projelerde, birden fazla objeyi aynı biçime getirmek için zaman kazandırır. Kullanıcı dostu arayüzü ile SagulCAD tarafından optimize edilmiştir. 🛠️

This macro enables you to copy the style properties (color, line type, layer, angle, alignment, etc.) of an object in NetCAD and apply them to other objects quickly. With a single selection, it transfers all style attributes of the chosen object to others, streamlining your editing process. It saves time in large projects by standardizing multiple objects\’ formats. Optimized by SagulCAD with a user-friendly interface. 🛠️

• İlk Obje Seçimi: Makro, kullanıcıdan bir objeyi seçmesini ister ve bu objenin biçim özelliklerini (renk, çizgi tipi, tabaka, genişlik, hizalama vb.) hafızaya alır.
• Hedef Obje Seçimi: Ardından, biçim özelliklerinin uygulanacağı diğer objeleri seçmenizi sağlar.
• Otomatik Uygulama: Seçilen hedef objelere, hafızaya alınan biçim özellikleri anında uygulanır. Tabaka eşleştirme işlemi, hedef objelerin doğru tabakaya atanmasını sağlar.
• Çizim ve Güncelleme: Uygulanan objeler kendi renkleriyle yeniden çizilir ve proje güncellenir.
• Makro, döngüsel seçim desteği ile birden fazla objeye ardışık uygulama yapabilir ve hata yönetimi ile kesintisiz çalışır. ⚙️

• Initial Object Selection: The macro prompts the user to select an object and stores its style properties (color, line type, layer, width, alignment, etc.) in memory.
• Target Object Selection: Next, it allows you to select the objects to which the properties will be applied.
• Automatic Application: The stored style properties are instantly applied to the selected target objects. Layer matching ensures the target objects are assigned to the correct layer.
• Drawing and Updating: The modified objects are redrawn in their respective colors, and the project is updated.
• The macro supports iterative selections for applying properties to multiple objects consecutively and includes error handling for seamless operation. ⚙️

NetCAD, Makro, Biçim Kopyalama, Obje Düzenleme, CAD Otomasyonu, SagulCAD, Tabaka Yönetimi, Çizgi Tipi, Renk Kopyalama, Hızlı Düzenleme, Proje Optimizasyonu, NetCAD Makro, Biçim Aktarımı, Obje Stil, CAD Verimliliği, Otomatik Düzenleme, Tabaka Eşleştirme, Kullanıcı Dostu Makro

NetCAD, Macro, Property Copy, Object Editing, CAD Automation, SagulCAD, Layer Management, Line Type, Color Copy, Fast Editing, Project Optimization, NetCAD Macro, Property Transfer, Object Style, CAD Efficiency, Automatic Editing, Layer Matching, User-Friendly Macro

İngilizce

📝 Netcad NVB Code

SUB Main
DIM ss,b,h
with netcad
 set ss = .NewSelectStatus ' Anlik Secim objesi yarat
 .SelectObjectInstant "Seçtiğiniz objenin özellikleri hafızaya alınacak.[ SagulCAD ]",1,array(),ss
 set b= ss.objects(0) 'Biçimleri b objesine ata


 dim k
k= nclayermanager.layer(b.tabaka).name
 ' Tabaka adını al


 ' on error resume next
 while .SelectObjectInstant("Hafızaya alınan biçim, seçtiğiniz objelere uygulanacaktır. [ SagulCAD ]" ,1,array(),ss) ' obje sec
 set h = ss.objects(0) ' Secim objesinin ilk objesini al
 'h.s=b.s
 'h.pname = b.pname
 h.sc= b.sc
 h.lt=b.lt
 ' Çizgi tipi ve ölçek kopyalama


 dim ttk
 for ttk=0 to netcad.numlayers - 1
 If NCLAYERMANAGER.layer(ttk).name= k then h.tabaka = ttk
 next
 ' Tabaka eşleştirme döngüsü


 '.getparam(PNC_CURFONTREF)


 h.angle=b.angle
 h.just=b.just
 h.flags=b.flags
 h.renk = b.renk
 h.w = b.w
 ' Açı, hizalama, renk ve genişlik kopyalama
 
 h.wsc = b.wsc
 h.sc = b.sc
 ' Ölçek parametreleri kopyalama


 'h.cls=b.cls
 'h.objname=b.objname
 ' Yorumlanmış ek özellikler


 .PutObject ss.indexs(0), h ' objeyi geri koy
 .DrawObject h,-1 ' kendi rengi ile ciz
 wend
 ' Seçim döngüsü sonu


 set ss = nothing
 set b = nothing
 set h = nothing
 ' Bellek temizleme
end with
 
END SUB

netcad-bicim-kopyala