可否实现智能标注

x_s_s_1

vla方法稍微快点

2. (defun c:test2
   
3.          (/ ss1 n  en ent lst1a lst1b ss2 lst2 lst3 m p pa  pb pc
   
4.     adoc acspc)
   
5.   (prompt "\n选择定位线:")
   
6.   (setq ss1 (ssget '((0 . "line"))))
   
7.   (repeat (setq n (sslength ss1))
   
8.     (setq en  (ssname ss1 (setq n (1- n)))
   
9.     ent (entget en)
   
10.     )
    
11.     (if  (equal (car (cdr (assoc 10 ent)))
    
12.          (car (cdr (assoc 11 ent)))
    
13.          1e-6
    
14.   )
    
15.       (setq lst1a (cons en lst1a))
    
16.       (setq lst1b (cons en lst1b))
    
17.     )
    
18.   )
    
19.   (prompt "\n选择标示物:")
    
20.   (setq ss2 (ssget '((0 . "*line,point,circle,arc"))))
    
21.   (repeat (setq n (sslength ss2))
    
22.     (setq en  (ssname ss2 (setq n (1- n)))
    
23.     ent (entget en)
    
24.     )
    
25.     (cond ((member (cdr (assoc 0 ent)) '("POINT" "CIRCLE"))
    
26.      (setq lst2 (cons (cdr (assoc 10 ent)) lst2))
    
27.     )
    
28.     ((member (cdr (assoc 0 ent)) '("LINE" "ARC"))
    
29.      (setq lst2 (cons (vlax-curve-getstartpoint en) lst2))
    
30.      (setq lst2 (cons (vlax-curve-getendpoint en) lst2))
    
31.     )
    
32.     ((member (cdr (assoc 0 ent)) '("LWPOLYLINE" "POLYLINE"))
    
33.      (setq m (vlax-curve-getendParam en))
    
34.      (while (>= m 0)
    
35.        (setq lst2  (cons (vlax-curve-getpointatparam en m) lst2)
    
36.        m  (1- m)
    
37.        )
    
38.      )
    
39.     )
    
40.     )
    
41.   )
    
42.   (while lst2
    
43.     (setq p    (car lst2)
    
44.     lst  (cdr lst2)
    
45.     lst3 (cons p lst3)
    
46.     )
    
47.     (if  lst2
    
48.       (setq lst2 (vl-remove-if '(lambda (x) (equal p x 1e-6)) lst2))
    
49.     )
    
50.   )
    
51.   (setq  lst3 (vl-sort lst3
    
52.           '(lambda (p1 p2)
    
53.        (if (equal (car p1) (car p2) 1e-6)
    
54.          (< (cadr p1) (cadr p2))
    
55.          (< (car p1) (car p2))
    
56.        )
    
57.            )
    
58.        )
    
59.   )
    
60.   (setq n (car lst3))
    
61.   (foreach n lst3
    
62.     (setq
    
63.       lst2 (mapcar
    
64.        '(lambda (x) (list n (vlax-curve-getclosestpointto x n t)))
    
65.        lst1a
    
66.      )
    
67.       lst2 (vl-sort lst2
    
68.         '(lambda (p1 p2)
    
69.            (< (distance (car p1) (cadr p1))
    
70.         (distance (car p2) (cadr p2))
    
71.            )
    
72.          )
    
73.      )
    
74.     )
    
75.     (setq acdoc  (vla-get-activedocument (vlax-get-acad-object))
    
76.     acspc  (vlax-get-property
    
77.       acdoc
    
78.       (if (= 1 (getvar 'CVPORT))
    
79.         'Paperspace
    
80.         'Modelspace
    
81.       )
    
82.     )
    
83.     )
    
84.     (setq p  (car lst2)
    
85.     pa (car p)
    
86.     pb (cadr p)
    
87.     pc (polar pa (* 0.5 pi) 500)
    
88.     )
    
89.     (vla-AddDimRotated
    
90.       acspc
    
91.       (vlax-3d-point pa)
    
92.       (vlax-3d-point pb)
    
93.       (vlax-3d-point pc)
    
94.       0
    
95.     )
    
96.     (setq
    
97.       lst2 (mapcar
    
98.        '(lambda (x) (list n (vlax-curve-getclosestpointto x n t)))
    
99.        lst1b
    
100.      )
     
101.       lst2 (vl-sort lst2
     
102.         '(lambda (p1 p2)
     
103.            (< (distance (car p1) (cadr p1))
     
104.         (distance (car p2) (cadr p2))
     
105.            )
     
106.          )
     
107.      )
     
108.     )
     
109.     (setq p  (car lst2)
     
110.     pa (car p)
     
111.     pb (cadr p)
     
112.     pc (polar pa 0 500)
     
113.     )
     
114.     (vla-AddDimRotated
     
115.       acspc
     
116.       (vlax-3d-point pa)
     
117.       (vlax-3d-point pb)
     
118.       (vlax-3d-point pc)
     
119.       (* 0.5 pi)
     
120.     )
     
121.   )
     
122. )

(defun c:test2<br />          (/ ss1 n  en ent lst1a lst1b ss2 lst2 lst3 m p pa  pb pc<br />     adoc acspc)<br />   (prompt "\n选择定位线:")<br />   (setq ss1 (ssget '((0 . "line"))))<br />   (repeat (setq n (sslength ss1))<br />     (setq en  (ssname ss1 (setq n (1- n)))<br />     ent (entget en)<br />     )<br />     (if  (equal (car (cdr (assoc 10 ent)))<br />          (car (cdr (assoc 11 ent)))<br />          1e-6<br />   )<br />       (setq lst1a (cons en lst1a))<br />       (setq lst1b (cons en lst1b))<br />     )<br />   )<br />   (prompt "\n选择标示物:")<br />   (setq ss2 (ssget '((0 . "*line,point,circle,arc"))))<br />   (repeat (setq n (sslength ss2))<br />     (setq en  (ssname ss2 (setq n (1- n)))<br />     ent (entget en)<br />     )<br />     (cond ((member (cdr (assoc 0 ent)) '("POINT" "CIRCLE"))<br />      (setq lst2 (cons (cdr (assoc 10 ent)) lst2))<br />     )<br />     ((member (cdr (assoc 0 ent)) '("LINE" "ARC"))<br />      (setq lst2 (cons (vlax-curve-getstartpoint en) lst2))<br />      (setq lst2 (cons (vlax-curve-getendpoint en) lst2))<br />     )<br />     ((member (cdr (assoc 0 ent)) '("LWPOLYLINE" "POLYLINE"))<br />      (setq m (vlax-curve-getendParam en))<br />      (while (>= m 0)<br />        (setq lst2  (cons (vlax-curve-getpointatparam en m) lst2)<br />        m  (1- m)<br />        )<br />      )<br />     )<br />     )<br />   )<br />   (while lst2<br />     (setq p    (car lst2)<br />     lst  (cdr lst2)<br />     lst3 (cons p lst3)<br />     )<br />     (if  lst2<br />       (setq lst2 (vl-remove-if '(lambda (x) (equal p x 1e-6)) lst2))<br />     )<br />   )<br />   (setq  lst3 (vl-sort lst3<br />           '(lambda (p1 p2)<br />        (if (equal (car p1) (car p2) 1e-6)<br />          (< (cadr p1) (cadr p2))<br />          (< (car p1) (car p2))<br />        )<br />            )<br />        )<br />   )<br />   (setq n (car lst3))<br />   (foreach n lst3<br />     (setq<br />       lst2 (mapcar<br />        '(lambda (x) (list n (vlax-curve-getclosestpointto x n t)))<br />        lst1a<br />      )<br />       lst2 (vl-sort lst2<br />         '(lambda (p1 p2)<br />            (< (distance (car p1) (cadr p1))<br />         (distance (car p2) (cadr p2))<br />            )<br />          )<br />      )<br />     )<br />     (setq acdoc  (vla-get-activedocument (vlax-get-acad-object))<br />     acspc  (vlax-get-property<br />       acdoc<br />       (if (= 1 (getvar 'CVPORT))<br />         'Paperspace<br />         'Modelspace<br />       )<br />     )<br />     )<br />     (setq p  (car lst2)<br />     pa (car p)<br />     pb (cadr p)<br />     pc (polar pa (* 0.5 pi) 500)<br />     )<br />     (vla-AddDimRotated<br />       acspc<br />       (vlax-3d-point pa)<br />       (vlax-3d-point pb)<br />       (vlax-3d-point pc)<br />       0<br />     )<br />     (setq<br />       lst2 (mapcar<br />        '(lambda (x) (list n (vlax-curve-getclosestpointto x n t)))<br />        lst1b<br />      )<br />       lst2 (vl-sort lst2<br />         '(lambda (p1 p2)<br />            (< (distance (car p1) (cadr p1))<br />         (distance (car p2) (cadr p2))<br />            )<br />          )<br />      )<br />     )<br />     (setq p  (car lst2)<br />     pa (car p)<br />     pb (cadr p)<br />     pc (polar pa 0 500)<br />     )<br />     (vla-AddDimRotated<br />       acspc<br />       (vlax-3d-point pa)<br />       (vlax-3d-point pb)<br />       (vlax-3d-point pc)<br />       (* 0.5 pi)<br />     )<br />   )<br /> )

ddqzmpaxlozc

x_s_s_1 发表于 2020-3-17 21:03
vla方法稍微快点

大佬，你能再帮着研究下标注之间避让的功能吗，你做的这个真是太合我心意了！！！

x_s_s_1

不好定避让规则

ddqzmpaxlozc

x_s_s_1 发表于 2020-3-17 21:18
不好定避让规则

麻烦您开动下脑筋想想呗，这个功能对我特别实用

ddqzmpaxlozc

x_s_s_1 发表于 2020-3-17 21:18
不好定避让规则

大佬，我再追加50悬赏您看可以吗

x_s_s_1

ddqzmpaxlozc 发表于 2020-3-17 21:30
大佬，我再追加50悬赏您看可以吗

你给个避让规则吧，我来根据规则编，实际上都标出来了，避让不避让无所谓了，手工调整就是的

ddqzmpaxlozc

x_s_s_1 发表于 2020-3-18 00:07
你给个避让规则吧，我来根据规则编，实际上都标出来了，避让不避让无所谓了，手工调整就是的

谢谢大佬，稍等一下，我编辑

ddqzmpaxlozc

x_s_s_1 发表于 2020-3-18 00:07
你给个避让规则吧，我来根据规则编，实际上都标出来了，避让不避让无所谓了，手工调整就是的

一、可以实现标注线之间相互避让，例如同方向的标注尺寸线之间距离最少为标注字高的1.5倍以上,如图1，2二、同一点的横纵向标注也应该避让，如图3,4

ddqzmpaxlozc

x_s_s_1 发表于 2020-3-18 00:07
你给个避让规则吧，我来根据规则编，实际上都标出来了，避让不避让无所谓了，手工调整就是的

需要不通过手工再调的，既是为了批量生成同轴线之间的定位标注，标注之间要避让开，这样确保打印出来可以看清楚，其实原则说白了就一点，标注线之间尽可能没有交叉，尺寸标注之间也互相避让。

mikewolf2k

避让规则很简单，按顺序标注，标注时候检测原来是否已有标注，有的话就向外增长一个值再放、再检测，直到无重叠为止。
当然编起来就比较费劲了。
参看我的管线标注避让。
避让规则很简单，按顺序标注，标注时候检测原来是否已有标注，有的话就向外增长一个值再放、再检测，直到无重叠为止。
当然编起来就比较费劲了。
参看我的管线标注避让。