🚀 go-pugleaf

Dnia 14-11-2009 o 01:04:40 szadok <szadok375@terramail.pl> napisał(a):

musisz sprawdzić czy aktualny styl tekstu ma niezerową wysokość.
a najlepiej użyć VBA np.:


Sub textadd()
   Dim textString, insertionPoint, height
   Dim text As AcadText

   textString = ThisDrawing.Utility.GetString(True, "Wpisz tekst: ")
   insertionPoint = ThisDrawing.Utility.GetPoint(, "Wskaż punkt wstawienia:  
")
   height = ThisDrawing.Utility.GetDistance(insertionPoint, "Podaj wysokość  
tekstu: ")

   Set text = ThisDrawing.ModelSpace.AddText(textString, insertionPoint,  
height)
End Sub

lub z mtext:

Sub mtextadd()
   Dim textString, insertionPoint, height, width
   Dim text As AcadMText

   textString = ThisDrawing.Utility.GetString(True, "Wpisz tekst: ")
   insertionPoint = ThisDrawing.Utility.GetPoint(, "Wskaż punkt wstawienia:  
")

   Set text = ThisDrawing.ModelSpace.AddMText(insertionPoint, 0, textString)

   height = ThisDrawing.Utility.GetDistance(insertionPoint, "Podaj wysokość  
tekstu: ")
   text.height = height

   width = ThisDrawing.Utility.GetDistance(insertionPoint, "Podaj szerokość  
tekstu: ")
   text.width = width
End Sub