拼凑的自动对齐标注

lengxiaxi

拼凑的自动基线标注；看有没人有心情完善；搞累了；效果不行



自动基线标注，貌似全网也没见过； 坐标标注倒是很多；

2. (defun c:A23 (/ pt ss pts xVals yVals xOffset yOffset)
   
3.   ;; 初始化设置
   
4.   (setvar "CMDECHO" 0)
   
5.   (setvar "OSMODE" 439)
   
6.   (setvar "DIMSCALE" 1)
   
7.   
   
8.   ;; 获取基准点（强制二维）
   
9.   (if (not (setq pt (getpoint "\n指定基准点: ")))
   
10.     (exit)
    
11.   )
    
12.   (setq pt (list (car pt) (cadr pt)))
    
13.   
    
14.   ;; 选择对象（增强过滤）
    
15.   (while (not (setq ss (ssget '((0 . "LINE,LWPOLYLINE,SPLINE")))))
    
16.     (princ "\n请选择直线、多段线或样条曲线!")
    
17.   )
    
18.   
    
19.   ;; 提取端点（二维优化）
    
20.   (setq pts (Get2DEndpoints ss pt))
    
21.   (setq xVals (vl-sort (mapcar 'car pts) '<)
    
22.         yVals (vl-sort (mapcar 'cadr pts) '<))
    
23.   
    
24.   ;; 设置标注偏移参数
    
25.   (setq xOffset 20)  ; X方向标注基线偏移量
    
26.   (setq yOffset 20)  ; Y方向标注基线偏移量
    
27.   (setq dimGap 8)    ; 相邻标注之间的间隔
    
28.   
    
29.   ;; 生成X方向标注（带间隔）
    
30.   (setq i 0)
    
31.   (foreach x (vl-remove-if '(lambda (n) (equal n (car pt) 1e-6)) xVals)
    
32.     (command "_.DIMLINEAR"
    
33.              "_non" pt
    
34.              "_non" (list x (cadr pt))
    
35.              "_non" (polar pt (/ pi 2) (+ yOffset (* i dimGap))))
    
36.     (setq i (1+ i))
    
37.   )
    
38.   
    
39.   ;; 生成Y方向标注（带间隔）
    
40.   (setq i 0)
    
41.   (foreach y (vl-remove-if '(lambda (n) (equal n (cadr pt) 1e-6)) yVals)
    
42.     (command "_.DIMLINEAR"
    
43.              "_non" pt
    
44.              "_non" (list (car pt) y)
    
45.              "_non" (polar pt 0 (+ xOffset (* i dimGap))))
    
46.     (setq i (1+ i))
    
47.   )
    
48.   
    
49.   (princ (strcat "\n生成标注: X方向" (itoa (length xVals)) "个, Y方向" (itoa (length yVals)) "个"))
    
50.   (princ)
    
51. )
    
52. 
    
53. ;; 二维端点提取函数（保持不变）
    
54. (defun Get2DEndpoints (ss base / ent pts)
    
55.   (vl-load-com)
    
56.   (repeat (setq i (sslength ss))
    
57.     (setq ent (ssname ss (setq i (1- i))))
    
58.     (cond
    
59.       ((= (cdr (assoc 0 (entget ent))) "LINE")
    
60.        (mapcar '(lambda (p) (setq pts (cons (list (car p) (cadr p)) pts)))
    
61.                (list (cdr (assoc 10 (entget ent))) (cdr (assoc 11 (entget ent)))))
    
62.       )
    
63.       ((wcmatch (cdr (assoc 0 (entget ent))) "*POLYLINE")
    
64.        (foreach v (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget ent))
    
65.          (setq pts (cons (list (cadr v) (caddr v)) pts))
    
66.        )
    
67.       )
    
68.     )
    
69.   )
    
70.   ;; 去重并排除基准点
    
71.   (vl-remove-if '(lambda (x) (equal x base 1e-6))
    
72.                 (vl-sort pts '(lambda (a b) (if (equal (car a) (car b) 1e-6)
    
73.                                               (< (cadr a) (cadr b))
    
74.                                               (< (car a) (car b))))))
    
75. )
    

(defun c:A23 (/ pt ss pts xVals yVals xOffset yOffset)<br />   ;; 初始化设置<br />   (setvar "CMDECHO" 0)<br />   (setvar "OSMODE" 439)<br />   (setvar "DIMSCALE" 1)<br />   <br />   ;; 获取基准点（强制二维）<br />   (if (not (setq pt (getpoint "\n指定基准点: ")))<br />     (exit)<br />   )<br />   (setq pt (list (car pt) (cadr pt)))<br />   <br />   ;; 选择对象（增强过滤）<br />   (while (not (setq ss (ssget '((0 . "LINE,LWPOLYLINE,SPLINE")))))<br />     (princ "\n请选择直线、多段线或样条曲线!")<br />   )<br />   <br />   ;; 提取端点（二维优化）<br />   (setq pts (Get2DEndpoints ss pt))<br />   (setq xVals (vl-sort (mapcar 'car pts) '<)<br />         yVals (vl-sort (mapcar 'cadr pts) '<))<br />   <br />   ;; 设置标注偏移参数<br />   (setq xOffset 20)  ; X方向标注基线偏移量<br />   (setq yOffset 20)  ; Y方向标注基线偏移量<br />   (setq dimGap 8)    ; 相邻标注之间的间隔<br />   <br />   ;; 生成X方向标注（带间隔）<br />   (setq i 0)<br />   (foreach x (vl-remove-if '(lambda (n) (equal n (car pt) 1e-6)) xVals)<br />     (command "_.DIMLINEAR"<br />              "_non" pt<br />              "_non" (list x (cadr pt))<br />              "_non" (polar pt (/ pi 2) (+ yOffset (* i dimGap))))<br />     (setq i (1+ i))<br />   )<br />   <br />   ;; 生成Y方向标注（带间隔）<br />   (setq i 0)<br />   (foreach y (vl-remove-if '(lambda (n) (equal n (cadr pt) 1e-6)) yVals)<br />     (command "_.DIMLINEAR"<br />              "_non" pt<br />              "_non" (list (car pt) y)<br />              "_non" (polar pt 0 (+ xOffset (* i dimGap))))<br />     (setq i (1+ i))<br />   )<br />   <br />   (princ (strcat "\n生成标注: X方向" (itoa (length xVals)) "个, Y方向" (itoa (length yVals)) "个"))<br />   (princ)<br /> )<br /> <br /> ;; 二维端点提取函数（保持不变）<br /> (defun Get2DEndpoints (ss base / ent pts)<br />   (vl-load-com)<br />   (repeat (setq i (sslength ss))<br />     (setq ent (ssname ss (setq i (1- i))))<br />     (cond<br />       ((= (cdr (assoc 0 (entget ent))) "LINE")<br />        (mapcar '(lambda (p) (setq pts (cons (list (car p) (cadr p)) pts)))<br />                (list (cdr (assoc 10 (entget ent))) (cdr (assoc 11 (entget ent)))))<br />       )<br />       ((wcmatch (cdr (assoc 0 (entget ent))) "*POLYLINE")<br />        (foreach v (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget ent))<br />          (setq pts (cons (list (cadr v) (caddr v)) pts))<br />        )<br />       )<br />     )<br />   )<br />   ;; 去重并排除基准点<br />   (vl-remove-if '(lambda (x) (equal x base 1e-6))<br />                 (vl-sort pts '(lambda (a b) (if (equal (car a) (car b) 1e-6)<br />                                               (< (cadr a) (cadr b))<br />                                               (< (car a) (car b))))))<br /> )<br />

你有种再说一遍

没懂你这个标什么,怎么不是连续标注,然后上下左右都标

sunny_8848

看起来挺好的，需要消除有些重复尺寸

ghgh0130

加油。。。。