Using Programming Languages other than VBA

Sub Example_AttachExternalReference()
	' This example displays all the blocks in the current drawing
	' before and after adding an external reference.
	'
	' This example uses the "city map.dwg" found in the Sample
	' directory. If you do not have this drawing, or if it is 
	' in a different directory, insert a valid path and file name
	' for the PathName variable below.

	Dim InsertPoint(0 To 2) As Double
	Dim insertedBlock As AcadExternalReference
	Dim tempBlock As AcadBlock
	Dim msg As String, PathName As String

	' Define external reference to be inserted
	InsertPoint(0) = 1: InsertPoint(1) = 1: InsertPoint(2) = 0
	PathName = "c:\program files\autocad\sample\city map.dwg"

	' Display current Block information for this drawing
	GoSub ListBlocks

	' Add the external reference to the drawing
	Set insertedBlock = ThisDrawing.ModelSpace.AttachExternalReference(PathName, "XREF_IMAGE", InsertPoint, 1, 1, 1, 0, False)
	
	ThisDrawing.Application.ZoomAll

	' Display new Block information for this drawing
	GoSub ListBlocks

	Exit Sub

ListBlocks:
	msg = vbCrLf	' Reset message

	For Each tempBlock In ThisDrawing.Blocks
		msg = msg & tempBlock.name & vbCrLf	 ' Add Block to list
	Next

	MsgBox "The current blocks in this drawing are: " & msg

	Return
End Sub

 





Internal Server Error
The server encountered an internal error or
misconfiguration and was unable to complete
your request.
Please contact the server administrator at 
 webmaster@entercad.forsenergy.ru to inform them of the time this error occurred,
 and the actions you performed just before this error.
More information about this error may be available
in the server error log.
Additionally, a 500 Internal Server Error
error was encountered while trying to use an ErrorDocument to handle the request.