ownerid属性不能使用?
下面的案例是cad帮助文件中自带的,有人试过可以运行,但是我一运行就报错,问题就出在最后一行的OwnerID属性上,我将这个属性换成width也能正常运行,感觉应该是编译环境的问题,求教各位大佬是否有办法能够解决?Sub Example_OwnerID() ' This example creates an MText object in model space ' and then finds the OwnerID for the object. 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 = "This is the text string for the MText object" ' Creates the MText object Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text) ZoomAll MsgBox "The OwnerID for the MText object is: " & MTextObj.OwnerID End Sub
报错内容是:函数或接口标记为限制的,或函数使用了Visual basic中不支持的自动类型
顺便请教一下,cad2010的VBA编译器是否由中文版的?或者有中文包? 注意你的系统是多少位的,ownerID不行就试试OwnerID32.
感谢大佬,换了32就可以了,这难道是因为我64位的系统安装了32位的ide么? 有中文版,我的2010的VBA就是中文的。
页:
[1]