Satır İçi Metin Hizalama Hakkında (VBA/ActiveX)

Metni yeniden hizala #

Bu örnek birMetinnesne ve birNoktanesne.NoktaNesne, metin hizalama noktasına ayarlanır ve görünür olması için kırmızı bir artı işaretine dönüştürülür. Metin hizalaması değiştirilir ve makro yürütmesinin durdurulması için bir mesaj kutusu görüntülenir. Bu, metin hizalamasının değiştirilmesinin etkisini görmenizi sağlar.

Sub Ch4_TextAlignment () Dim textObj As AcadText Dim textString As String Dim insertionPoint ( 0 To 2 ) As Double Dim height As Double 
   
   
      
   

  'Yeni Metin nesnesini tanımlayın
  metin dizisi = "Merhaba, Dünya."
  insertionPoint(0) = 3
  insertionPoint(1) = 3
  insertionPoint(2) = 0
  yükseklik = 0,5

  ' Model alanında Metin nesnesini oluşturun :
   Set textObj = ThisDrawing . ModelSpace . AddText ( textString , insertionPoint , height )    

  'Metin hizalama noktasının üzerine bir nokta oluşturun,
  ' Böylece hizalama sürecini daha iyi görselleştirebiliriz.
   Dim pointObj As AcadPoint Dim alignmentPoint ( 0 To 2 ) As Double 
  alignmentPoint ( 0 ) = 3 
  alignmentPoint ( 1 ) = 3 
  alignmentPoint ( 2 ) = 0 Set pointObj = ThisDrawing . ModelSpace . AddPoint ( alignmentPoint ) 
  pointObj . Color = acRed 
            
    

  'Nişan alma stilini artı işareti olarak ayarlayın'
  ThisDrawing.SetVariable "PDMODE", 2

  ' Metni sola hizala textObj.Alignment 
  = acAlignmentLeft ThisDrawing.Regen acActiveViewport MsgBox
   " Metin nesnesi artık sola hizalandı "
     

  Metni ortala
  metin nesnesinin hizalaması = acHizalamaMerkezi
Metni noktaya 
  hizala ( sol hizalı metinler hariç tüm metinler için gereklidir . ) 
  
  textObj.TextAlignmentPoint = hizalamaPoint

  ThisDrawing.Regen acActiveViewport
  MsgBox "Metin nesnesi artık ortalanmış durumda"

  ' Metni sağa hizala 
  textObj.Alignment = acAlignmentRight
   ThisDrawing.Regen acActiveViewport MsgBox " Metin nesnesi artık
   sağa hizalandı " End Sub