(XD::Dim:AlignedDimEnts) 获得与一个尺寸标注（对齐、转角）基线平齐的所有尺寸...

Lispboy

1. (defun XD::Dim:AlignedDimEnts (e / base base1 dis ret v1 v2 x)
   
2.   (setq base (XD::Dim:BasePoints e)
   
3.         v1 (xdrx_vector_normalize (apply
   
4.                                     'mapcar
   
5.                                     (cons '- base)
   
6.                                   )
   
7.            )
   
8.   )
   
9.   (mapcar
   
10.     '(lambda (x)
    
11.        (setq base1 (XD::Dim:BasePoints x)
    
12.              v2 (xdrx_vector_normalize (apply
    
13.                                          'mapcar
    
14.                                          (cons '- base1)
    
15.                                        )
    
16.                 )
    
17.              dis (apply
    
18.                    'xdrx_point_dist2line
    
19.                    (cons (car base1) base)
    
20.                  )
    
21.        )
    
22.        (if (and
    
23.              (xdrx_vector_IsParallel v1 v2)
    
24.              (equal dis 0 1e-3)
    
25.            )
    
26.          (setq ret (cons x ret))
    
27.        )
    
28.      )
    
29.     (xdrx_pickset->ents (ssget "x" '((-4 . "<and") (0 . "dimension")
    
30.                                 (-4 . "<or")
    
31.                                 (70 . 32)
    
32.                                 (70 . 33)
    
33.                                 (-4 . "or>")
    
34.                                 (-4 . "and>")
    
35.                                )
    
36.                         )
    
37.     )
    
38.   )
    
39.   ret
    
40. )
    
41. 
    

(defun XD::Dim:AlignedDimEnts (e / base base1 dis ret v1 v2 x)<br />   (setq base (XD::Dim:BasePoints e)<br />         v1 (xdrx_vector_normalize (apply<br />                                     'mapcar<br />                                     (cons '- base)<br />                                   )<br />            )<br />   )<br />   (mapcar<br />     '(lambda (x)<br />        (setq base1 (XD::Dim:BasePoints x)<br />              v2 (xdrx_vector_normalize (apply<br />                                          'mapcar<br />                                          (cons '- base1)<br />                                        )<br />                 )<br />              dis (apply<br />                    'xdrx_point_dist2line<br />                    (cons (car base1) base)<br />                  )<br />        )<br />        (if (and<br />              (xdrx_vector_IsParallel v1 v2)<br />              (equal dis 0 1e-3)<br />            )<br />          (setq ret (cons x ret))<br />        )<br />      )<br />     (xdrx_pickset->ents (ssget "x" '((-4 . "<and") (0 . "dimension")<br />                                 (-4 . "<or")<br />                                 (70 . 32)<br />                                 (70 . 33)<br />                                 (-4 . "or>")<br />                                 (-4 . "and>")<br />                                )<br />                         )<br />     )<br />   )<br />   ret<br /> )<br /> <br />

Le9988

收藏先！学习了！

Le9988

学习，学习。