Dikdörtgen Diziler Oluşturma Hakkında (VBA/ActiveX)

2 boyutlu veya 3 boyutlu dikdörtgen bir dizi oluşturmak için şunu kullanın:ArrayDikdörtgenBu nesne için sağlanan yöntem.

Bu yöntem, satır sayısı, sütun sayısı, satırlar arası mesafe ve sütunlar arası mesafe gibi parametreleri belirtmenizi gerektirir. 3 boyutlu bir dizi oluştururken, seviye sayısını ve seviyeler arası mesafeyi de belirtmeniz gerekir.

Dikdörtgen bir dizi, seçim kümesindeki nesnenin uygun sayıda çoğaltılmasıyla oluşturulur. Bir satır tanımlarsanız, birden fazla sütun belirtmeniz gerekir ve bunun tersi de geçerlidir.

Orijinal nesnenin sol alt köşede olduğu varsayılır ve dizi yukarı ve sağa doğru oluşturulur. Satırlar arasındaki mesafe negatif bir sayı ise, satırlar aşağı doğru eklenir. Sütunlar arasındaki mesafe negatif bir sayı ise, sütunlar sola doğru eklenir.

AutoCAD, dikdörtgen diziyi mevcut döndürme açısı tarafından tanımlanan bir taban çizgisi boyunca oluşturur. Bu açı varsayılan olarak 0’dır, bu nedenle dikdörtgen bir dizinin satırları ve sütunları X ve Y çizim eksenlerine göre diktir. Bu açıyı değiştirebilir ve döndürme açısını sıfırdan farklı bir değere ayarlayarak döndürülmüş bir dizi oluşturabilirsiniz. Bunu yapmak için şunu kullanın:SnapRotationAnglemülk.

Sub Ch4_ArrayRectangularExample () ' Daireyi oluştur 
  
  Dim circleObj As AcadCircle
  Dim center(0 To 2) As Double
  Yarıçapı Çift Olarak Azalt
  merkez(0) = 2#: merkez(1) = 2#: merkez(2) = 0#
  yarıçap = 0,5
  Set circleObj = ThisDrawing.ModelSpace.AddCircle(center, radius)
  ZoomAll

  ' Dikdörtgen diziyi
   tanımlayın Dim numberOfRows As Long Dim numberOfColumns As Long Dim numberOfLevels As Long Dim distanceBwtnRows As Double Dim distanceBwtnColumns As Double Dim distanceBwtnLevels As Double 
  numberOfRows = 5 
  numberOfColumns = 5 
  numberOfLevels = 2 
  distanceBwtnRows = 1 
  distanceBwtnColumns = 1 
  distanceBwtnLevels = 1  
   
   
   
   
         

  Nesne dizisini oluşturun
  Dim retObj As Variant
  retObj = circleObj.ArrayRectangular _
      (Satır sayısı, Sütun sayısı, Seviye sayısı, _
      distanceBwtnRows, distanceBwtnColumns, distanceBwtnLevels)

  ZoomAll
Son Alt Yordam