iCAx开思网

标题: 请教：使用vbscript为AutoCAD在指定的位置插入块的问题？！ [打印本页]

作者: fatkids 时间: 2011-11-7 09:50
标题: 请教：使用vbscript为AutoCAD在指定的位置插入块的问题？！
各位好！
   我需要使用vbscript为AutoCAD在指定的位置插入块，如果使用鼠标点击返回的点插入程序不会有问题，程序如下：
   set AcadApp = createobject("AutoCAD.Application")
   AcadApp.Visible = true

   pt = AcadApp.ActiveDocument.Utility.GetPoint(,"选择插入点")  '此时的pt为double型数组

   set blockRef = AcadApp.ActiveDocument.ModelSpace.InsertBlock(pt, "e:\my_test.dwg", 1, 1, 1, 0)

但是，如果通过程序制定了插入点，就会报错，错误内容为：Microsoft VBScript runtime error: Invalid procedure call or argument（）。
程序如下：
   set AcadApp = createobject("AutoCAD.Application")
   AcadApp.Visible = true

   dim pt(2) '此时的pt为variant型
   pt(0)=40.00
   pt(1)=50.00
   pt(2)=0.00

   set blockRef = AcadApp.ActiveDocument.ModelSpace.InsertBlock(pt, "e:\my_test.dwg", 1, 1, 1, 0)

不同点就在于pt类型不同，这个要怎么处理啊？请各位帮忙看看，谢谢啦！
不是说variant会自动转换吗？

欢迎光临 iCAx开思网 (https://www.icax.org/)