【Orcad Tcl源码】原理图转换踩坑记:如何用Tcl脚本揪出OrCAD中隐藏的管脚错误

# ============================================================#  export_pins.tcl#  功能：遍历当前OrCAD工程的所有器件，导出位号、管脚号与管脚名#  用法：在Command Window输入 source {D:/export_pins.tcl}# ============================================================set lStatus [DboState]set lNullObj NULLset lOutFile "D:/pin_list.txt"# 1. 智能获取当前工程 (Design)set lDesign ""if { [catch {set lDesign [GetActivePMDesign]}] == 0 && $lDesign != $lNullObj && $lDesign != "" } {    # 成功获取到顶层设计} else {    # 后备方案：从当前打开的页面顺藤摸瓜找工程    if { [catch {set lPage [GetActivePage]}] == 0 && $lPage != $lNullObj && $lPage != "" } {        set lSchem [$lPage GetSchematic $lStatus]        set lDesign [$lSchem GetDesign $lStatus]    } else {        puts "Error: Cannot find active design. Please open a schematic page or select the .dsn file."        return    }}set all_pins_list {}# 2. 遍历整个工程里的所有“视图/文件夹” (Views)set lViewsIter [$lDesign NewViewsIter $lStatus]set lView [$lViewsIter NextView $lStatus]while { $lView != $lNullObj } {    if { [catch {set lSchematic [DboViewToDboSchematic $lView]}] == 0 && $lSchematic != $lNullObj } {        # 3. 遍历当前文件夹下的所有页面 (Pages)        set lPageIter [$lSchematic NewPagesIter $lStatus]        set pPage [$lPageIter NextPage $lStatus]        while { $pPage != $lNullObj } {            # 4. 遍历当前页面上的所有器件            set lPartInstsIter [$pPage NewPartInstsIter $lStatus]            set lInst [$lPartInstsIter NextPartInst $lStatus]            while { $lInst != $lNullObj } {                set lPlacedInst [DboPartInstToDboPlacedInst $lInst]                if { $lPlacedInst != $lNullObj } {                    # 获取实际显示的位号                    set lRef [DboTclHelper_sMakeCString]                    set lRefProp [DboTclHelper_sMakeCString "Part Reference"]                    $lPlacedInst GetEffectivePropStringValue $lRefProp $lRef                    set lRefStr [DboTclHelper_sGetConstCharPtr $lRef]                    if { $lRefStr == "" } {                        $lPlacedInst GetReferenceDesignator $lRef                        set lRefStr [DboTclHelper_sGetConstCharPtr $lRef]                    }                    # 遍历器件管脚                    set lPinIter [$lPlacedInst NewPinsIter $lStatus]                    set lPin [$lPinIter NextPin $lStatus]                    while { $lPin != $lNullObj } {                        set lPinName [DboTclHelper_sMakeCString]                        $lPin GetPinName $lPinName                        set lPinNameStr [DboTclHelper_sGetConstCharPtr $lPinName]                        set lPinNum [DboTclHelper_sMakeCString]                        $lPin GetPinNumber $lPinNum                        set lPinNumStr [DboTclHelper_sGetConstCharPtr $lPinNum]                        # 追加到内存列表                        lappend all_pins_list [list $lRefStr $lPinNumStr $lPinNameStr]                        set lPin [$lPinIter NextPin $lStatus]                    }                    catch {delete_DboPartInstPinsIter $lPinIter}                }                set lInst [$lPartInstsIter NextPartInst $lStatus]            }            catch {delete_DboPagePartInstsIter $lPartInstsIter}            set pPage [$lPageIter NextPage $lStatus]        }        catch {delete_DboSchematicPagesIter $lPageIter}    }    set lView [$lViewsIter NextView $lStatus]}catch {delete_DboDesignViewsIter $lViewsIter}# 检查是否成功抓取数据if { [llength $all_pins_list] == 0 } {    puts "Warning: No pins found in the entire design. File not created."    return}# 5. 全局字典序排序 (先排位号，再排管脚号)set sorted_all_pins [lsort -dictionary $all_pins_list]# 6. 一次性格式化写入文件set lFh [open $lOutFile w]puts $lFh [format "%-15s %-15s %-20s" "Reference" "PinNumber" "PinName"]puts $lFh [format "%-15s %-15s %-20s" "---------" "---------" "-------"]foreach pin_data $sorted_all_pins {    set pRef  [lindex $pin_data 0]    set pNum  [lindex $pin_data 1]    set pName [lindex $pin_data 2]    puts $lFh [format "%-15s %-15s %-20s" $pRef $pNum $pName]}close $lFhputs "Done: Pin list of the ENTIRE DESIGN has been successfully written to $lOutFile"