永不言弃 发表于 2024-8-14 19:51:37

LISP圆形面板源码

本帖最后由 永不言弃 于 2024-8-14 19:54 编辑

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



用法
(defun c:tt ()
(setqmb_list
   (list
   (list "画圆圈" "CIRCLE")
   (list "偏移" "offset")
   (list "镜像" "mirror")

   (list "图层管理" "layer")
   (list "复制" "COPY")
   (list "移动" "MOVE")

   (list "打断" "break")
   (list "合并" "join")
   (list "圆角" "fillet")

   (list "画多段线" "PLINE")
   (list "画直线" "LINE")
   (list "阵列" "array")

   (list "构造线" "xline")
   (list "修剪" "trim")
   (list "缩放" "scale")

   (list "画矩形" "rectang")
   (list "倒角" "chamfer")
   (list "分解" "explode")

   )
)
(setq fun_help (list "更多" "tt1"))
(fun_load_hyjm
    0;;;;样式0-8
    18;;;文字颜色
    (list 255 0 0);;;渐变rgb颜色表1
    (list 255 255 255);;;渐变rgb颜色表2
    fun_help;;;;中间按钮命令
    mb_list;;;;总命令列表(目前最长18个)
)
)


(defun c:tt1 ()
(setqmb_list
   (list

   (list "偏移" "offset")
   (list "镜像" "mirror")
   (list "阵列" "array")

   (list "复制" "COPY")
   (list "移动" "MOVE")
   (list "缩放" "scale")

   (list "打断" "break")
   (list "合并" "join")
   (list "圆角" "fillet")

   (list "倒角" "chamfer")
   (list "分解" "explode")
   (list "修剪" "trim")



   )
)
(setq fun_help (list "返回" "TT"))
(fun_load_hyjm
    4
    18
    (list 255 0 0)
    (list 255 255 255)
    fun_help
    mb_list
)
)







xcmdos 发表于 2024-8-14 21:59:31

界面很好，就是花里胡哨:lol

永不言弃 发表于 2024-8-18 21:30:03

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

改这儿就行了

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



永不言弃 发表于 2024-11-8 18:29:34

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

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

qazxswk 发表于 2024-8-14 22:08:57

支持一下源代码。

paulpipi 发表于 2024-8-14 22:12:53


支持一下源代码。

gble119 发表于 2024-8-15 00:04:52

路过 支持下

云真 发表于 2024-8-15 11:48:03

支持一下。

云真 发表于 2024-8-15 11:49:43

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

Bao_lai 发表于 2024-8-15 12:44:34

支持一下源代码。

p-3-ianlcc 发表于 2024-8-15 12:49:16

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

不一样地设计 发表于 2024-8-15 12:50:13


支持一下源码，希望有用
页: [1] 2 3 4
查看完整版本: LISP圆形面板源码