指北针 的N 改为上边

gaolei_gaolei

这个指北针  N在下边，看这太别扭了，大哥们谁有空帮我改为上面

czb203

指北针 的N 修改为上边

cable2004

2. ;|
   
3. 命令：zbz
   
4. 功能：自定义指北针大小及方向
   
5. |;
   
6. 
   
7. (defun c:zbz ( / &ang1 &ang2 &dis1 &ent1 &kw1 &p1 &p2 &p3 &p4 &p5 &pt1 &pt2 &r1 &r2 x)
   
8. (setvar "cmdecho" 0)
   
9. (setvar "blipmode" 0)
   
10. (if (and (setq &p1 (getpoint "\n请指定圆心"))
    
11.           (setq &r1 (getdist &p1 "\n请输入圆半径"))
    
12.       )
    
13.      (progn
    
14.        (setq &r2 (* &r1 2))
    
15.        (entmake (list '(0 . "CIRCLE")
    
16.                        (cons 10 &p1)
    
17.                        (cons 40 &r1)
    
18.                  )
    
19.         )
    
20.     (setq &ent1 (entlast) &kw1 (ssadd) &kw1 (ssadd &ent1 &kw1))
    
21.     (setq &p5 (cadr (grread t)))
    
22.     (if (= (distance &p1 &p5) 0)
    
23.            (setq &ang1 0)
    
24.            (setq &ang1 (angle &p1 &p5))
    
25.          )
    
26.         (setq &p2 (polar &p1 &ang1 &r2)
    
27.               &p3 (polar &p1 (+ &ang1 (* pi 0.8)) &r2)
    
28.               &p4 (polar &p1 (- &ang1 (* pi 0.8)) &r2)
    
29.          )
    
30.         (entmake (list '(0 . "LWPOLYLINE")
    
31.                        '(100 . "AcDbEntity")
    
32.                        '(100 . "AcDbPolyline") (cons 90 3)
    
33.                        '(70 . 1) (cons 10 &p1) (cons 10 &p2) (cons 10 &p3)
    
34.                   )
    
35.          )
    
36.         (setq &ang2 (angle &p2 &p4)
    
37.               &pt1 (polar &p2 &ang2 &r2)
    
38.               &dis1 (distance &p1 &pt1)
    
39.               &pt1 (mapcar '(lambda (x)(* x 0.5))(mapcar '+ &p1 &pt1))
    
40.          )
    
41.         (setq &pt2 (polar &p4 &ang2 (* &r2 -1))
    
42.               &pt2 (mapcar '(lambda (x) (* x 0.5)) (mapcar '+ &p1 &pt2))
    
43.          )
    
44.         (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity")
    
45.                        '(100 . "AcDbPolyline") (cons 90 4) (cons 10 &p2)
    
46.                        '(40 . 0.0) (cons 41 &dis1) (cons 10 &pt1)(cons 10 &pt2) (cons 40 &dis1)
    
47.                        '(41 . 0.0) (cons 10 &p4)
    
48.                   )
    
49.          )
    
50.         (setq &p4 (polar &p1 &ang1 (+ &r2 &r1)) &ang2 (+ &ang1 (* pi 0.5))
    
51.              )
    
52.         (entmake (list '(0 . "TEXT") (cons 1 "N") (cons 10 &p4) (cons 40 (* &r1 0.8))
    
53.                       '(41 . 0.6) (cons 50 &ang2)
    
54.                       '(72 . 4) (cons 11 &p4)
    
55.                    )
    
56.          )
    
57.         (while (setq &ent1 (entnext &ent1))
    
58.                (setq &kw1 (ssadd &ent1 &kw1))
    
59.          )
    
60.         (command "ROTATE" &kw1 "" &p1 "R" &p1 &p2)
    
61.     )
    
62. )
    
63. (princ)
    
64. )
    

;|<br /> 命令：zbz<br /> 功能：自定义指北针大小及方向<br /> |;<br /> <br /> (defun c:zbz ( / &ang1 &ang2 &dis1 &ent1 &kw1 &p1 &p2 &p3 &p4 &p5 &pt1 &pt2 &r1 &r2 x)<br /> (setvar "cmdecho" 0) <br /> (setvar "blipmode" 0) <br /> (if (and (setq &p1 (getpoint "\n请指定圆心"))<br />           (setq &r1 (getdist &p1 "\n请输入圆半径"))<br />       )<br />      (progn<br />        (setq &r2 (* &r1 2))<br />        (entmake (list '(0 . "CIRCLE")<br />                        (cons 10 &p1)<br />                        (cons 40 &r1)<br />                  )<br />         )<br />     (setq &ent1 (entlast) &kw1 (ssadd) &kw1 (ssadd &ent1 &kw1))<br />     (setq &p5 (cadr (grread t)))<br />     (if (= (distance &p1 &p5) 0)<br />            (setq &ang1 0)<br />            (setq &ang1 (angle &p1 &p5))<br />          )<br />         (setq &p2 (polar &p1 &ang1 &r2)<br />               &p3 (polar &p1 (+ &ang1 (* pi 0.8)) &r2)<br />               &p4 (polar &p1 (- &ang1 (* pi 0.8)) &r2)<br />          )<br />         (entmake (list '(0 . "LWPOLYLINE")<br />                        '(100 . "AcDbEntity")<br />                        '(100 . "AcDbPolyline") (cons 90 3)<br />                        '(70 . 1) (cons 10 &p1) (cons 10 &p2) (cons 10 &p3)<br />                   )<br />          )<br />         (setq &ang2 (angle &p2 &p4)<br />               &pt1 (polar &p2 &ang2 &r2)<br />               &dis1 (distance &p1 &pt1)<br />               &pt1 (mapcar '(lambda (x)(* x 0.5))(mapcar '+ &p1 &pt1))<br />          )<br />         (setq &pt2 (polar &p4 &ang2 (* &r2 -1))<br />               &pt2 (mapcar '(lambda (x) (* x 0.5)) (mapcar '+ &p1 &pt2))<br />          )<br />         (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity")<br />                        '(100 . "AcDbPolyline") (cons 90 4) (cons 10 &p2)<br />                        '(40 . 0.0) (cons 41 &dis1) (cons 10 &pt1)(cons 10 &pt2) (cons 40 &dis1)<br />                        '(41 . 0.0) (cons 10 &p4)<br />                   )<br />          )<br />         (setq &p4 (polar &p1 &ang1 (+ &r2 &r1)) &ang2 (+ &ang1 (* pi 0.5))<br />              )<br />         (entmake (list '(0 . "TEXT") (cons 1 "N") (cons 10 &p4) (cons 40 (* &r1 0.8))<br />                       '(41 . 0.6) (cons 50 &ang2)<br />                       '(72 . 4) (cons 11 &p4)<br />                    )<br />          )<br />         (while (setq &ent1 (entnext &ent1))<br />                (setq &kw1 (ssadd &ent1 &kw1))<br />          )<br />         (command "ROTATE" &kw1 "" &p1 "R" &p1 &p2)<br />     )<br /> ) <br /> (princ)<br /> )<br />

oistre

tooltip,指定基点粘贴!
sleep, 500
tooltip,
send,^+v
return

gaolei_gaolei

感谢大哥，学习了