Üste Hizalama Makrosu ile Objeleri Kolayca Hizala (Align Objects to Top with the Alignment Macro)

Netcad’de Üste Hizalama Makrosu: Objelerinizi Hızlı ve Kolayca Hizalayın, Verimliliği Artırın!

Netcad Top Alignment Macro: Align Objects Quickly and Easily, Boost Your Efficiency!

Bu makro, Netcad ortamında seçilen bir objenin X koordinatına diğer objeleri hizalamak için tasarlanmıştır. Özellikle CAD projelerinde, birden fazla objeyi tek bir referans noktasına göre üste hizalamak isteyen kullanıcılar için büyük bir kolaylık sağlar. İlk seçilen objenin X koordinatı esas alınır ve diğer objeler bu koordinata göre otomatik olarak hizalanır. Bu işlem, projelerdeki düzenlemeleri hızlandırır, manuel hizalamadan kaynaklanan hataları azaltır ve iş akışını optimize eder. Makro, kullanıcı dostu bir arayüzle çalışır ve seçilen objelerin orijinal özelliklerini korurken yalnızca X koordinatını değiştirir.

This macro is designed to align objects to the X-coordinate of a selected object in the Netcad environment. It is especially useful for CAD projects, allowing users to align multiple objects to a single reference point effortlessly. The X-coordinate of the first selected object is used as the reference, and other objects are automatically aligned to it. This process speeds up project edits, reduces errors from manual alignment, and optimizes workflow. The macro operates with a user-friendly interface and modifies only the X-coordinate while preserving the original properties of the objects.

Makro, Netcad ortamında çalışmak üzere VBScript ile yazılmıştır. İlk olarak, kullanıcıdan bir referans objesi seçmesi istenir. Bu objenin X koordinatı, hizalama için temel alınır. Ardından, kullanıcı hizalanacak diğer objeleri seçer. Makro, her seçilen objenin X koordinatını, referans objenin X koordinatıyla eşleştirir. İşlem sırasında objelerin diğer özellikleri (renk, tabaka, hat tipi vb.) değişmez, yalnızca X koordinatı güncellenir. Seçim işlemi tamamlandığında, makro objeleri yeni konumlarında kaydeder ve ekranda güncellenmiş haliyle çizer. Bu yöntem, özellikle büyük projelerde objelerin düzenli ve hizalı bir şekilde yerleştirilmesini sağlar.

The macro is written in VBScript for the Netcad environment. First, the user is prompted to select a reference object, whose X-coordinate serves as the alignment base. Then, the user selects the objects to be aligned. The macro updates the X-coordinate of each selected object to match the reference object’s X-coordinate. Other properties (color, layer, line type, etc.) remain unchanged, with only the X-coordinate modified. Once the selection is complete, the macro saves the objects in their new positions and redraws them on the screen. This approach ensures that objects are neatly and accurately aligned, especially in large projects.

üste hizalama, Netcad makro, CAD hizalama, VBScript makro, obje hizalama, proje düzenleme, verimlilik aracı, CAD otomasyon, Netcad script, hizlama makrosu,

top alignment, Netcad macro, CAD alignment, VBScript macro, object alignment, project editing, efficiency tool, CAD automation, Netcad script, alignment macro

📝 Netcad NVB Code

' Şaban GÜL, sabangul67@gmail.com, sabangul.com
'Tarih : 04/03/2001 V1.00
'Amaç  : Ekrandan seçilen objenin X koordinatına diğer objeleri üste hizalamak.
'Girdi : Obje

SUB Main
DIM ss,b,h
  with netcad
    set ss = .NewSelectStatus                         ' Anlik Secim objesi yarat
    .SelectObjectInstant "Seçtiğiniz obje esas alınarak diğer objeler bu seçilen objeye göre üste hizalanacaktır.",1,array(),ss
    set b= ss.objects(0)                              ' Biçimleri b objesine ata
    while .SelectObjectInstant("Seçilen objeler ilk seçilen objenin X koordinatına ( Üste hizalama ) yapılacak.",1,array(),ss)  ' obje sec
      set h = ss.objects(0)                           ' Secim objesinin ilk objesini al
      h.p1.x=b.p1.x                                   ' Referans objenin X koordinatına hizala
      .PutObject ss.indexs(0), h                      ' Objeyi geri koy
      .DrawObject h,-1                                ' Kendi rengi ile ciz
    wend
    set ss = nothing
    set b = nothing
    set h = nothing
  end with
END SUB

netcad-uste-hizala