Topic: how to do select an point insert text?

[kimmy]

how to do select an point insert text?
dim pt as double
Set mytxt = ThisDrawing.TextStyles.Add("mytxt")
mytxt.fontFile = "c:\windows\fonts\simfang.ttf"
mytxt.Height = 100
mytxt.Width = 0.8
mytxt.ObliqueAngle = ThisDrawing.Utility.AngleToReal(3, 0)
ThisDrawing.ActiveTextStyle = mytxt
 frmmain.hide
pt = ThisDrawing.Utility.GetPoint(, "select an point")
Set txtobj = ThisDrawing.ModelSpace.AddMText(pt, 1400, "{do this}\P" & "like like")
this code can't passed! who can modify this？thanks！！！！！

[Bob Wahr]

Pretty sure that the insertion point has to be an array of doubles.  Try changing to this

dim pt(0 to 2) as double

[David Hall]

and if that doesn't work, use variant.  I cant remember which it is

[kimmy]

and if that doesn't work, use variant.  I cant remember which it is

it's ok ..thanks