【debug求助】输出PCB上元器件的高度数据

Eason

新手求助，今天让豆包编写能输出PCB上元器件的高度数据，一直调试不成功功能细节：
1、执行后在 "Package Geometry" 中新建 subclass”Comp_Height_Top“和”Comp_Height_Bottom“。
2、然后遍历所有元件，对于元件没有 placebound 的，或者 placebound 没有高度的，根据其所处TOP/BOTTOM面在”Comp_Height_Top“和”Comp_Height_Bottom“元件中心位置添加字符 "N/A"。
3、对于有 placebound 且填写了 Package_Height_Max的元件，在图层元件中心对应位置以毫米为单位添加高度数据字符



以下为代码：
;; =============================================================================;; File: comp_height_label_final.il;; Version: 1.0 (Verified stable version);; Function: Auto-label component height on Package Geometry layers;; Requirement: Manually create Comp_Height_Top / Comp_Height_Bottom under Package Geometry;; Usage: Type 'export_comp_height' in command line;; =============================================================================;; ------------------------------;; Helper: Safe uppercase conversion (nil-proof);; ------------------------------(defun safeUpper (str)  (if (stringp str)    (upperCase str)    ""  ));; ------------------------------;; Helper: Get user property value from object;; ------------------------------(defun getUserProp (obj propName)  (let (props result propNameUpper)    (setq propNameUpper (safeUpper propName))    (setq props (obj->userProps))    (foreach prop props      (when (equal (safeUpper (car prop)) propNameUpper)        (setq result (cadr prop))        (return result)      )    )    result  ));; ------------------------------;; Helper: Clear old labels on target layer;; ------------------------------(defun clearLayerTexts (layerFullName designDB)  (let (targetUpper txts clsName subName layerName)    (setq targetUpper (safeUpper layerFullName))    (setq txts nil)    (foreach txt (designDB->texts)      (when (txt->layer)        (setq clsName (safeUpper ((txt->layer)->class)->name))        (setq subName (safeUpper (txt->layer)->name))        (setq layerName (strcat clsName "/" subName))        (when (equal layerName targetUpper)          (setq txts (cons txt txts))        )      )    )    (when txts      (foreach txt txts        (axlDBDeleteObject txt)      )      (axlMsgPut "Cleared %d old labels on %s" (length txts) layerFullName)    )  ));; ------------------------------;; Main Function;; ------------------------------(defun ExportCompHeight ()  (prog (designDB compList topLayerName bottomLayerName heightPropName        cntTotal cntTop cntBottom cnthasHeight cntNoHeight)        ;; --- Configuration (可自行修改) ---    (setq topLayerName "PACKAGE GEOMETRY/Comp_Height_Top")    (setq bottomLayerName "PACKAGE GEOMETRY/Comp_Height_Bottom")    (setq heightPropName "PACKAGE_HEIGHT_MAX")        ;; Counters    (setq cntTotal 0)    (setq cntTop 0)    (setq cntBottom 0)    (setq cntHasHeight 0)    (setq cntNoHeight 0)        ;; --- Initialization ---    (setq designDB (axlDBGetDesign))    (if (null designDB)      (progn        (axlUIConfirm "Error: No design open!")        (return)      )    )        ;; Clear old labels before generating new ones    (clearLayerTexts topLayerName designDB)    (clearLayerTexts bottomLayerName designDB)        ;; Get all components    (setq compList (designDB->components))    (setq cntTotal (length compList))    (axlMsgPut "Total components: %d" cntTotal)        ;; Process each component    (foreach comp compList      (let (sym xy sideStr targetLayer rot mirrorFlag                  heightVal textStr textOrient ret)                ;; 1. Get basic component info        (setq sym (comp->symbol))        (if sym          (setq xy (sym->xy))          (setq xy nil)        )        (setq sideStr (safeUpper (comp->side)))        (setq rot (comp->rotation))                ;; Skip if no valid coordinate        (when xy          ;; 2. Determine target layer and mirror flag          (if (equal sideStr "BOTTOM")            (progn              (setq targetLayer bottomLayerName)              (setq mirrorFlag t)              (setq cntBottom (1+ cntBottom))            )            (progn              (setq targetLayer topLayerName)              (setq mirrorFlag nil)              (setq cntTop (1+ cntTop))            )          )                    ;; 3. Multi-level height reading (comp → symbol → placebound)          (setq heightVal nil)          ;; Level 1: Component's own user properties          (setq heightVal (getUserProp comp heightPropName))          ;; Level 2: Symbol user properties          (when (and (null heightVal) sym)            (setq heightVal (getUserProp sym heightPropName))          )          ;; Level 3: Placebound shape user properties          (when (and (null heightVal) sym (sym->shapes))            (foreach shp (sym->shapes)              (when (and (null heightVal) (shp->layer))                (let (shpClass shpSub)                  (setq shpClass (safeUpper ((shp->layer)->class)->name))                  (setq shpSub (safeUpper (shp->layer)->name))                  (when (and (equal shpClass "PACKAGE GEOMETRY")                             (strstr shpSub "PLACE_BOUND"))                    (setq heightVal (getUserProp shp heightPropName))                  )                )              )            )          )                    ;; 4. Format height text (convert to mm, 2 decimal places)          (if heightVal            (progn              (setq cntHasHeight (1+ cntHasHeight))              (let (h_mm)                (setq h_mm (axlMKSConvert heightVal 'mm))                (setq textStr (sprintf nil "%.2f" h_mm))              )            )            (progn              (setq cntNoHeight (1+ cntNoHeight))              (setq textStr "N/A")            )          )                    ;; 5. Create text orientation (follow component rotation, bottom mirror)          (setq textOrient (make_axlTextOrientation                              ?rotation rot                              ?mirrored mirrorFlag                              ?justify "Center"                            ))                    ;; 6. Create text label (verified 4-parameter format)          (setq ret (axlDBCreateText                      textStr                      xy                      textOrient                      targetLayer                    ))        )      )    )        ;; Result summary    (axlMsgPut "=== Generation Complete ===")    (axlMsgPut "Total processed: %d" cntTotal)    (axlMsgPut "Top side: %d, Bottom side: %d" cntTop cntBottom)    (axlMsgPut "Has height value: %d, No height data: %d" cntHasHeight cntNoHeight)    (axlVisibleUpdate t)  ));; ------------------------------;; Command Registration;; ------------------------------(when (fboundp 'axlCmdRegister)  (axlCmdRegister "export_comp_height" 'ExportCompHeight))(axlMsgPut "Loaded: comp_height_label_final.il | Type 'export_comp_height' to run.")

Eason

;; =============================================================================
;; File: comp_height_label_final.il
;; Version: 1.0 (Verified stable version)
;; Function: Auto-label component height on Package Geometry layers
;; Requirement: Manually create Comp_Height_Top / Comp_Height_Bottom under Package Geometry
;; Usage: Type 'export_comp_height' in command line
;; =============================================================================

;; ------------------------------
;; Helper: Safe uppercase conversion (nil-proof)
;; ------------------------------
(defun safeUpper (str)
  (if (stringp str)
    (upperCase str)
    ""
  )
)

;; ------------------------------
;; Helper: Get user property value from object
;; ------------------------------
(defun getUserProp (obj propName)
  (let (props result propNameUpper)
    (setq propNameUpper (safeUpper propName))
    (setq props (obj->userProps))
    (foreach prop props
      (when (equal (safeUpper (car prop)) propNameUpper)
        (setq result (cadr prop))
        (return result)
      )
    )
    result
  )
)

;; ------------------------------
;; Helper: Clear old labels on target layer
;; ------------------------------
(defun clearLayerTexts (layerFullName designDB)
  (let (targetUpper txts clsName subName layerName)
    (setq targetUpper (safeUpper layerFullName))
    (setq txts nil)
    (foreach txt (designDB->texts)
      (when (txt->layer)
        (setq clsName (safeUpper ((txt->layer)->class)->name))
        (setq subName (safeUpper (txt->layer)->name))
        (setq layerName (strcat clsName "/" subName))
        (when (equal layerName targetUpper)
          (setq txts (cons txt txts))
        )
      )
    )
    (when txts
      (foreach txt txts
        (axlDBDeleteObject txt)
      )
      (axlMsgPut "Cleared %d old labels on %s" (length txts) layerFullName)
    )
  )
)

;; ------------------------------
;; Main Function
;; ------------------------------
(defun ExportCompHeight ()
  (prog (designDB compList topLayerName bottomLayerName heightPropName
        cntTotal cntTop cntBottom cntHasHeight cntNoHeight)
   
    ;; --- Configuration (可自行修改) ---
    (setq topLayerName "PACKAGE GEOMETRY/Comp_Height_Top")
    (setq bottomLayerName "PACKAGE GEOMETRY/Comp_Height_Bottom")
    (setq heightPropName "PACKAGE_HEIGHT_MAX")
   
    ;; Counters
    (setq cntTotal 0)
    (setq cntTop 0)
    (setq cntBottom 0)
    (setq cntHasHeight 0)
    (setq cntNoHeight 0)
   
    ;; --- Initialization ---
    (setq designDB (axlDBGetDesign))
    (if (null designDB)
      (progn
        (axlUIConfirm "Error: No design open!")
        (return)
      )
    )
   
    ;; Clear old labels before generating new ones
    (clearLayerTexts topLayerName designDB)
    (clearLayerTexts bottomLayerName designDB)
   
    ;; Get all components
    (setq compList (designDB->components))
    (setq cntTotal (length compList))
    (axlMsgPut "Total components: %d" cntTotal)
   
    ;; Process each component
    (foreach comp compList
      (let (sym xy sideStr targetLayer rot mirrorFlag
                  heightVal textStr textOrient ret)
        
        ;; 1. Get basic component info
        (setq sym (comp->symbol))
        (if sym
          (setq xy (sym->xy))
          (setq xy nil)
        )
        (setq sideStr (safeUpper (comp->side)))
        (setq rot (comp->rotation))
        
        ;; Skip if no valid coordinate
        (when xy
          ;; 2. Determine target layer and mirror flag
          (if (equal sideStr "BOTTOM")
            (progn
              (setq targetLayer bottomLayerName)
              (setq mirrorFlag t)
              (setq cntBottom (1+ cntBottom))
            )
            (progn
              (setq targetLayer topLayerName)
              (setq mirrorFlag nil)
              (setq cntTop (1+ cntTop))
            )
          )
         
          ;; 3. Multi-level height reading (comp → symbol → placebound)
          (setq heightVal nil)
          ;; Level 1: Component's own user properties
          (setq heightVal (getUserProp comp heightPropName))
          ;; Level 2: Symbol user properties
          (when (and (null heightVal) sym)
            (setq heightVal (getUserProp sym heightPropName))
          )
          ;; Level 3: Placebound shape user properties
          (when (and (null heightVal) sym (sym->shapes))
            (foreach shp (sym->shapes)
              (when (and (null heightVal) (shp->layer))
                (let (shpClass shpSub)
                  (setq shpClass (safeUpper ((shp->layer)->class)->name))
                  (setq shpSub (safeUpper (shp->layer)->name))
                  (when (and (equal shpClass "PACKAGE GEOMETRY")
                             (strstr shpSub "PLACE_BOUND"))
                    (setq heightVal (getUserProp shp heightPropName))
                  )
                )
              )
            )
          )
         
          ;; 4. Format height text (convert to mm, 2 decimal places)
          (if heightVal
            (progn
              (setq cntHasHeight (1+ cntHasHeight))
              (let (h_mm)
                (setq h_mm (axlMKSConvert heightVal 'mm))
                (setq textStr (sprintf nil "%.2f" h_mm))
              )
            )
            (progn
              (setq cntNoHeight (1+ cntNoHeight))
              (setq textStr "N/A")
            )
          )
         
          ;; 5. Create text orientation (follow component rotation, bottom mirror)
          (setq textOrient (make_axlTextOrientation
                              ?rotation rot
                              ?mirrored mirrorFlag
                              ?justify "Center"
                            ))
         
          ;; 6. Create text label (verified 4-parameter format)
          (setq ret (axlDBCreateText
                      textStr
                      xy
                      textOrient
                      targetLayer
                    ))
        )
      )
    )
   
    ;; Result summary
    (axlMsgPut "=== Generation Complete ===")
    (axlMsgPut "Total processed: %d" cntTotal)
    (axlMsgPut "Top side: %d, Bottom side: %d" cntTop cntBottom)
    (axlMsgPut "Has height value: %d, No height data: %d" cntHasHeight cntNoHeight)
    (axlVisibleUpdate t)
  )
)

;; ------------------------------
;; Command Registration
;; ------------------------------
(when (fboundp 'axlCmdRegister)
  (axlCmdRegister "export_comp_height" 'ExportCompHeight)
)

(axlMsgPut "Loaded: comp_height_label_final.il | Type 'export_comp_height' to run.")