把3D文档的参数值写到二维图的文字里面
Sub InsertAttributeLink()Dim para As Parameter
Set para = mass '(3D 文件的一个参数)
Dim mytext As DrawingText
Set mytext = drwdoc.Sheets.ActiveSheet.Views.ActiveView.Texts.Add("", 0, 0) '在(0,0)位置添加一个文 字对象
mytext.InsertVariable 0, 0, para
End Sub
以上语句是把 3D 文档的参数值写到二维图的文字里面,并且保持自动更新,实际上就是用 宏实现 Insert Attribute Link,前提是 3D 文件里面存在这个参数 怎么这么贵呢
页:
[1]