How do I use the TCL command to save an image and a Visio drawing file from a DSN file as a new file?

Hi FK202606088435 ,

Please try the following TCL code on a selected image on schematic page:

set bmpInst [GetSelectedObjects]
set bmp [$bmpInst GetDboBitMap]

set outStr [DboTclHelper_sMakeStdStr ""]
set status [DboState]

DboBitMap_sGetBase64ImageData $bmp $outStr $status

set base64Data [DboTclHelper_sGetConstCharPtr $outStr]

COrBase64Encoder_decodeToFile $base64Data "c:/temp/image.png"

Hope this helps!

Hi FK202606088435 ,

Please try the following TCL code on a selected image on schematic page:

set bmpInst [GetSelectedObjects]
set bmp [$bmpInst GetDboBitMap]

set outStr [DboTclHelper_sMakeStdStr ""]
set status [DboState]

DboBitMap_sGetBase64ImageData $bmp $outStr $status

set base64Data [DboTclHelper_sGetConstCharPtr $outStr]

COrBase64Encoder_decodeToFile $base64Data "c:/temp/image.png"

Hope this helps!

Nice solution! Thank you very much.

Regarding retrieving the text content and formatting from a circuit page using TCL commands,
I need the text content, text size, font, and font style.

I'd like to ask if there are TCL commands that can extract the same information as in File→Export→Design XML in the following UI interface?

<GraphicCommentTextInst>
<Defn color="48" dbId="1715717" locX="21" locY="19" name="001 COVER PAGE" rotation="0" textJustification="0" x1="21" x2="261" y1="19" y2="47"/>
<TextFont>
<Defn charset="0" escapement="0" height="-27" italic="0" name="Arial" orientation="0" weight="700" width="0"/>
</TextFont>
</GraphicCommentTextInst>

Below is an example of an error I encountered when trying to retrieve font format, text size, and text font:

# Retrieving LOGFONT object index (but pure TCL cannot parse its internal fields)
# set lFont [DboGraphicCommentTextInst_sGetFont $lTextInst $lStatus]

Hi FK202606088435 ,

To retrieve the text content, you can try:

set lObjs [GetSelectedObjects]
set lComment [$lObj GetDboCommentText]
set txt [DboTclHelper_sMakeCString]
$lComment GetText $txt
puts "Text: [DboTclHelper_sGetConstCharPtr $txt]"

You can also iterate through the effective properties of the selected text object which will return text, bounding box, font name, etc:

proc EffectivePropsAll {lObject} {
set lStatus [DboState]
set lPropsIter [$lObject NewEffectivePropsIter $lStatus]
set lPrpName [DboTclHelper_sMakeCString]
set lPrpValue [DboTclHelper_sMakeCString]
set lPrpType [DboTclHelper_sMakeDboValueType]
set lEditable [DboTclHelper_sMakeInt]

set lStatus [$lPropsIter NextEffectiveProp $lPrpName $lPrpValue $lPrpType $lEditable]
while {[$lStatus OK] == 1} {
puts "[DboTclHelper_sGetConstCharPtr $lPrpName] = [DboTclHelper_sGetConstCharPtr $lPrpValue]"
set lStatus [$lPropsIter NextEffectiveProp $lPrpName $lPrpValue $lPrpType $lEditable]
}
delete_DboEffectivePropsIter $lPropsIter
}

EffectivePropsAll [GetSelectedObjects]

Hope this helps!