怎样往AutoCAD里面插入已经做好的图块?

Question

一个已经做好的块,比如已经存到D盘的一个.dwg文件中,现在想把它插入到一个打开的AutoCAD文件中.请赐教!

Answer 1

Dim InsertPoint(0 To 2) As Double
    Dim insertedBlock As AcadExternalReference
    Dim tempBlock As AcadBlock
    Dim PathName As String    InsertPoint(0) = 1
    InsertPoint(1) = 1
    InsertPoint(2) = 0
    PathName = "D:/AutoCAD 2006/Sample/Car.dwg"    Set insertedBlock = ThisDrawing.ModelSpace. _
            AttachExternalReference(PathName, "XREF_IMAGE", _
            InsertPoint, 1, 1, 1, 0, False)