公差标注筛选

lengxiaxi

处理客户图纸时，一些带有公差的尺寸，通常需要重点关注，图形特别多时，找这些尺寸费时间


写了一个lsp程序，通过判断组码71的值，是否非0；来筛选所有的标注。

发现这个思想行不通，总会把常规的标注，toldisplay值是0的，也选中；

感觉单纯靠组码来判断，是有问题的；

大神们有什么好想法，还请指教

liuhe

标注样式替代可适用于标注、引线和公差图元。适用于这些图元的所有替代都将作为扩展数据存储在图元中。替代标注变量组码和相关值包含在组 1002 控制字符串中。下例显示 DIMTOL 和 DIMCLRE 变量已被替代的标注图元的扩展数据。

(setq diment (car (entsel))) ; 选择标注图元
(setq elst (entget diment '("ACAD"))) ; 获取图元定义列表
(assoc -3 elst) ; 仅提取扩展数据  
此段代码返回下列内容：

(-3 ("ACAD" 扩展数据的 ACAD APPID 段的开始
  (1000 . "DSTYLE") (1002 ."{") 标注样式小节的开始
  (1070 . 177) (1070 . 3) DIMCLRE（代码 177）替代 + 值 (3)
  (1070 . 71) (1070 . 1) DIMTOL（代码 71）替代 + 值 (1)
  (1002 . "}") )) 标注样式小节和 ACAD 段的结束


1.先看标注样式筛选有公差设置，如果该标注样式下有公差，就没有扩展数据。
2.标注样式没有公差，如果该标注样式下公差，则会有扩展数据，并且扩展数据会出现71组码用来代替标标注样式的71

自贡黄明儒

用了小菜的选择易，好多程序不需要写，或者说可以简化了。

lengxiaxi

搞累了，ai写了一个，总是有一种情况，无法筛选出来；如下图青色显示的标注，按理说，也应该备选中；图形见附件；

2. (defun c:F10 (/ ss i ent entData txt tolDisplay resultSS count ihandle)
   
3.   (vl-load-com)
   
4.   (setvar "CMDECHO" 0)
   
5.   (setq resultSS (ssadd))
   
6.   (setq count 0)
   
7.   
   
8.   ;; 仅选择尺寸标注对象
   
9.   (if (setq ss (ssget "_X" '((0 . "DIMENSION"))))
   
10.     (progn
    
11.       (princ "========================================\n")
    
12.       (princ "精确公差标注扫描（严格逻辑）\n")
    
13.       (princ "========================================\n")
    
14.       
    
15.       (setq i 0)
    
16.       (repeat (sslength ss)
    
17.         (setq ent (ssname ss i))
    
18.         (setq entData (entget ent))
    
19.         (setq ihandle (cdr (assoc 5 entData))) ; 实体句柄
    
20.         (setq txt (cdr (assoc 1 entData)))    ; 标注文本
    
21.         
    
22.         ;; 关键优化：获取真实的组码71值
    
23.         (setq tolDisplay
    
24.           (cond
    
25.             ((assoc 71 entData) (cdr (assoc 71 entData))) ; 获取组码71值
    
26.             (0) ; 如果组码71不存在，默认值为0
    
27.           )
    
28.         )
    
29.         
    
30.         ;; 开始处理当前标注
    
31.         (princ (strcat "\n[标注" (itoa (1+ i)) "] 句柄: " ihandle))
    
32.         (princ (strcat "\n  标注内容: "" (if txt txt "无文本") """))
    
33.         (princ (strcat "\n  真实组码71值: " (itoa tolDisplay)))
    
34.         
    
35.         (setq found nil)
    
36.         
    
37.         ;; 精确检测逻辑 (根据您的图片优化)
    
38.         (cond
    
39.           ;; 情况1: 标注文本含有±/%%P符号
    
40.           ((and txt (or
    
41.                     (wcmatch txt "*±*")     ; 含±符号(如"200±0.5")
    
42.                     (wcmatch txt "*%%P*")  ; 含%%P编码
    
43.                     (wcmatch txt "*\\S?*") ; 堆叠文本中的上标+（如"2-?1.0??·2?"）
    
44.                    ))
    
45.             (princ "\n  → 检测到文本公差符号")
    
46.             (setq found T))
    
47.          
    
48.           ;; 情况2: 组码71为1/2/3且非"<>"标注
    
49.           ((and (<= 1 tolDisplay 3)
    
50.                 (not (equal txt "<>")))
    
51.             (princ "\n  → 检测到有效公差组码")
    
52.             (setq found T))
    
53.          
    
54.           (t (princ "\n  → 无公差特征"))
    
55.         )
    
56.         
    
57.         ;; 结果记录与输出
    
58.         (cond
    
59.           (found
    
60.             (ssadd ent resultSS)
    
61.             (setq count (1+ count))
    
62.             (princ " ★ 标记为公差标注"))
    
63.           ((and (<= 1 tolDisplay 3) (equal txt "<>"))
    
64.             (princ " ? 忽略（自动生成公差)"))
    
65.           (t
    
66.             (princ " ? 忽略（无公差)"))
    
67.         )
    
68.         
    
69.         (princ "\n────────────────────────────────────")
    
70.         (setq i (1+ i))
    
71.       )
    
72.       
    
73.       ;; 最终结果
    
74.       (princ "\n\n============= 扫描结果 =============")
    
75.       (princ (strcat "\n扫描标注总数: " (itoa (sslength ss))))
    
76.       (princ (strcat "\n发现公差标注: " (itoa count)))
    
77.       (cond
    
78.         ((> count 0)
    
79.           (sssetfirst nil resultSS)
    
80.           (princ "\n? 公差标注已高亮显示（按ESC退出选择状态）"))
    
81.         (t
    
82.           (princ "\n?? 未发现真实公差标注"))
    
83.       )
    
84.     )
    
85.     (princ "\n? 图中未找到标注对象")
    
86.   )
    
87.   (setvar "CMDECHO" 1)
    
88.   (princ)
    
89. )

(defun c:F10 (/ ss i ent entData txt tolDisplay resultSS count ihandle)<br />   (vl-load-com)<br />   (setvar "CMDECHO" 0)<br />   (setq resultSS (ssadd))<br />   (setq count 0)<br />   <br />   ;; 仅选择尺寸标注对象<br />   (if (setq ss (ssget "_X" '((0 . "DIMENSION"))))<br />     (progn<br />       (princ "========================================\n")<br />       (princ "精确公差标注扫描（严格逻辑）\n")<br />       (princ "========================================\n")<br />       <br />       (setq i 0)<br />       (repeat (sslength ss)<br />         (setq ent (ssname ss i))<br />         (setq entData (entget ent))<br />         (setq ihandle (cdr (assoc 5 entData))) ; 实体句柄<br />         (setq txt (cdr (assoc 1 entData)))    ; 标注文本<br />         <br />         ;; 关键优化：获取真实的组码71值<br />         (setq tolDisplay<br />           (cond<br />             ((assoc 71 entData) (cdr (assoc 71 entData))) ; 获取组码71值<br />             (0) ; 如果组码71不存在，默认值为0<br />           )<br />         )<br />         <br />         ;; 开始处理当前标注<br />         (princ (strcat "\n[标注" (itoa (1+ i)) "] 句柄: " ihandle))<br />         (princ (strcat "\n  标注内容: "" (if txt txt "无文本") """))<br />         (princ (strcat "\n  真实组码71值: " (itoa tolDisplay)))<br />         <br />         (setq found nil)<br />         <br />         ;; 精确检测逻辑 (根据您的图片优化)<br />         (cond<br />           ;; 情况1: 标注文本含有±/%%P符号<br />           ((and txt (or <br />                     (wcmatch txt "*±*")     ; 含±符号(如"200±0.5")<br />                     (wcmatch txt "*%%P*")  ; 含%%P编码<br />                     (wcmatch txt "*\\S?*") ; 堆叠文本中的上标+（如"2-?1.0??·2?"）<br />                    ))<br />             (princ "\n  → 检测到文本公差符号")<br />             (setq found T))<br />           <br />           ;; 情况2: 组码71为1/2/3且非"<>"标注<br />           ((and (<= 1 tolDisplay 3) <br />                 (not (equal txt "<>")))<br />             (princ "\n  → 检测到有效公差组码")<br />             (setq found T))<br />           <br />           (t (princ "\n  → 无公差特征"))<br />         )<br />         <br />         ;; 结果记录与输出<br />         (cond<br />           (found<br />             (ssadd ent resultSS)<br />             (setq count (1+ count))<br />             (princ " ★ 标记为公差标注"))<br />           ((and (<= 1 tolDisplay 3) (equal txt "<>"))<br />             (princ " ? 忽略（自动生成公差)"))<br />           (t <br />             (princ " ? 忽略（无公差)"))<br />         )<br />         <br />         (princ "\n────────────────────────────────────")<br />         (setq i (1+ i))<br />       )<br />       <br />       ;; 最终结果<br />       (princ "\n\n============= 扫描结果 =============")<br />       (princ (strcat "\n扫描标注总数: " (itoa (sslength ss))))<br />       (princ (strcat "\n发现公差标注: " (itoa count)))<br />       (cond <br />         ((> count 0)<br />           (sssetfirst nil resultSS)<br />           (princ "\n? 公差标注已高亮显示（按ESC退出选择状态）"))<br />         (t <br />           (princ "\n?? 未发现真实公差标注"))<br />       )<br />     )<br />     (princ "\n? 图中未找到标注对象")<br />   )<br />   (setvar "CMDECHO" 1)<br />   (princ)<br /> )

你有种再说一遍

只需要分类多行文字格式就行了吧
https://www.cnblogs.com/JJBox/p/18534134

lengxiaxi

你有种再说一遍 发表于 2025-7-31 14:53
只需要分类多行文字格式就行了吧
https://www.cnblogs.com/JJBox/p/18534134

感谢老板；通过文本解析判断堆叠字符，程序中42行代码即是，已包含这个情况