分享带捕捉的grread示例

lucas_3333

1. ;cursor osnap  
   
2. ;hanhphuc #12  
   
3. ;13/08/14  
   
4. ;argument:  
   
5. ;_pt = points , Y,X,Z   
   
6. ;_os = osnap std command 'STR  
   
7. ;_sz = size of pickbox , 'REAL  
   
8. ;_rb = rubber band, t / nil  
   
9. (defun hp:cursnap (_pt _os _sz rb / c a b l i _tp var pbox snap) ; "_end,_mid""_nea"
   
10.   (setq  var  (mapcar 'getvar '("pickbox" "cursorsize"))
    
11.   pbox '((_pt sz c / ls n)
    
12.          (setq
    
13.     ls
    
14.     (foreach
    
15.      m
    
16.      '((0.25 0.75 1.25 1.75 0.25) (0.75 1.25 1.75 0.25 0.75))
    
17.      (setq
    
18.       n
    
19.       (cons
    
20.        (mapcar
    
21.         ''((x) (polar _pt (* pi x) (* sz (/ (getvar "viewsize") (cadr (getvar "screensize"))))))
    
22.         m
    
23.         ) ;_ end of mapcar
    
24.        n
    
25.        ) ;_ end of cons
    
26.       ) ;_ end of setq
    
27.      ) ;_ end of foreach
    
28.     ) ;_ end of setq
    
29.          (mapcar
    
30.     ''((a b) (grdraw (list (car a) (cadr a)) (list (car b) (cadr b)) c 0))
    
31.     (car ls)
    
32.     (cadr ls)
    
33.     ) ;_ end of mapcar
    
34.          ) ;_ end of defun
    
35.   snap '((_pt)
    
36.          (grvecs
    
37.     (apply
    
38.      'append
    
39.      (mapcar
    
40.       ''((x)
    
41.          (list 2 _pt (polar _pt (* pi x) (car (getvar "screensize"))))
    
42. ;;;            (*  (cadr var) 5. (/ (getvar "viewsize") (cadr (getvar "screensize")))))) <------- not perfect yet
    
43.          )
    
44.       '(0.0 0.5 1.0 1.5)
    
45.       ) ;_ end of mapcar
    
46.      ) ;_ end of apply
    
47.     ) ;_ end of grvecs
    
48.          (pbox _pt (* _sz 1.25) 2)
    
49.          (mapcar 'setvar '("pickbox" "cursorsize") '(0 1)); <---- to restore
    
50.          )
    
51.   _tp  _pt
    
52.   i    5
    
53.   a    '(not (setq ip (osnap _tp _os)))
    
54.   b    '(osnap _tp _os) ;"_end,_int"
    
55.   c    a
    
56.   ) ;_ end of setq
    
57.   (while (= 5 (car (setq l (grread nil 15 0))))
    
58.     (eval c)
    
59.     (setq i   (car l)
    
60.     _tp (cadr l)
    
61.     ) ;_ end of setq
    
62.     (redraw)
    
63.     (if  _pt
    
64.       (progn (if ip
    
65.          (progn (snap ip)
    
66.           (if rb
    
67.       (grdraw _pt ip 8 1)
    
68.       ) ;_ end of grdraw <----------- rubber band
    
69.           ) ;_ end of progn
    
70.          (progn
    
71.      
    
72. (pbox _tp _sz 7) ;<----------  optional: normal box
    
73.      
    
74.           (if rb
    
75.       (grdraw _pt _tp 8 1)
    
76.       ) ;_ end of grdraw <----------- rubber band
    
77.           (mapcar 'setvar '("pickbox" "cursorsize") var)
    
78.           ) ;_ end of progn
    
79.          ) ;_ end of if
    
80.        ) ;_ end of progn
    
81.       ) ;_ end of if
    
82.     ) ;_ end of while
    
83.   (if ip
    
84.     (setq c b)
    
85.     (setq c a)
    
86.     ) ;_ end of if
    
87.   (mapcar 'setvar '("pickbox" "cursorsize") var)
    
88.   (redraw)
    
89.   (setq *ret* (apply 'append (vl-remove nil (list ip _tp))))
    
90.   ) ;_ end of defun
    
91. 
    
92. (defun c:test1 (/ o )
    
93. (setvar "osmode" 0)  ; <------ off the osmode to test
    
94. (hp:cursnap (getvar "viewctr") "_end" 10. nil)
    
95. (princ *ret*)
    
96. (princ)
    
97.   )
    
98. 
    
99. (defun c:test2 (/ o )
    
100. (setvar "osmode" 0)
     
101. (hp:cursnap (getvar "viewctr") "_near" 10. t)
     
102. (princ *ret*)
     
103. (princ)
     
104.   )

;cursor osnap  <br /> ;hanhphuc #12  <br /> ;13/08/14  <br /> ;argument:  <br /> ;_pt = points , Y,X,Z    <br /> ;_os = osnap std command 'STR  <br /> ;_sz = size of pickbox , 'REAL  <br /> ;_rb = rubber band, t / nil  <br /> (defun hp:cursnap (_pt _os _sz rb / c a b l i _tp var pbox snap) ; "_end,_mid""_nea"<br />   (setq  var  (mapcar 'getvar '("pickbox" "cursorsize"))<br />   pbox '((_pt sz c / ls n)<br />          (setq<br />     ls<br />     (foreach<br />      m<br />      '((0.25 0.75 1.25 1.75 0.25) (0.75 1.25 1.75 0.25 0.75))<br />      (setq<br />       n<br />       (cons<br />        (mapcar<br />         ''((x) (polar _pt (* pi x) (* sz (/ (getvar "viewsize") (cadr (getvar "screensize"))))))<br />         m<br />         ) ;_ end of mapcar<br />        n<br />        ) ;_ end of cons<br />       ) ;_ end of setq<br />      ) ;_ end of foreach<br />     ) ;_ end of setq<br />          (mapcar<br />     ''((a b) (grdraw (list (car a) (cadr a)) (list (car b) (cadr b)) c 0))<br />     (car ls)<br />     (cadr ls)<br />     ) ;_ end of mapcar<br />          ) ;_ end of defun<br />   snap '((_pt)<br />          (grvecs<br />     (apply<br />      'append<br />      (mapcar<br />       ''((x)<br />          (list 2 _pt (polar _pt (* pi x) (car (getvar "screensize"))))<br /> ;;;            (*  (cadr var) 5. (/ (getvar "viewsize") (cadr (getvar "screensize")))))) <------- not perfect yet<br />          )<br />       '(0.0 0.5 1.0 1.5)<br />       ) ;_ end of mapcar<br />      ) ;_ end of apply<br />     ) ;_ end of grvecs<br />          (pbox _pt (* _sz 1.25) 2)<br />          (mapcar 'setvar '("pickbox" "cursorsize") '(0 1)); <---- to restore <br />          )<br />   _tp  _pt<br />   i    5<br />   a    '(not (setq ip (osnap _tp _os)))<br />   b    '(osnap _tp _os) ;"_end,_int"<br />   c    a<br />   ) ;_ end of setq<br />   (while (= 5 (car (setq l (grread nil 15 0))))<br />     (eval c)<br />     (setq i   (car l)<br />     _tp (cadr l)<br />     ) ;_ end of setq<br />     (redraw)<br />     (if  _pt<br />       (progn (if ip<br />          (progn (snap ip)<br />           (if rb<br />       (grdraw _pt ip 8 1)<br />       ) ;_ end of grdraw <----------- rubber band<br />           ) ;_ end of progn<br />          (progn<br />      <br /> (pbox _tp _sz 7) ;<----------  optional: normal box <br />      <br />           (if rb<br />       (grdraw _pt _tp 8 1)<br />       ) ;_ end of grdraw <----------- rubber band<br />           (mapcar 'setvar '("pickbox" "cursorsize") var)<br />           ) ;_ end of progn<br />          ) ;_ end of if<br />        ) ;_ end of progn<br />       ) ;_ end of if<br />     ) ;_ end of while<br />   (if ip<br />     (setq c b)<br />     (setq c a)<br />     ) ;_ end of if<br />   (mapcar 'setvar '("pickbox" "cursorsize") var)<br />   (redraw)<br />   (setq *ret* (apply 'append (vl-remove nil (list ip _tp))))<br />   ) ;_ end of defun<br /> <br /> (defun c:test1 (/ o )<br /> (setvar "osmode" 0)  ; <------ off the osmode to test<br /> (hp:cursnap (getvar "viewctr") "_end" 10. nil)<br /> (princ *ret*)<br /> (princ)<br />   )<br /> <br /> (defun c:test2 (/ o )<br /> (setvar "osmode" 0)<br /> (hp:cursnap (getvar "viewctr") "_near" 10. t)<br /> (princ *ret*)<br /> (princ)<br />   )

LPACMQ

赞一个

LIULISHENG

学习一下哦