|
|
各位好！
我需要使用vbscript为在指定的位置插入块，如果使用鼠标点击返回的点插入程序不会有问题，程序如下：
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会自动转换吗？ |
|
置顶卡
