8向滑动圆盘grvecs做的，麻烦路过的大神帮优化一下

努.力

菜卷鱼 发表于 2023-12-1 08:43
我个人认为，用Lisp的话，圆盘改成宫格比较容易实现，判断点在pizza里比矩形里难一些

宫格前易后难，圆盘前难后易，各有千秋。
本题意在不用点击，把鼠标移出圆盘即触发，各向移动距离相等，如果用宫格，是不是只能用点击…

lijiao

供你参考
http://bbs.mjtd.com/forum.php?mo ... hlight=%B2%CB%B5%A5

努.力

经过一番折腾，改成以下效果：
1：分别从8个不同区域滑出滑盘之外，可以获得8个不同的返回值
2：左键点击8个不同的区域，可再获得8个不同的返回值
3：右键点击8个不同的区域，可再获得8个不同的返回值
4：当光标处于8个区域中任意一区域内，按下键盘……每个字母（或数字）键又可以获得8个不同返回值……
5：把滑盘直径设置大一些，套娃实现手势……
想着都爽歪歪……

目前存在问题：单击鼠标右键或按键盘，都出错，无返回值
实在是不知道是哪里写错，因此再次求助大神帮忙改正一下，在此谢过

(defun c:x(/ a)
(setq
a (diy 0.2 "爽歪歪" "←" "→" "↑" "↓" "↖" "↗" "↙" "↘")
;a (strcat a "+" (diy 0.2 "爽歪歪" "←" "→" "↑" "↓" "↖" "↗" "↙" "↘"));套娃
)
(princ a)
)

;(diy 0.07 ts 左滑 右滑 上滑 下滑 左上滑 右上滑  左下滑 右下滑)
(defun diy(bs ts fx_z fx_y fx_s fx_x fx_zs fx_ys fx_zx fx_yx / *error* n an an0 bl gr jp grdral loop p0 pj xc gc hd aj)

(defun *error*(msg / *error*);出错处理
(setvar'cursorsize gb);恢复光标大小
(setvar'pickbox bk);恢复靶框大小
(redraw);更新
(setq aj nil)
)

;飞雪神光 2023-11-30 http://bbs.mjtd.com/thread-188998-1-1.html
;矢量线
;(grvecs (list 颜色 点 点 颜色 点 点))
;矢量线
;(grdraw 点 长度 角度 颜色)
(defun grdral(pt10 bj an0 co / an an1 pt pt1)
(setq
an (+ an0 (/ pi (/ n 2)))
an1 an0
pt (polar pt10 an1 bj)
)
(grdraw pt10 pt co)
(setq pt (polar pt10 an bj))
(grdraw pt10 pt co)
(repeat (/ n 2)
(setq
pt (polar pt10 an1 bj)
pt1 pt
an1 (+ an1 (* (/ (/ 360.0 32) 180.0) pi))
pt (polar pt10 an1 bj)
)
(grdraw pt1 pt co);滑盘外圈颜色
) )
;————————————————————
(if(= bs "")(setq bs 0.07)) ;屏幕高度的倍数
(setq
n 8 ;滑盘等分数
xc 160 ;非光标处滑盘颜色
gc 6 ;光标处滑盘颜色
p0 (cadr (grread *));滑盘中心点
gb (getvar'cursorsize);记录光标大小
bk (getvar'pickbox);记录靶框大小
loop t)
(setvar'cursorsize 1);设置光标大小
(setvar'pickbox 1);设置靶框大小
;————————————————————鼠标移动前绘制滑盘
(setq an0 (* pi 1.875))
(repeat n
(grdral p0 (*(getvar'viewsize)bs) an0 3)
(setq an0 (+ an0 (/ pi (/ n 2))))
)
(princ (setq ts (strcat "\n" ts
" 左滑：" fx_z
" 右滑：" fx_y
" 上滑：" fx_s
" 下滑：" fx_x
" 左上滑：" fx_zs
" 右上滑：" fx_ys
" 左下滑：" fx_zx
" 右下滑：" fx_yx
) )
);提示
;————————————————————
(while loop
;(if(/= ss "")(sssetfirst()ss));如果已选中对象则亮显它
(setq gr (grread t 8) aj (car gr) jp (cadr gr)
bl (*(getvar'viewsize)bs);滑盘大小(屏幕高度×倍数)
pj (distance p0 jp))

(cond
((= aj 3) (setq loop nil) (setq aj "左键") )
((= aj 25) (setq loop nil) (setq aj "右键") )
;————————————————————移动鼠标开始
((and (= aj 5)(> pj (* bl 0.07)));移动鼠标触发距离
(redraw);更新
;————————————————————鼠标移动后绘制滑盘
(setq an0 (* pi 1.875))
(repeat n
(grdral p0 bl an0 xc);非光标处滑盘颜色
(setq an0 (+ an0 (/ pi (/ n 2))))
)
(grdraw p0 jp 1);光标引线
;————————————————————8向滑动判断
(setq ts1 (strcat "\n " ts));提示
(setq an (angle p0 jp))
;(vl-string-subst "替换后的文字" "要替换的文字" wz);字符串替换，替换wz里指定的字符串
(cond
((< (* pi 0.125) an (* pi 0.375)) (grdral p0 bl (* pi 0.125) gc) (setq hd "右上滑")
(if (/= fx_ys "") (setq ts1 (vl-string-subst "" (strcat " " hd "：" fx_ys ) ts1))) (princ (strcat "\n " ts1 "\n " hd "：" fx_ys)) );↗

((< (* pi 0.375) an (* pi 0.625)) (grdral p0 bl (* pi 0.375) gc) (setq hd "上滑")
(if (/= fx_s "") (setq ts1(vl-string-subst "" (strcat " " hd "：" fx_s) ts1))) (princ (strcat "\n " ts1 "\n " hd "：" fx_s)) );↑

((< (* pi 0.625) an (* pi 0.875)) (grdral p0 bl (* pi 0.625) gc) (setq hd "左上滑")
(if (/= fx_zs "") (setq ts1(vl-string-subst "" (strcat " " hd "：" fx_zs) ts1))) (princ (strcat "\n " ts1 "\n " hd "：" fx_zs)) );↖

((< (* pi 0.875) an (* pi 1.125)) (grdral p0 bl (* pi 0.875) gc) (setq hd "左滑")
(if (/= fx_z "") (setq ts1(vl-string-subst "" (strcat " " hd "：" fx_z) ts1))) (princ (strcat "\n " ts1 "\n " hd "：" fx_z)) );←

((< (* pi 1.125) an (* pi 1.375)) (grdral p0 bl (* pi 1.125) gc) (setq hd "左下滑")
(if (/= fx_zx "") (setq ts1(vl-string-subst "" (strcat " " hd "：" fx_zx) ts1))) (princ (strcat "\n " ts1 "\n " hd "：" fx_zx)) );↙

((< (* pi 1.375) an (* pi 1.625)) (grdral p0 bl (* pi 1.375) gc) (setq hd "下滑")
(if (/= fx_x "") (setq ts1(vl-string-subst "" (strcat " " hd "：" fx_x) ts1))) (princ (strcat "\n " ts1 "\n " hd "：" fx_x)) );↓

((< (* pi 1.625) an (* pi 1.875)) (grdral p0 bl (* pi 1.625) gc) (setq hd "右下滑")
(if (/= fx_yx "") (setq ts1(vl-string-subst "" (strcat " " hd "：" fx_yx) ts1))) (princ (strcat "\n " ts1 "\n " hd "：" fx_yx)) );↘

((or (<= (* pi 1.875) an (* pi 2)) (<= 0 an (* pi 0.125)))(grdral p0 bl (* pi 1.875) gc) (setq hd "右滑")
(if (/= fx_y "") (setq ts1(vl-string-subst "" (strcat " " hd "：" fx_y) ts1))) (princ (strcat "\n " ts1 "\n " hd "：" fx_y)) );→
);————————————————————
(if (> pj (*(*(getvar'viewsize)bs)1)) (progn ;光标离开滑盘
(setq loop nil)
(setvar'cursorsize gb);恢复光标大小
(setvar'pickbox bk);恢复靶框大小
(redraw);更新
) )
);————————————————————移动鼠标结束
;————————————————————按键盘(grread)
((= aj 2)(setq loop nil)
(cond
((= jp 96) (setq aj "`"))
((or(= jp 113)(= jp 81)) (setq aj "q"))
((or(= jp 119)(= jp 87)) (setq aj "w"))
((or(= jp 101)(= jp 69)) (setq aj "e"))
((or(= jp 114)(= jp 82)) (setq aj "r"))
((or(= jp 116)(= jp 84)) (setq aj "t"))
((or(= jp 121)(= jp 89)) (setq aj "y"))
((or(= jp 117)(= jp 85)) (setq aj "u"))
((or(= jp 105)(= jp 73)) (setq aj "i"))
((or(= jp 111)(= jp 79)) (setq aj "o"))
((or(= jp 112)(= jp 80)) (setq aj "p"))
((= jp 91) (setq aj "["))
((= jp 93) (setq aj "]"))

((= jp 8) (setq aj "删除")) ;Backspace
((= jp 61) (setq aj "="))
((or(= jp 97)(= jp 65)) (setq aj "a"))
((or(= jp 115)(= jp 83)) (setq aj "s"))
((or(= jp 100)(= jp 68)) (setq aj "d"))
((or(= jp 102)(= jp 70)) (setq aj "f"))
((or(= jp 103)(= jp 71)) (setq aj "g"))
((or(= jp 104)(= jp 72)) (setq aj "h"))
((or(= jp 106)(= jp 74)) (setq aj "j"))
((or(= jp 107)(= jp 75)) (setq aj "k"))
((or(= jp 108)(= jp 76)) (setq aj "l"))
((= jp 59) (setq aj ";"))
((= jp 39) (setq aj "'"))
((or(= jp 122)(= jp 90)) (setq aj "z"))
((or(= jp 120)(= jp 88)) (setq aj "x"))
((or(= jp 99)(= jp 67)) (setq aj "c"))
((or(= jp 118)(= jp 86)) (setq aj "v"))
((or(= jp 98)(= jp 66)) (setq aj "b"))
((or(= jp 110)(= jp 78)) (setq aj "n"))
((or(= jp 109)(= jp 77)) (setq aj "m"))

((= jp 44) (setq aj ","))
((= jp 92) (setq aj "\\"))
((= jp 13) (setq aj "回车"))
((= jp 32) (setq aj "空格"))
((= jp 46) (setq aj "."))
((= jp 48) (setq aj 0))
((= jp 49) (setq aj 1))
((= jp 50) (setq aj 2))
((= jp 51) (setq aj 3))
((= jp 52) (setq aj 4))
((= jp 53) (setq aj 5))
((= jp 54) (setq aj 6))
((= jp 55) (setq aj 7))
((= jp 56) (setq aj 8))
((= jp 57) (setq aj 9))
((= jp 43) (setq aj "+"))
((= jp 45) (setq aj "-"))
((= jp 42) (setq aj "*"))
((= jp 47) (setq aj "/"))
((= jp 9) (setq aj "Tab")) ;Tab
;————————————————————Shift+
((= jp 123) (setq aj "{"))
((= jp 125) (setq aj "}"))
((= jp 58) (setq aj ":"))
((= jp 34) (setq aj "\""))
((= jp 60) (setq aj "<"))
((= jp 62) (setq aj ">"))
((= jp 63) (setq aj "?"))
((= jp 124) (setq aj "|"))
((= jp 126) (setq aj "~"))
((= jp 33) (setq aj "!"))
((= jp 64) (setq aj "@"))
((= jp 35) (setq aj "#"))
((= jp 36) (setq aj "$"))
((= jp 37) (setq aj "%"))
((= jp 94) (setq aj "^"))
((= jp 38) (setq aj "&"))
((= jp 40) (setq aj "("))
((= jp 41) (setq aj ")"))
((= jp 95) (setq aj "_"))
) )
;————————————————————
) );while
(setvar'cursorsize gb);恢复光标大小
(setvar'pickbox bk);恢复靶框大小
(redraw);更新
(if hd (setq aj (strcat hd aj)))
(princ "\n")
aj
)

xyp1964

努.力

路过的大神神们，帮忙看看程序是哪里问题，不能接受键盘和右键输入，就差最后一步啦

lijiao

随便写了一个,可能与你的思路不一样

2. (defun grrev (/             ANG    ANG0   CODE          FANGWEI        LOOP   PT
   
3.               PT0    QUYU   REV           SCALE  TS         TS1        TS2    TS3
   
4.               TS4    TS5    TS6           TS7          TS8         YUANPAN
   
5.              )
   
6.   (defun mat_mxv (m v /)
   
7.     (mapcar '(lambda (r) (apply '+ (mapcar '* r v)))
   
8.             m
   
9.     )
   
10.   )
    
11.   (defun mat_trp (m /)
    
12.     (apply 'mapcar (cons 'list m))
    
13.   )
    
14.   (defun mat_cen (m q /)
    
15.     (mapcar '(lambda (r)
    
16.                (mat_mxv (mat_trp q) r)
    
17.              )
    
18.             m
    
19.     )
    
20.   )
    
21.   (setq        yuanpan        '(5
    
22.                   (0.0 0.0 0.0)
    
23.                   (0.915327 -0.379141 0.0)
    
24.                   (-0.379141 0.915327 0.0)
    
25.                   (0.379141 -0.915327 0.0)
    
26.                   (0.379141 0.915327 0.0)
    
27.                   (-0.379141 -0.915327 0.0)
    
28.                   (0.915327 0.379141 0.0)
    
29.                   (-0.915327 -0.379141 0.0)
    
30.                   (0.0 0.0 0.0)
    
31.                   (-0.915327 0.379141 0.0)
    
32.                   (-0.156434 0.987688)
    
33.                   (-0.45399 0.891007)
    
34.                   (-0.45399 0.891007)
    
35.                   (-0.707107 0.707107)
    
36.                   (-0.707107 0.707107)
    
37.                   (-0.891007 0.45399)
    
38.                   (-0.891007 0.45399)
    
39.                   (-0.987688 0.156434)
    
40.                   (-0.987688 0.156434)
    
41.                   (-0.987688 -0.156434)
    
42.                   (-0.987688 -0.156434)
    
43.                   (-0.891007 -0.45399)
    
44.                   (-0.891007 -0.45399)
    
45.                   (-0.707107 -0.707107)
    
46.                   (-0.707107 -0.707107)
    
47.                   (-0.45399 -0.891007)
    
48.                   (-0.45399 -0.891007)
    
49.                   (-0.156434 -0.987688)
    
50.                   (-0.156434 -0.987688)
    
51.                   (0.156434 -0.987688)
    
52.                   (0.156434 -0.987688)
    
53.                   (0.45399 -0.891007)
    
54.                   (0.45399 -0.891007)
    
55.                   (0.707107 -0.707107)
    
56.                   (0.707107 -0.707107)
    
57.                   (0.891007 -0.45399)
    
58.                   (0.891007 -0.45399)
    
59.                   (0.987688 -0.156434)
    
60.                   (0.987688 -0.156434)
    
61.                   (0.987688 0.156434)
    
62.                   (0.987688 0.156434)
    
63.                   (0.891007 0.45399)
    
64.                   (0.891007 0.45399)
    
65.                   (0.707107 0.707107)
    
66.                   (0.707107 0.707107)
    
67.                   (0.45399 0.891007)
    
68.                   (0.45399 0.891007)
    
69.                   (0.156434 0.987688)
    
70.                   (0.156434 0.987688)
    
71.                   (-0.156434 0.987688)
    
72.                  )
    
73.   )
    
74.   (setq        quyu '(2
    
75.                (0.0 0.0 0.0)
    
76.                (0.915327 -0.379141 0.0)
    
77.                (0.915327 0.379141 0.0)
    
78.                (-1.61054e-15 -6.67109e-16 0.0)
    
79.                (0.987688 0.156434 0.0)
    
80.                (0.915327 0.379141 0.0)
    
81.                (0.987688 -0.156434 0.0)
    
82.                (0.987688 0.156434 0.0)
    
83.                (0.915327 -0.379141 0.0)
    
84.                (0.987688 -0.156434 0.0)
    
85.               )
    
86.   )
    
87. 
    
88.   (setq        ts1 '(1 (0.15808 -0.0956111 0.0) (0.15808 0.206223 0.0))
    
89.   )
    
90.   (setq        ts2 '(1
    
91.               (0.223258 -0.0956111 0.0)
    
92.               (0.223258 0.206223 0.0)
    
93.               (0.15808 -0.0956111 0.0)
    
94.               (0.15808 0.206223 0.0)
    
95.              )
    
96.   )
    
97.   (setq        ts3 '(1
    
98.               (0.288436 -0.0956111 0.0)
    
99.               (0.288436 0.206223 0.0)
    
100.               (0.223258 -0.0956111 0.0)
     
101.               (0.223258 0.206223 0.0)
     
102.               (0.15808 -0.0956111 0.0)
     
103.               (0.15808 0.206223 0.0)
     
104.              )
     
105.   )
     
106.   (setq        ts4 '(1
     
107.               (0.353613 0.206223 0.0)
     
108.               (0.288436 -0.0956111 0.0)
     
109.               1
     
110.               (0.223258 0.206223 0.0)
     
111.               (0.288436 -0.0956111 0.0)
     
112.               1
     
113.               (0.15808 -0.0956111 0.0)
     
114.               (0.15808 0.206223 0.0)
     
115.              )
     
116.   )
     
117.   (setq        ts5 '(1
     
118.               (0.288436 0.206223 0.0)
     
119.               (0.223258 -0.0956111 0.0)
     
120.               (0.15808 0.206223 0.0)
     
121.               (0.223258 -0.0956111 0.0)
     
122.              )
     
123.   )
     
124.   (setq        ts6 '(1
     
125.               (0.353613 -0.0956111 0.0)
     
126.               (0.353613 0.206223 0.0)
     
127.               (0.288436 0.206223 0.0)
     
128.               (0.223258 -0.0956111 0.0)
     
129.               (0.15808 0.206223 0.0)
     
130.               (0.223258 -0.0956111 0.0)
     
131.              )
     
132.   )
     
133.   (setq        ts7 '(1
     
134.               (0.288436 0.206223 0.0)
     
135.               (0.223258 -0.0956111 0.0)
     
136.               (0.15808 0.206223 0.0)
     
137.               (0.223258 -0.0956111 0.0)
     
138.               (0.418791 -0.0956111 0.0)
     
139.               (0.418791 0.206223 0.0)
     
140.               (0.353613 -0.0956111 0.0)
     
141.               (0.353613 0.206223 0.0)
     
142.              )
     
143.   )
     
144.   (setq        ts8 '(1
     
145.               (0.483969 -0.0956111 0.0)
     
146.               (0.483969 0.206223 0.0)
     
147.               (0.288436 0.206223 0.0)
     
148.               (0.223258 -0.0956111 0.0)
     
149.               (0.15808 0.206223 0.0)
     
150.               (0.223258 -0.0956111 0.0)
     
151.               (0.418791 -0.0956111 0.0)
     
152.               (0.418791 0.206223 0.0)
     
153.               (0.353613 -0.0956111 0.0)
     
154.               (0.353613 0.206223 0.0)
     
155.              )
     
156.   )
     
157. 
     
158. 
     
159. 
     
160.   (setq pt0 (cadr (grread t)))
     
161.   (setq loop t)
     
162.   (while loop
     
163.     (setq pt (grread t))
     
164.     (setq code (car pt)
     
165.           pt   (cadr pt)
     
166.     )
     
167.     (redraw)
     
168.     (cond
     
169.       ((= code 5)
     
170.        (setq scale (* (getvar 'viewsize) 0.2))
     
171.        (GRVECS yuanpan
     
172.                (list (list scale 0 0 (car pt0))
     
173.                      (list 0 scale 0 (cadr pt0))
     
174.                      (list 0 0 scale 0)
     
175.                      '(0 0 0 1)
     
176.                )
     
177.        )
     
178. ;;;绘制圆盘
     
179. 
     
180. 
     
181.        (setq ang (angle pt0 pt))
     
182.        (setq ang0 (/ (* ang 180.0) pi))
     
183.        (setq fangwei (cond
     
184.                        ((<= 22.5 ang0 67.5) (setq ts ts2) 2)
     
185.                        ((<= 67.5 ang0 112.5) (setq ts ts3) 3)
     
186.                        ((<= 112.5 ang0 157.5) (setq ts ts4) 4)
     
187.                        ((<= 157.5 ang0 202.5) (setq ts ts5) 5)
     
188.                        ((<= 202.5 ang0 247.5) (setq ts ts6) 6)
     
189.                        ((<= 247.5 ang0 292.5) (setq ts ts7) 7)
     
190.                        ((<= 292.5 ang0 337.5) (setq ts ts8) 8)
     
191.                        (t (setq ts ts1) 1)
     
192.                      )
     
193.        )
     
194.        (setq ang0 (/ (* (1- fangwei) 45 pi) 180.0))
     
195.        (GRVECS quyu
     
196.                (mat_cen        (list (list scale 0 0 (car pt0))
     
197.                               (list 0 scale 0 (cadr pt0))
     
198.                               (list 0 0 scale 0)
     
199.                               '(0 0 0 1)
     
200.                         )
     
201.                         (list (list (cos ang0) (* -1 (sin ang0)) 0. 0.)
     
202.                               (list (sin ang0) (cos ang0) 0. 0.)
     
203.                               '(0. 0. 1. 0.)
     
204.                               '(0. 0. 0. 1.)
     
205.                         )
     
206.                )
     
207. 
     
208.        )
     
209. ;;;绘制区域
     
210. 
     
211.        (GRVECS ts
     
212.                (list (list scale 0 0 (car pt))
     
213.                      (list 0 scale 0 (cadr pt))
     
214.                      (list 0 0 scale 0)
     
215.                      '(0 0 0 1)
     
216.                )
     
217.        )
     
218. ;;;绘制提示
     
219.        (if (> (distance pt0 pt) scale)
     
220.          (setq loop nil
     
221.                rev  (list 5 fangwei)
     
222.          )
     
223.        )
     
224.       )
     
225. ;;;移动鼠标
     
226.       ((= code 3)
     
227.        (setq ang (angle pt0 pt))
     
228.        (setq ang0 (/ (* ang 180.0) pi))
     
229.        (setq fangwei (cond
     
230.                        ((<= 22.5 ang0 67.5) (setq ts ts2) 2)
     
231.                        ((<= 67.5 ang0 112.5) (setq ts ts3) 3)
     
232.                        ((<= 112.5 ang0 157.5) (setq ts ts4) 4)
     
233.                        ((<= 157.5 ang0 202.5) (setq ts ts5) 5)
     
234.                        ((<= 202.5 ang0 247.5) (setq ts ts6) 6)
     
235.                        ((<= 247.5 ang0 292.5) (setq ts ts7) 7)
     
236.                        ((<= 292.5 ang0 337.5) (setq ts ts8) 8)
     
237.                        (t (setq ts ts1) 1)
     
238.                      )
     
239.        )
     
240.        (setq loop nil
     
241.              rev  (list 3 fangwei)
     
242.        )
     
243.       )
     
244. ;;;点击鼠标左键
     
245.       (t
     
246.        (setq loop nil
     
247.              rev  (list code pt)
     
248.        )
     
249.       )
     
250.     )
     
251.   )
     
252.   (redraw)
     
253.   rev
     
254. )

(defun grrev (/             ANG    ANG0   CODE          FANGWEI        LOOP   PT<br />               PT0    QUYU   REV           SCALE  TS         TS1        TS2    TS3<br />               TS4    TS5    TS6           TS7          TS8         YUANPAN<br />              )<br />   (defun mat_mxv (m v /)<br />     (mapcar '(lambda (r) (apply '+ (mapcar '* r v)))<br />             m<br />     )<br />   )<br />   (defun mat_trp (m /)<br />     (apply 'mapcar (cons 'list m))<br />   )<br />   (defun mat_cen (m q /)<br />     (mapcar '(lambda (r)<br />                (mat_mxv (mat_trp q) r)<br />              )<br />             m<br />     )<br />   )<br />   (setq        yuanpan        '(5<br />                   (0.0 0.0 0.0)<br />                   (0.915327 -0.379141 0.0)<br />                   (-0.379141 0.915327 0.0)<br />                   (0.379141 -0.915327 0.0)<br />                   (0.379141 0.915327 0.0)<br />                   (-0.379141 -0.915327 0.0)<br />                   (0.915327 0.379141 0.0)<br />                   (-0.915327 -0.379141 0.0)<br />                   (0.0 0.0 0.0)<br />                   (-0.915327 0.379141 0.0)<br />                   (-0.156434 0.987688)<br />                   (-0.45399 0.891007)<br />                   (-0.45399 0.891007)<br />                   (-0.707107 0.707107)<br />                   (-0.707107 0.707107)<br />                   (-0.891007 0.45399)<br />                   (-0.891007 0.45399)<br />                   (-0.987688 0.156434)<br />                   (-0.987688 0.156434)<br />                   (-0.987688 -0.156434)<br />                   (-0.987688 -0.156434)<br />                   (-0.891007 -0.45399)<br />                   (-0.891007 -0.45399)<br />                   (-0.707107 -0.707107)<br />                   (-0.707107 -0.707107)<br />                   (-0.45399 -0.891007)<br />                   (-0.45399 -0.891007)<br />                   (-0.156434 -0.987688)<br />                   (-0.156434 -0.987688)<br />                   (0.156434 -0.987688)<br />                   (0.156434 -0.987688)<br />                   (0.45399 -0.891007)<br />                   (0.45399 -0.891007)<br />                   (0.707107 -0.707107)<br />                   (0.707107 -0.707107)<br />                   (0.891007 -0.45399)<br />                   (0.891007 -0.45399)<br />                   (0.987688 -0.156434)<br />                   (0.987688 -0.156434)<br />                   (0.987688 0.156434)<br />                   (0.987688 0.156434)<br />                   (0.891007 0.45399)<br />                   (0.891007 0.45399)<br />                   (0.707107 0.707107)<br />                   (0.707107 0.707107)<br />                   (0.45399 0.891007)<br />                   (0.45399 0.891007)<br />                   (0.156434 0.987688)<br />                   (0.156434 0.987688)<br />                   (-0.156434 0.987688)<br />                  )<br />   )<br />   (setq        quyu '(2<br />                (0.0 0.0 0.0)<br />                (0.915327 -0.379141 0.0)<br />                (0.915327 0.379141 0.0)<br />                (-1.61054e-15 -6.67109e-16 0.0)<br />                (0.987688 0.156434 0.0)<br />                (0.915327 0.379141 0.0)<br />                (0.987688 -0.156434 0.0)<br />                (0.987688 0.156434 0.0)<br />                (0.915327 -0.379141 0.0)<br />                (0.987688 -0.156434 0.0)<br />               )<br />   )<br /> <br />   (setq        ts1 '(1 (0.15808 -0.0956111 0.0) (0.15808 0.206223 0.0))<br />   )<br />   (setq        ts2 '(1<br />               (0.223258 -0.0956111 0.0)<br />               (0.223258 0.206223 0.0)<br />               (0.15808 -0.0956111 0.0)<br />               (0.15808 0.206223 0.0)<br />              )<br />   )<br />   (setq        ts3 '(1<br />               (0.288436 -0.0956111 0.0)<br />               (0.288436 0.206223 0.0)<br />               (0.223258 -0.0956111 0.0)<br />               (0.223258 0.206223 0.0)<br />               (0.15808 -0.0956111 0.0)<br />               (0.15808 0.206223 0.0)<br />              )<br />   )<br />   (setq        ts4 '(1<br />               (0.353613 0.206223 0.0)<br />               (0.288436 -0.0956111 0.0)<br />               1<br />               (0.223258 0.206223 0.0)<br />               (0.288436 -0.0956111 0.0)<br />               1<br />               (0.15808 -0.0956111 0.0)<br />               (0.15808 0.206223 0.0)<br />              )<br />   )<br />   (setq        ts5 '(1<br />               (0.288436 0.206223 0.0)<br />               (0.223258 -0.0956111 0.0)<br />               (0.15808 0.206223 0.0)<br />               (0.223258 -0.0956111 0.0)<br />              )<br />   )<br />   (setq        ts6 '(1<br />               (0.353613 -0.0956111 0.0)<br />               (0.353613 0.206223 0.0)<br />               (0.288436 0.206223 0.0)<br />               (0.223258 -0.0956111 0.0)<br />               (0.15808 0.206223 0.0)<br />               (0.223258 -0.0956111 0.0)<br />              )<br />   )<br />   (setq        ts7 '(1<br />               (0.288436 0.206223 0.0)<br />               (0.223258 -0.0956111 0.0)<br />               (0.15808 0.206223 0.0)<br />               (0.223258 -0.0956111 0.0)<br />               (0.418791 -0.0956111 0.0)<br />               (0.418791 0.206223 0.0)<br />               (0.353613 -0.0956111 0.0)<br />               (0.353613 0.206223 0.0)<br />              )<br />   )<br />   (setq        ts8 '(1<br />               (0.483969 -0.0956111 0.0)<br />               (0.483969 0.206223 0.0)<br />               (0.288436 0.206223 0.0)<br />               (0.223258 -0.0956111 0.0)<br />               (0.15808 0.206223 0.0)<br />               (0.223258 -0.0956111 0.0)<br />               (0.418791 -0.0956111 0.0)<br />               (0.418791 0.206223 0.0)<br />               (0.353613 -0.0956111 0.0)<br />               (0.353613 0.206223 0.0)<br />              )<br />   )<br /> <br /> <br /> <br />   (setq pt0 (cadr (grread t)))<br />   (setq loop t)<br />   (while loop<br />     (setq pt (grread t))<br />     (setq code (car pt)<br />           pt   (cadr pt)<br />     )<br />     (redraw)<br />     (cond<br />       ((= code 5)<br />        (setq scale (* (getvar 'viewsize) 0.2))<br />        (GRVECS yuanpan<br />                (list (list scale 0 0 (car pt0))<br />                      (list 0 scale 0 (cadr pt0))<br />                      (list 0 0 scale 0)<br />                      '(0 0 0 1)<br />                )<br />        )<br /> ;;;绘制圆盘<br /> <br /> <br />        (setq ang (angle pt0 pt))<br />        (setq ang0 (/ (* ang 180.0) pi))<br />        (setq fangwei (cond<br />                        ((<= 22.5 ang0 67.5) (setq ts ts2) 2)<br />                        ((<= 67.5 ang0 112.5) (setq ts ts3) 3)<br />                        ((<= 112.5 ang0 157.5) (setq ts ts4) 4)<br />                        ((<= 157.5 ang0 202.5) (setq ts ts5) 5)<br />                        ((<= 202.5 ang0 247.5) (setq ts ts6) 6)<br />                        ((<= 247.5 ang0 292.5) (setq ts ts7) 7)<br />                        ((<= 292.5 ang0 337.5) (setq ts ts8) 8)<br />                        (t (setq ts ts1) 1)<br />                      )<br />        )<br />        (setq ang0 (/ (* (1- fangwei) 45 pi) 180.0))<br />        (GRVECS quyu<br />                (mat_cen        (list (list scale 0 0 (car pt0))<br />                               (list 0 scale 0 (cadr pt0))<br />                               (list 0 0 scale 0)<br />                               '(0 0 0 1)<br />                         )<br />                         (list (list (cos ang0) (* -1 (sin ang0)) 0. 0.)<br />                               (list (sin ang0) (cos ang0) 0. 0.)<br />                               '(0. 0. 1. 0.)<br />                               '(0. 0. 0. 1.)<br />                         )<br />                )<br /> <br />        )<br /> ;;;绘制区域<br /> <br />        (GRVECS ts<br />                (list (list scale 0 0 (car pt))<br />                      (list 0 scale 0 (cadr pt))<br />                      (list 0 0 scale 0)<br />                      '(0 0 0 1)<br />                )<br />        )<br /> ;;;绘制提示<br />        (if (> (distance pt0 pt) scale)<br />          (setq loop nil<br />                rev  (list 5 fangwei)<br />          )<br />        )<br />       )<br /> ;;;移动鼠标<br />       ((= code 3)<br />        (setq ang (angle pt0 pt))<br />        (setq ang0 (/ (* ang 180.0) pi))<br />        (setq fangwei (cond<br />                        ((<= 22.5 ang0 67.5) (setq ts ts2) 2)<br />                        ((<= 67.5 ang0 112.5) (setq ts ts3) 3)<br />                        ((<= 112.5 ang0 157.5) (setq ts ts4) 4)<br />                        ((<= 157.5 ang0 202.5) (setq ts ts5) 5)<br />                        ((<= 202.5 ang0 247.5) (setq ts ts6) 6)<br />                        ((<= 247.5 ang0 292.5) (setq ts ts7) 7)<br />                        ((<= 292.5 ang0 337.5) (setq ts ts8) 8)<br />                        (t (setq ts ts1) 1)<br />                      )<br />        )<br />        (setq loop nil<br />              rev  (list 3 fangwei)<br />        )<br />       )<br /> ;;;点击鼠标左键<br />       (t<br />        (setq loop nil<br />              rev  (list code pt)<br />        )<br />       )<br />     )<br />   )<br />   (redraw)<br />   rev<br /> )

飞雪神光

1. (defun c:x(/ a)
   
2.         (setq
   
3.                 a (diy 0.2 "爽歪歪" "←" "→" "↑" "↓" "↖" "↗" "↙" "↘")
   
4.                 ;a (strcat a "+" (diy 0.2 "爽歪歪" "←" "→" "↑" "↓" "↖" "↗" "↙" "↘"));套娃
   
5.         )
   
6.         (princ a)
   
7.         (princ)
   
8. )
   
9. 
   
10. ;(diy 0.07 ts 左滑 右滑 上滑 下滑 左上滑 右上滑  左下滑 右下滑)
    
11. (defun diy(bs ts fx_z fx_y fx_s fx_x fx_zs fx_ys fx_zx fx_yx / *error* n an an0 bl gr jp grdral loop p0 pj xc gc hd aj)
    
12.         (defun *error*(msg / *error*);出错处理
    
13.                 (setvar'cursorsize gb);恢复光标大小
    
14.                 (setvar'pickbox bk);恢复靶框大小
    
15.                 (redraw);更新
    
16.                 (setq aj nil)
    
17.         )
    
18.         ;飞雪神光 2023-11-30 http://bbs.mjtd.com/thread-188998-1-1.html
    
19.         ;矢量线
    
20.         ;(grvecs (list 颜色 点 点 颜色 点 点))
    
21.         ;矢量线
    
22.         ;(grdraw 点 长度 角度 颜色)
    
23.         (defun grdral(pt10 bj an0 co / an an1 pt pt1)
    
24.                 (setq
    
25.                         an (+ an0 (/ pi (/ n 2)))
    
26.                         an1 an0
    
27.                         pt (polar pt10 an1 bj)
    
28.                 )
    
29.                 (grdraw pt10 pt co)
    
30.                 (setq pt (polar pt10 an bj))
    
31.                 (grdraw pt10 pt co)
    
32.                 (repeat (/ n 2)
    
33.                         (setq
    
34.                                 pt (polar pt10 an1 bj)
    
35.                                 pt1 pt
    
36.                                 an1 (+ an1 (* (/ (/ 360.0 32) 180.0) pi))
    
37.                                 pt (polar pt10 an1 bj)
    
38.                         )
    
39.                         (grdraw pt1 pt co);滑盘外圈颜色
    
40.                 )
    
41.         )
    
42.         ;————————————————————
    
43.         (if(= bs "")(setq bs 0.07)) ;屏幕高度的倍数
    
44.         (setq
    
45.                 n 8 ;滑盘等分数
    
46.                 xc 160 ;非光标处滑盘颜色
    
47.                 gc 6 ;光标处滑盘颜色
    
48.                 p0 (cadr (grread *));滑盘中心点
    
49.                 gb (getvar'cursorsize);记录光标大小
    
50.                 bk (getvar'pickbox);记录靶框大小
    
51.                 loop t
    
52.                 princpd t
    
53.                 princpd1 1
    
54.                 princpd2 2
    
55.         )
    
56.         (setvar'cursorsize 1);设置光标大小
    
57.         (setvar'pickbox 1);设置靶框大小
    
58.         ;————————————————————鼠标移动前绘制滑盘
    
59.         (setq an0 (* pi 1.875))
    
60.         (repeat n
    
61.                 (grdral p0 (*(getvar'viewsize)bs) an0 3)
    
62.                 (setq an0 (+ an0 (/ pi (/ n 2))))
    
63.         )
    
64.         (princ (setq ts (strcat ts " 左滑：" fx_z " 右滑：" fx_y " 上滑：" fx_s " 下滑：" fx_x " 左上滑：" fx_zs " 右上滑：" fx_ys " 左下滑：" fx_zx " 右下滑：" fx_yx)));提示
    
65.         ;————————————————————
    
66.         (while loop
    
67.                 ;(if(/= ss "")(sssetfirst()ss));如果已选中对象则亮显它
    
68.                 (setq
    
69.                         gr (grread t 8)
    
70.                         aj0 (car gr)
    
71.                         jp (cadr gr)
    
72.                 )
    
73.                 (cond
    
74.                         ((= aj0 3) (setq loop nil) (setq aj "左键") )
    
75.                         ((= aj0 25) (setq loop nil) (setq aj "右键") )
    
76.                         ((= aj0 5) ;移动鼠标触发距离
    
77.                                 (setq
    
78.                                         bl (*(getvar'viewsize)bs);滑盘大小(屏幕高度×倍数)
    
79.                                         pj (distance p0 jp)
    
80.                                 )
    
81.                                 (if (> pj (* bl 0.07))
    
82.                                         (progn
    
83.                                                 (redraw);更新
    
84.                                                 ;————————————————————鼠标移动后绘制滑盘
    
85.                                                 (setq an0 (* pi 1.875))
    
86.                                                 (repeat n
    
87.                                                         (grdral p0 bl an0 xc);非光标处滑盘颜色
    
88.                                                         (setq an0 (+ an0 (/ pi (/ n 2))))
    
89.                                                 )
    
90.                                                 (grdraw p0 jp 1);光标引线
    
91.                                                 ;————————————————————8向滑动判断
    
92.                                                 (setq ts1 (strcat "\n " ts)) ;提示
    
93.                                                 (setq an (angle p0 jp))
    
94.                                                 ;(vl-string-subst "替换后的文字" "要替换的文字" wz);字符串替换，替换wz里指定的字符串
    
95.                                                 ;(print (list princpd1 princpd2))
    
96.                                                 (cond
    
97.                                                         ((< (* pi 0.125) an (* pi 0.375))
    
98.                                                                 (grdral p0 bl (* pi 0.125) gc) (setq hd "右上滑")
    
99.                                                                 (if (/= fx_ys "") (setq ts1 (vl-string-subst "" (strcat " " hd "：" fx_ys) ts1)))
    
100.                                                                 (if (= princpd1 princpd2)
     
101.                                                                         (if princpd
     
102.                                                                                 (progn
     
103.                                                                                         ;(princ (strcat "\n " ts1 "\n " hd "：" fx_ys))
     
104.                                                                                         (princ (strcat "\n " hd "：" fx_ys))
     
105.                                                                                         (setq princpd nil)
     
106.                                                                                 )
     
107.                                                                         )
     
108.                                                                         (setq princpd t princpd1 princpd2)
     
109.                                                                 )
     
110.                                                                 (setq princpd2 1)
     
111.                                                         );↗
     
112.                                                         ((< (* pi 0.375) an (* pi 0.625))
     
113.                                                                 (grdral p0 bl (* pi 0.375) gc) (setq hd "上滑")
     
114.                                                                 (if (/= fx_s "") (setq ts1 (vl-string-subst "" (strcat " " hd "：" fx_s) ts1)))
     
115.                                                                 (if (= princpd1 princpd2)
     
116.                                                                         (if princpd
     
117.                                                                                 (progn
     
118.                                                                                         ;(princ (strcat "\n " ts1 "\n " hd "：" fx_s))
     
119.                                                                                         (princ (strcat "\n " hd "：" fx_s))
     
120.                                                                                         (setq princpd nil)
     
121.                                                                                 )
     
122.                                                                         )
     
123.                                                                         (setq princpd t princpd1 princpd2)
     
124.                                                                 )
     
125.                                                                 (setq princpd2 2)
     
126.                                                         );↑
     
127.                                                         ((< (* pi 0.625) an (* pi 0.875))
     
128.                                                                 (grdral p0 bl (* pi 0.625) gc) (setq hd "左上滑")
     
129.                                                                 (if (/= fx_zs "") (setq ts1 (vl-string-subst "" (strcat " " hd "：" fx_zs) ts1)))
     
130.                                                                 (if (= princpd1 princpd2)
     
131.                                                                         (if princpd
     
132.                                                                                 (progn
     
133.                                                                                         (princ (strcat "\n "  hd "：" fx_zs))
     
134.                                                                                         (setq princpd nil)
     
135.                                                                                 )
     
136.                                                                         )
     
137.                                                                         (setq princpd t princpd1 princpd2)
     
138.                                                                 )
     
139.                                                                 (setq princpd2 3)
     
140.                                                         );↖
     
141.                                                         ((< (* pi 0.875) an (* pi 1.125))
     
142.                                                                 (grdral p0 bl (* pi 0.875) gc) (setq hd "左滑")
     
143.                                                                 (if (/= fx_z "") (setq ts1 (vl-string-subst "" (strcat " " hd "：" fx_z) ts1)))
     
144.                                                                 (if (= princpd1 princpd2)
     
145.                                                                         (if princpd
     
146.                                                                                 (progn
     
147.                                                                                         (princ (strcat "\n " hd "：" fx_z))
     
148.                                                                                         (setq princpd nil)
     
149.                                                                                 )
     
150.                                                                         )
     
151.                                                                         (setq princpd t princpd1 princpd2)
     
152.                                                                 )
     
153.                                                                 (setq princpd2 4)
     
154.                                                         );←
     
155.                                                         ((< (* pi 1.125) an (* pi 1.375))
     
156.                                                                 (grdral p0 bl (* pi 1.125) gc) (setq hd "左下滑")
     
157.                                                                 (if (/= fx_zx "") (setq ts1 (vl-string-subst "" (strcat " " hd "：" fx_zx) ts1)))
     
158.                                                                 (if (= princpd1 princpd2)
     
159.                                                                         (if princpd
     
160.                                                                                 (progn
     
161.                                                                                         (princ (strcat "\n " hd "：" fx_zx))
     
162.                                                                                         (setq princpd nil)
     
163.                                                                                 )
     
164.                                                                         )
     
165.                                                                         (setq princpd t princpd1 princpd2)
     
166.                                                                 )
     
167.                                                                 (setq princpd2 5)
     
168.                                                         );↙
     
169.                                                         ((< (* pi 1.375) an (* pi 1.625))
     
170.                                                                 (grdral p0 bl (* pi 1.375) gc) (setq hd "下滑")
     
171.                                                                 (if (/= fx_x "") (setq ts1 (vl-string-subst "" (strcat " " hd "：" fx_x) ts1)))
     
172.                                                                 (if (= princpd1 princpd2)
     
173.                                                                         (if princpd
     
174.                                                                                 (progn
     
175.                                                                                         (princ (strcat "\n " hd "：" fx_x))
     
176.                                                                                         (setq princpd nil)
     
177.                                                                                 )
     
178.                                                                         )
     
179.                                                                         (setq princpd t princpd1 princpd2)
     
180.                                                                 )
     
181.                                                                 (setq princpd2 6)
     
182.                                                         );↓
     
183.                                                         ((< (* pi 1.625) an (* pi 1.875))
     
184.                                                                 (grdral p0 bl (* pi 1.625) gc) (setq hd "右下滑")
     
185.                                                                 (if (/= fx_yx "") (setq ts1 (vl-string-subst "" (strcat " " hd "：" fx_yx) ts1)))
     
186.                                                                 (if (= princpd1 princpd2)
     
187.                                                                         (if princpd
     
188.                                                                                 (progn
     
189.                                                                                         (princ (strcat "\n " hd "：" fx_yx))
     
190.                                                                                         (setq princpd nil)
     
191.                                                                                 )
     
192.                                                                         )
     
193.                                                                         (setq princpd t princpd1 princpd2)
     
194.                                                                 )
     
195.                                                                 (setq princpd2 7)
     
196.                                                         );↘
     
197.                                                         ((or (<= (* pi 1.875) an (* pi 2)) (<= 0 an (* pi 0.125)))(grdral p0 bl (* pi 1.875) gc) (setq hd "右滑")
     
198.                                                                 (if (/= fx_y "") (setq ts1 (vl-string-subst "" (strcat " " hd "：" fx_y) ts1)))
     
199.                                                                 (if (= princpd1 princpd2)
     
200.                                                                         (if princpd
     
201.                                                                                 (progn
     
202.                                                                                         (princ (strcat "\n " hd "：" fx_y))
     
203.                                                                                         (setq princpd nil)
     
204.                                                                                 )
     
205.                                                                         )
     
206.                                                                         (setq princpd t princpd1 princpd2)
     
207.                                                                 )
     
208.                                                                 (setq princpd2 8)
     
209.                                                         );→
     
210.                                                 );————————————————————
     
211.                                                 (if (> pj (* (* (getvar 'viewsize) bs) 1))
     
212.                                                         (progn ;光标离开滑盘
     
213.                                                                 (setq loop nil)
     
214.                                                                 (setvar'cursorsize gb);恢复光标大小
     
215.                                                                 (setvar'pickbox bk);恢复靶框大小
     
216.                                                                 (redraw);更新
     
217.                                                         )
     
218.                                                 )
     
219.                                         )
     
220.                                  (setq aj ":盘外")
     
221.                                 )
     
222.                         );————————————————————移动鼠标结束
     
223.                         ;————————————————————按键盘(grread)
     
224.                         ((= aj0 2)
     
225.                                 (setq loop nil)
     
226.                                 (cond
     
227.                                         ((= jp 96) (setq aj "`"))
     
228.                                         ((or(= jp 113)(= jp 81)) (setq aj "q"))
     
229.                                         ((or(= jp 119)(= jp 87)) (setq aj "w"))
     
230.                                         ((or(= jp 101)(= jp 69)) (setq aj "e"))
     
231.                                         ((or(= jp 114)(= jp 82)) (setq aj "r"))
     
232.                                         ((or(= jp 116)(= jp 84)) (setq aj "t"))
     
233.                                         ((or(= jp 121)(= jp 89)) (setq aj "y"))
     
234.                                         ((or(= jp 117)(= jp 85)) (setq aj "u"))
     
235.                                         ((or(= jp 105)(= jp 73)) (setq aj "i"))
     
236.                                         ((or(= jp 111)(= jp 79)) (setq aj "o"))
     
237.                                         ((or(= jp 112)(= jp 80)) (setq aj "p"))
     
238.                                         ((= jp 91) (setq aj "["))
     
239.                                         ((= jp 93) (setq aj "]"))
     
240.                                         ((= jp 8) (setq aj "删除")) ;Backspace
     
241.                                         ((= jp 61) (setq aj "="))
     
242.                                         ((or(= jp 97)(= jp 65)) (setq aj "a"))
     
243.                                         ((or(= jp 115)(= jp 83)) (setq aj "s"))
     
244.                                         ((or(= jp 100)(= jp 68)) (setq aj "d"))
     
245.                                         ((or(= jp 102)(= jp 70)) (setq aj "f"))
     
246.                                         ((or(= jp 103)(= jp 71)) (setq aj "g"))
     
247.                                         ((or(= jp 104)(= jp 72)) (setq aj "h"))
     
248.                                         ((or(= jp 106)(= jp 74)) (setq aj "j"))
     
249.                                         ((or(= jp 107)(= jp 75)) (setq aj "k"))
     
250.                                         ((or(= jp 108)(= jp 76)) (setq aj "l"))
     
251.                                         ((= jp 59) (setq aj ";"))
     
252.                                         ((= jp 39) (setq aj "'"))
     
253.                                         ((or(= jp 122)(= jp 90)) (setq aj "z"))
     
254.                                         ((or(= jp 120)(= jp 88)) (setq aj "x"))
     
255.                                         ((or(= jp 99)(= jp 67)) (setq aj "c"))
     
256.                                         ((or(= jp 118)(= jp 86)) (setq aj "v"))
     
257.                                         ((or(= jp 98)(= jp 66)) (setq aj "b"))
     
258.                                         ((or(= jp 110)(= jp 78)) (setq aj "n"))
     
259.                                         ((or(= jp 109)(= jp 77)) (setq aj "m"))
     
260.                                         ((= jp 44) (setq aj ","))
     
261.                                         ((= jp 92) (setq aj "\\"))
     
262.                                         ((= jp 13) (setq aj "回车"))
     
263.                                         ((= jp 32) (setq aj "空格"))
     
264.                                         ((= jp 46) (setq aj "."))
     
265.                                         ((= jp 48) (setq aj 0))
     
266.                                         ((= jp 49) (setq aj 1))
     
267.                                         ((= jp 50) (setq aj 2))
     
268.                                         ((= jp 51) (setq aj 3))
     
269.                                         ((= jp 52) (setq aj 4))
     
270.                                         ((= jp 53) (setq aj 5))
     
271.                                         ((= jp 54) (setq aj 6))
     
272.                                         ((= jp 55) (setq aj 7))
     
273.                                         ((= jp 56) (setq aj 8))
     
274.                                         ((= jp 57) (setq aj 9))
     
275.                                         ((= jp 43) (setq aj "+"))
     
276.                                         ((= jp 45) (setq aj "-"))
     
277.                                         ((= jp 42) (setq aj "*"))
     
278.                                         ((= jp 47) (setq aj "/"))
     
279.                                         ((= jp 9) (setq aj "Tab")) ;Tab
     
280.                                         ;————————————————————Shift+
     
281.                                         ((= jp 123) (setq aj "{"))
     
282.                                         ((= jp 125) (setq aj "}"))
     
283.                                         ((= jp 58) (setq aj ":"))
     
284.                                         ((= jp 34) (setq aj "\""))
     
285.                                         ((= jp 60) (setq aj "<"))
     
286.                                         ((= jp 62) (setq aj ">"))
     
287.                                         ((= jp 63) (setq aj "?"))
     
288.                                         ((= jp 124) (setq aj "|"))
     
289.                                         ((= jp 126) (setq aj "~"))
     
290.                                         ((= jp 33) (setq aj "!"))
     
291.                                         ((= jp 64) (setq aj "@"))
     
292.                                         ((= jp 35) (setq aj "#"))
     
293.                                         ((= jp 36) (setq aj "$"))
     
294.                                         ((= jp 37) (setq aj "%"))
     
295.                                         ((= jp 94) (setq aj "^"))
     
296.                                         ((= jp 38) (setq aj "&"))
     
297.                                         ((= jp 40) (setq aj "("))
     
298.                                         ((= jp 41) (setq aj ")"))
     
299.                                         ((= jp 95) (setq aj "_"))
     
300.                                 )
     
301.                         )
     
302.                 )
     
303.         );while
     
304.         (setvar'cursorsize gb);恢复光标大小
     
305.         (setvar'pickbox bk);恢复靶框大小
     
306.         (redraw);更新
     
307.         (if hd (setq aj (strcat hd aj)))
     
308.         (princ "\n")
     
309.         aj
     
310. )

(defun c:x(/ a)<br />         (setq<br />                 a (diy 0.2 "爽歪歪" "←" "→" "↑" "↓" "↖" "↗" "↙" "↘")<br />                 ;a (strcat a "+" (diy 0.2 "爽歪歪" "←" "→" "↑" "↓" "↖" "↗" "↙" "↘"));套娃<br />         )<br />         (princ a)<br />         (princ)<br /> )<br /> <br /> ;(diy 0.07 ts 左滑 右滑 上滑 下滑 左上滑 右上滑  左下滑 右下滑)<br /> (defun diy(bs ts fx_z fx_y fx_s fx_x fx_zs fx_ys fx_zx fx_yx / *error* n an an0 bl gr jp grdral loop p0 pj xc gc hd aj)<br />         (defun *error*(msg / *error*);出错处理<br />                 (setvar'cursorsize gb);恢复光标大小<br />                 (setvar'pickbox bk);恢复靶框大小<br />                 (redraw);更新<br />                 (setq aj nil)<br />         )<br />         ;飞雪神光 2023-11-30 <a href="http://bbs.mjtd.com/thread-188998-1-1.html" target="_blank">http://bbs.mjtd.com/thread-188998-1-1.html</a><br />         ;矢量线<br />         ;(grvecs (list 颜色 点 点 颜色 点 点))<br />         ;矢量线<br />         ;(grdraw 点 长度 角度 颜色)<br />         (defun grdral(pt10 bj an0 co / an an1 pt pt1)<br />                 (setq<br />                         an (+ an0 (/ pi (/ n 2)))<br />                         an1 an0<br />                         pt (polar pt10 an1 bj)<br />                 )<br />                 (grdraw pt10 pt co)<br />                 (setq pt (polar pt10 an bj))<br />                 (grdraw pt10 pt co)<br />                 (repeat (/ n 2)<br />                         (setq<br />                                 pt (polar pt10 an1 bj)<br />                                 pt1 pt<br />                                 an1 (+ an1 (* (/ (/ 360.0 32) 180.0) pi))<br />                                 pt (polar pt10 an1 bj)<br />                         )<br />                         (grdraw pt1 pt co);滑盘外圈颜色<br />                 )<br />         )<br />         ;————————————————————<br />         (if(= bs "")(setq bs 0.07)) ;屏幕高度的倍数<br />         (setq<br />                 n 8 ;滑盘等分数<br />                 xc 160 ;非光标处滑盘颜色<br />                 gc 6 ;光标处滑盘颜色<br />                 p0 (cadr (grread *));滑盘中心点<br />                 gb (getvar'cursorsize);记录光标大小<br />                 bk (getvar'pickbox);记录靶框大小<br />                 loop t<br />                 princpd t<br />                 princpd1 1<br />                 princpd2 2<br />         )<br />         (setvar'cursorsize 1);设置光标大小<br />         (setvar'pickbox 1);设置靶框大小<br />         ;————————————————————鼠标移动前绘制滑盘<br />         (setq an0 (* pi 1.875))<br />         (repeat n<br />                 (grdral p0 (*(getvar'viewsize)bs) an0 3)<br />                 (setq an0 (+ an0 (/ pi (/ n 2))))<br />         )<br />         (princ (setq ts (strcat ts " 左滑：" fx_z " 右滑：" fx_y " 上滑：" fx_s " 下滑：" fx_x " 左上滑：" fx_zs " 右上滑：" fx_ys " 左下滑：" fx_zx " 右下滑：" fx_yx)));提示<br />         ;————————————————————<br />         (while loop<br />                 ;(if(/= ss "")(sssetfirst()ss));如果已选中对象则亮显它<br />                 (setq<br />                         gr (grread t 8)<br />                         aj0 (car gr)<br />                         jp (cadr gr)<br />                 )<br />                 (cond<br />                         ((= aj0 3) (setq loop nil) (setq aj "左键") )<br />                         ((= aj0 25) (setq loop nil) (setq aj "右键") )<br />                         ((= aj0 5) ;移动鼠标触发距离<br />                                 (setq<br />                                         bl (*(getvar'viewsize)bs);滑盘大小(屏幕高度×倍数)<br />                                         pj (distance p0 jp)<br />                                 )<br />                                 (if (> pj (* bl 0.07))<br />                                         (progn<br />                                                 (redraw);更新<br />                                                 ;————————————————————鼠标移动后绘制滑盘<br />                                                 (setq an0 (* pi 1.875))<br />                                                 (repeat n<br />                                                         (grdral p0 bl an0 xc);非光标处滑盘颜色<br />                                                         (setq an0 (+ an0 (/ pi (/ n 2))))<br />                                                 )<br />                                                 (grdraw p0 jp 1);光标引线<br />                                                 ;————————————————————8向滑动判断<br />                                                 (setq ts1 (strcat "\n " ts)) ;提示<br />                                                 (setq an (angle p0 jp))<br />                                                 ;(vl-string-subst "替换后的文字" "要替换的文字" wz);字符串替换，替换wz里指定的字符串<br />                                                 ;(print (list princpd1 princpd2))<br />                                                 (cond<br />                                                         ((< (* pi 0.125) an (* pi 0.375))<br />                                                                 (grdral p0 bl (* pi 0.125) gc) (setq hd "右上滑")<br />                                                                 (if (/= fx_ys "") (setq ts1 (vl-string-subst "" (strcat " " hd "：" fx_ys) ts1)))<br />                                                                 (if (= princpd1 princpd2)<br />                                                                         (if princpd<br />                                                                                 (progn<br />                                                                                         ;(princ (strcat "\n " ts1 "\n " hd "：" fx_ys))<br />                                                                                         (princ (strcat "\n " hd "：" fx_ys))<br />                                                                                         (setq princpd nil)<br />                                                                                 )<br />                                                                         )<br />                                                                         (setq princpd t princpd1 princpd2)<br />                                                                 )<br />                                                                 (setq princpd2 1)<br />                                                         );↗<br />                                                         ((< (* pi 0.375) an (* pi 0.625))<br />                                                                 (grdral p0 bl (* pi 0.375) gc) (setq hd "上滑")<br />                                                                 (if (/= fx_s "") (setq ts1 (vl-string-subst "" (strcat " " hd "：" fx_s) ts1)))<br />                                                                 (if (= princpd1 princpd2)<br />                                                                         (if princpd<br />                                                                                 (progn<br />                                                                                         ;(princ (strcat "\n " ts1 "\n " hd "：" fx_s))<br />                                                                                         (princ (strcat "\n " hd "：" fx_s))<br />                                                                                         (setq princpd nil)<br />                                                                                 )<br />                                                                         )<br />                                                                         (setq princpd t princpd1 princpd2)<br />                                                                 )<br />                                                                 (setq princpd2 2)<br />                                                         );↑<br />                                                         ((< (* pi 0.625) an (* pi 0.875))<br />                                                                 (grdral p0 bl (* pi 0.625) gc) (setq hd "左上滑")<br />                                                                 (if (/= fx_zs "") (setq ts1 (vl-string-subst "" (strcat " " hd "：" fx_zs) ts1)))<br />                                                                 (if (= princpd1 princpd2)<br />                                                                         (if princpd<br />                                                                                 (progn<br />                                                                                         (princ (strcat "\n "  hd "：" fx_zs))<br />                                                                                         (setq princpd nil)<br />                                                                                 )<br />                                                                         )<br />                                                                         (setq princpd t princpd1 princpd2)<br />                                                                 )<br />                                                                 (setq princpd2 3)<br />                                                         );↖<br />                                                         ((< (* pi 0.875) an (* pi 1.125))<br />                                                                 (grdral p0 bl (* pi 0.875) gc) (setq hd "左滑")<br />                                                                 (if (/= fx_z "") (setq ts1 (vl-string-subst "" (strcat " " hd "：" fx_z) ts1)))<br />                                                                 (if (= princpd1 princpd2)<br />                                                                         (if princpd<br />                                                                                 (progn<br />                                                                                         (princ (strcat "\n " hd "：" fx_z))<br />                                                                                         (setq princpd nil)<br />                                                                                 )<br />                                                                         )<br />                                                                         (setq princpd t princpd1 princpd2)<br />                                                                 )<br />                                                                 (setq princpd2 4)<br />                                                         );←<br />                                                         ((< (* pi 1.125) an (* pi 1.375))<br />                                                                 (grdral p0 bl (* pi 1.125) gc) (setq hd "左下滑")<br />                                                                 (if (/= fx_zx "") (setq ts1 (vl-string-subst "" (strcat " " hd "：" fx_zx) ts1)))<br />                                                                 (if (= princpd1 princpd2)<br />                                                                         (if princpd<br />                                                                                 (progn<br />                                                                                         (princ (strcat "\n " hd "：" fx_zx))<br />                                                                                         (setq princpd nil)<br />                                                                                 )<br />                                                                         )<br />                                                                         (setq princpd t princpd1 princpd2)<br />                                                                 )<br />                                                                 (setq princpd2 5)<br />                                                         );↙<br />                                                         ((< (* pi 1.375) an (* pi 1.625))<br />                                                                 (grdral p0 bl (* pi 1.375) gc) (setq hd "下滑")<br />                                                                 (if (/= fx_x "") (setq ts1 (vl-string-subst "" (strcat " " hd "：" fx_x) ts1)))<br />                                                                 (if (= princpd1 princpd2)<br />                                                                         (if princpd<br />                                                                                 (progn<br />                                                                                         (princ (strcat "\n " hd "：" fx_x))<br />                                                                                         (setq princpd nil)<br />                                                                                 )<br />                                                                         )<br />                                                                         (setq princpd t princpd1 princpd2)<br />                                                                 )<br />                                                                 (setq princpd2 6)<br />                                                         );↓<br />                                                         ((< (* pi 1.625) an (* pi 1.875))<br />                                                                 (grdral p0 bl (* pi 1.625) gc) (setq hd "右下滑")<br />                                                                 (if (/= fx_yx "") (setq ts1 (vl-string-subst "" (strcat " " hd "：" fx_yx) ts1)))<br />                                                                 (if (= princpd1 princpd2)<br />                                                                         (if princpd<br />                                                                                 (progn<br />                                                                                         (princ (strcat "\n " hd "：" fx_yx))<br />                                                                                         (setq princpd nil)<br />                                                                                 )<br />                                                                         )<br />                                                                         (setq princpd t princpd1 princpd2)<br />                                                                 )<br />                                                                 (setq princpd2 7)<br />                                                         );↘<br />                                                         ((or (<= (* pi 1.875) an (* pi 2)) (<= 0 an (* pi 0.125)))(grdral p0 bl (* pi 1.875) gc) (setq hd "右滑")<br />                                                                 (if (/= fx_y "") (setq ts1 (vl-string-subst "" (strcat " " hd "：" fx_y) ts1)))<br />                                                                 (if (= princpd1 princpd2)<br />                                                                         (if princpd<br />                                                                                 (progn<br />                                                                                         (princ (strcat "\n " hd "：" fx_y))<br />                                                                                         (setq princpd nil)<br />                                                                                 )<br />                                                                         )<br />                                                                         (setq princpd t princpd1 princpd2)<br />                                                                 )<br />                                                                 (setq princpd2 8)<br />                                                         );→<br />                                                 );————————————————————<br />                                                 (if (> pj (* (* (getvar 'viewsize) bs) 1))<br />                                                         (progn ;光标离开滑盘<br />                                                                 (setq loop nil)<br />                                                                 (setvar'cursorsize gb);恢复光标大小<br />                                                                 (setvar'pickbox bk);恢复靶框大小<br />                                                                 (redraw);更新<br />                                                         )<br />                                                 )<br />                                         )<br />                                  (setq aj ":盘外")<br />                                 )<br />                         );————————————————————移动鼠标结束<br />                         ;————————————————————按键盘(grread)<br />                         ((= aj0 2)<br />                                 (setq loop nil)<br />                                 (cond<br />                                         ((= jp 96) (setq aj "`"))<br />                                         ((or(= jp 113)(= jp 81)) (setq aj "q"))<br />                                         ((or(= jp 119)(= jp 87)) (setq aj "w"))<br />                                         ((or(= jp 101)(= jp 69)) (setq aj "e"))<br />                                         ((or(= jp 114)(= jp 82)) (setq aj "r"))<br />                                         ((or(= jp 116)(= jp 84)) (setq aj "t"))<br />                                         ((or(= jp 121)(= jp 89)) (setq aj "y"))<br />                                         ((or(= jp 117)(= jp 85)) (setq aj "u"))<br />                                         ((or(= jp 105)(= jp 73)) (setq aj "i"))<br />                                         ((or(= jp 111)(= jp 79)) (setq aj "o"))<br />                                         ((or(= jp 112)(= jp 80)) (setq aj "p"))<br />                                         ((= jp 91) (setq aj "["))<br />                                         ((= jp 93) (setq aj "]"))<br />                                         ((= jp 8) (setq aj "删除")) ;Backspace<br />                                         ((= jp 61) (setq aj "="))<br />                                         ((or(= jp 97)(= jp 65)) (setq aj "a"))<br />                                         ((or(= jp 115)(= jp 83)) (setq aj "s"))<br />                                         ((or(= jp 100)(= jp 68)) (setq aj "d"))<br />                                         ((or(= jp 102)(= jp 70)) (setq aj "f"))<br />                                         ((or(= jp 103)(= jp 71)) (setq aj "g"))<br />                                         ((or(= jp 104)(= jp 72)) (setq aj "h"))<br />                                         ((or(= jp 106)(= jp 74)) (setq aj "j"))<br />                                         ((or(= jp 107)(= jp 75)) (setq aj "k"))<br />                                         ((or(= jp 108)(= jp 76)) (setq aj "l"))<br />                                         ((= jp 59) (setq aj ";"))<br />                                         ((= jp 39) (setq aj "'"))<br />                                         ((or(= jp 122)(= jp 90)) (setq aj "z"))<br />                                         ((or(= jp 120)(= jp 88)) (setq aj "x"))<br />                                         ((or(= jp 99)(= jp 67)) (setq aj "c"))<br />                                         ((or(= jp 118)(= jp 86)) (setq aj "v"))<br />                                         ((or(= jp 98)(= jp 66)) (setq aj "b"))<br />                                         ((or(= jp 110)(= jp 78)) (setq aj "n"))<br />                                         ((or(= jp 109)(= jp 77)) (setq aj "m"))<br />                                         ((= jp 44) (setq aj ","))<br />                                         ((= jp 92) (setq aj "\\"))<br />                                         ((= jp 13) (setq aj "回车"))<br />                                         ((= jp 32) (setq aj "空格"))<br />                                         ((= jp 46) (setq aj "."))<br />                                         ((= jp 48) (setq aj 0))<br />                                         ((= jp 49) (setq aj 1))<br />                                         ((= jp 50) (setq aj 2))<br />                                         ((= jp 51) (setq aj 3))<br />                                         ((= jp 52) (setq aj 4))<br />                                         ((= jp 53) (setq aj 5))<br />                                         ((= jp 54) (setq aj 6))<br />                                         ((= jp 55) (setq aj 7))<br />                                         ((= jp 56) (setq aj 8))<br />                                         ((= jp 57) (setq aj 9))<br />                                         ((= jp 43) (setq aj "+"))<br />                                         ((= jp 45) (setq aj "-"))<br />                                         ((= jp 42) (setq aj "*"))<br />                                         ((= jp 47) (setq aj "/"))<br />                                         ((= jp 9) (setq aj "Tab")) ;Tab<br />                                         ;————————————————————Shift+<br />                                         ((= jp 123) (setq aj "{"))<br />                                         ((= jp 125) (setq aj "}"))<br />                                         ((= jp 58) (setq aj ":"))<br />                                         ((= jp 34) (setq aj "\""))<br />                                         ((= jp 60) (setq aj "<"))<br />                                         ((= jp 62) (setq aj ">"))<br />                                         ((= jp 63) (setq aj "?"))<br />                                         ((= jp 124) (setq aj "|"))<br />                                         ((= jp 126) (setq aj "~"))<br />                                         ((= jp 33) (setq aj "!"))<br />                                         ((= jp 64) (setq aj "@"))<br />                                         ((= jp 35) (setq aj "#"))<br />                                         ((= jp 36) (setq aj "$"))<br />                                         ((= jp 37) (setq aj "%"))<br />                                         ((= jp 94) (setq aj "^"))<br />                                         ((= jp 38) (setq aj "&"))<br />                                         ((= jp 40) (setq aj "("))<br />                                         ((= jp 41) (setq aj ")"))<br />                                         ((= jp 95) (setq aj "_"))<br />                                 )<br />                         )<br />                 )<br />         );while<br />         (setvar'cursorsize gb);恢复光标大小<br />         (setvar'pickbox bk);恢复靶框大小<br />         (redraw);更新<br />         (if hd (setq aj (strcat hd aj)))<br />         (princ "\n")<br />         aj<br /> )

努.力

飞雪神光 发表于 2023-12-3 15:26

非常感谢大神的再次帮助，可否提示一下，究竟是那里导致右键和键盘出错的？

努.力

lijiao 发表于 2023-12-3 15:06
随便写了一个,可能与你的思路不一样

非常感谢大神分享不同的思路

飞雪神光

努.力 发表于 2023-12-3 16:08
非常感谢大神的再次帮助，可否提示一下，究竟是那里导致右键和键盘出错的？

aj变量冲突