Request
Quote
Buy now
Register
Product
Remote
Support

Support

As evidenced by over 30 years of development history, trust-worthy Korean CAD, CADian!

FAQ · 2013.12.11
CADian VBA Sample Code - 15 [ Insert Image ]
CADian VBA Usage -15 [Insert Image ]

Use only Bmp format file ...

objectVariable = object.AddImage(ImageFile, [InsertionPoint, ScaleFactor, RotationAngle])


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\IntelliCAD2000\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.ImageVisibility = True
rasterObj.Update

"" 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
Previous Article
CADian VBA Sample Code - 16 [ Find out the file name ] ..
Next Article
CADian VBA Sample Code - 14 [ UCS #2 ] ..
Return to List

Added to cart.

VIEW CART

Please sign in first.

JOIN