怎样使文本居中排列？

jiangwen1980

我是VB新手，在用VB开发AutoCAD时创建的文本无法居中排列。请高手指教。

zfbj

jiangwen1980

比如有下面程序：
Dim TextObj As acadText
dim String as String
Dim Height As Double
Dim InPoint(0 To 2) As Double
String="文本居中对起"
Height = 5
InPoint(0) = 10: InPoint(1) = 10: InPoint(2) = 0
Set TextObj = AcadDoc.ModleSpace.AddText(String,InPoint,Height)
TextObj.Alignment = acAlignmentMiddleCenter
当然，我省略了AutoCAD接口程序。在运行时，我发现文本的对起点竟然在原点？！

mccad

http://www.mjtd.com/bbs/dispbbs.asp?boardID=4&RootID=24167&ID=24172

jiangwen1980