[VBA程序]：求助：如何用VBA在CAD上打出平方米就是m2，2是上标的那种？谢谢。

fyxzi · 发表于 2008-11-14 15:21:53

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如题，高手指点下啊，急用，谢谢先。

fedd · 发表于 2008-12-11 10:32:34

这个比较难啊

puweishang · 发表于 2008-12-13 09:31:36

天正CAD版教程
谢谢大家提供以下

eachy · 发表于 2008-12-14 16:05:54

选宋体输入 \u+33a1

ricaoricao80 · 发表于 2009-1-8 22:12:16

高手出来高手出来啊

jxlsp · 发表于 2009-5-8 11:40:16

用多行文字来表示.

lee50310 · 发表于 2018-11-4 23:43:01

本帖最后由 lee50310 于 2018-11-5 08:06 编辑

两种方式一种是 m后面接 \U+00B2
            另一种 m后面接 \A2;\H16;2

Sub txt()
Dim mytxt As AcadTextStyle    '定义mytxt变量为文本样式
Dim Mybk As AcadBlock
   pt = ThisDrawing.Utility.GetPoint(, "插入点 : ")
Set mytxt = ThisDrawing.TextStyles.Add("mytxt") '添加mytxt样式
mytxt.fontFile = "c:\windows\fonts\kaiu.ttf"                                     '设置字体文件为标楷体
mytxt.Height = 30                   '字高
mytxt.Width = 0.5                   '宽高比
mytxt.ObliqueAngle = ThisDrawing.Utility.AngleToReal(3, 0)                '倾斜角度 3度
ThisDrawing.ActiveTextStyle = mytxt                                                 '将当前文字样式设置为mytxt
Set txtobj = ThisDrawing.ModelSpace.AddMText(pt, 0, "500m\U+00B2")             '500m^2
Set txtobj = ThisDrawing.ModelSpace.AddMText(pt, 0, vbCrLf & "30m\A2;\H16;2")  '30m^2
txtobj.LineSpacingFactor = 2       '指定行间距
txtobj.AttachmentPoint = 3       '右对齐（1为左对齐，2为居中,3右对齐）
End Sub

账号		自动登录	找回密码
密码			立即注册

[VBA程序]：求助：如何用VBA在CAD上打出平方米就是m2，2是上标的那种？谢谢。

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子