wmz 发表于 2004-11-25 13:11:00

[VBA]请教mccad老师关于写文字等几个问题

mccad老师:您好!现有几个问题请教:


1,写文字的对齐方式(我以前看过这方面的书,忘记了,这书又被别人借走了)和写文字的方向(朝向),如我设定: Txtobj.Rotation=45,但却得到的文字是以文字串的左下角为基点旋转了45度,那么,我如何做到以文字串的中心点进行旋转呢?


2,字体设置:用txtobj.setfont方法如何设定ACAD字体?如我要设定:txtobj.setfont "宋体",false,false,1,1 没问题;但我如果设定:TxtObj.setfont "rs", false,false,1,1 就不行了,而不得不这样设定:TxtObj.FontFile "c:\acad2002\fonts\rs.shx",这样一来,问题又来了:如若ACAD2002安装在别的盘和别的文件夹,就很不方便了,这怎样解决?


3,VBA怎样写扩展数据,如我写了文字和插入了图块,要向它们加入扩展数据,该怎样办?


以上问题,务请mccad老师不吝赐教!

王咣生 发表于 2004-11-25 21:12:00

回复

(1) 理解这段内容:<BR>Remarks



Text aligned to acAlignmentLeft uses the InsertionPoint property to position the text. <BR>文字对齐方式为acAlignmentLeft(默认值)的,直接用InsertionPoint属性改变文字位置;<BR>Text aligned to acAlignmentAligned, or acAlignmentFit uses both the InsertionPoint and TextAlignmentPoint properties to position the text. <BR>文字对齐方式为acAlignmentAligned或acAlignmentFit的,要用InsertionPoint和TextAlignmentPoint改变其位置.<BR>Text aligned to any other position uses the TextAlignmentPoint property to position the text. <BR>若文件采用其它的对齐方式,用TextAlignmentPoint改变其位置.


Sub Example_TextAlignmentPoint()


                       Dim textObj As AcadText<BR>                       Dim textString As String<BR>                       Dim insertionPoint(0 To 2) As Double<BR>                       Dim height As Double<BR>                       <BR>                       textString = "Hello, World."<BR>                       insertionPoint(0) = 10: insertionPoint(1) = 10: insertionPoint(2) = 0<BR>                       height = 0.5<BR>                       <BR>                       Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)<BR>                       <BR>                       Dim alignmentPoint(0 To 2) As Double<BR>                       alignmentPoint(0) = 100: alignmentPoint(1) = 100: alignmentPoint(2) = 0<BR>                       <BR>                       textObj.Alignment = acAlignmentMiddleCenter                               '改变文字对齐位置


                       textObj.TextAlignmentPoint = alignmentPoint<BR>                       textObj.Rotation = 1.57


                       ZoomExtents<BR>                       <BR>End Sub


(2) FontFile方法


Sub Example_FontFile()


                       Dim textStyle1 As AcadTextStyle


                       Dim newFontFile As String<BR>                       <BR>                       Set textStyle1 = ThisDrawing.ActiveTextStyle


                       ' Change the value for FontFile<BR>                       newFontFile = "romant.shx"<BR>                       textStyle1.fontFile = newFontFile<BR>                       <BR>End Sub


直接写"romant.shx"就可以了,只要它在AutoCAD搜索路径下.


(3) 扩展数据<BR>用SetXData方法. 任何数据都可以加扩展数据,图块也不例外.

wmz 发表于 2004-11-26 19:22:00

谢谢了!前两个问题基本弄清了.第三个问题:这SetxData方法的具体实现?

mccad 发表于 2004-11-26 21:10:00

看看SetXData方法的例子就可以明白。

wmz 发表于 2004-11-27 13:24:00

mccad发表于2004-11-26 21:10:00static/image/common/back.gif看看SetXData方法的例子就可以明白。


可是,我手头没有SetXData方法的例子的资料呀.我在本站搜索,结果如下:


查询条件：<FONT color=red>SetXData</FONT> 在所有分类的所有专题中 没有或没有找到任何文章


<BR>

wmz 发表于 2004-11-27 14:52:00

找到了,问题解决了,谢谢两位!


---闹半天,在本站的"对象模型"中.

birdsky 发表于 2007-12-11 13:02:00

跟着楼主学习了，长见识：）

兰州人 发表于 2007-12-12 17:37:00

<p>SetXData</p><p>Common AcadObject Methods-----通用AcadObject方法<br/><br/>SetXData Sets the extended data (XData), that is, instance-specific data associated<br/>with an object. Parameters: XDataType As Variant (array of<br/>Integers) and XDataValue As Variant (array of Variants).</p><p>SetXData集扩展数据（XData）--与物体数据关联，参数XDataType变量（整型数组）XDataValue数据变量。</p>
页: [1]
查看完整版本: [VBA]请教mccad老师关于写文字等几个问题