本帖最后由 作者 于 2008-12-17 17:24:07 编辑
哪位大虾给我指出错误,为什么会出错? 块文件和dvb都在同一个目录下,AutoCAD是2006 sp1版本的 错误如附件。 程序如下: Private Sub test() '测试插入块 Dim objblkref As AcadBlockReference Dim insertionPnt(0 To 2) As Double insertionPnt(0) = 0 insertionPnt(1) = 0 insertionPnt(2) = 0 Set objblkref = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "块.dwg", 1, 1, 1, 0) End Sub
|