Ghostbx

st788796

1. (defun ghostbx (inspnt cursor_type /)
   
2.   (setq picked "")
   
3.   ;; loop while user moves mouse - until point clicked
   
4.   (while (/= picked 3)
   
5.     (setq gr_read      (grread t 4 cursor_type)
   
6.    picked       (car gr_read)
   
7.    cursor_pnt   (cadr gr_read)
   
8.    current_vecs (calc_vecs inspnt cursor_pnt)
   
9.     )
   
10.     ;; 'erase; the last vectors
    
11.     (if last_vecs
    
12.       (grvecs (list 0
    
13.       inspnt
    
14.       last_cursor_pnt
    
15.       (nth 0 last_vecs)
    
16.       (nth 1 last_vecs)
    
17.       (nth 1 last_vecs)
    
18.       (nth 2 last_vecs)
    
19.       (nth 2 last_vecs)
    
20.       (nth 3 last_vecs)
    
21.       (nth 3 last_vecs)
    
22.       (nth 4 last_vecs)
    
23.       (nth 4 last_vecs)
    
24.       (nth 0 last_vecs)
    
25.        )
    
26.       )
    
27.     )
    
28.     ;; 'draw' the current vectors
    
29.     (if current_vecs
    
30.       (grvecs (list 7
    
31.       inspnt
    
32.       cursor_pnt
    
33.       (nth 0 current_vecs)
    
34.       (nth 1 current_vecs)
    
35.       (nth 1 current_vecs)
    
36.       (nth 2 current_vecs)
    
37.       (nth 2 current_vecs)
    
38.       (nth 3 current_vecs)
    
39.       (nth 3 current_vecs)
    
40.       (nth 4 current_vecs)
    
41.       (nth 4 current_vecs)
    
42.       (nth 0 current_vecs)
    
43.        )
    
44.       )
    
45.     )
    
46.     (setq last_cursor_pnt cursor_pnt
    
47.    last_vecs   (calc_vecs inspnt last_cursor_pnt)
    
48.     )
    
49.   )
    
50.   ;; end while user drags the mouse
    
51.   ;; 'erase' the remaining vectors
    
52.   (grvecs (list 0
    
53.   inspnt
    
54.   last_cursor_pnt
    
55.   (nth 0 last_vecs)
    
56.   (nth 1 last_vecs)
    
57.   (nth 1 last_vecs)
    
58.   (nth 2 last_vecs)
    
59.   (nth 2 last_vecs)
    
60.   (nth 3 last_vecs)
    
61.   (nth 3 last_vecs)
    
62.   (nth 4 last_vecs)
    
63.   (nth 4 last_vecs)
    
64.   (nth 0 last_vecs)
    
65.    )
    
66.   )
    
67.   last_vecs
    
68.   ;; return the final vectors
    
69. )
    
70. (defun calc_vecs (cpnt ins_pnt / p1 p2 p3 p4)
    
71.   ;; get the user angle and distance and adjust box length and width per
    
72.   ;; the functionality desired
    
73.   (cond ((= (type ins_pnt) 'list)
    
74.   (setq cang (angle cpnt ins_pnt))
    
75.   (setq box_len (distance ins_pnt cpnt))
    
76.   (setq box_wid (cond ((< box_len 900) 150.0)
    
77.         ((< box_len 3000) (* box_len 0.1667))
    
78.         (t box_wid)
    
79.          )
    
80.   )
    
81. )
    
82.   )
    
83.   ;; return the adjusted vectors accordingly
    
84.   (list (setq p1 cpnt)
    
85. (setq p2 (polar p1 cang box_len))
    
86. (setq p3 (polar p2 (+ cang (* 0.5 pi)) box_wid))
    
87. (setq p4 (polar p3 (- cang pi) box_len))
    
88. (setq p5 p1)
    
89.   )
    
90. )
    
91.      ; EOF
    
92. ;;; setup to test the code
    
93. (setq inspnt (getpoint "\nSelect first point: "))
    
94. (setq pntlst (ghostbx inspnt 4)) ; run the test

(defun ghostbx (inspnt cursor_type /)<br />   (setq picked "")<br />   ;; loop while user moves mouse - until point clicked <br />   (while (/= picked 3)<br />     (setq gr_read      (grread t 4 cursor_type)<br />    picked       (car gr_read)<br />    cursor_pnt   (cadr gr_read)<br />    current_vecs (calc_vecs inspnt cursor_pnt)<br />     )<br />     ;; 'erase; the last vectors <br />     (if last_vecs<br />       (grvecs (list 0<br />       inspnt<br />       last_cursor_pnt<br />       (nth 0 last_vecs)<br />       (nth 1 last_vecs)<br />       (nth 1 last_vecs)<br />       (nth 2 last_vecs)<br />       (nth 2 last_vecs)<br />       (nth 3 last_vecs)<br />       (nth 3 last_vecs)<br />       (nth 4 last_vecs)<br />       (nth 4 last_vecs)<br />       (nth 0 last_vecs)<br />        )<br />       )<br />     )<br />     ;; 'draw' the current vectors <br />     (if current_vecs<br />       (grvecs (list 7<br />       inspnt<br />       cursor_pnt<br />       (nth 0 current_vecs)<br />       (nth 1 current_vecs)<br />       (nth 1 current_vecs)<br />       (nth 2 current_vecs)<br />       (nth 2 current_vecs)<br />       (nth 3 current_vecs)<br />       (nth 3 current_vecs)<br />       (nth 4 current_vecs)<br />       (nth 4 current_vecs)<br />       (nth 0 current_vecs)<br />        )<br />       )<br />     )<br />     (setq last_cursor_pnt cursor_pnt<br />    last_vecs   (calc_vecs inspnt last_cursor_pnt)<br />     )<br />   )<br />   ;; end while user drags the mouse<br />   ;; 'erase' the remaining vectors <br />   (grvecs (list 0<br />   inspnt<br />   last_cursor_pnt<br />   (nth 0 last_vecs)<br />   (nth 1 last_vecs)<br />   (nth 1 last_vecs)<br />   (nth 2 last_vecs)<br />   (nth 2 last_vecs)<br />   (nth 3 last_vecs)<br />   (nth 3 last_vecs)<br />   (nth 4 last_vecs)<br />   (nth 4 last_vecs)<br />   (nth 0 last_vecs)<br />    )<br />   )<br />   last_vecs<br />   ;; return the final vectors <br /> )<br /> (defun calc_vecs (cpnt ins_pnt / p1 p2 p3 p4)<br />   ;; get the user angle and distance and adjust box length and width per<br />   ;; the functionality desired <br />   (cond ((= (type ins_pnt) 'list)<br />   (setq cang (angle cpnt ins_pnt))<br />   (setq box_len (distance ins_pnt cpnt))<br />   (setq box_wid (cond ((< box_len 900) 150.0)<br />         ((< box_len 3000) (* box_len 0.1667))<br />         (t box_wid)<br />          )<br />   )<br /> )<br />   )<br />   ;; return the adjusted vectors accordingly <br />   (list (setq p1 cpnt)<br /> (setq p2 (polar p1 cang box_len))<br /> (setq p3 (polar p2 (+ cang (* 0.5 pi)) box_wid))<br /> (setq p4 (polar p3 (- cang pi) box_len))<br /> (setq p5 p1)<br />   )<br /> )<br />      ; EOF<br /> ;;; setup to test the code <br /> (setq inspnt (getpoint "\nSelect first point: "))<br /> (setq pntlst (ghostbx inspnt 4)) ; run the test

xshrimp

最好介绍一下干什么的.

st788796

演示 Grdraw 应用, 给定基点，由基点模拟一个矩形, 另一点处由参数控制模拟光标或者选择模式的 小矩形, 或者无