how to get a report of not displayed property and make it displayed via TCL script

Hi fSeyer ,

Please find the below code for your requirement.

Please do let me know your feedback after trying.

Please make change for below line if you want to change property name and value.

For example, below shared code I have filter out Package SIze and Value.

if {$lPropName == "Package Size" && $lPropValue == "0402"}

Please copy and paste below code in text file and save it as .tcl.

set lStatus [DboState]
set lDesign [GetActivePMDesign]
set lSchematicIter [$lDesign NewViewsIter $lStatus $::IterDefs_SCHEMATICS]
#get the first schematic view
set lView [$lSchematicIter NextView $lStatus]
set lNullObj NULL
set lPrpName [DboTclHelper_sMakeCString]
set lPrpValue [DboTclHelper_sMakeCString]
set lPrpType [DboTclHelper_sMakeDboValueType]
set lEditable [DboTclHelper_sMakeInt]
# set lPropNameCStr [DboTclHelper_sMakeCString "Tolerance"]
set rotation 0
set logfont [DboTclHelper_sMakeLOGFONT]
set lReferenceName [DboTclHelper_sMakeCString]
set color $::DboValue_DEFAULT_OBJECT_COLOR
# set displocation [DboTclHelper_sMakeCPoint ]
UnSelectAll
while { $lView != $lNullObj} {
#dynamic cast from DboView to DboSchematic
set lSchematic [DboViewToDboSchematic $lView]
#placeholder: do your processing on $lSchematic
set lPagesIter [$lSchematic NewPagesIter $lStatus]
#get the first page
set lPage [$lPagesIter NextPage $lStatus]
while {$lPage!=$lNullObj} {
#placeholder: do your processing on $lPage
set lPartInstsIter [$lPage NewPartInstsIter $lStatus]
#get the first part inst
set lInst [$lPartInstsIter NextPartInst $lStatus]
while {$lInst!=$lNullObj} {
#dynamic cast from DboPartInst to DboPlacedInst
set lPlacedInst [DboPartInstToDboPlacedInst $lInst]
if {$lPlacedInst != $lNullObj} {

$lPlacedInst GetReference $lReferenceName
set refdes [DboTclHelper_sGetConstCharPtr $lReferenceName]
#placeholder: do your processing on $lPlacedInst
set lPropsIter [$lPlacedInst NewEffectivePropsIter $lStatus]
#get the first display property on the object

if {[regexp -nocase {^C} $refdes] == 1} {
# puts $refdes
set lDProp [$lPropsIter NextEffectiveProp $lPrpName $lPrpValue $lPrpType $lEditable]
while {[$lDProp OK] == 1 } {
# $lDProp -delete
set lPropName [DboTclHelper_sGetConstCharPtr $lPrpName]
set lPropValue [DboTclHelper_sGetConstCharPtr $lPrpValue]
# puts [DboTclHelper_sGetConstCharPtr $lPrpName]
if {$lPropName == "Package Size" && $lPropValue == "0402"} {

puts $lPropName
puts $lPropValue
set partId [$lPlacedInst GetId $lStatus]
SelectObjectById $partId
# SetDisplayType {Package Size} 1
set partBBox [$lPlacedInst GetBoundingBox]
set partleftPointXY [DboTclHelper_sGetCRectTopLeft $partBBox]

if {[$lPlacedInst GetDisplayProp $lPrpName $lStatus] == $lNullObj } {

set pNewDispProp [$lPlacedInst NewDisplayProp $lStatus $lPrpName $partleftPointXY $rotation $logfont $color]
$pNewDispProp SetDisplayType $::DboValue_VALUE_ONLY
UnSelectAll

}
}
set lDProp [$lPropsIter NextEffectiveProp $lPrpName $lPrpValue $lPrpType $lEditable]
}
delete_DboEffectivePropsIter $lPropsIter
}
}
#get the next part inst
set lInst [$lPartInstsIter NextPartInst $lStatus]
}
delete_DboPagePartInstsIter $lPartInstsIter
#get the next page
set lPage [$lPagesIter NextPage $lStatus]
}
delete_DboSchematicPagesIter $lPagesIter
#get the next schematic view
set lView [$lSchematicIter NextView $lStatus]
}
delete_DboLibViewsIter $lSchematicIter

ZoomOut

Hi CadAP,

The code works as intended, Thank you!