请问怎样将一行文字在指定位置写入CAD
<p><font size="4">请问怎样将一行文字在<font color="#ff3300">指定位置</font>写入CAD，要求<font color="#ff0000">使用某图层</font>，并且<font color="#ff0000">控制文字的大小、颜色</font>？</font></p><p><font size="4">请用vb写代码，谢谢！！！</font></p> <p>需要将CAD的类型库包含进来，定义CAD类的对象，然后定义一个ACADDOCUMENT对象，然后就像操作AutoCAD一样操作ACADDOCUMENT对象，在指定图层写入一定大小的文字，并修改其颜色即可</p> <p>还是不明白，请写具体代码。谢谢！！！</p> <pre class="Code">Sub Example_AddText()' 该示例在模型空间中创建一个文字对象。
Dim textObj As AcadText
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)
ZoomAll
End Sub</pre><pre class="Code"></pre><pre class="Code">多看下VBA的帮助</pre> 没有什么比vba的帮助好用的了 呵呵 <p>Option Explicit<br/>Dim acadApp As AutoCAD.AcadApplication<br/>Dim AcadDoc As AcadDocument</p><p>'标注文字<br/>Dim Styleobj As AcadTextStyle '汉字字体集合<br/>Set AcadDoc = acadApp.ActiveDocument<br/>acadApp.Visible = acTrue<br/>Set Styleobj = AcadDoc.TextStyles.Add("黑体")<br/>Styleobj.fontFile = "c:\windows\fonts\simhei.ttf"<br/>Set Styleobj = AcadDoc.TextStyles.Add("仿宋")<br/>Styleobj.fontFile = "c:\windows\fonts\simfang.ttf"<br/>Set Styleobj = AcadDoc.TextStyles.Add("楷体")<br/>Styleobj.fontFile = "c:\windows\fonts\simkai.ttf"</p><p>AcadDoc.ActiveTextStyle = AcadDoc.TextStyles.Add("仿宋")</p><p>Dim addtext As AcadText<br/>Dim textpoint As Variant<br/>Dim textstring As String<br/> textpoint = returnpnt<br/> 'textpoint(1) = textpoint(1) + 0.5<br/> Set addtext = AcadDoc.ModelSpace.addtext("你要写入到CAD的文字" , textpoint, 0.3)</p><p>Set layerobj = acadApp.ActiveDocument.Layers.Add("dotdesign") '创建一个层为DOTDESIGN<br/>layerobj.color = acGreen '将创建的层指定为绿色<br/>addtext.Update '指定对象到图层</p><p>Private Sub Form_Load()<br/>On Error Resume Next<br/>Set acadApp = GetObject(, "AutoCAD.Application")<br/>If Err Then<br/>Err.Clear<br/>Set acadApp = CreateObject("AutoCAD.Application")<br/>If Err Then End<br/>MsgBox ("你的系统未安装AutoCAD2004,请安装它才能使用本程序")<br/> Unload Me<br/> Exit Sub<br/> End If<br/>acadApp.WindowState = acMax</p><p>acadApp.Visible = True<br/>Set AcadDoc = acadApp.ActiveDocument<br/>End Sub</p>
页:
[1]