怎么获取标注线的角度?

taoyi0727

用dxf 50 但是有的标注有50  有的没有  不知道为什么
大家有没有什么好的办法获取标注线的角度/弧度(cdr (assoc 50 (entget (car (entsel)))))

taoyi0727

自己搞了半天 用了黄大师的代码  还是有个地方没有搞定

2. (defun c:tt (/ hh:twoentsinters name1 name2 name-dxf pt1 pt2 pt3 pts r)
   
3.   (defun HH:TwoEntsInters (e1 e2 Flag / OBJ1 OBJ2 PTL PTS)
   
4.     (setq obj1 (vlax-ename->vla-object e1))
   
5.     (setq obj2 (vlax-ename->vla-object e2))
   
6.     (setq pts (vlax-invoke obj1 'Intersectwith obj2 Flag))
   
7.     (while pts
   
8.       (setq ptl (cons (list (car pts) (cadr pts)) ptl))
   
9.       (setq pts (cdddr pts))
   
10.     )
    
11.     ptl
    
12.   )
    
13.   (setq name-dxf (entget (car (entsel))))
    
14.   (setq pt1 (cdr (assoc 10 name-dxf)))
    
15.   (setq pt2 (cdr (assoc 11 name-dxf)))
    
16.   (setq r (cdr (assoc 42 name-dxf)))
    
17.   (entmake (list
    
18.              '(0 . "CIRCLE")
    
19.              '(100 . "AcDbEntity")
    
20.              '(100 . "AcDbCircle")
    
21.              (cons 10 pt1)
    
22.              (cons 40 r)
    
23.            )
    
24.   )
    
25.   (setq name1 (entlast))
    
26.   (entmake (list
    
27.              '(0 . "CIRCLE")
    
28.              '(100 . "AcDbEntity")
    
29.              '(100 . "AcDbCircle")
    
30.              (cons 10 pt2)
    
31.              (cons 40 (distance pt1 pt2)
    
32.              )
    
33.            )
    
34.   )
    
35.   (setq name2 (entlast))
    
36.   (setq pts (HH:TwoEntsInters name1 name2 0));交点列表  有两个点不知道怎么判断
    
37.   (setq pt3 .......)
    
38.   (entdel name1)
    
39.   (entdel name2)
    
40.   (angle pt3 pt1)
    
41. )

(defun c:tt (/ hh:twoentsinters name1 name2 name-dxf pt1 pt2 pt3 pts r)<br />   (defun HH:TwoEntsInters (e1 e2 Flag / OBJ1 OBJ2 PTL PTS)<br />     (setq obj1 (vlax-ename->vla-object e1))<br />     (setq obj2 (vlax-ename->vla-object e2))<br />     (setq pts (vlax-invoke obj1 'Intersectwith obj2 Flag))<br />     (while pts<br />       (setq ptl (cons (list (car pts) (cadr pts)) ptl))<br />       (setq pts (cdddr pts))<br />     )<br />     ptl<br />   )<br />   (setq name-dxf (entget (car (entsel))))<br />   (setq pt1 (cdr (assoc 10 name-dxf)))<br />   (setq pt2 (cdr (assoc 11 name-dxf)))<br />   (setq r (cdr (assoc 42 name-dxf)))<br />   (entmake (list<br />              '(0 . "CIRCLE")<br />              '(100 . "AcDbEntity")<br />              '(100 . "AcDbCircle")<br />              (cons 10 pt1)<br />              (cons 40 r)<br />            )<br />   )<br />   (setq name1 (entlast))<br />   (entmake (list<br />              '(0 . "CIRCLE")<br />              '(100 . "AcDbEntity")<br />              '(100 . "AcDbCircle")<br />              (cons 10 pt2)<br />              (cons 40 (distance pt1 pt2)<br />              )<br />            )<br />   )<br />   (setq name2 (entlast))<br />   (setq pts (HH:TwoEntsInters name1 name2 0));交点列表  有两个点不知道怎么判断<br />   (setq pt3 .......)<br />   (entdel name1)<br />   (entdel name2)<br />   (angle pt3 pt1)<br /> )

taoyi0727

写出来了 就只是求到了想要的结果 程序写不好 还画了两个辅助圆
求大神能改进下

2. (defun c:tt (/ hh:twoentsinters name1 name2 name-dxf pt1 pt2 pt3 pts r)
   
3.   (defun HH:TwoEntsInters (e1 e2 Flag / OBJ1 OBJ2 PTL PTS)
   
4.     (setq obj1 (vlax-ename->vla-object e1))
   
5.     (setq obj2 (vlax-ename->vla-object e2))
   
6.     (setq pts (vlax-invoke obj1 'Intersectwith obj2 Flag))
   
7.     (while pts
   
8.       (setq ptl (cons (list (car pts) (cadr pts)) ptl))
   
9.       (setq pts (cdddr pts))
   
10.     )
    
11.     ptl
    
12.   )
    
13.   (setq name-dxf (entget (car (entsel))))
    
14.   (setq pt1 (cdr (assoc 10 name-dxf)))
    
15.   (setq pt2 (cdr (assoc 11 name-dxf)))
    
16.   (setq r (cdr (assoc 42 name-dxf)))
    
17.   (entmake (list
    
18.              '(0 . "CIRCLE")
    
19.              '(100 . "AcDbEntity")
    
20.              '(100 . "AcDbCircle")
    
21.              (cons 10 pt1)
    
22.              (cons 40 r)
    
23.            )
    
24.   )
    
25.   (setq name1 (entlast))
    
26.   (entmake (list
    
27.              '(0 . "CIRCLE")
    
28.              '(100 . "AcDbEntity")
    
29.              '(100 . "AcDbCircle")
    
30.              (cons 10 pt2)
    
31.              (cons 40 (distance pt1 pt2)
    
32.              )
    
33.            )
    
34.   )
    
35.   (setq name2 (entlast))
    
36.   (setq pts (HH:TwoEntsInters name1 name2 0))
    
37.   (entdel name1)
    
38.   (entdel name2)
    
39.   (if (<
    
40.         (distance (cdr (assoc 13 name-dxf)) (car pts))
    
41.         (distance (cdr (assoc 13 name-dxf)) (cadr pts))
    
42.       )
    
43.     (setq pt3 (car pts))
    
44.     (setq pt3 (cadr pts))
    
45.   )
    
46.   (angle pt3 pt1)
    
47. )

(defun c:tt (/ hh:twoentsinters name1 name2 name-dxf pt1 pt2 pt3 pts r)<br />   (defun HH:TwoEntsInters (e1 e2 Flag / OBJ1 OBJ2 PTL PTS)<br />     (setq obj1 (vlax-ename->vla-object e1))<br />     (setq obj2 (vlax-ename->vla-object e2))<br />     (setq pts (vlax-invoke obj1 'Intersectwith obj2 Flag))<br />     (while pts<br />       (setq ptl (cons (list (car pts) (cadr pts)) ptl))<br />       (setq pts (cdddr pts))<br />     )<br />     ptl<br />   )<br />   (setq name-dxf (entget (car (entsel))))<br />   (setq pt1 (cdr (assoc 10 name-dxf)))<br />   (setq pt2 (cdr (assoc 11 name-dxf)))<br />   (setq r (cdr (assoc 42 name-dxf)))<br />   (entmake (list<br />              '(0 . "CIRCLE")<br />              '(100 . "AcDbEntity")<br />              '(100 . "AcDbCircle")<br />              (cons 10 pt1)<br />              (cons 40 r)<br />            )<br />   )<br />   (setq name1 (entlast))<br />   (entmake (list<br />              '(0 . "CIRCLE")<br />              '(100 . "AcDbEntity")<br />              '(100 . "AcDbCircle")<br />              (cons 10 pt2)<br />              (cons 40 (distance pt1 pt2)<br />              )<br />            )<br />   )<br />   (setq name2 (entlast))<br />   (setq pts (HH:TwoEntsInters name1 name2 0))<br />   (entdel name1)<br />   (entdel name2)<br />   (if (<<br />         (distance (cdr (assoc 13 name-dxf)) (car pts))<br />         (distance (cdr (assoc 13 name-dxf)) (cadr pts))<br />       )<br />     (setq pt3 (car pts))<br />     (setq pt3 (cadr pts))<br />   )<br />   (angle pt3 pt1)<br /> )

流动的清泉

我 是判断 10.14组码 之间的距离，但是有个问题，10.14的定位点可能会重合，这样就判断不出来了