Using something like this
Code: Select all
_cadParams = New CADIterate
_cadParams.matrix = New CADMatrix
_cadParams.matrix.data(0, 0) = 1
_cadParams.matrix.data(1, 1) = 1
_cadParams.matrix.data(2, 2) = 1
_cadImage.Converter.AutoInsert = True
_cadImage.Converter.Iterate(New CADEntityProc(AddressOf Me.ReadCADEntitiesParamsToPDF), Nothing, _cadParams)