CAD绘制一个单行文字（com接口VB语言）

主要用到函数说明：

_DMxDrawX::DrawText

绘制一个单行文字。详细说明如下：

参数	说明
DOUBLE dPosX	>文字的位置的X坐标
DOUBLE dPosY	文字的位置的Y坐标
BSTR pszText	文字内容字符串
DOUBLE dHeight	文字高度
DOUBLE dRotation	文字的旋转角度
SHORT horizontalMode	文字的水平对齐方式,0=kTextLeft,1=kTextCenter,2=kTextRight
SHORT verticalMode	文字的竖直对齐方式,1=kTextBottom,2=kTextVertMid,3=kTextTop

实现代码说明：

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

Private Sub DrawText_Click()     '把颜色改回黑白色 MxDrawX1.DrawColor = 0   '创建一个图层,名为"TextLayer" MxDrawX1.AddLayer "TextLayer"   '设置当前图层为"TextLayer" MxDrawX1.LayerName = "TextLayer"   '《---------------------------------------》 '写一个文字,0,1是左对齐. MxDrawX1.DrawText 0, 1900, "梦想绘图控件3.0 www.mxdraw.com", 100, 0, 0, 1     '《---------------------------------------》 '写一个文字,2,1是右下对齐. MxDrawX1.DrawColor = 4556677   MxDrawX1.DrawText 3000, 2100, "梦想绘图控件3.0 www.mxdraw.com", 100, -20, 2, 1   '《---------------------------------------》 '按指定样式绘制文字 MxDrawX1.AddTextStyle1 "MyTextStyle", "italicc.shx", "gbcbig.shx", 0.7 MxDrawX1.TextStyle = "MyTextStyle"   MxDrawX1.DrawColor = 255 MxDrawX1.DrawText 0, 3000, "梦想绘图控件3.0 www.mxdraw.com", 100, 0, 0, 1   '《---------------------------------------》 '写一个TureType字体 MxDrawX1.AddTextStyle2 "MyTrueTypeStyle", "黑体", 0.7 MxDrawX1.TextStyle = "MyTrueTypeStyle"   MxDrawX1.DrawText 0, 3150, "梦想绘图控件3.0 www.mxdraw.com", 100, 0, 0, 1     MxDrawX1.ZoomAll   MxDrawX1.UpdateDisplay   End Sub