|
发表于 2005-1-6 18:36:00
|
显示全部楼层
Dim textObj As Object
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double
textString = "Hello, World."
insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0
height = 0.5
Set textObj = Thisdrawing.ModelSpace.AddText(textString, insertionPoint, height)
textObj.Color = 1 |
|