怎么修改实现矩形尺寸标注？

snyn168

各位大侠，我看到了这个帖子批量标注Line及Pline各段长度，使用这个lisp实现矩形尺寸标注是这样的
，我想实现以下效果

，应该怎么修改代码？

434939575

2. 
   
3. by:edata
   
4. 
   
5. (defun c:tt(/ ANG1 ANG2 ANG3 ANG4 CEN DS12 DS23 DS34 DS41 ENT LL LST M12 M23 M34 M41 OBJ P1 P2 P3 P4 RR SS X Y)
   
6.   ;;返回多段线顶点表
   
7. (defun vertexs (ename / plist pp n)        
   
8.   (setq obj (vlax-ename->vla-object ename))
   
9.   (setq plist (vlax-safearray->list
   
10.   (vlax-variant-value
    
11.     (vla-get-coordinates obj))))
    
12.   (setq n 0)
    
13.   (repeat (/ (length plist) 2)
    
14.     (setq pp (append pp (list (list (nth n plist)(nth (1+ n) plist)))))
    
15.     (setq n (+ n 2))
    
16.   )
    
17.   pp
    
18. )
    
19.   (if(setq ss(ssget '((0 . "lwpolyline") (90 . 4)(70 . 1))))         
    
20.     (while (setq ent(ssname ss 0))
    
21.       (progn
    
22.       (setq lst(vertexs ent)
    
23.             p1(car lst)
    
24.             p2(cadr lst)
    
25.             p3(caddr lst)
    
26.             p4(cadddr lst)
    
27.             ll(apply 'mapcar (list 'min p1 p2 p3 p4))
    
28.             rr(apply 'mapcar (list 'max p1 p2 p3 p4))
    
29.             p1 ll
    
30.             p3 rr
    
31.             p2 (list(car p3)(cadr p1))
    
32.             p4 (list(car p1)(cadr p3))
    
33.             cen(mapcar '(lambda(x y)(* (+ x y) 0.5)) p1 p3)
    
34.             m12(mapcar '(lambda(x y)(* (+ x y) 0.5)) p1 p2)
    
35.             m23(mapcar '(lambda(x y)(* (+ x y) 0.5)) p2 p3)
    
36.             m34(mapcar '(lambda(x y)(* (+ x y) 0.5)) p3 p4)
    
37.             m41(mapcar '(lambda(x y)(* (+ x y) 0.5)) p4 p1)
    
38.             ds12(distance p1 p2)
    
39.             ds23(distance p2 p3)
    
40.             ds34(distance p3 p4)
    
41.             ds41(distance p4 p1)
    
42.             ang1 0
    
43.             ang2 (* 0.5 pi)
    
44.             ang3 0
    
45.             ang4 (* 0.5 pi)            
    
46.             )
    
47.       (entmake (list '(0 . "TEXT")'(72 . 1)(cons 73 1)(cons 50 ang1) (cons 1 (rtos ds12 2 2)) (cons 10 m12)(cons 11 m12) (cons 40 (* ds12 0.025))))
    
48.       (entmake (list '(0 . "TEXT")'(72 . 1)(cons 73 1)(cons 50 ang2) (cons 1 (rtos ds23 2 2)) (cons 10 m23)(cons 11 m23) (cons 40 (* ds12 0.025))))
    
49.       (entmake (list '(0 . "TEXT")'(72 . 1)(cons 73 3)(cons 50 ang3)(cons 1 (rtos ds34 2 2)) (cons 10 m34)(cons 11 m34) (cons 40 (* ds12 0.025))))
    
50.       (entmake (list '(0 . "TEXT")'(72 . 1)(cons 73 3)(cons 50 ang4) (cons 1 (rtos ds41 2 2)) (cons 10 m41)(cons 11 m41) (cons 40 (* ds12 0.025))))      
    
51.       )
    
52.       (setq ss(ssdel ent ss))
    
53.     )
    
54.     )
    
55.   (princ)
    
56.   )

<br /> by:edata <br /> <br /> (defun c:tt(/ ANG1 ANG2 ANG3 ANG4 CEN DS12 DS23 DS34 DS41 ENT LL LST M12 M23 M34 M41 OBJ P1 P2 P3 P4 RR SS X Y)<br />   ;;返回多段线顶点表<br /> (defun vertexs (ename / plist pp n)        <br />   (setq obj (vlax-ename->vla-object ename))<br />   (setq plist (vlax-safearray->list<br />   (vlax-variant-value<br />     (vla-get-coordinates obj))))<br />   (setq n 0)<br />   (repeat (/ (length plist) 2)<br />     (setq pp (append pp (list (list (nth n plist)(nth (1+ n) plist)))))<br />     (setq n (+ n 2))<br />   )<br />   pp<br /> )<br />   (if(setq ss(ssget '((0 . "lwpolyline") (90 . 4)(70 . 1))))          <br />     (while (setq ent(ssname ss 0))<br />       (progn<br />       (setq lst(vertexs ent)<br />             p1(car lst)<br />             p2(cadr lst)<br />             p3(caddr lst)<br />             p4(cadddr lst)<br />             ll(apply 'mapcar (list 'min p1 p2 p3 p4))<br />             rr(apply 'mapcar (list 'max p1 p2 p3 p4))<br />             p1 ll<br />             p3 rr<br />             p2 (list(car p3)(cadr p1))<br />             p4 (list(car p1)(cadr p3))<br />             cen(mapcar '(lambda(x y)(* (+ x y) 0.5)) p1 p3)<br />             m12(mapcar '(lambda(x y)(* (+ x y) 0.5)) p1 p2)<br />             m23(mapcar '(lambda(x y)(* (+ x y) 0.5)) p2 p3)<br />             m34(mapcar '(lambda(x y)(* (+ x y) 0.5)) p3 p4)<br />             m41(mapcar '(lambda(x y)(* (+ x y) 0.5)) p4 p1)<br />             ds12(distance p1 p2)<br />             ds23(distance p2 p3)<br />             ds34(distance p3 p4)<br />             ds41(distance p4 p1)<br />             ang1 0<br />             ang2 (* 0.5 pi)<br />             ang3 0<br />             ang4 (* 0.5 pi)            <br />             )<br />       (entmake (list '(0 . "TEXT")'(72 . 1)(cons 73 1)(cons 50 ang1) (cons 1 (rtos ds12 2 2)) (cons 10 m12)(cons 11 m12) (cons 40 (* ds12 0.025))))<br />       (entmake (list '(0 . "TEXT")'(72 . 1)(cons 73 1)(cons 50 ang2) (cons 1 (rtos ds23 2 2)) (cons 10 m23)(cons 11 m23) (cons 40 (* ds12 0.025))))<br />       (entmake (list '(0 . "TEXT")'(72 . 1)(cons 73 3)(cons 50 ang3)(cons 1 (rtos ds34 2 2)) (cons 10 m34)(cons 11 m34) (cons 40 (* ds12 0.025))))<br />       (entmake (list '(0 . "TEXT")'(72 . 1)(cons 73 3)(cons 50 ang4) (cons 1 (rtos ds41 2 2)) (cons 10 m41)(cons 11 m41) (cons 40 (* ds12 0.025))))      <br />       )<br />       (setq ss(ssdel ent ss))<br />     )<br />     )<br />   (princ)<br />   )