重写经典---麦版面板dcl 短小精干（20241016传可伸缩版））

听见天晴

代码简洁很容易理解，界面也非常清爽，我这种不会写程序的都可以拿来改自己的DIY面板，之前下了几个面板都不知道怎么用，这个可以了，谢谢大佬~

ggosgg

这个小面板非常有价值。收藏了。

有123

谢谢分享，很简洁

伍星

这种面板都不能常驻停靠在cad上面吗

Qwer1243

wline 发表于 2024-7-4 22:37
楼主，这个按钮的间距可以调整吗？感觉按钮全部都挤在一起了一点都不方便，还有文字可以调大一点吗

我也想问这个，感觉太挤了，看着有点眼花

wzg356

Qwer1243 发表于 2024-10-14 16:24
我也想问这个，感觉太挤了，看着有点眼花

(write-line "MYbutton:button{width =10;vertical_margin=none;horizontal_margin=none;}" f)
改为
(write-line "MYbutton:button{width =10;horizontal_margin=none;}" f)
或
(write-line "MYbutton:button{width =10;}" f)

Qwer1243

wzg356 发表于 2024-10-16 15:42
(write-line "MYbutton:button{width =10;vertical_margin=none;horizontal_margin=none;}" f)
改为
(w ...

好的，我去试试

decemc

大佬，我一直用你之前的面板，刚试过了最新的版本，默认是收缩的，个人觉得不太方便，还有就是每列的对齐，这能不能优化下呢，比如：按最大宽度的字符，调节每列的宽度
以上只是我个人的意见，感谢大佬的付出！

wzg356

decemc 发表于 2024-10-17 13:06
大佬，我一直用你之前的面板，刚试过了最新的版本，默认是收缩的，个人觉得不太方便，还有就是每列的对齐， ...

第一个问题，稍有接触lsp就可以改啊
(if mytoolgnall strklst0(list(car strklst0)(cadr strklst0)))
改为
(if mytoolgnall (list(car strklst0)(cadr strklst0))strklst0)

":button{label=\""(if mytoolgnall "《" "》")"\"; key=\"key1\";width=4;}"
改为
":button{label=\""(if mytoolgnall "》" "《")"\"; key=\"key1\";width=4;}"

第二个问题，这种改法不通用，也失去简洁的意义了，自己继续学习试做修改吧

oldskooler

我想默认显示3列或4列，该怎么修改呢