[源码]跟随鼠标旋转

004

1. ;;跟随鼠标旋转
   
2. ;;wkq004   20140331
   
3. (defun c:xx ()
   
4.   ;;临时取消捕捉
   
5. ;;;(defun ybl-osmode (/ os)
   
6. ;;;  (if (>= (setq os (getvar "osmode")) 16384)
   
7. ;;;    (setvar "osmode" (- os 16384))
   
8. ;;;    (setvar "osmode" (+ os 16384))
   
9. ;;;  )
   
10. ;;;  (princ)
    
11. ;;;)
    
12. (setq os (getvar "osmode"))
    
13.   (setvar "osmode" 0)
    
14.   (princ "\n选择要旋转的对象：")
    
15.   (setq ss (ssget))
    
16.   (repeat (setq i (sslength ss))
    
17.     (redraw (ssname ss (1- i)) 3)
    
18.   )
    
19.   (setq pt (getpoint  "\n指定基点："))
    
20. ;;;  (ybl-osmode)
    
21. ;;;  (command "_.delay" 100)
    
22. 
    
23.   (entmake (list '(0 . "LINE")
    
24.                          '(100 . "AcDbEntity")
    
25.                          '(100 . "AcDbLine")
    
26.                          (cons 10 pt)
    
27.                          (cons 11 (polar pt 0 0.001))
    
28.                          '(62 . 7)
    
29.                          '(210 0. 0. 1.)
    
30.                    )
    
31.           )
    
32.   (setq        e (entlast)
    
33.   )
    
34.   (setq el (entget e))
    
35.   (setq cs 40)
    
36.   (while (> cs 0)
    
37.     (if        (and (setq TMP (grread t 7 1)) (= (car TMP) 5))
    
38.       (progn        
    
39.         (setq cs (1- cs))
    
40.         (setq el (subst (cons 11 (cadr tmp)) (assoc 11 el) el))
    
41.         (entmod el)
    
42.       )
    
43.     )
    
44.   )
    
45.   (entdel e)
    
46. ;;;  (grread t 7 1)
    
47.   (command ".rotate"
    
48.            ss
    
49.            ""
    
50.            pt
    
51.            "r"
    
52.            pt
    
53.            (cond ((and (setq TMP (grread t 7 1)) (= (car TMP) 5)) ;_移动
    
54.                   (setq PT2 (cadr TMP))
    
55.                  )
    
56.            )
    
57.            pause
    
58.   )
    
59. 
    
60.   (setvar "osmode" os)
    
61. ;;;  (ybl-osmode)
    
62. )
    

;;跟随鼠标旋转<br /> ;;wkq004   20140331<br /> (defun c:xx ()<br />   ;;临时取消捕捉<br /> ;;;(defun ybl-osmode (/ os)<br /> ;;;  (if (>= (setq os (getvar "osmode")) 16384)<br /> ;;;    (setvar "osmode" (- os 16384))<br /> ;;;    (setvar "osmode" (+ os 16384))<br /> ;;;  )<br /> ;;;  (princ)<br /> ;;;)<br /> (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (princ "\n选择要旋转的对象：")<br />   (setq ss (ssget))<br />   (repeat (setq i (sslength ss))<br />     (redraw (ssname ss (1- i)) 3)<br />   )<br />   (setq pt (getpoint  "\n指定基点："))<br /> ;;;  (ybl-osmode)<br /> ;;;  (command "_.delay" 100)<br /> <br />   (entmake (list '(0 . "LINE")<br />                          '(100 . "AcDbEntity")<br />                          '(100 . "AcDbLine")<br />                          (cons 10 pt)<br />                          (cons 11 (polar pt 0 0.001))<br />                          '(62 . 7)<br />                          '(210 0. 0. 1.)<br />                    )<br />           )<br />   (setq        e (entlast)<br />   )<br />   (setq el (entget e))<br />   (setq cs 40)<br />   (while (> cs 0)<br />     (if        (and (setq TMP (grread t 7 1)) (= (car TMP) 5))<br />       (progn        <br />         (setq cs (1- cs))<br />         (setq el (subst (cons 11 (cadr tmp)) (assoc 11 el) el))<br />         (entmod el)<br />       )<br />     )<br />   )<br />   (entdel e)<br /> ;;;  (grread t 7 1)<br />   (command ".rotate"<br />            ss<br />            ""<br />            pt<br />            "r"<br />            pt<br />            (cond ((and (setq TMP (grread t 7 1)) (= (car TMP) 5)) ;_移动<br />                   (setq PT2 (cadr TMP))<br />                  )<br />            )<br />            pause<br />   )<br /> <br />   (setvar "osmode" os)<br /> ;;;  (ybl-osmode)<br /> )<br />

lingduwx

这个功能非常实用，实际应用中发现指定基点的时候无法捕捉，需要每次单独设置捕捉，
另外如果可以增加一个功能就更好了，就是指定基点之后，如果直接输入数字即为旋转角度，鼠标点击的话，则是更随鼠标，那样就更完美了，希望楼主修改一下，谢谢

519995995

支持 源码，明经有你更精彩。
2楼的功能正是我想要的。希望楼主为大家花点时间，我等

qq1254582201

就是不太灵敏，无法捕捉哦

尘缘一生

为本代码进一步增强修改：

1：取消定位点，减小动作，加快画图速度。
2：最后跟随鼠标定位。

2. ;;跟随鼠标旋转+移动定位
   
3. (defun c:xx (/ os ss i pt e e1 cs tmp pt2)
   
4. (setq os (getvar "osmode"))
   
5.   (setvar "osmode" 0)
   
6.   (princ "\n选择要旋转的对象：")
   
7.   (setq ss (ssget))
   
8.   (repeat (setq i (sslength ss))
   
9.     (redraw (ssname ss (1- i)) 3)
   
10.   )
    
11.   (setq pt (nth 1 (grread 5)))
    
12.   (entmake (list '(0 . "LINE")
    
13.        '(100 . "AcDbEntity")
    
14.        '(100 . "AcDbLine")
    
15.        (cons 10 pt)
    
16.        (cons 11 (polar pt 0 0.001))
    
17.        '(62 . 7)
    
18.        '(210 0. 0. 1.)
    
19.        )
    
20.     )
    
21.   (setq  e (entlast)
    
22.   )
    
23.   (setq el (entget e))
    
24.   (setq cs 40)
    
25.   (while (> cs 0)
    
26.     (if  (and (setq TMP (grread t 7 1)) (= (car TMP) 5))
    
27.       (progn  
    
28.   (setq cs (1- cs))
    
29.   (setq el (subst (cons 11 (cadr tmp)) (assoc 11 el) el))
    
30.   (entmod el)
    
31.       )
    
32.     )
    
33.   )
    
34.   (entdel e)
    
35.   (command ".rotate"
    
36.      ss
    
37.      ""
    
38.      pt
    
39.      "r"
    
40.      pt
    
41.      (cond ((and (setq TMP (grread t 7 1)) (= (car TMP) 5)) ;_移动
    
42.       (setq PT2 (cadr TMP))
    
43.      )
    
44.      )
    
45.      pause
    
46.   )
    
47.   (command "MOVE" ss "" pt2)
    
48.   (setvar "osmode" os)
    
49. )

;;跟随鼠标旋转+移动定位<br /> (defun c:xx (/ os ss i pt e e1 cs tmp pt2)<br /> (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (princ "\n选择要旋转的对象：")<br />   (setq ss (ssget))<br />   (repeat (setq i (sslength ss))<br />     (redraw (ssname ss (1- i)) 3)<br />   )<br />   (setq pt (nth 1 (grread 5))) <br />   (entmake (list '(0 . "LINE")<br />        '(100 . "AcDbEntity")<br />        '(100 . "AcDbLine")<br />        (cons 10 pt)<br />        (cons 11 (polar pt 0 0.001))<br />        '(62 . 7)<br />        '(210 0. 0. 1.)<br />        )<br />     )<br />   (setq  e (entlast)<br />   )<br />   (setq el (entget e))<br />   (setq cs 40)<br />   (while (> cs 0)<br />     (if  (and (setq TMP (grread t 7 1)) (= (car TMP) 5))<br />       (progn  <br />   (setq cs (1- cs))<br />   (setq el (subst (cons 11 (cadr tmp)) (assoc 11 el) el))<br />   (entmod el)<br />       )<br />     )<br />   )<br />   (entdel e)<br />   (command ".rotate"<br />      ss<br />      ""<br />      pt<br />      "r"<br />      pt<br />      (cond ((and (setq TMP (grread t 7 1)) (= (car TMP) 5)) ;_移动<br />       (setq PT2 (cadr TMP))<br />      )<br />      )<br />      pause<br />   )<br />   (command "MOVE" ss "" pt2)<br />   (setvar "osmode" os)<br /> )