Obje Sola Hizalama Makrosu (Object Left Alignment Macro)

Obje Sola Hizalama ile Projelerinizi Kolayca Düzenleyin 🚀

Streamline Your Projects with Object Left Alignment 🚀

Bu makro, NetCAD ortamında seçilen bir objenin Y koordinatına (sola hizalama) göre diğer objeleri hizalamak için tasarlanmıştır. Kullanıcı, önce bir referans objesi seçer ve ardından diğer objeleri bu objenin sol hizasına otomatik olarak yerleştirir. Projelerde düzenli ve hizalı bir görünüm sağlamak için oldukça kullanışlıdır. 🛠️ Özellikle mimari çizimler, harita düzenlemeleri ve CAD tabanlı projelerde zaman kazandırır. Makro, orijinal obje özelliklerini korurken sadece Y koordinatını değiştirir, böylece diğer özellikler (renk, tabaka, hat tipi vb.) etkilenmez.

This macro is designed to align objects in NetCAD to the Y-coordinate (left alignment) of a selected reference object. The user selects a reference object first, then aligns other objects to its left edge automatically. It’s highly useful for creating neat and aligned layouts in projects. 🛠️ Ideal for architectural drawings, map editing, and CAD-based projects, it saves time by aligning objects while preserving their original properties (color, layer, line type, etc.), modifying only the Y-coordinate.

Referans Obje Seçimi: Kullanıcı, hizalamada esas alınacak bir objeyi seçer. Diğer Objelerin Seçimi: Ardından, hizalanacak diğer objeler tek tek seçilir. Hizalama İşlemi: Seçilen her obje, referans objenin Y koordinatına göre sola hizalanır. Sonuç: Obje, yeni konumuyla ekranda kendi renginde yeniden çizilir. Makro, işlem tamamlanana kadar devam eder ve kullanıcıya hızlı bir düzenleme imkanı sunar.

Reference Object Selection: The user selects a reference object to base the alignment on.
Other Object Selection: Then, the objects to be aligned are selected one by one.
Alignment Process: Each selected object is aligned to the Y-coordinate of the reference object (left alignment).
Result: The object is redrawn in its new position with its original color. The macro continues until the process is complete, offering a fast editing solution.

obje hizalama, sola hizalama, NetCAD makro, CAD düzenleme, proje düzenleme, mimari çizim, harita düzenleme, VBScript makro, obje yönetimi, Y koordinatı hizalama

object alignment, left alignment, NetCAD macro, CAD editing, project organization, architectural drawing, map editing, VBScript macro, object management, Y-coordinate alignment

📝 Netcad NVB Code

' Şaban GÜL, sabangul67@gmail.com, sabangul.com
'Tarih : 04/03/2001 V1.00
'Amaç  : Ekrandan seçilen objenin Y koordinatına göre diğer objeleri sola hizalar.
'Girdi : Obje

SUB Main
DIM ss,b,h
  with netcad
    set ss = .NewSelectStatus                         ' Anlık seçim objesi yarat
    .SelectObjectInstant "Seçtiğiniz obje esas alınarak diğer objeler bu seçilen objeye göre sola hizalanacaktır.",1,array(),ss
    set b= ss.objects(0)                              ' Biçimleri b objesine ata
    while .SelectObjectInstant("Seçilen objeler ilk seçilen objenin Y koordinatına ( Sola hizalama ) yapılacak.",1,array(),ss)  ' obje seç
      set h = ss.objects(0)                           ' Seçim objesinin ilk objesini al
      h.p1.y=b.p1.y                                   ' Y koordinatını referans objeye eşitle
      .PutObject ss.indexs(0), h                      ' Objeyi geri koy
      .DrawObject h,-1                                ' Kendi rengi ile çiz
    wend
    set ss = nothing
    set b = nothing
    set h = nothing
  end with
END SUB

netcad-sola-hizala