Translate

terça-feira, 10 de janeiro de 2012

VBA: Inserir imagem Autocad, GstarCad, ZwCad


Hoje, vou mostrar como podemos fazer uma rotina em VBA para inserir uma imagem.

Imaginem que têm uma rotina que vos prepara a folha de trabalho, onde têm de incluir uma imagem no logo.

Para Autocad :


Option Explicit

Sub inserir_imagem()
Dim insertionPoint(0 To 2) As Double
Dim scalefactor As Double
Dim rotationAngle As Double
Dim nomeimagem As String

Dim rasterOBj As AcadRasterImage
nomeimagem = "c:\imagem.jpg"

insertionPoint(0) = 12#: insertionPoint(1) = 2#: insertionPoint(2) = 0#
scalefactor = 1#
rotationAngle = 0

Set rasterOBj = ThisDrawing.ModelSpace.AddRaster(nomeimagem, insertionPoint, scalefactor, rotationAngle)

End Sub


Para GstarCad :


Option Explicit

Sub inserir_imagem()

Dim insertionPoint(0 To 2) As Double
Dim scalefactor As Double
Dim rotationAngle As Double
Dim nomeimagem As String

Dim rasterObj As GcadRasterImage
nomeimagem = "c:\imagem.jpg"

insertionPoint(0) = 12#: insertionPoint(1) = 2#: insertionPoint(2) = 0#
scalefactor = 1#
rotationAngle = 0

Set rasterObj = thisDrawing.ModelSpace.AddRaster(nomeimagem, insertionPoint, scalefactor, rotationAngle)


End Sub


Para ZwCad : 


Option Explicit

Sub inserir_imagem()
Dim insertionPoint(0 To 2) As Double
Dim scalefactor As Double
Dim rotationAngle As Double
Dim nomeimagem As String

Dim rasterOBj As ZwcadRasterImage
nomeimagem = "c:\imagem.jpg"

insertionPoint(0) = 12#: insertionPoint(1) = 2#: insertionPoint(2) = 0#
scalefactor = 1#
rotationAngle = 0

Set rasterOBj = ThisDocument.ModelSpace.AddRaster(nomeimagem, insertionPoint, scalefactor, rotationAngle)

End Sub


Para Bricscad :


Option Explicit

Sub inserir_imagem()
Dim insertionPoint(0 To 2) As Double
Dim scalefactor As Double
Dim rotationAngle As Double
Dim nomeimagem As String

Dim rasterOBj As AcadRasterImage
nomeimagem = "c:\imagem.jpg"

insertionPoint(0) = 12#: insertionPoint(1) = 2#: insertionPoint(2) = 0#
scalefactor = 1#
rotationAngle = 0

Set rasterOBj = ThisDrawing.ModelSpace.AddRaster(nomeimagem, insertionPoint, scalefactor, rotationAngle)

End Sub


Obrigado a todos.

Boa programação

Sem comentários:

Enviar um comentário