尺寸连接

Lispboy

XD::Entity:XDIR函数见：http://bbs.xdcad.net/thread-704544-1-1.html

[sell=2]

1. (defun c:xdtb_dimjoin (/ base e1 e2 ints xdir1 xdir2 xLine xLine1 xLine2)
   
2.   (if (and
   
3.         (setq e1 (xdrx_entsel "\n选取第一个标注<退出>:" '((0 . "dimension")
   
4.                                (-4 . "<or")
   
5.                                (70 . 32)
   
6.                                (70 . 33)
   
7.                                (-4 . "or>")
   
8.                               )
   
9.                  )
   
10.         )
    
11.         (setq e2 (xdrx_entsel "\n选取第二个标注<退出>:" '((0 . "dimension")
    
12.                                (-4 . "<or")
    
13.                                (70 . 32)
    
14.                                (70 . 33)
    
15.                                (-4 . "or>")
    
16.                               )
    
17.                  )
    
18.         )
    
19.         (setq e1 (car e1)
    
20.               e2 (car e2)
    
21.               xLine1 (mapcar
    
22.                        'car
    
23.                        (xd::dim:xLine e1)
    
24.                      )
    
25.               xLine2 (mapcar
    
26.                        'car
    
27.                        (xd::dim:xline e2)
    
28.                      )
    
29.               xLine (append
    
30.                       xLine1
    
31.                       xLine2
    
32.                     )
    
33.               xdir1 (xd::entity:xdir e1)
    
34.               xdir2 (xd::entity:xdir e2)
    
35.         )
    
36.         (xdrx_vector_IsParallel xdir1 xdir2)
    
37.       )
    
38.     (progn
    
39.       (xdrx_begin)
    
40.       (setq base (xd::dim:basepoints e1)
    
41.             ints (mapcar
    
42.                    'cadr
    
43.                    (xdrx_points_sortoncurve base xLine)
    
44.                  )
    
45.             p1 (nth 1 ints)
    
46.             p2 (nth 2 ints)
    
47.       )
    
48.       (if (> (distance p1 p2) 0.0)
    
49.         (progn
    
50.           (xdrx_dimension_makerotate (nth 1 ints) (nth 2 ints) (car base)
    
51.                                      (xd::dim:angle e1)
    
52.           )
    
53.           (xdrx_entity_matchprop (entlast) e1)
    
54.         )
    
55.       )
    
56.       (xdrx_end)
    
57.     )
    
58.     (if (and
    
59.           e1
    
60.           e2
    
61.         )
    
62.       (xdrx_prompt "\n两尺寸方向不一致，不能连接.")
    
63.     )
    
64.   )
    
65.   (princ)
    
66. )
    

(defun c:xdtb_dimjoin (/ base e1 e2 ints xdir1 xdir2 xLine xLine1 xLine2)<br />   (if (and<br />         (setq e1 (xdrx_entsel "\n选取第一个标注<退出>:" '((0 . "dimension")<br />                                (-4 . "<or")<br />                                (70 . 32)<br />                                (70 . 33)<br />                                (-4 . "or>")<br />                               )<br />                  )<br />         )<br />         (setq e2 (xdrx_entsel "\n选取第二个标注<退出>:" '((0 . "dimension")<br />                                (-4 . "<or")<br />                                (70 . 32)<br />                                (70 . 33)<br />                                (-4 . "or>")<br />                               )<br />                  )<br />         )<br />         (setq e1 (car e1)<br />               e2 (car e2)<br />               xLine1 (mapcar<br />                        'car<br />                        (xd::dim:xLine e1)<br />                      )<br />               xLine2 (mapcar<br />                        'car<br />                        (xd::dim:xline e2)<br />                      )<br />               xLine (append<br />                       xLine1<br />                       xLine2<br />                     )<br />               xdir1 (xd::entity:xdir e1)<br />               xdir2 (xd::entity:xdir e2)<br />         )<br />         (xdrx_vector_IsParallel xdir1 xdir2)<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (setq base (xd::dim:basepoints e1)<br />             ints (mapcar<br />                    'cadr<br />                    (xdrx_points_sortoncurve base xLine)<br />                  )<br />             p1 (nth 1 ints)<br />             p2 (nth 2 ints)<br />       )<br />       (if (> (distance p1 p2) 0.0)<br />         (progn<br />           (xdrx_dimension_makerotate (nth 1 ints) (nth 2 ints) (car base)<br />                                      (xd::dim:angle e1)<br />           )<br />           (xdrx_entity_matchprop (entlast) e1)<br />         )<br />       )<br />       (xdrx_end)<br />     )<br />     (if (and<br />           e1<br />           e2<br />         )<br />       (xdrx_prompt "\n两尺寸方向不一致，不能连接.")<br />     )<br />   )<br />   (princ)<br /> )<br />

[/sell]

WhoCanSay

这个工具不实用，有连接的功夫，还不如重新标注一个。
不过，程序是值得学习的。赞一个

Lispboy

WhoCanSay 发表于 2016-6-20 12:42
这个工具不实用，有连接的功夫，还不如重新标注一个。
不过，程序是值得学习的。赞一个

你说说哪个快？ 连接快还是你重新标注一个快？