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

Question

Hi How to get all parts specific package and make them display via TCL script? 
 and any way can generate a report for designator which package are not displayed? 
 example: 
 i want to get report of package 0402 resistors which are not displayed and i got options to display one at a time or one by one. 
 i saw this to code get all 0402 but doesn't work well 
 set lAllRes [CapFindObjects $COrFindFilterDlg_PARTS {0402*}] foreach resistor $lAllRes { UnSelectAll set res [lindex $resistor 0] set Id [$res GetId [DboState]] SelectObjectById $Id SetDisplayType {Package} {1} UnSelectAll }

Thanks

CadAP · Accepted Answer

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

Stats

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

Community Guidelines