LISP圆形面板源码

永不言弃

LISP圆形面板源码，闲着没事搞来玩的，谨慎下载



用法

1. (defun c:tt ()
   
2.   (setq  mb_list
   
3.    (list
   
4.      (list "画圆圈" "CIRCLE")
   
5.      (list "偏移" "offset")
   
6.      (list "镜像" "mirror")
   
7. 
   
8.      (list "图层管理" "layer")
   
9.      (list "复制" "COPY")
   
10.      (list "移动" "MOVE")
    
11. 
    
12.      (list "打断" "break")
    
13.      (list "合并" "join")
    
14.      (list "圆角" "fillet")
    
15. 
    
16.      (list "画多段线" "PLINE")
    
17.      (list "画直线" "LINE")
    
18.      (list "阵列" "array")
    
19. 
    
20.      (list "构造线" "xline")
    
21.      (list "修剪" "trim")
    
22.      (list "缩放" "scale")
    
23. 
    
24.      (list "画矩形" "rectang")
    
25.      (list "倒角" "chamfer")
    
26.      (list "分解" "explode")
    
27. 
    
28.    )
    
29.   )
    
30.   (setq fun_help (list "更多" "tt1"))
    
31.   (fun_load_hyjm
    
32.     0;;;;样式0-8
    
33.     18;;;文字颜色
    
34.     (list 255 0 0);;;渐变rgb颜色表1
    
35.     (list 255 255 255);;;渐变rgb颜色表2
    
36.     fun_help;;;;中间按钮命令
    
37.     mb_list;;;;总命令列表(目前最长18个)
    
38.   )
    
39. )
    
40. 
    
41. 
    
42. (defun c:tt1 ()
    
43.   (setq  mb_list
    
44.    (list
    
45. 
    
46.      (list "偏移" "offset")
    
47.      (list "镜像" "mirror")
    
48.      (list "阵列" "array")
    
49. 
    
50.      (list "复制" "COPY")
    
51.      (list "移动" "MOVE")
    
52.      (list "缩放" "scale")
    
53. 
    
54.      (list "打断" "break")
    
55.      (list "合并" "join")
    
56.      (list "圆角" "fillet")
    
57. 
    
58.      (list "倒角" "chamfer")
    
59.      (list "分解" "explode")
    
60.      (list "修剪" "trim")
    
61. 
    
62. 
    
63. 
    
64.    )
    
65.   )
    
66.   (setq fun_help (list "返回" "TT"))
    
67.   (fun_load_hyjm
    
68.     4
    
69.     18
    
70.     (list 255 0 0)
    
71.     (list 255 255 255)
    
72.     fun_help
    
73.     mb_list
    
74.   )
    
75. )
    

(defun c:tt ()<br />   (setq  mb_list<br />    (list<br />      (list "画圆圈" "CIRCLE")<br />      (list "偏移" "offset")<br />      (list "镜像" "mirror")<br /> <br />      (list "图层管理" "layer")<br />      (list "复制" "COPY")<br />      (list "移动" "MOVE")<br /> <br />      (list "打断" "break")<br />      (list "合并" "join")<br />      (list "圆角" "fillet")<br /> <br />      (list "画多段线" "PLINE")<br />      (list "画直线" "LINE")<br />      (list "阵列" "array")<br /> <br />      (list "构造线" "xline")<br />      (list "修剪" "trim")<br />      (list "缩放" "scale")<br /> <br />      (list "画矩形" "rectang")<br />      (list "倒角" "chamfer")<br />      (list "分解" "explode")<br /> <br />    )<br />   )<br />   (setq fun_help (list "更多" "tt1"))<br />   (fun_load_hyjm<br />     0;;;;样式0-8<br />     18;;;文字颜色<br />     (list 255 0 0);;;渐变rgb颜色表1<br />     (list 255 255 255);;;渐变rgb颜色表2<br />     fun_help;;;;中间按钮命令<br />     mb_list;;;;总命令列表(目前最长18个)<br />   )<br /> )<br /> <br /> <br /> (defun c:tt1 ()<br />   (setq  mb_list<br />    (list<br /> <br />      (list "偏移" "offset")<br />      (list "镜像" "mirror")<br />      (list "阵列" "array")<br /> <br />      (list "复制" "COPY")<br />      (list "移动" "MOVE")<br />      (list "缩放" "scale")<br /> <br />      (list "打断" "break")<br />      (list "合并" "join")<br />      (list "圆角" "fillet")<br /> <br />      (list "倒角" "chamfer")<br />      (list "分解" "explode")<br />      (list "修剪" "trim")<br /> <br /> <br /> <br />    )<br />   )<br />   (setq fun_help (list "返回" "TT"))<br />   (fun_load_hyjm<br />     4<br />     18<br />     (list 255 0 0)<br />     (list 255 255 255)<br />     fun_help<br />     mb_list<br />   )<br /> )<br />

xcmdos

界面很好，就是花里胡哨

永不言弃

bai2000 发表于 2024-8-17 17:08
色很粉，在哪改颜色，改给蓝色系的呗

改这儿就行了

1. (list 255 0 255);;;渐变rgb颜色表1:粉色
   
2.     (list 255 255 255);;;渐变rgb颜色表2:白色

(list 255 0 255);;;渐变rgb颜色表1:粉色<br />     (list 255 255 255);;;渐变rgb颜色表2:白色

永不言弃

llsheng_73 发表于 2024-11-8 17:58
这个很漂亮，唯一不好的是多了几圈后，外边显得太浪费（空间很大，内容太少）,建议第三层起增加项数，通过 ...

这个也就是玩玩，在实际操作上，还是不方便

qazxswk

支持一下源代码。

paulpipi

支持一下源代码。

gble119

路过 支持下

云真

支持一下。

云真

支持一下源码，界面很好看。

Bao_lai

支持一下源代码。

p-3-ianlcc

支持一下…
谢谢大佬的分享！

不一样地设计

支持一下源码，希望有用