Hide Table of Contents

Insert Picture Example (VBA)

This example shows how to insert a picture in a drawing document.

'--------------------------------------------------------------

' Preconditions:

' 1. Create a VBA macro in a software product in which VBA is

'    embedded.

' 2. Copy and paste this example into the Visual Basic IDE.

' 3. Add a reference to the DraftSight type library,

'    install_dir\bin\dsAutomation.dll.

' 4. Change the path and file name of a raster image to insert.

' 5. Start DraftSight and open a drawing.

' 6. Run the macro.

'

' Postconditions: See the DraftSight Command Window for output

' messages and all of your drawing's immediate child references.

'--------------------------------------------------------------

Option Explicit

 

Sub main()

 

    Dim dsApp As DraftSight.Application

    Dim dsDoc As DraftSight.Document

    Dim dsModel As DraftSight.Model

    Dim dsSketchManager As DraftSight.SketchManager

    Dim dsReference As DraftSight.ReferenceImage

    'Dim dsPdfReference As DraftSight.PdfReference

    'Dim dsDgnReference As DraftSight.DgnReference

    Dim dsImageDefinition As DraftSight.ImageDefinition

    Dim dsPdfDefinition As DraftSight.PdfDefinition

    Dim dsDgnDefinition As DraftSight.DgnDefinition

    Dim extDefTypeArray As Variant

    Dim extDefArray As Variant

    Dim commandline As DraftSight.CommandMessage

   

    Dim imageFileName As String

   

    'Connect to DraftSight

    Set dsApp = GetObject(, "DraftSight.Application")

   

    'Abort any command currently running in DraftSight

    'to avoid nested commands

    dsApp.AbortRunningCommand

   

    Set commandline = dsApp.GetCommandMessage()

   

    'Get active document

    Set dsDoc = dsApp.GetActiveDocument()

    If Not dsDoc Is Nothing Then

   

        'Get model space

        Set dsModel = dsDoc.GetModel()

       

        'Get Sketch Manager

        Set dsSketchManager = dsModel.GetSketchManager()

       

        'Specify raster image (*.png) to insert into the sketch

        'Or you can specify a DGN or PDF reference

        imageFileName = "c:\test\list.png"

       

        'Insert raster image

        Set dsReference = dsSketchManager.InsertPicture(imageFileName, 0#, 0#, 0#, 1#, 0#)

        'Or insert a DGN or PDF reference

        'Set dsDgnReference = dsSketchManager.InsertDgn(imageFileName,...)

        'Set dsPdfReference = dsSketchManager.InsertPdf(imageFileName,...)

        

        If dsReference Is Nothing Then

            commandline.PrintLine imageFileName & " file not found."

        Else

            commandline.PrintLine "A reference was inserted in the drawing."

        End If

    Else

        commandline.PrintLine "There are no open documents in DraftSight."

    End If

   

    'Get definition of the inserted raster image

    Set dsImageDefinition = dsReference.GetDefinition()

    'Or get the definition of the inserted DGN or PDF reference

    'Set dsPdfDefinition = dsPdfReference.GetDefinition()

    'Set dsDgnDefinition = dsDgnReference.GetDefinition()

    commandline.PrintLine "Image is loaded? " & dsImageDefinition.IsLoaded

   

    'Get all immediate child references of the active document

    'In addition to the just inserted raster image, your drawing may

    'contain other immediate child references

    dsDoc.GetImmediateChildReferences extDefTypeArray, extDefArray

   

    Dim objecttype As dsObjectType_e

    Dim objectdefinition As Object

    Dim i As Long

   

    For i = 0 To UBound(extDefTypeArray)

   

        objecttype = extDefTypeArray(i)

        Set objectdefinition = extDefArray(i)

       

        If (objecttype = dsObjectType_e.dsImageDefinitionType) Then

            Set dsImageDefinition = objectdefinition

            commandline.PrintLine "Path: " & dsImageDefinition.GetPath()

            commandline.PrintLine "Found In Path: " & dsImageDefinition.GetFoundInPath()

        ElseIf (objecttype = dsObjectType_e.dsPdfDefinitionType) Then

            Set dsPdfDefinition = objectdefinition

            commandline.PrintLine "Path: " & dsPdfDefinition.GetPath()

            commandline.PrintLine "Found In Path: " & dsPdfDefinition.GetFoundInPath()

        ElseIf (objecttype = dsObjectType_e.dsDgnDefinitionType) Then

            Set dsDgnDefinition = objectdefinition

            commandline.PrintLine "Path: " & dsDgnDefinition.GetPath()

            commandline.PrintLine "Found In Path: " & dsDgnDefinition.GetFoundInPath()

        End If

    Next

   

End Sub



Provide feedback on this topic

SOLIDWORKS welcomes your feedback concerning the presentation, accuracy, and thoroughness of the documentation. Use the form below to send your comments and suggestions about this topic directly to our documentation team. The documentation team cannot answer technical support questions. Click here for information about technical support.

* Required

 
*Email:  
Subject:   Feedback on Help Topics
Page:   Insert Picture Example (VBA)
*Comment:  
*   I acknowledge I have read and I hereby accept the privacy policy under which my Personal Data will be used by Dassault Systèmes

Print Topic

Select the scope of content to print:




x

We have detected you are using a browser version older than Internet Explorer 7. For optimized display, we suggest upgrading your browser to Internet Explorer 7 or newer.

 Never show this message again
x

Web Help Content Version: API Help (English only) 2024 SP02

To disable Web help from within SOLIDWORKS and use local help instead, click Help > Use SOLIDWORKS Web Help.

To report problems encountered with the Web help interface and search, contact your local support representative. To provide feedback on individual help topics, use the “Feedback on this topic” link on the individual topic page.