Methods

AddImage Method (IntelliCAD)

AddInfiniteLine Method (IntelliCAD)

Collapse All Expand All

InsertionPoint: A Point object identifying the point at which the image will be inserted.

ScaleFactor: A double-precision variable (or value) representing the raster image scale factor. The default image scale factor is 1. The scale factor must be a positive number.

RotationAngle: A double-precision variable (or value) representing the rotation angle in radians for the raster image.

Description

Adds an image.

Syntax

Visual Basic
Public Function AddImage( _ ByVal ImageFile As String, _ ByVal InsertionPoint As Point, _ Optional ByVal ScaleFactor As Double = 1, _ Optional ByVal RotationAngle As Double = 0 _ ) As Image

ImageFile: The full path and file name of the image.
InsertionPoint: A Point object identifying the point at which the image will be inserted.
ScaleFactor: A double-precision variable (or value) representing the raster image scale factor. The default image scale factor is 1. The scale factor must be a positive number.
RotationAngle: A double-precision variable (or value) representing the rotation angle in radians for the raster image.

Private Sub CommandButton12_Click()

'This example adds an image to the drawing and determines its properties.

Dim insPoint As IntelliCAD.Point

Dim scalefactor As Double

Dim rotationAngle As Double

Dim imageName As String

Dim rasterObj As IntelliCAD.Image

' Select the image.

imageName = "C:\Program Files\IntelliCAD\Samples\Dallas.bmp"

Set insPoint = Library.CreatePoint(4, 2, 0)

scalefactor = 1

rotationAngle = 0

' Add the image in model space

Set rasterObj = ThisDocument.ModelSpace.AddImage(imageName, insPoint, scalefactor, rotationAngle)

rasterObj.Update

ThisDocument.Application.ZoomExtents

' Determine properties of the image

MsgBox "The image file is: " & rasterObj.ImageFile

MsgBox "The image height is: " & rasterObj.ImageHeight & Chr(13) & "The image width is: " & rasterObj.ImageWidth

MsgBox "The image visibility is: " & rasterObj.ImageVisibility

End Sub