ImageVisibility Example

Using Programming Languages other than VBA

Sub Example_ImageVisibility()
	' This example inserts a raster image and finds the current status
	' of ImageVisibility for the image. It then changes the ImageVisibility
	' status of the image.

	' This example uses the "downtown.jpg" found in the Sample
	' directory. If you do not have the image, or if it is located
	' in a different directory, insert a valid path and name for the
	' imageName variable below.
	Dim insertionPoint(0 To 2) As Double
	Dim scalefactor As Double
	Dim rotAngleInDegree As Double, rotAngle As Double
	Dim imageName As String
	Dim raster As AcadRasterImage
	imageName = "C:\AutoCAD\sample\downtown.jpg"
	insertionPoint(0) = 2#: insertionPoint(1) = 2#: insertionPoint(2) = 0#
	scalefactor = 1#
	rotAngleInDegree = 0#
	rotAngle = rotAngleInDegree * 3.141592 / 180#

	On Error Resume Next

	' Creates a raster image in model space
	Set raster = ThisDrawing.ModelSpace.AddRaster(imageName, insertionPoint, scalefactor, rotAngle)
	If Err.Description = "File error" Then
		MsgBox imageName & " could not be found."
		Exit Sub
	End If

	' Find the current ImageVisibility
	ThisDrawing.Regen True
	MsgBox "The ImageVisibility is currently set to: " & raster.ImageVisibility, vbInformation

	' Change the ImageVisibility
	If (raster.ImageVisibility) Then
		raster.ImageVisibility = False
	Else
		raster.ImageVisibility = True
	End If
	ThisDrawing.Regen True
	MsgBox "The ImageVisibility is now set to: " & raster.ImageVisibility, vbInformation
End Sub

 

   Comments?