点选标注 复制标注 按指定点移动标注并画线 ？？？→圆弧 符号的提取

zzmm

1. (defun c:tbx()  (setvar "cmdecho" 0)  (setq oldos (getvar "osmode"))  (setvar "osmode" 0)  (setq e (entsel "\n**选择标注:"))  (setq en (car e))  (start_getss)  (command "copy" en "" "0,0" "0,0"           "explode" (entlast))  (setq ss (getdrawss))  (setq i 0)  (repeat (if ss (sslength ss) 0)    (setq en0 (ssname ss i))    (setq typ (cdr (assoc 0 (entget en0))))    (if (= "MTEXT" typ)              (setq mtext0 en0)      (entdel en0)    )    (setq i (+ i 1))  ) (setq pt (cdr (assoc 10 (entget mtext0)))       hh (cdr (assoc 40 (entget mtext0)))       ww (cdr (assoc 42 (entget mtext0)))       rot (cdr (assoc 50 (entget mtext0))) ) (setq p0 (polar pt (+ rot (* pi 1.5)) (* hh 0.5))) (setq p1 (polar p0 (+ rot pi) (* ww 0.5)))  (setq pt1 (getpoint "\n选择文字插入点:"))   (command "move" mtext0 "" p1 pt1)   ;(entdel en0)  (command "-layer" "m" "dim" "c" 3 "dim" "")   (setq pt2 (polar pt1 (+ rot(* pi 0.5)) (* hh 0.2))         pt3 (polar pt2 (+ rot pi) (* hh 0.1))         pt4 (polar pt2 rot (+ ww 0.7))   )   (command "line" pt3 pt4 "")   (setq pt5 (polar pt1 (+ rot(* pi 0.5)) (* hh 0.8))         pt6 (polar pt5 (+ rot pi) (* hh 0.1))         pt7 (polar pt5 rot (+ ww 0.7))   )   (command "line" pt6 pt7 "")  (command "layer" "s" "0" "")  (setvar "osmode" oldos)  (setvar "cmdecho" 0)  (princ)  )  (defun start_getss ()  (setq StartEnt (entlast)))(defun getdrawss ()  (if StartEnt    (progn      (setq Draw_SS (ssadd))      (setq ssss_en StartEnt)      (while (setq ssss_en (entnext ssss_en))        (setq Draw_entype (cdr (assoc 0 (entget ssss_en))))        (if (and (/= (strcase Draw_entype) "ATTRIB")                 (/= (strcase Draw_entype) "SEQEND")            )          (setq Draw_SS (ssadd ssss_en Draw_SS))        )      )    )    (setq Draw_SS (ssget "_x"))  )  Draw_SS)

(defun c:tbx()  (setvar "cmdecho" 0)  (setq oldos (getvar "osmode"))  (setvar "osmode" 0)  (setq e (entsel "\n**选择标注:"))  (setq en (car e))  (start_getss)  (command "copy" en "" "0,0" "0,0"           "explode" (entlast))  (setq ss (getdrawss))  (setq i 0)  (repeat (if ss (sslength ss) 0)    (setq en0 (ssname ss i))    (setq typ (cdr (assoc 0 (entget en0))))    (if (= "MTEXT" typ)              (setq mtext0 en0)      (entdel en0)    )    (setq i (+ i 1))  ) (setq pt (cdr (assoc 10 (entget mtext0)))       hh (cdr (assoc 40 (entget mtext0)))       ww (cdr (assoc 42 (entget mtext0)))       rot (cdr (assoc 50 (entget mtext0))) ) (setq p0 (polar pt (+ rot (* pi 1.5)) (* hh 0.5))) (setq p1 (polar p0 (+ rot pi) (* ww 0.5)))  (setq pt1 (getpoint "\n选择文字插入点:"))   (command "move" mtext0 "" p1 pt1)   ;(entdel en0)  (command "-layer" "m" "dim" "c" 3 "dim" "")   (setq pt2 (polar pt1 (+ rot(* pi 0.5)) (* hh 0.2))         pt3 (polar pt2 (+ rot pi) (* hh 0.1))         pt4 (polar pt2 rot (+ ww 0.7))   )   (command "line" pt3 pt4 "")   (setq pt5 (polar pt1 (+ rot(* pi 0.5)) (* hh 0.8))         pt6 (polar pt5 (+ rot pi) (* hh 0.1))         pt7 (polar pt5 rot (+ ww 0.7))   )   (command "line" pt6 pt7 "")  (command "layer" "s" "0" "")  (setvar "osmode" oldos)  (setvar "cmdecho" 0)  (princ)  )  (defun start_getss ()  (setq StartEnt (entlast)))(defun getdrawss ()  (if StartEnt    (progn      (setq Draw_SS (ssadd))      (setq ssss_en StartEnt)      (while (setq ssss_en (entnext ssss_en))        (setq Draw_entype (cdr (assoc 0 (entget ssss_en))))        (if (and (/= (strcase Draw_entype) "ATTRIB")                 (/= (strcase Draw_entype) "SEQEND")            )          (setq Draw_SS (ssadd ssss_en Draw_SS))        )      )    )    (setq Draw_SS (ssget "_x"))  )  Draw_SS)

这行代码是选择标注  炸开   原点复制 去提取标注文字根据指定点进行移动 并画线
但是碰到圆弧标注的时候 就提取不出来了 应为炸开圆弧标注 有两个  或者4个圆弧
怎样才能把用红圈框起来的圆弧提取出来  并移动到相应的位置
                    
想做出的效果图


烦请各位版主帮帮忙   更改一下代码  感激不敬

zzmm

2. (defun c:tbx()
   
3.   (setvar "cmdecho" 0)
   
4.   (setq oldos (getvar "osmode"))
   
5.   (setvar "osmode" 0)
   
6.   (setq e (entsel "\n**选择标注:"))
   
7.   (setq en (car e))
   
8.   (start_getss)
   
9.   (command "copy" en "" "0,0" "0,0"
   
10.            "explode" (entlast))
    
11.   (setq ss (getdrawss))
    
12.   (setq i 0)
    
13.   (repeat (if ss (sslength ss) 0)
    
14.     (setq en0 (ssname ss i))
    
15.     (setq typ (cdr (assoc 0 (entget en0))))
    
16.     (if (= "MTEXT" typ)       
    
17.       (setq mtext0 en0)
    
18.       (entdel en0)
    
19.     )
    
20.     (setq i (+ i 1))
    
21.   )
    
22. (setq pt (cdr (assoc 10 (entget mtext0)))
    
23.        hh (cdr (assoc 40 (entget mtext0)))
    
24.        ww (cdr (assoc 42 (entget mtext0)))
    
25.        rot (cdr (assoc 50 (entget mtext0)))
    
26. )
    
27. (setq p0 (polar pt (+ rot (* pi 1.5)) (* hh 0.5)))
    
28. (setq p1 (polar p0 (+ rot pi) (* ww 0.5)))
    
29.   (setq pt1 (getpoint "\n选择文字插入点:"))
    
30.    (command "move" mtext0 "" p1 pt1)
    
31.    ;(entdel en0)
    
32.   (command "-layer" "m" "dim" "c" 3 "dim" "")
    
33.    (setq pt2 (polar pt1 (+ rot(* pi 0.5)) (* hh 0.2))
    
34.          pt3 (polar pt2 (+ rot pi) (* hh 0.1))
    
35.          pt4 (polar pt2 rot (+ ww 0.7))
    
36.    )
    
37.    (command "line" pt3 pt4 "")
    
38.    (setq pt5 (polar pt1 (+ rot(* pi 0.5)) (* hh 0.8))
    
39.          pt6 (polar pt5 (+ rot pi) (* hh 0.1))
    
40.          pt7 (polar pt5 rot (+ ww 0.7))
    
41.    )
    
42.    (command "line" pt6 pt7 "")
    
43.   (command "layer" "s" "0" "")
    
44.   (setvar "osmode" oldos)
    
45.   (setvar "cmdecho" 0)
    
46.   (princ)
    
47.   )
    
48.   
    
49. (defun start_getss ()
    
50.   (setq StartEnt (entlast))
    
51. )
    
52. 
    
53. 
    
54. (defun getdrawss ()
    
55.   (if StartEnt
    
56.     (progn
    
57.       (setq Draw_SS (ssadd))
    
58.       (setq ssss_en StartEnt)
    
59.       (while (setq ssss_en (entnext ssss_en))
    
60.         (setq Draw_entype (cdr (assoc 0 (entget ssss_en))))
    
61.         (if (and (/= (strcase Draw_entype) "ATTRIB")
    
62.                  (/= (strcase Draw_entype) "SEQEND")
    
63.             )
    
64.           (setq Draw_SS (ssadd ssss_en Draw_SS))
    
65.         )
    
66.       )
    
67.     )
    
68.     (setq Draw_SS (ssget "_x"))
    
69.   )
    
70.   Draw_SS
    
71. )

(defun c:tbx()<br />   (setvar "cmdecho" 0)<br />   (setq oldos (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setq e (entsel "\n**选择标注:"))<br />   (setq en (car e))<br />   (start_getss)<br />   (command "copy" en "" "0,0" "0,0"<br />            "explode" (entlast))<br />   (setq ss (getdrawss))<br />   (setq i 0)<br />   (repeat (if ss (sslength ss) 0)<br />     (setq en0 (ssname ss i))<br />     (setq typ (cdr (assoc 0 (entget en0))))<br />     (if (= "MTEXT" typ)        <br />       (setq mtext0 en0)<br />       (entdel en0)<br />     )<br />     (setq i (+ i 1))<br />   )<br /> (setq pt (cdr (assoc 10 (entget mtext0)))<br />        hh (cdr (assoc 40 (entget mtext0)))<br />        ww (cdr (assoc 42 (entget mtext0)))<br />        rot (cdr (assoc 50 (entget mtext0)))<br /> )<br /> (setq p0 (polar pt (+ rot (* pi 1.5)) (* hh 0.5)))<br /> (setq p1 (polar p0 (+ rot pi) (* ww 0.5)))<br />   (setq pt1 (getpoint "\n选择文字插入点:"))<br />    (command "move" mtext0 "" p1 pt1)<br />    ;(entdel en0)<br />   (command "-layer" "m" "dim" "c" 3 "dim" "")<br />    (setq pt2 (polar pt1 (+ rot(* pi 0.5)) (* hh 0.2))<br />          pt3 (polar pt2 (+ rot pi) (* hh 0.1))<br />          pt4 (polar pt2 rot (+ ww 0.7))<br />    )<br />    (command "line" pt3 pt4 "")<br />    (setq pt5 (polar pt1 (+ rot(* pi 0.5)) (* hh 0.8))<br />          pt6 (polar pt5 (+ rot pi) (* hh 0.1))<br />          pt7 (polar pt5 rot (+ ww 0.7))<br />    )<br />    (command "line" pt6 pt7 "")<br />   (command "layer" "s" "0" "")<br />   (setvar "osmode" oldos)<br />   (setvar "cmdecho" 0)<br />   (princ)<br />   )<br />   <br /> (defun start_getss ()<br />   (setq StartEnt (entlast))<br /> )<br /> <br /> <br /> (defun getdrawss ()<br />   (if StartEnt<br />     (progn<br />       (setq Draw_SS (ssadd))<br />       (setq ssss_en StartEnt)<br />       (while (setq ssss_en (entnext ssss_en))<br />         (setq Draw_entype (cdr (assoc 0 (entget ssss_en))))<br />         (if (and (/= (strcase Draw_entype) "ATTRIB")<br />                  (/= (strcase Draw_entype) "SEQEND")<br />             )<br />           (setq Draw_SS (ssadd ssss_en Draw_SS))<br />         )<br />       )<br />     )<br />     (setq Draw_SS (ssget "_x"))<br />   )<br />   Draw_SS<br /> )

xiabin68

楼历害哦，，，，，