[求助]：有哪个大侠也搞个单独的尺寸断开及合并程序，让小弟也学习学习!

cjrun

带一小弟一程吧！

wkai

试试吧~
2003.12.11.08.53(LM):6楼  Qlin 斑竹提出的错误已经修改，同时，断开程序自动调整尺寸界线的长度相等，看起来会比较整齐。

2. 
   
3.   [FONT=courier new]
   
4. ;_长度型标注断开 by wkai
   
5. ;_2003.12.11.08.53(LM)
   
6. ;_2003.12.09.20.48
   
7. (defun c:db (/ e e1 e2 p1 p2 pt_lst ep1 ep2 p_mid pt3 ty_dm)
   
8.   (vl-load-com)
   
9.   (while (not e) (setq e (car (entsel))))
   
10.   (setq e1 (entget e))
    
11.   (if (/= "DIMENSION" (cdr (assoc 0 e1)))
    
12.     (princ "\n你选择的不是尺寸标注!")
    
13.     (progn
    
14.       (redraw e 3)
    
15.       (setq pt3 (getpoint "\n 断开点<等分>:"))
    
16.       (redraw e 4)
    
17.       (setq ty_dm (cdr (assoc 70 e1)))
    
18.       (if (or (= ty_dm 32) (= ty_dm 33))
    
19.         (progn
    
20.           (setq ep1 (cdr (assoc 13 e1)))
    
21.           (setq ep2 (cdr (assoc 14 e1)))
    
22.           (if pt3
    
23.             (setq p_mid pt3)
    
24.             (setq p_mid        (list (/ (+ (car ep1) (car ep2)) 2)
    
25.                               (/ (+ (cadr ep1) (cadr ep2)) 2)
    
26.                               )
    
27.                   )
    
28.             )
    
29.           (if (= ty_dm 33)
    
30.             (setq p_mid
    
31.                    (inters p_mid
    
32.                            (polar p_mid (+ (angle ep1 ep2) (/ pi 2)) 1000)
    
33.                            ep1
    
34.                            ep2
    
35.                            nil
    
36.                            )
    
37.                   )
    
38.             )
    
39.           (if (= ty_dm 32)
    
40.             (setq p_mid
    
41.                         (inters        p_mid
    
42.                                 (polar p_mid (+ (cdr (assoc 50 e1)) (/ pi 2)) 1000)
    
43.                                 ep1
    
44.                                 (polar ep1 (cdr (assoc 50 e1)) 1000)
    
45.                                 nil
    
46.                                 )
    
47.                   ep2
    
48.                         (inters        ep2
    
49.                                 (polar ep2 (+ (cdr (assoc 50 e1)) (/ pi 2)) 1000)
    
50.                                 ep1
    
51.                                 (polar ep1 (cdr (assoc 50 e1)) 1000)
    
52.                                 nil
    
53.                                 )
    
54.                   )
    
55.             )
    
56.           (command "copy" e "" "0,0,0" "@")
    
57.           (setq e2 (entget (entlast)))
    
58.           (if (equal (car ep1) (car ep2) 0.0001)
    
59.             (setq pt_lst
    
60.                    (vl-sort (list ep1 ep2 p_mid)
    
61.                             '(lambda (s1 s2) (< (cadr s1) (cadr s2)))
    
62.                             )
    
63.                   )
    
64.             (setq
    
65.               pt_lst
    
66.                (vl-sort        (list ep1 ep2 p_mid)
    
67.                         '(lambda (s1 s2) (< (car s1) (car s2)))
    
68.                         )
    
69.               )
    
70.             )
    
71.           (setq
    
72.             e1 (subst (cons 13 (nth 0 pt_lst)) (assoc 13 e1) e1)
    
73.             )
    
74.           (setq
    
75.             e1 (subst (cons 14 (nth 1 pt_lst)) (assoc 14 e1) e1)
    
76.             )
    
77.           (setq        e2 (subst (cons 13 (nth 1 pt_lst))
    
78.                           (assoc 13 e2)
    
79.                           e2
    
80.                           )
    
81.                 )
    
82.           (setq        e2 (subst (cons 14 (nth 2 pt_lst))
    
83.                           (assoc 14 e2)
    
84.                           e2
    
85.                           )
    
86.                 )
    
87. 
    
88.           (entmod e1)
    
89.           (entmod e2)
    
90.           )
    
91.         )
    
92.       )
    
93.     )
    
94.   )
    
95. 
    
96. 
    
97. ;_长度型标注合并  by wkai
    
98. ;_2003.12.09.20.48
    
99. (defun c:dj (/ ent1 ent2 e1 e2 e1p1 e1p2 e2p1 e2p2 pt_lst)
    
100.   (vl-load-com)
     
101.   (if (setq e1 (car (entsel)))
     
102.     (setq ent1 (entget e1))
     
103.     )
     
104.   (redraw e1 3)
     
105.   (if (setq e2 (car (entsel)))
     
106.     (setq ent2 (entget e2))
     
107.     )
     
108.   (redraw e2 3)
     
109.   (if (or (/= "DIMENSION" (cdr (assoc 0 ent1)))
     
110.           (/= "DIMENSION" (cdr (assoc 0 ent2)))
     
111.           )
     
112.     (princ "\n请选择尺寸标注!")
     
113.     (progn
     
114.       (redraw e1 4)
     
115.       (redraw e2 4)
     
116.       (setq e1p1 (cdr (assoc 13 ent1))
     
117.             e1p2 (cdr (assoc 14 ent1))
     
118.             e2p1 (cdr (assoc 13 ent2))
     
119.             e2p2 (cdr (assoc 14 ent2))
     
120.             )
     
121.       (if (= 33 (cdr (assoc 70 ent1)))
     
122.         (progn
     
123.           (setq
     
124.             e2p1
     
125.              (inters e2p1
     
126.                      (polar e2p1 (+ (angle e1p1 e1p2) (/ pi 2)) 1000)
     
127.                      e1p1
     
128.                      e1p2
     
129.                      nil
     
130.                      )
     
131.             )
     
132.           (setq
     
133.             e2p2
     
134.              (inters e2p2
     
135.                      (polar e2p2 (+ (angle e1p1 e1p2) (/ pi 2)) 1000)
     
136.                      e1p1
     
137.                      e1p2
     
138.                      nil
     
139.                      )
     
140.             )
     
141.           )
     
142.         )
     
143.       (setq pt_lst (list e1p1 e1p2 e2p1 e2p2))
     
144.       (if (equal (car (nth 0 pt_lst)) (car (nth 1 pt_lst)) 0.0001)
     
145.         (setq pt_lst
     
146.                (vl-sort        pt_lst
     
147.                         '(lambda (s1 s2) (< (cadr s1) (cadr s2)))
     
148.                         )
     
149.               )
     
150.         (setq
     
151.           pt_lst
     
152.            (vl-sort pt_lst
     
153.                     '(lambda (s1 s2) (< (car s1) (car s2)))
     
154.                     )
     
155.           )
     
156.         )
     
157.       (setq ent1 (subst (cons 13 (nth 0 pt_lst)) (assoc 13 ent1) ent1))
     
158.       (setq ent1 (subst        (cons 14 (nth (- (length pt_lst) 1) pt_lst))
     
159.                         (assoc 14 ent1)
     
160.                         ent1
     
161.                         )
     
162.             )
     
163.       (entmod ent1)
     
164.       (entdel e2)
     
165.       )
     
166.     )
     
167.   )
     
168. 
     
169.   [/FONT]
     

<br />   [FONT=courier new]<br /> ;_长度型标注断开 by wkai<br /> ;_2003.12.11.08.53(LM)<br /> ;_2003.12.09.20.48<br /> (defun c:db (/ e e1 e2 p1 p2 pt_lst ep1 ep2 p_mid pt3 ty_dm)<br />   (vl-load-com)<br />   (while (not e) (setq e (car (entsel))))<br />   (setq e1 (entget e))<br />   (if (/= "DIMENSION" (cdr (assoc 0 e1)))<br />     (princ "\n你选择的不是尺寸标注!")<br />     (progn<br />       (redraw e 3)<br />       (setq pt3 (getpoint "\n 断开点<等分>:"))<br />       (redraw e 4)<br />       (setq ty_dm (cdr (assoc 70 e1)))<br />       (if (or (= ty_dm 32) (= ty_dm 33))<br />         (progn<br />           (setq ep1 (cdr (assoc 13 e1)))<br />           (setq ep2 (cdr (assoc 14 e1)))<br />           (if pt3<br />             (setq p_mid pt3)<br />             (setq p_mid        (list (/ (+ (car ep1) (car ep2)) 2)<br />                               (/ (+ (cadr ep1) (cadr ep2)) 2)<br />                               )<br />                   )<br />             )<br />           (if (= ty_dm 33)<br />             (setq p_mid<br />                    (inters p_mid<br />                            (polar p_mid (+ (angle ep1 ep2) (/ pi 2)) 1000)<br />                            ep1<br />                            ep2<br />                            nil<br />                            )<br />                   )<br />             )<br />           (if (= ty_dm 32)<br />             (setq p_mid<br />                         (inters        p_mid<br />                                 (polar p_mid (+ (cdr (assoc 50 e1)) (/ pi 2)) 1000)<br />                                 ep1<br />                                 (polar ep1 (cdr (assoc 50 e1)) 1000)<br />                                 nil<br />                                 )<br />                   ep2<br />                         (inters        ep2<br />                                 (polar ep2 (+ (cdr (assoc 50 e1)) (/ pi 2)) 1000)<br />                                 ep1<br />                                 (polar ep1 (cdr (assoc 50 e1)) 1000)<br />                                 nil<br />                                 )<br />                   )<br />             )<br />           (command "copy" e "" "0,0,0" "@")<br />           (setq e2 (entget (entlast)))<br />           (if (equal (car ep1) (car ep2) 0.0001)<br />             (setq pt_lst<br />                    (vl-sort (list ep1 ep2 p_mid)<br />                             '(lambda (s1 s2) (< (cadr s1) (cadr s2)))<br />                             )<br />                   )<br />             (setq<br />               pt_lst<br />                (vl-sort        (list ep1 ep2 p_mid)<br />                         '(lambda (s1 s2) (< (car s1) (car s2)))<br />                         )<br />               )<br />             )<br />           (setq<br />             e1 (subst (cons 13 (nth 0 pt_lst)) (assoc 13 e1) e1)<br />             )<br />           (setq<br />             e1 (subst (cons 14 (nth 1 pt_lst)) (assoc 14 e1) e1)<br />             )<br />           (setq        e2 (subst (cons 13 (nth 1 pt_lst))<br />                           (assoc 13 e2)<br />                           e2<br />                           )<br />                 )<br />           (setq        e2 (subst (cons 14 (nth 2 pt_lst))<br />                           (assoc 14 e2)<br />                           e2<br />                           )<br />                 )<br /> <br />           (entmod e1)<br />           (entmod e2)<br />           )<br />         )<br />       )<br />     )<br />   )<br /> <br /> <br /> ;_长度型标注合并  by wkai<br /> ;_2003.12.09.20.48<br /> (defun c:dj (/ ent1 ent2 e1 e2 e1p1 e1p2 e2p1 e2p2 pt_lst)<br />   (vl-load-com)<br />   (if (setq e1 (car (entsel)))<br />     (setq ent1 (entget e1))<br />     )<br />   (redraw e1 3)<br />   (if (setq e2 (car (entsel)))<br />     (setq ent2 (entget e2))<br />     )<br />   (redraw e2 3)<br />   (if (or (/= "DIMENSION" (cdr (assoc 0 ent1)))<br />           (/= "DIMENSION" (cdr (assoc 0 ent2)))<br />           )<br />     (princ "\n请选择尺寸标注!")<br />     (progn<br />       (redraw e1 4)<br />       (redraw e2 4)<br />       (setq e1p1 (cdr (assoc 13 ent1))<br />             e1p2 (cdr (assoc 14 ent1))<br />             e2p1 (cdr (assoc 13 ent2))<br />             e2p2 (cdr (assoc 14 ent2))<br />             )<br />       (if (= 33 (cdr (assoc 70 ent1)))<br />         (progn<br />           (setq<br />             e2p1<br />              (inters e2p1<br />                      (polar e2p1 (+ (angle e1p1 e1p2) (/ pi 2)) 1000)<br />                      e1p1<br />                      e1p2<br />                      nil<br />                      )<br />             )<br />           (setq<br />             e2p2<br />              (inters e2p2<br />                      (polar e2p2 (+ (angle e1p1 e1p2) (/ pi 2)) 1000)<br />                      e1p1<br />                      e1p2<br />                      nil<br />                      )<br />             )<br />           )<br />         )<br />       (setq pt_lst (list e1p1 e1p2 e2p1 e2p2))<br />       (if (equal (car (nth 0 pt_lst)) (car (nth 1 pt_lst)) 0.0001)<br />         (setq pt_lst<br />                (vl-sort        pt_lst<br />                         '(lambda (s1 s2) (< (cadr s1) (cadr s2)))<br />                         )<br />               )<br />         (setq<br />           pt_lst<br />            (vl-sort pt_lst<br />                     '(lambda (s1 s2) (< (car s1) (car s2)))<br />                     )<br />           )<br />         )<br />       (setq ent1 (subst (cons 13 (nth 0 pt_lst)) (assoc 13 ent1) ent1))<br />       (setq ent1 (subst        (cons 14 (nth (- (length pt_lst) 1) pt_lst))<br />                         (assoc 14 ent1)<br />                         ent1<br />                         )<br />             )<br />       (entmod ent1)<br />       (entdel e2)<br />       )<br />     )<br />   )<br /> <br />   [/FONT]<br />

lsjjm

不是用于机械方面的吧?
能否解释一下, 什么是"尺寸标注的断开和合并", 一般用于什么情况下?

xjlmlxbq

找了好久的好东西,应该可以用于机械设计吧

andye

其實在你可以下載免費迷你建筑工具，免費迷你建筑工具里面用這個功能的.在明經通道里有。http://www.mjtd.com
http://www.mjtd.com/download/tools/maicy/a14.zip。

Qlin

最初由 wkai 发布
[B]
(setq p_mid
(inters p_mid
(polar p_mid (+ (angle ep1 ep2)[/COLOR] (/ pi 2)) 1000)
ep1
ep2
nil
)
)
[/B]

引文内红色代码所计算的角度有误，当两个定义点连线与尺寸线不平行时算出的角度是错误的。

wkai

最初由 Qlin 发布
[B]
当两个定义点连线与尺寸线不平行时算出的角度是错误的。 [/B]

谢谢 Qlin  斑竹的提醒，该错误已经除去。

lsjjm

wkai and 诸位: 解释一下 什么是"尺寸标注的断开和合并"?

wkai

看看演示:

cjrun

强 就一个字，向大侠学习！
  但它怎么不能在R14下运行呢！

coolzhb

最初由 cjrun 发布
[B]强 就一个字，向大侠学习！
  但它怎么不能在R14下运行呢！ [/B]

用了vl函数，不能在R14下运行！

cjrun

请问楼上仁兄，如果不用VL函数又该如果实现？

levincm

太感谢了，经常要用到晓东工具的这几个功能，却一直不知道怎么弄的，现在可以好好看看了！
对了，那个尺寸翻转非常实用，如果不用晓东的API，该如何实现呢？

ljcgq

1、拆分尺寸的标注点不是操作点取的点。
2、合并尺寸不能框选。
是否可以改进一下？

MJSY_ZHY

不错，相当好用，顺便问一句，为什么有的标注是块，有的是零散的。如果是零散的，那么，这个程序就应改进一下了。