Question

VBA 在CAD中添加标注不显示

我想在CAD中用VBA添加文字标注，是在CASS做的图形下。可是显示不出来。下面是我的代码
Private Sub CommandButton2_Click()
Dim textPoint(0 To 2) As Double '声明文字插入点
Dim textHeight As Double '声明文字高度
Dim textStr As String '声明字符串
Dim textObject As AcadText '声明文字对象
textPoint(0) = 368481 '设置插入点的X坐标
textPoint(1) = 292151 '设置插入点的Y坐标
textPoint(2) = 0 '设置插入点的Z坐标
textHeight = 10 '设置文字高度为10
textStr = "我是标注 " '设置字符串
'创建text对象
Set textObject = ThisDrawing.ModelSpace.AddText _
(textStr, textPoint, textHeight)
ThisDrawing.Application.ZoomExtents '根据实际范围计算缩放
textObject.Update '更新显示图形对象
End Sub

我在CAD自己见的图形文件中能够标注 显示。可是放到CASS的图形里却不能。CASS图里面有数据，用CASS画的图的标注是有的，也是能正常显示的
我想是不是由于坐标系统的问题，跪求VBA高手解答。

Answer 1

有一顷隐招可以显示 你把标注改雀携厅成图片 剪切到cass里隐搏面就好了 或者把cad 标注文件件放到cass里面

Answer 2

图层是不是关掉了？