|
发表于 2005-1-19 10:32:00
|
显示全部楼层
Dim blockRefObj1 As AcadBlockReference
insertionPnt(0) = 200
insertionPnt(1) = 250
insertionPnt(2) = 0
'Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "e:\新代码\xwfh.dwg", 1#, 1#, 1#, 0)
Set blockRefObj1 = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "xwfh_qtd", 1#, 1#, 1#, 0) |
|