把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 文件里面存在这个参数

喜欢性感

怎么这么贵呢