Show一下刚做的动态标方位角度 有码

snddd2000

和雷锋、cabinsummer、highflybir的帖子里学了下动态显示，特此感谢。
小秀一下，录制软件慢了点。望指导
主要用在化工设备的方位图，角度标注。模拟捕捉符号

1. (defun c:qq ()
   
2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
3.   (setq r1 (/ (getvar "viewsize") 500))
   
4.   (setq r1 (* (read (getenv "AutoSnapSize")) r1))
   
5.   (setq pt1 '(0 0))
   
6.   (setq        lst1  '()
   
7.         setp0 (/ pi 10)
   
8.   )
   
9.   (repeat 5
   
10. 
    
11.     (setq lst1 (cons (polar pt1 setp0 r1) lst1))
    
12.     (setq setp0 (+ setp0 (/ (* 2 pi) 5)))
    
13. 
    
14.   )
    
15.   (setq        entlist00 (entmake
    
16.                     (append
    
17.                       (list
    
18.                         (cons 0 "LWPOLYLINE")
    
19.                         (cons 100 "AcDbEntity")
    
20.                         (cons 100 "AcDbPolyline")
    
21.                         (cons 90 (length lst1))
    
22.                         (cons 70 1)
    
23.                         (cons 62 (read (getenv "AutoSnapColor")))
    
24.                         (cons 43 (/ r1 5))
    
25.                       )
    
26.                       (mapcar '(lambda (p) (cons 10 p)) lst1)
    
27.                     )
    
28.                   )
    
29.   )
    
30.   (setq        ent00 (entlast)
    
31.         pd    t
    
32.   )
    
33.   (entdel ent00)
    
34.   (setq pd00 nil) ;_起始图元，先挂起；标记pd00为nil则不显示
    
35. 
    
36. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
37.   (prompt "\n选择圆或圆弧")
    
38.   (while (null (setq ss01 (ssget ":S" '((0 . "CIRCLE,ARC"))))
    
39.          )
    
40.   )
    
41.   (setq ent01 (ssname ss01 0))
    
42.   (setq cpt01 (cdr (assoc 10 (entget ent01)))) ;_圆弧或圆的圆心坐标
    
43. 
    
44.   (setq pt01 cpt01)
    
45.   (setq        entlist0 (entmake (list        '(0 . "MTEXT")
    
46.                                 '(100 . "AcDbEntity")
    
47.                                 '(100 . "AcDbMText")
    
48.                                 '(8 . "尺寸线")
    
49.                                 (cons 10 pt01)
    
50.                                 '(40 . 18.0)
    
51.                                 '(41 . 0.0)
    
52.                                 '(71 . 5)
    
53.                                 '(72 . 1)
    
54.                                 '(1 . "0%%D")
    
55.                                 '(7 . "Simplex67")
    
56.                                 '(210 0.0 0.0 1.0)
    
57.                                 '(11 1.0 0.0 0.0)
    
58.                                 '(42 . 32.16)
    
59.                                 '(43 . 24.0)
    
60.                                 '(50 . 0.0)
    
61.                                 '(73 . 1)
    
62.                                 '(44 . 1.0)
    
63.                           )
    
64.                  )
    
65.   )
    
66.   (setq        ent0 (entlast)
    
67.         pd   t
    
68.   )
    
69.   (while pd
    
70.     (setq mm (grread t 4))
    
71.     (cond
    
72.       ((= 25 (car mm)) (progn (entdel ent0) (setq pd nil)))
    
73.       ((= 5 (car mm))
    
74.        (progn
    
75.          (setq pd t)
    
76.          (setq pt0 (cadr mm))
    
77.          (entdel ent0)
    
78. 
    
79.          (if pd00
    
80.            (progn (entdel ent00)
    
81.                   (setq pd00 nil)
    
82.            )
    
83.          )
    
84.          (setq pt1 (osnap pt0 "_end,_int,nea"))
    
85.          (entdel ent0)
    
86.          (if pt1
    
87.            (setq pt0 pt1)
    
88.          )
    
89. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
90.          (if pt1
    
91.            (progn
    
92.              (setq r1 (/ (getvar "viewsize") 500))
    
93.              (setq r1 (* (read (getenv "AutoSnapSize")) r1))
    
94.              (setq lst1         '()
    
95.                    setp0 (/ pi 10)
    
96.              )
    
97.              (if (null pd00)
    
98.                (progn (entdel ent00)
    
99.                       (setq pd00 t) ;_捕捉图元，显示,标记pd00为t则显示
    
100.                )
     
101.              ) ;_end if
     
102.              (setq entlist00 (entget ent00))
     
103.              (setq entlist00
     
104.                     (mapcar
     
105.                       '(lambda (e)
     
106.                          (cond
     
107.                            ((= 10 (car e))
     
108.                             (progn
     
109.                               (setq e (cons 10 (polar pt1 setp0 r1)))
     
110.                               (setq setp0 (+ setp0 (/ (* 2 pi) 5)))
     
111.                               (setq e e)
     
112.                             ) ;_end progn
     
113.                            )
     
114.                            ((= 43 (car e)) (setq e (cons 43 (/ r1 5))))
     
115.                            (t (setq e e))
     
116.                          ) ;_end cond
     
117.                        ) ;_end lambda
     
118.                       entlist00
     
119.                     ) ;_end mapcar
     
120.              ) ;_end setq entlist00
     
121.              (entmod entlist00)
     
122.            )
     
123.          )
     
124. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;         
     
125. 
     
126.          (setq txt0 (rtos (* 180 (/ (angle cpt01 pt0) pi)) 2 1))
     
127.          (setq txt0 (strcat txt0 "%%d"))
     
128.          (setq entlist0 (entget ent0))
     
129.          (setq
     
130.            entlist0 (subst (cons 10 pt0) (assoc 10 entlist0) entlist0)
     
131.          )
     
132.          (setq
     
133.            entlist0 (subst (cons 1 txt0) (assoc 1 entlist0) entlist0)
     
134.          )
     
135.          (entmod entlist0)
     
136. ;;;         (entupd ent0)
     
137.        )
     
138.       )
     
139.       (t (setq pd nil))
     
140.     )
     
141.   )
     
142.   (if pd00
     
143.     (progn (entdel ent00) (setq pd00 nil)) ;_最后删除标记
     
144.   ) ;_end if
     
145. ) ;_end defun
     

(defun c:qq ()<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   (setq r1 (/ (getvar "viewsize") 500))<br />   (setq r1 (* (read (getenv "AutoSnapSize")) r1))<br />   (setq pt1 '(0 0))<br />   (setq        lst1  '()<br />         setp0 (/ pi 10)<br />   )<br />   (repeat 5<br /> <br />     (setq lst1 (cons (polar pt1 setp0 r1) lst1))<br />     (setq setp0 (+ setp0 (/ (* 2 pi) 5)))<br /> <br />   )<br />   (setq        entlist00 (entmake<br />                     (append<br />                       (list<br />                         (cons 0 "LWPOLYLINE")<br />                         (cons 100 "AcDbEntity")<br />                         (cons 100 "AcDbPolyline")<br />                         (cons 90 (length lst1))<br />                         (cons 70 1)<br />                         (cons 62 (read (getenv "AutoSnapColor")))<br />                         (cons 43 (/ r1 5))<br />                       )<br />                       (mapcar '(lambda (p) (cons 10 p)) lst1)<br />                     )<br />                   )<br />   )<br />   (setq        ent00 (entlast)<br />         pd    t<br />   )<br />   (entdel ent00)<br />   (setq pd00 nil) ;_起始图元，先挂起；标记pd00为nil则不显示<br /> <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   (prompt "\n选择圆或圆弧")<br />   (while (null (setq ss01 (ssget ":S" '((0 . "CIRCLE,ARC"))))<br />          )<br />   )<br />   (setq ent01 (ssname ss01 0))<br />   (setq cpt01 (cdr (assoc 10 (entget ent01)))) ;_圆弧或圆的圆心坐标<br /> <br />   (setq pt01 cpt01)<br />   (setq        entlist0 (entmake (list        '(0 . "MTEXT")<br />                                 '(100 . "AcDbEntity")<br />                                 '(100 . "AcDbMText")<br />                                 '(8 . "尺寸线")<br />                                 (cons 10 pt01)<br />                                 '(40 . 18.0)<br />                                 '(41 . 0.0)<br />                                 '(71 . 5)<br />                                 '(72 . 1)<br />                                 '(1 . "0%%D")<br />                                 '(7 . "Simplex67")<br />                                 '(210 0.0 0.0 1.0)<br />                                 '(11 1.0 0.0 0.0)<br />                                 '(42 . 32.16)<br />                                 '(43 . 24.0)<br />                                 '(50 . 0.0)<br />                                 '(73 . 1)<br />                                 '(44 . 1.0)<br />                           )<br />                  )<br />   )<br />   (setq        ent0 (entlast)<br />         pd   t<br />   )<br />   (while pd<br />     (setq mm (grread t 4))<br />     (cond<br />       ((= 25 (car mm)) (progn (entdel ent0) (setq pd nil)))<br />       ((= 5 (car mm))<br />        (progn<br />          (setq pd t)<br />          (setq pt0 (cadr mm))<br />          (entdel ent0)<br /> <br />          (if pd00<br />            (progn (entdel ent00)<br />                   (setq pd00 nil)<br />            )<br />          )<br />          (setq pt1 (osnap pt0 "_end,_int,nea"))<br />          (entdel ent0)<br />          (if pt1<br />            (setq pt0 pt1)<br />          )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />          (if pt1<br />            (progn<br />              (setq r1 (/ (getvar "viewsize") 500))<br />              (setq r1 (* (read (getenv "AutoSnapSize")) r1))<br />              (setq lst1         '()<br />                    setp0 (/ pi 10)<br />              )<br />              (if (null pd00)<br />                (progn (entdel ent00)<br />                       (setq pd00 t) ;_捕捉图元，显示,标记pd00为t则显示<br />                )<br />              ) ;_end if<br />              (setq entlist00 (entget ent00))<br />              (setq entlist00<br />                     (mapcar<br />                       '(lambda (e)<br />                          (cond<br />                            ((= 10 (car e))<br />                             (progn<br />                               (setq e (cons 10 (polar pt1 setp0 r1)))<br />                               (setq setp0 (+ setp0 (/ (* 2 pi) 5)))<br />                               (setq e e)<br />                             ) ;_end progn<br />                            )<br />                            ((= 43 (car e)) (setq e (cons 43 (/ r1 5))))<br />                            (t (setq e e))<br />                          ) ;_end cond<br />                        ) ;_end lambda<br />                       entlist00<br />                     ) ;_end mapcar<br />              ) ;_end setq entlist00<br />              (entmod entlist00)<br />            )<br />          )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;         <br /> <br />          (setq txt0 (rtos (* 180 (/ (angle cpt01 pt0) pi)) 2 1))<br />          (setq txt0 (strcat txt0 "%%d"))<br />          (setq entlist0 (entget ent0))<br />          (setq<br />            entlist0 (subst (cons 10 pt0) (assoc 10 entlist0) entlist0)<br />          )<br />          (setq<br />            entlist0 (subst (cons 1 txt0) (assoc 1 entlist0) entlist0)<br />          )<br />          (entmod entlist0)<br /> ;;;         (entupd ent0)<br />        )<br />       )<br />       (t (setq pd nil))<br />     )<br />   )<br />   (if pd00<br />     (progn (entdel ent00) (setq pd00 nil)) ;_最后删除标记<br />   ) ;_end if<br /> ) ;_end defun<br />

cabinsummer

很好的应用实例

yshf

不错，好程序！

skg123

楼主，选择什么对象才可以？直线被过滤了

skg123

skg123 发表于 2012-4-8 13:36
楼主，选择什么对象才可以？直线被过滤了

多谢，可以运行了