Boyut Metnini Geçersiz Kılma Hakkında (VBA/ActiveX)

< 1 dakika okuma

İçindekiler

Boyut metnini değiştir

Görüntülenen boyut değeri, TextOverride özelliği kullanılarak değiştirilebilir. Bu özelliği kullanarak, görüntülenen boyut değerini tamamen değiştirebilir veya değere metin ekleyebilirsiniz.

Boyut metnini değiştir #

Bu örnek, değere bazı metinler ekleyerek hem metin dizesinin hem de boyut değerinin görüntülenmesini sağlar.

Sub Ch5_OverrideDimensionText () Dim dimObj As AcadDimAligned Dim point1 ( 0 To 2 ) As Double Dim point2 ( 0 To 2 ) As Double Dim location ( 0 To 2 ) As Double 
     
        
        
        

    'Boyutu tanımlayın
    nokta1(0) = 5#: nokta1(1) = 3#: nokta1(2) = 0#
    nokta2(0) = 10#: nokta2(1) = 3#: nokta2(2) = 0#
    konum(0) = 7,5: konum(1) = 5#: konum(2) = 0#

    ' Model alanında
     hizalanmış bir boyut nesnesi oluşturun Set dimObj = ThisDrawing . ModelSpace . _
  AddDimAligned ( point1 , point2 , location )   

    'Boyut için metin dizesini değiştirin
    dimObj.TextOverride = "Değer şudur: <>"
    dimObj.Güncelle
Son Alt Yordam