怎么用VBA在CAD布局图中加文字

 我来答
bati8888
推荐于2017-10-05 · TA获得超过3716个赞
知道大有可为答主
回答量:4669
采纳率:0%
帮助的人:2049万
展开全部
Sub Example_AddText()

Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double

' Define the text object
textString = "Hello, World."
insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0
height = 0.5
ThisDrawing.ActiveLayout = ThisDrawing.Layouts("布局2") '激活指定布局
' Create the text object in model space
Set textObj = ThisDrawing.PaperSpace.AddText(textString, insertionPoint, height) '在图纸空间(刚激活的)添加文字;
ZoomAll

End Sub
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式