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!

CadAP 

Sorry for bothering, I have tried the code and it worked well except the position of the property name.
The code:

set partBBox [$lPlacedInst GetBoundingBox]
set partleftPointXY [DboTclHelper_sGetCRectTopLeft $partBBox]

I guess it will make the part has a very large frame and the property name will show at the bottom-right of the frame.
Can you help to check it out?

try to replace with this, you can adjust depend on your reference

set partBBox [$lPlacedInst GetBoundingBox]
set lRot [$lPlacedInst GetRotation $lStatus]

if { $lRot == 0} {
set partleftPointXY [DboTclHelper_sMakeCPoint 60 -8]
}
if { $lRot == 1} {
set partleftPointXY [DboTclHelper_sMakeCPoint 20 30]
}