马上注册,结交更多同行朋友,交流,分享,学习。
您需要 登录 才可以下载或查看,没有帐号?注册
x
各位好!
我需要使用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会自动转换吗?
|