Tarama Sınırlarını Düzenleme Hakkında (VBA/ActiveX)

1 dakika okuma

İçindekiler

Bir kapağa iç bir halka ekleyin.

Tarama sınırlarına döngüler ekleyebilir veya yerleştirebilirsiniz. İlişkisel taramalar, sınırlarında yapılan değişikliklere uyacak şekilde güncellenir. İlişkisel olmayan taramalar güncellenmez.

Tarama sınırını düzenlemek için aşağıdaki yöntemlerden birini kullanın:

İç Döngü Ekle: Kapağa iç içe bir halka ekler.
Dış Döngü Ekle: Kapağa dış bir halka ekler.
InsertLoopAt: Bir tarama deseninin belirli bir indeksine bir döngü ekler.

Bir kapağa iç bir halka ekleyin. #

Bu örnek, ilişkisel bir tarama deseni oluşturur. Ardından bir daire oluşturur ve daireyi tarama deseninin iç döngüsü olarak ekler.

Sub Ch4_AppendInnerLoopToHatch () Dim hatchObj As AcadHatch Dim patternName As String Dim PatternType As Long Dim bAssociativity As Boolean 
   
   
     
   

  'Tarama alanını tanımlayın ve oluşturun'
  desenAdı = "ANSI31"
  DesenTipi = 0
  bİlişkisellik = Doğru
  Set hatchObj = ThisDrawing.ModelSpace.AddHatch(PatternType, patternName, bAssociativity)

  ' Tarama deseni için dış döngüyü oluşturun . Dim outerLoop ( 0 To 1 ) As AcadEntity Dim center ( 0 To 2 ) As Double Dim radius As Double Dim startAngle As Double Dim endAngle As Double 
  center ( 0 ) = 5 : center ( 1 ) = 3 : center ( 2 ) = 0 
  radius = 3 
  startAngle = 0 
  endAngle = 3.141592 Set outerLoop ( 0 ) = ThisDrawing . ModelSpace . AddArc ( center , radius , startAngle , endAngle ) Set outerLoop ( 1 ) = ThisDrawing . ModelSpace . AddLine ( outerLoop ( 0 ). startPoint , outerLoop ( 0 ). endPoint ) 
      
      
   
   
            
    
    

  'Dış halkayı tarama nesnesine ekleyin'
  hatchObj.AppendOuterLoop (outerLoop)

  ' Tarama deseni için iç döngü olarak bir daire oluşturun . Dim innerLoop ( 0 ) As AcadEntity 
  center ( 0 ) = 5 : center ( 1 ) = 4.5 : center ( 2 ) = 0 
  radius = 1 Set innerLoop ( 0 ) = ThisDrawing . ModelSpace . AddCircle ( center , radius ) 
           
    

  Daireyi, tarama çizgisine iç halka olarak ekleyin.
  hatchObj.AppendInnerLoop (innerLoop)

  ' Kaplama işlemini değerlendirin ve görüntüleyin'  
  hatchObj . Evaluate ThisDrawing . Regen True End Sub