[Circuit] Orcad TCL 介紹

程式語言：Tcl
Orcad 官方文件
GitHub 範例

功能：可用 Tcl 語言控制 Orcad

執行方法

View->Toolbar->Command Window Menu

查詢指令

  • 查詢
    • info command *xxx*
  • 印出目前動作指令
    • SetOptionBool Journaling TRUE
      SetOptionBool DisplayCommands TRUE
  • 記錄動作過程的指令
    • Macro -> record
      Macro -> configure -> saveas

基本介紹

  • Design Database Object Model
    • 使用於電路
  • Library Database Object Model
    • 使用於 library
  • Database class hierarchy
    • 查詢指令必須連同繼承的一併查詢，才足夠完整
      例如：DboLib
      info commands DboLib_* 和 info commands DboBaseObject_*
  • 基本
    • 變數
      • 賦值
        • 名字前不用加上 $
        • set x 20
      • 印值
        • 名字前需加上 $
        • puts $x
    • command 中的 subcommand
      • [subcommand]
        • puts [set x 20]
      • 可多個，不限定個數
    • 字串
      • puts "xxx $abc"
        後者的 $abc 將被當作變數替換掉
      • puts {xxx $abc}
        當作 raw data 直接輸出 xxx $abc
    • List
      • 賦值：list xxx yyy
        • set ls [list "Cadence Design" Systems]
      • 長度：llength $ls
        • puts [llength $ls]
      • 第 n 個的值：lindex $ls n
        • puts [lindex $ls 0]
    • 數學
    • 自定函數
      • proc
        • proc mul {i j} {
          expr {$i*$j}
          }
      • 輸入變數前不用加上 $
    • if、foreach、proc 等的大括號 { 必須在同一行，不然會出錯
    • Tcl 版本
      • puts $tcl_version
    • 呼叫的方法
      • command_with_classname $object <parameters>
        • DboLib_GetName $lLib $lName
      • $object command_without_classname <parameters>
        • $lLib GetName $lName
    • 字串轉換
      • set lName [DboTclHelper_sMakeCString]
        • 因大部分的指令參數皆為 CString，需進行轉換
      • puts [DboTclHelper_sGetConstCharPtr $lName]
        • 要印出時，還得再轉換回來
    • 內建的轉換函式
      • DboTclHelper_sMakeLOGFONT
      • DboTclHelper_sMakeBitmap
      • DboTclHelper_sMakeBitMapData
      • DboTclHelper_sMakeDboValue
      • DboTclHelper_sMakeStdVector
      • DboTclHelper_sMakeInt
      • DboTclHelper_sMakeStdStr
      • DboTclHelper_sMakeCPoint
      • DboTclHelper_sMakeCString
      • DboTclHelper_sMakeDboValueType
      • DboTclHelper_sMakeCRect
      • DboTclHelper_sGetCRectTopLeft
      • DboTclHelper_sGetCPointX
      • DboTclHelper_sGetCPointY
      • DboTclHelper_sGetVectorSize
      • DboTclHelper_sGetConstCharPtr
      • DboTclHelper_sGetCRectBottomRight
      • DboTclHelper_sGetConstCharPtrFromVector
    • source {xxx.tcl}
      • 執行 tcl script
    • set lSelObjs [GetSelectedObjects]
      • 得到選取的物件
    • RegisterAction <Label> <Enabler> <Accel> <Callback> <ViewType>
      • 註冊指令至右鍵 more
      • <Label>
        • 顯示的名字
      • <Enabler>
        • Enable 的條件
      • <Accel>
        • 快捷鍵
      • <Callback>
        • 執行的 function
      • <ViewType>
        • 指定可作用的 View，例： Schematic, PM, Empty; Value
      RegisterAction "Context-Aware Rotate" "::capGUIUtils::capCARotateEnabler" "Ctrl+R" "::capGUIUtils::capCARotate" "Schematic
    • 得到 Parts 的 attributes
      1. # get the name 
      2. set lName [DboTclHelper_sMakeCString] 
      3. $lInst GetName $lName 
      4.    
      5. # get the location point 
      6. set lLocation [$lInst GetLocation $lStatus] 
      7.    
      8. # get the location x 
      9. set lStartx [DboTclHelper_sGetCPointX $lLocation] 
      10.    
      11. # get the location y 
      12. set lStarty [DboTclHelper_sGetCPointY $lLocation] 
      13.    
      14. # get the source library name 
      15. set lLibName [DboTclHelper_sMakeCString] 
      16. $lInst GetSourceLibName $lLibName  
      17.    
      18. # get the device designator 
      19. set lDeviceDesignator [DboTclHelper_sMakeCString] 
      20. $lInst GetReferenceDesignator $lDeviceDesignator  
      21.   
      22. # get the rotation 
      23. set lRot [$lInst GetRotation $lStatus] 
      24.    
      25. #get the contents lib name 
      26. set lContentsLibName [DboTclHelper_sMakeCString] 
      27. $lInst GetContentsLibName $lContentsLibName 
      28.    
      29. # get the contents view name 
      30. set lContentsViewName [DboTclHelper_sMakeCString] 
      31. $lInst GetContentsViewName $lContentsViewName 
      32.    
      33. # get the contents view type 
      34. set lType [$lInst GetContentsViewType $lStatus] 
      35.    
      36. # get the primitive type 
      37. set lPrimitiveType [$lInst GetIsPrimitiveProp $lStatus] 
      38.    
      39. # get the part value 
      40. set lValue [DboTclHelper_sMakeCString] 
      41. $lInst GetPartValue $lValue 
      42.    
      43. # get the reference 
      44. set lReferenceName [DboTclHelper_sMakeCString] 
      45. $lInst GetReference $lReferenceName 
      46.    
      47. # get the bounding box on the page 
      48. set lBBox [$lInst GetOffsetBoundingBox $lStatus] 
      49.    
      50. # get the top-left of the bbox 
      51. set lTopLeft [DboTclHelper_sGetCRectTopLeft $lBBox] 
      52.    
      53. # get the bottom-right of the bbox 
      54. set lBottomRight [DboTclHelper_sGetCRectBottomRight $lBBox] 
      55.    
      56. # get the x1 
      57. set lStartx [DboTclHelper_sGetCPointX $lTopLeft] 
      58.    
      59. # get the y1 
      60. set lStarty [DboTclHelper_sGetCPointY $lTopLeft] 
      61.    
      62. # get the x2 
      63. set lEndx [DboTclHelper_sGetCPointX $lBottomRight] 
      64.    
      65. # get the y2 
      66. set lEndy [DboTclHelper_sGetCPointY $lBottomRight]
    • 得到 wire attributes 
      1. # get the name 
      2. set lName [DboTclHelper_sMakeCString] 
      3. $ lWire GetName $lName 
      4.  
      5. # get the net name 
      6. set lNetName [DboTclHelper_sMakeCString] 
      7. $lWire GetNetName $lNetName 
      8.  
      9. # get the start point 
      10. set  lStart [$lWire GetStartPoint $lStatus] 
      11. set lStartx [DboTclHelper_sGetCPointX $lStart] 
      12. set lStarty [DboTclHelper_sGetCPointY $lStart] 
      13.  
      14. # get the end point 
      15. set lEnd [$lWire GetEndPoint $lStatus] 
      16. set lEndx [DboTclHelper_sGetCPointX $lEnd] 
      17. set lEndy [DboTclHelper_sGetCPointY $lEnd] 
      18.  
      19. # get the color 
      20. set lColor [$lWire GetColor $lStatus] 
      21.  
      22. # get the net 
      23. set lNet [$lWire GetNet $lStatus]
    • 其他範例可參考官方文件的 3.2.2~3.2.28.6

程式碼

Custom_Launch.tcl
放到右鍵執行 
  1. # 放到 C:\Cadence\SPB_16.6\tools\capture\tclscripts\capAutoLoad
  2.  
  3. package require Tcl 8.4
  4. package require DboTclWriteBasic 16.3.0
  5. package provide capGUIUtils 1.0
  6.  
  7. set root {D:\Sun\Work\Software\MyCode\Tcl\Orcad}
  8.  
  9. source [file join $root replaceGlobalPower.tcl]
  10. source [file join $root AddNetsToParts.tcl]
  11. source [file join $root showProperty.tcl]
  12. source [file join $root controlDBC.tcl]
showProperty.tcl
顯示所有的 Property 
  1. # source {D:\Sun\Work\Software\MyCode\Tcl\Orcad\showProperty.tcl}
  2. package require Tcl 8.4
  3. package require DboTclWriteBasic 16.3.0
  4.  
  5. namespace eval ::capGUIUtils {
  6.     RegisterAction "ShowProperty" "::capGUIUtils::capShowPropertyEnabler" "" "::capGUIUtils::capShowProperty" "Schematic"
  7. }
  8.  
  9. proc ::capGUIUtils::capShowPropertyEnabler {} {
  10.     set lEnableAdd 0
  11.     # Get the selected objects
  12.     set lSelObjs [GetSelectedObjects]
  13.  
  14.     # Enable only for single object selection
  15.     if { [llength $lSelObjs] == 1 } { 
  16.         # Enable only if a part or a hierarchical block is selected 
  17.         set lObj [lindex $lSelObjs 0] 
  18.         set lObjType [DboBaseObject_GetObjectType $lObj] 
  19.         set lEnableAdd 1 
  20.     } 
  21.             
  22.     return $lEnableAdd
  23. }
  24.  
  25. proc ::capGUIUtils::capShowProperty {} {
  26.     set lStatus [DboState]
  27.     set lNullObj NULL
  28.     
  29.     set lSelObjs [GetSelectedObjects]
  30.     set lInst [lindex $lSelObjs 0] 
  31.     ::capGUIUtils::showUserPropsIter $lInst
  32.     ::capGUIUtils::showDisplayProps $lInst
  33.     ::capGUIUtils::showEffectiveProps $lInst
  34. }
  35.  
  36. proc ::capGUIUtils::showUserPropsIter {lObject} {
  37.     set lStatus [DboState]
  38.     set lPropsIter [$lObject NewUserPropsIter $lStatus] 
  39.  
  40.     set lNullObj NULL 
  41.  
  42.     #get the first user property on the object 
  43.     set lUProp [$lPropsIter NextUserProp $lStatus] 
  44.  
  45.     while {$lUProp != $lNullObj } { 
  46.  
  47.         #placeholder: do your processing on $lUProp 
  48.         set lName [DboTclHelper_sMakeCString] 
  49.  
  50.         set lValue [DboTclHelper_sMakeCString] 
  51.  
  52.         $lUProp GetName $lName 
  53.         $lUProp GetStringValue $lValue 
  54.         puts "[DboTclHelper_sGetConstCharPtr $lName]: [DboTclHelper_sGetConstCharPtr $lValue]"
  55.  
  56.  
  57.         #get the next user property on the object 
  58.         set lUProp [$lPropsIter NextUserProp $lStatus] 
  59.  
  60.     } 
  61.  
  62.     delete_DboUserPropsIter $lPropsIter
  63. }
  64.  
  65. proc ::capGUIUtils::showDisplayProps {lObject} {
  66.     set lStatus [DboState]
  67.     set lPropsIter [$lObject NewDisplayPropsIter $lStatus] 
  68.  
  69.     set lNullObj NULL 
  70.  
  71.     #get the first display property on the object 
  72.     set lDProp [$lPropsIter NextProp $lStatus] 
  73.  
  74.     while {$lDProp != $lNullObj } { 
  75.  
  76.         #placeholder: do your processing on $lDProp 
  77.  
  78.         #get the name 
  79.         set lName [DboTclHelper_sMakeCString] 
  80.         $lDProp GetName $lName
  81.  
  82.         #get the location 
  83.         set lLocation [$lDProp GetLocation $lStatus] 
  84.  
  85.         #get the rotation 
  86.         set lRot [$lDProp GetRotation $lStatus] 
  87.  
  88.         #get the font 
  89.         set lFont [DboTclHelper_sMakeLOGFONT] 
  90.         set lStatus [$lDProp GetFont $::DboLib_DEFAULT_FONT_PROPERTY $lFont] 
  91.  
  92.         #get the color 
  93.         set lColor [$lDProp GetColor $lStatus] 
  94.         
  95.         puts "lName:[DboTclHelper_sGetConstCharPtr $lName], lLocation:([DboTclHelper_sGetCPointX $lLocation], [DboTclHelper_sGetCPointY $lLocation]), lRot:$lRot, lFont:$lFont, lColor:$lColor"
  96.  
  97.         #get the next display property on the object 
  98.         set lDProp [$lPropsIter NextProp $lStatus] 
  99.  
  100.     } 
  101.  
  102.     delete_DboDisplayPropsIter $lPropsIter 
  103. }
  104.  
  105. proc ::capGUIUtils::showEffectiveProps {lObject} {
  106.     set lStatus [DboState]
  107.     set lPropsIter [$lObject NewEffectivePropsIter $lStatus] 
  108.  
  109.     set lNullObj NULL 
  110.  
  111.     #create the input/output parameters 
  112.     set lPrpName [DboTclHelper_sMakeCString] 
  113.     set lPrpValue [DboTclHelper_sMakeCString] 
  114.     set lPrpType [DboTclHelper_sMakeDboValueType] 
  115.     set lEditable [DboTclHelper_sMakeInt] 
  116.  
  117.     #get the first effective property 
  118.     set lStatus [$lPropsIter NextEffectiveProp $lPrpName $lPrpValue $lPrpType $lEditable] 
  119.  
  120.     while {[$lStatus OK] == 1} { 
  121.  
  122.     #placeholder: do your processing for $lPrpName $lPrpValue $lPrpType $lEditable 
  123.     puts "lPrpName:[DboTclHelper_sGetConstCharPtr $lPrpName], lPrpValue:[DboTclHelper_sGetConstCharPtr $lPrpValue], lPrpType:$lPrpType, lEditable:$lEditable"
  124.  
  125.     #get the next effective property 
  126.     set lStatus [$lPropsIter NextEffectiveProp $lPrpName $lPrpValue $lPrpType $lEditable] 
  127.  
  128.     } 
  129.  
  130.     delete_DboEffectivePropsIter $lPropsIter
  131. }
replaceGlobalPower.tcl
取代 Global Power 改為命名的線 
  1. # source {D:\Sun\Work\Software\MyCode\Tcl\Orcad\replaceGlobalPower.tcl}
  2. package require Tcl 8.4
  3. package require DboTclWriteBasic 16.3.0
  4. # package provide capGUIUtils 1.0
  5.  
  6. namespace eval ::capGUIUtils {
  7.     # namespace export capRemoveSelectedGlobalsEnabler
  8.     # namespace export capRemoveSelectedGlobals
  9.     # namespace export capRemoveAllGlobals
  10.  
  11.     RegisterAction "Remove Selected Globals" "::capGUIUtils::capRemoveSelectedGlobalsEnabler" "" "::capGUIUtils::capRemoveSelectedGlobals" "Schematic"
  12.     RegisterAction "Remove All Globals" "return 1" "" "::capGUIUtils::capRemoveAllGlobals" "Schematic"
  13. }
  14.  
  15. proc ::capGUIUtils::capRemoveSelectedGlobalsEnabler {} {
  16.     set lEnableDS 0
  17.     # Get the selected objects
  18.     set lSelObjs [GetSelectedObjects]
  19.  
  20.     # Enable only for single object selection
  21.     foreach lSelObj $lSelObjs {
  22.         set lObjType [DboBaseObject_GetObjectType $lSelObj]
  23.         puts "objType: $lObjType"
  24.         if { $lObjType == 37} {
  25.             return 1
  26.         }        
  27.     }
  28.             
  29.     return $lEnableDS
  30. }
  31.  
  32. proc ::capGUIUtils::capRemoveAllGlobals {} {    
  33.     set lStatus [DboState]
  34.     set lNullObj NULL
  35.     
  36.     set lSession $::DboSession_s_pDboSession
  37.     DboSession -this $lSession
  38.     
  39.     # set lDesignsIter [$lSession NewDesignsIter $lStatus]
  40.     # get the first design
  41.     # set lDesign [$lDesignsIter NextDesign $lStatus]
  42.     # delete_DboSessionDesignsIter $lDesignsIter
  43.     set lDesign [$lSession GetActiveDesign]
  44.  
  45.     set lSchematicIter [$lDesign NewViewsIter $lStatus $::IterDefs_SCHEMATICS]
  46.     #get the first schematic view
  47.     set lView [$lSchematicIter NextView $lStatus]
  48.     while {$lView != $lNullObj} {
  49.         #dynamic cast from DboView to DboSchematic
  50.         set lSchematic [DboViewToDboSchematic $lView]
  51.         set lSchematicName [_getName $lSchematic]
  52.         #placeholder: do your processing on $lSchematic
  53.         set lPagesIter [$lSchematic NewPagesIter $lStatus]
  54.         #get the first page
  55.         set lPage [$lPagesIter NextPage $lStatus]
  56.         while {$lPage != $lNullObj} {
  57.             #placeholder: do your processing on $lPage  
  58.             set lPageName [_getName $lPage]
  59.             OPage $lSchematicName $lPageName
  60.             ::capGUIUtils::IterAllGlobal $lPage
  61.             
  62.             #get the next page
  63.             set lPage [$lPagesIter NextPage $lStatus]
  64.         }
  65.         delete_DboSchematicPagesIter $lPagesIter
  66.         
  67.         #get the next schematic view
  68.         set lView [$lSchematicIter NextView $lStatus]
  69.     }
  70.     delete_DboLibViewsIter $lSchematicIter  
  71. }
  72.  
  73. proc ::capGUIUtils::replaceNowPageAll {} {
  74.     if { [IsSchematicViewActive] == 1 } { 
  75.         set lPage [GetActivePage]
  76.         ::capGUIUtils::IterAllGlobal $lPage
  77.     } else {
  78.         capDisplayMessageBox "No schematic view active" "warning"
  79.     }
  80. }
  81.  
  82. proc ::capGUIUtils::IterAllGlobal {lPage} {
  83.     set lStatus [DboState]
  84.     set lNullObj NULL
  85.     
  86.     #placeholder: do your processing on $lPage            
  87.     set lGlobalsIter [$lPage NewGlobalsIter $lStatus]      
  88.     #get the first global 
  89.     set lGlobal [$lGlobalsIter NextGlobal $lStatus] 
  90.     while { $lGlobal != $lNullObj } { 
  91.         #placeholder: do your processing on $lGlobal 
  92.         ::capGUIUtils::replacePowerToNetName $lGlobal
  93.  
  94.         #get the next global 
  95.         set lGlobal [$lGlobalsIter NextGlobal $lStatus] 
  96.     } 
  97.     delete_DboPageGlobalsIter $lGlobalsIter 
  98. }
  99.     
  100. proc ::capGUIUtils::capRemoveSelectedGlobals {} {
  101.     set lSelObjs [GetSelectedObjects]
  102.     foreach lSelObj $lSelObjs {
  103.         set lObjType [DboBaseObject_GetObjectType $lSelObj]
  104.         # puts $lObjType
  105.         if { $lObjType == 37} {
  106.             ::capGUIUtils::replacePowerToNetName $lSelObj
  107.         }
  108.         
  109.     }
  110. }
  111.  
  112. proc ::capGUIUtils::replacePowerToNetName {lGlobal} {
  113.     set ClSymbolName [DboTclHelper_sMakeCString]
  114.     $lGlobal GetSourceSymbolName $ClSymbolName
  115.     set lSymbolName [DboTclHelper_sGetConstCharPtr $ClSymbolName]
  116.     puts "\nSymbolName: $lSymbolName"
  117.             
  118.     # 得到名字
  119.     set lGlobalName [DboTclHelper_sMakeCString]
  120.     $lGlobal GetName $lGlobalName
  121.     set lWireName [DboTclHelper_sGetConstCharPtr $lGlobalName]
  122.     puts "WireName: $lWireName"
  123.     if { [regexp {GND} $lWireName] } {
  124.         return
  125.     }
  126.     
  127.     # 得到座標
  128.     set lStatus [DboState]
  129.     set lLocation [$lGlobal GetLocation $lStatus]
  130.     set lStartX [expr [DboTclHelper_sGetCPointX $lLocation]/100.0]
  131.     set lStartY [expr [DboTclHelper_sGetCPointY $lLocation]/100.0]
  132.     puts "Start: $lStartX , $lStartY"
  133.     
  134.     # 得到端點座標
  135.     set lHotSpotPoint [$lGlobal GetOffsetHotSpot $lStatus]
  136.     set lHotSpotPointX [expr [DboTclHelper_sGetCPointX $lHotSpotPoint]/100.0]
  137.     set lHotSpotPointY [expr [DboTclHelper_sGetCPointY $lHotSpotPoint]/100.0]
  138.     puts "HotSpotPointY: $lHotSpotPointX , $lHotSpotPointY"
  139.     
  140.     # 得到中心座標
  141.     set center [::capGUIUtils::_getCenter $lGlobal]
  142.     set centerX [expr [DboTclHelper_sGetCPointX $center]/100.0]
  143.     set centerY [expr [DboTclHelper_sGetCPointY $center]/100.0]
  144.     puts "center: $centerX , $centerY"
  145.     
  146.     # 得到旋轉方向
  147.     set rotattion [$lGlobal GetRotation $lStatus]
  148.     
  149.     # 命名線並畫線
  150.     switch $rotattion {
  151.         0 { # 上
  152.             set wireX [expr $lHotSpotPointX]
  153.             set wireY [expr $lHotSpotPointY]
  154.             PlaceWire $lHotSpotPointX $lHotSpotPointY [expr $lHotSpotPointX+0.01] [expr $lHotSpotPointY+0]
  155.         }
  156.         1 { # 左
  157.             set wireX [expr $lHotSpotPointX]
  158.             set wireY [expr $lHotSpotPointY]
  159.             PlaceWire $lHotSpotPointX $lHotSpotPointY [expr $lHotSpotPointX+0] [expr $lHotSpotPointY-0.01]
  160.         }
  161.         2 { # 下
  162.             set wireX [expr $lHotSpotPointX]
  163.             set wireY [expr $lHotSpotPointY]
  164.             PlaceWire $lHotSpotPointX $lHotSpotPointY [expr $lHotSpotPointX+0.01] [expr $lHotSpotPointY+0]
  165.         }
  166.         3 { # 右
  167.             set wireX [expr $lHotSpotPointX]
  168.             set wireY [expr $lHotSpotPointY]
  169.             PlaceWire $lHotSpotPointX $lHotSpotPointY [expr $lHotSpotPointX+0] [expr $lHotSpotPointY-0.01]
  170.         }
  171.         default {
  172.             puts "No define $rotattion"
  173.         }
  174.     }
  175.     puts "wire: $wireX , $wireY"
  176.     
  177.     # 刪除 Global
  178.     UnSelectAll
  179.     SelectObject [expr $centerX] [expr $centerY] True
  180.     Delete
  181.     
  182.     PlaceNetAlias $wireX $wireY $lWireName
  183. }
  184.  
  185. proc ::capGUIUtils::_getName {obj} {
  186.     set lname [DboTclHelper_sMakeCString]
  187.     $obj GetName $lname
  188.     return [DboTclHelper_sGetConstCharPtr $lname]
  189. }
  190.  
  191. proc ::capGUIUtils::_getCenter {obj} {
  192.     set lStatus [DboState]
  193.     # set lBBox [$obj GetBoundingBox]
  194.     
  195.     # set left [DboTclHelper_sGetCPointX [DboTclHelper_sGetCRectTopLeft  $lBBox]]
  196.     # set top [DboTclHelper_sGetCPointY [DboTclHelper_sGetCRectTopLeft  $lBBox]]
  197.     # set right [DboTclHelper_sGetCPointX [DboTclHelper_sGetCRectBottomRight  $lBBox]]
  198.     # set Bottom [DboTclHelper_sGetCPointY [DboTclHelper_sGetCRectBottomRight  $lBBox]]
  199.     
  200.     # 得到端點座標
  201.     set lHotSpotPoint [$obj GetOffsetHotSpot $lStatus]
  202.     set lHotSpotPointX [DboTclHelper_sGetCPointX $lHotSpotPoint]
  203.     set lHotSpotPointY [DboTclHelper_sGetCPointY $lHotSpotPoint]
  204.     
  205.     # 加入 offset
  206.     switch [$obj GetRotation $lStatus] {
  207.         0 { # 上
  208.             set offsetX 0
  209.             set offsetY -5
  210.         }
  211.         1 { # 左
  212.             set offsetX -5
  213.             set offsetY 0
  214.         }
  215.         2 { # 下
  216.             set offsetX 0
  217.             set offsetY 5
  218.         }
  219.         3 { # 右
  220.             set offsetX 5
  221.             set offsetY 0
  222.         }
  223.         default {
  224.             set offsetX 0
  225.             set offsetY 0
  226.         }
  227.     }
  228.     
  229.     set centerX [expr $lHotSpotPointX + $offsetX]
  230.     set centerY [expr $lHotSpotPointY + $offsetY]
  231.     
  232.     set center [DboTclHelper_sMakeCPoint $centerX $centerY]
  233.     return $center
  234. }
AddNetsToParts.tcl
將 Parts 的 Pin 畫上線 
  1. # source {D:\Sun\Work\Software\MyCode\Tcl\Orcad\AddNetsToParts.tcl}
  2. package require Tcl 8.4
  3. package require DboTclWriteBasic 16.3.0
  4. # package provide capGUIUtils 1.0
  5.  
  6. namespace eval ::capGUIUtils {
  7.     # namespace export capAddNetsToPartEnabler
  8.     # namespace export capAddNetsToPart
  9.  
  10.     RegisterAction "Add Nets To Part" "::capGUIUtils::capAddNetsToPartEnabler" "" "::capGUIUtils::capAddNetsToPart" "Schematic"
  11. }
  12.  
  13. proc ::capGUIUtils::capAddNetsToPartEnabler {} {
  14.     set lEnableAdd 0
  15.     # Get the selected objects
  16.     set lSelObjs [GetSelectedObjects]
  17.  
  18.     # Enable only for single object selection
  19.     if { [llength $lSelObjs] == 1 } { 
  20.         # Enable only if a part or a hierarchical block is selected 
  21.         set lObj [lindex $lSelObjs 0] 
  22.         set lObjType [DboBaseObject_GetObjectType $lObj] 
  23.         puts "objType: $lObjType"
  24.         if { $lObjType == 13} { 
  25.             set lEnableAdd 1 
  26.         } 
  27.     } 
  28.             
  29.     return $lEnableAdd
  30. }
  31.  
  32. proc ::capGUIUtils::capAddNetsToPart {} {    
  33.     set lPage [GetActivePage]
  34.     set lUnits [$lPage GetIsMetric]
  35.     if { $lUnits } {
  36.         capDisplayMessageBox "請將 Page Units 改為 inch" "Error"
  37.         return
  38.     }
  39.     
  40.     set lStatus [DboState]
  41.     set lNullObj NULL
  42.     
  43.     set lSelObjs [GetSelectedObjects]
  44.     set lInst [lindex $lSelObjs 0] 
  45.     
  46.     set lIter [$lInst NewPinsIter $lStatus] 
  47.  
  48.     #get the first pin of the part 
  49.     set lPin [$lIter NextPin $lStatus] 
  50.  
  51.     while {$lPin != $lNullObj } { 
  52.         #placeholder: do your processing on $lPin 
  53.         ::capGUIUtils::capAddNetToPin $lPin
  54.  
  55.         #get the next pin of the part 
  56.         set lPin [$lIter NextPin $lStatus] 
  57.     } 
  58.     delete_DboPartInstPinsIter $lIter 
  59. }
  60.  
  61. proc ::capGUIUtils::capAddNetToPin {lPin} {    
  62.     set lStatus [DboState]
  63.     set lNullObj NULL
  64.     set lWireLength 0.5
  65.     
  66.     # 跳過已畫線
  67.     set lWire [$lPin GetWire $lStatus]
  68.     puts "lWire：$lWire"
  69.     if {$lWire != $lNullObj} {
  70.         return
  71.     }
  72.     
  73.     # 得到 Pin Name
  74.     set lPinName [DboTclHelper_sMakeCString]
  75.     $lPin GetPinName $lPinName
  76.     set lPinName [DboTclHelper_sGetConstCharPtr $lPinName]
  77.     puts "lPinName: $lPinName"
  78.     
  79.     # 得到起始座標
  80.     set lStatus [DboState]
  81.     set lStartPoint [$lPin GetOffsetStartPoint $lStatus]
  82.     set lStartPointX [expr [DboTclHelper_sGetCPointX $lStartPoint]/100.0]
  83.     set lStartPointY [expr [DboTclHelper_sGetCPointY $lStartPoint]/100.0]
  84.     puts "Start: $lStartPointX , $lStartPointY"
  85.     
  86.     # 得到端點座標
  87.     set lHotSpotPoint [$lPin GetOffsetHotSpot $lStatus]
  88.     set lHotSpotPointX [expr [DboTclHelper_sGetCPointX $lHotSpotPoint]/100.0]
  89.     set lHotSpotPointY [expr [DboTclHelper_sGetCPointY $lHotSpotPoint]/100.0]
  90.     puts "HotSpotPointY: $lHotSpotPointX , $lHotSpotPointY"
  91.     
  92.  
  93.     # 畫線方向
  94.     set offsetX 0
  95.     set offsetY 0
  96.     if {$lHotSpotPointX > $lStartPointX} {
  97.         set offsetX $lWireLength
  98.     } elseif {$lHotSpotPointX < $lStartPointX} {
  99.         set offsetX [expr -$lWireLength]
  100.     }
  101.     if {$lHotSpotPointY > $lStartPointY} {
  102.         set offsetY $lWireLength
  103.     } elseif {$lHotSpotPointY < $lStartPointY} {
  104.         set offsetY [expr -$lWireLength]
  105.     }    
  106.     puts "offset: $offsetX , $offsetY"
  107.     
  108.     PlaceWire $lHotSpotPointX $lHotSpotPointY [expr $lHotSpotPointX+$offsetX] [expr $lHotSpotPointY+$offsetY]
  109.     PlaceNetAlias [expr $lHotSpotPointX+$offsetX/2] [expr $lHotSpotPointY+$offsetY/2] $lPinName
  110.     
  111.     if {$offsetY != 0} {
  112.         set lWire [$lPin GetWire $lStatus]
  113.         set lAliasIter [$lWire NewAliasesIter $lStatus] 
  114.         #get the first alias of wire  
  115.         set lAlias [$lAliasIter NextAlias $lStatus] 
  116.         $lAlias SetRotation 3
  117.         delete_DboWireAliasesIter $lAliasIter
  118.     }
  119. }
controlDBC.tcl
控制 Database 
  1. # source {D:\Sun\Work\Software\MyCode\Tcl\Orcad\controlDBC.tcl}
  2.  
  3. # 顯示 DBC 路徑
  4. proc showDBCName {} {
  5.     set lCfg [OrCISGetDbcConfig]
  6.     set lString [::CPMgtCfg_GetIniDBCName $lCfg]
  7.     puts [DboTclHelper_sGetConstCharPtr $lString]
  8. }
  9.  
  10. # 進資料庫選擇元件，並擺放位置
  11. proc placePartsInDB {value x y} {
  12.     MenuCommand "14567" 
  13.     # "0402/0R*"
  14.     CISAddSearchQuery VALUE = $value
  15.     CISExecuteQuery
  16.     CISExplorerSelectOption 1 1 0
  17.     CISExplorerSelectOption 1 1 1
  18.     capMoveMouseAndClick $x $y
  19.     EndPlace()
  20. }
  21.  
  22. #選擇指定值的零件
  23. proc selectRefbyValue {lregValue} {
  24.     set lSession $::DboSession_s_pDboSession
  25.     DboSession -this $lSession
  26.  
  27.     set lStatus [DboState]
  28.     set lNullObj NULL
  29.  
  30.     set lDesignsIter [$lSession NewDesignsIter $lStatus]
  31.     # get the first design
  32.     set lDesign [$lDesignsIter NextDesign $lStatus]
  33.  
  34.     while {$lDesign != $lNullObj} {
  35.         # placeholder: do your processing on $lDesign
  36.         set lSchematicIter [$lDesign NewViewsIter $lStatus $::IterDefs_SCHEMATICS]
  37.         #get the first schematic view
  38.         set lView [$lSchematicIter NextView $lStatus]
  39.         while {$lView != $lNullObj} {
  40.             #dynamic cast from DboView to DboSchematic
  41.             set lSchematic [DboViewToDboSchematic $lView]
  42.             #placeholder: do your processing on $lSchematic
  43.             set lPagesIter [$lSchematic NewPagesIter $lStatus]
  44.             #get the first page
  45.             set lPage [$lPagesIter NextPage $lStatus]
  46.             set lNullObj NULL
  47.             while {$lPage != $lNullObj} {
  48.                 #placeholder: do your processing on $lPage
  49.                 set lPartInstsIter [$lPage NewPartInstsIter $lStatus]
  50.                 #get the first part inst
  51.                 set lInst [$lPartInstsIter NextPartInst $lStatus]
  52.                 while { $lInst != $lNullObj } {
  53.                     set lRef [DboTclHelper_sMakeCString] 
  54.                     $lInst GetReference $lRef
  55.                     set lRef [DboTclHelper_sGetConstCharPtr $lRef]
  56.                     
  57.                     set lValue [DboTclHelper_sMakeCString] 
  58.                     $lInst GetPartValue $lValue
  59.                     set lValue [DboTclHelper_sGetConstCharPtr $lValue]
  60.                     
  61.                     puts "$lRef: $lValue"
  62.                     if { [regexp $lregValue $lValue] } {
  63.                         selectRefInDBC $lRef
  64.                     }                    
  65.  
  66.                     set lInst [$lPartInstsIter NextPartInst $lStatus]
  67.                 }
  68.                 delete_DboPagePartInstsIter $lPartInstsIter
  69.                 
  70.                 #get the next page
  71.                 set lPage [$lPagesIter NextPage $lStatus]
  72.             }
  73.             delete_DboSchematicPagesIter $lPagesIter
  74.  
  75.             
  76.             #get the next schematic view
  77.             set lView [$lSchematicIter NextView $lStatus]
  78.         }
  79.         delete_DboLibViewsIter $lSchematicIter
  80.  
  81.  
  82.         # get the next design
  83.         set lDesign [$lDesignsIter NextDesign $lStatus]
  84.     }
  85.     delete_DboSessionDesignsIter $lDesignsIter
  86. }
  87.  
  88.  
  89. proc selectRefInDBC {lRef} {
  90.     # ui::PMActivate "c:/users/chihchieh.sun/desktop/test/tt.opj"
  91.     # Menu "Tools::Part Manager::Open"
  92.     # set lPM [GetPartManagerView]
  93.     SelectGroup Groups Common $lRef
  94. }
  95.  
  96. proc linkDB {} {
  97.     LinkDataBasePart
  98.     CISExplorerSelectOption 1 1 0
  99.     CISExplorerSelectOption 1 1 1
  100. }
  101.  
  102. proc deleteSelect {} {
  103.     MenuCommand "33014"  | MessageBox "YES" "INFO(ORCIS-6327): Are you sure"
  104. }

參考

Tcl/Tk 教學文件
Welcome to the Tclers Wiki!

留言

張貼留言