InputFile

Specify the file to be converted

Property Let InputFile As String

Width

Set output image width in pixels

Property Let Width As Long

Height

Set output image height in pixels

Property Let Height As Long

Background

Set background of output image，1~255, same as AutoCAD color index

Property Let Background As Long

ImageFormat

Set output image format. 

0-- BMP
1-- JPEG
2-- GIF
3-- PNG
4-- TIFF

Property Let ImageFormat As Integer

ZoomType

Set Zoom Type 

1-- Zoom All
2-- Zoom Extend

Property Let ZoomType As Integer

ViewCount

Get the view counts in the dwg file.

Property Get ViewCount As Long

ViewName

Get the view name by index. 

Parameters
nIndex

index of view.

Property Get ViewName(nIndex As Long) As String

ViewWidth

Get the view width by index

Parameters
view

View name or view index.

Property Get ViewWidth(view) As Double

ViewHeight

Get the view height by index 

Parameters
view

View name or view index.

Property Get ViewHeight(view) As Double

Version

Get the version, possible return value: R9, R10, R11/12, R13, R14, R2000, R2002, R2004, Unknown

Property Get Version As String

PenWidth

Set pen width ( line width)  in pixels, default value is 1.

Parameters
colorIndex

AutoCAD color index, 0~255, 0-black, 7-white

Property Get/Set PenWidthy(colorIndex As Long) As Long

ColorMode

Set output image's color

0-- color;
1-- white and black

Property Set ColorMode As Long

AddFontPath

Add AutoCAD font path. The converter will search font file in these paths 

Parameters
szPath

Where AutoCAD font file located.

Convert

Convert the drawing file to image.

Sub Convert(szOutputFileName As String, view)

Sample Code (in VB) for your reference:

Dim objImage
On Error Resume Next
Set objImage= CreateObject("DWG2ImageX.Converter")

objImage.Width = 1024
objImage.Height = 768
objImage.ImageFormat = 2         '1--jpeg, 2--gif
objImage.InputFile = "c:\My Drawings\8th floor furniture.dwg"
MsgBox objImage.Version             'Get the drawing file version.

MsgBox "Total "& objImage.ViewCount &" Views"
For I=1 to objImage.ViewCount
strViewName = objImage.ViewName(I)
MsgBox "Converting view: "& strViewName& "..."

nWidth = objImage.ViewWidth(I)
nHeight= objImage.ViewHeight(I)
MsgBox "Width="&nWidth&" Height="&nHeight

strOutput = "c:\Output\"&strViewName
objImage.Convert strOutput, strViewName
Next

If Err.Number < 0 Then
MsgBox Err.Description
End If