7
30
1
初露锋芒
使用道具 举报
请先注册会员后在进行下载
已注册会员,请先登录后下载
举报
16
909
8
中流砥柱
Option ExplicitSub Example_AddMtext() ' This example creates an MText object in model space. Dim MTextObj As AcadMText Dim corner(0 To 2) As Double Dim width As Double Dim text As String corner(0) = 0#: corner(1) = 10#: corner(2) = 0# width = 10 text = "我终于能够写入了" & vbCrLf & "我终于能够写入了" ' Creates the mtext Object Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text) ZoomAll End Sub
本版积分规则 发表回复 回帖后跳转到最后一页
微信公众平台
扫描访问手机版
点击图片下载手机App
|关于我们|小黑屋|乐筑天下 繁體中文
GMT+8, 2025-3-16 18:58 , Processed in 0.883631 second(s), 73 queries .
© 2020-2025 乐筑天下
在线时间:10:00-17:00
暂无
扫一扫,关注我们
帮助中心
关于我们
下载APP客户端