frame:pair-fields

说明:从 `items` 里按关键词配出「键 → 值」，用于解析图签/标题栏。nitems：((文本点) ...)，点用 (x y z)；nkeys：逗号分隔的通配符（wcmatch 语法），命中者视为「键」；nrow-tol：同排容差（建议 1.5 x 字高），nil 视作 0（只认同 y）。nn配对规则（来源：private-packages/sd1t 的 sd1t:get-frame-info-from-old）：n1. 值必须与键**同一排**（|dy| <= row-tol）且在键**右侧**（x 更大），取最近的一个；n2. **反向校验**：该值左侧最近的键必须还是这个键 —— 多列标题栏里这一步能挡掉交叉错配。n返回 ((键文本值文本值点) ...)；没有可配的返回 nil。

用法:

 (frame:pair-fields items keys row-tol)

参数:1 items : 未识别定义;2 keys : 键，关键字;3 row-tol : 未识别定义;

返回值:list - ((键值点) ...) 或 nil

示例:

(frame:pair-fields '(("图名" (0 0 0)) ("车库平面图" (100 0 0))) "*图名*" 10.0)

(defun frame:pair-fields (items keys row-tol / key-items val-items res key cand best left)
  "从 `items` 里按关键词配出「键 → 值」，用于解析图签/标题栏。\nitems：((文本 点)
    ...)，点用 (x y z)；\nkeys：逗号分隔的通配符（wcmatch 语法），命中者视为「键」；\nrow-tol：同排容差（建议 1.5 x 字高），nil 视作 0（只认同 y）。\n\n配对规则（来源：private-packages/sd1t 的 sd1t:get-frame-info-from-old）：\n1. 值必须与键**同一排**（|dy| <= row-tol）且在键**右侧**（x 更大），取最近的一个；\n2. **反向校验**：该值左侧最近的键必须还是这个键 —— 多列标题栏里这一步能挡掉交叉错配。\n返回 ((键文本 值文本 值点)
    ...)；没有可配的返回 nil。"
  "list - ((键 值 点)
    ...)
  或 nil"
  "(frame:pair-fields '((\"图名\"
        (0 0 0))
      (\"车库平面图\"
        (100 0 0)))
    \"*图名*\"
    10.0)"
  "
   => ((\"图名\"
      \"车库平面图\"
      (100.0 0.0 0.0)))"
  (if (not row-tol)
    (setq row-tol 0.0))
  (setq key-items (vl-remove-if-not (quote (lambda (x)
          (and (car x)
            (wcmatch (car x)
              keys))))
      items))
  (setq val-items (vl-remove-if (quote (lambda (x)
          (and (car x)
            (wcmatch (car x)
              keys))))
      items))
  (setq res nil)
  (foreach key key-items (setq cand (vl-remove-if-not (quote (lambda (v / p kp)
            (setq p (cadr v)
              kp (cadr key))
            (and p kp (<= (abs (- (cadr p)
                    (cadr kp)))
                row-tol)
              (> (car p)
                (car kp)))))
        val-items))
    (if cand (progn (setq best (car (vl-sort cand (quote (lambda (a b)
                  (< (car (cadr a))
                    (car (cadr b))))))))
        (setq left (car (vl-sort (vl-remove-if-not (quote (lambda (k / p kp)
                    (setq p (cadr k)
                      kp (cadr best))
                    (and p kp (<= (abs (- (cadr p)
                            (cadr kp)))
                        row-tol)
                      (< (car p)
                        (car kp)))))
                key-items)
              (quote (lambda (a b)
                  (> (car (cadr a))
                    (car (cadr b))))))))
        (if (equal left key)
          (setq res (cons (list (car key)
                (car best)
                (cadr best))
              res))))))
  (reverse res))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

frame:pair-fields

上传记录