Attaches a drawing to the project.

Add(DwgName As String) As AttachedDrawing

Returns the attached drawing.

DwgName

The alias path and file name of the drawing to be attached. For example, "ALIASNAME:\\DirName\\DwgName.dwg".

The following example attaches a drawing.

Dim prj As Project

Dim drset As DrawingSet

Dim atdr As AttachedDrawing

Dim amap As AcadMap

Set amap = ThisDrawing.Application. _

GetInterfaceObject("AutoCADMap.Application") 

Set prj = amap.Projects(ThisDrawing)

Set drset = prj.DrawingSet

Set atdr = drset.Add("ALIASNAME:\\DirName\\DwgName.dwg")