[lostbalance]通用面板(大数据版)

lostbalance

sandyvs 发表于 2023-12-9 11:49
个人感觉，命令不是太多的情况下（应该不会出现太多的情况吧，一列20个还不够吗），命令排序不是必要的， ...

回论坛逛逛，正好看到，回个贴。

这个面板的频率排序，只在主面板上的每个类别的排序，具体的子面板是按照预设排序的，不会变动。
开发的初衷，如一楼所述，是因为开发的工具箱，零零散散的有七八十个命令了。推广到办公室后，发现鼠标流和键盘流的操作习惯相差很大，对于主面板上的命令需求可以说完全不一致。我又不想像其他工具库那样，把一个面板做成那种几十行十来列的大面板，个人觉得大面板按钮多了后，找按钮挺费劲，所以就增加了计数统计的功能。
如果你的程序只是个人使用，或者命令不多的之类情况，那么固定面板反而好用。这类的面板，论坛里有不少，我也编过一个，叫通用多层面板，你有兴趣可以看看。现在这个大数据，差不多就是在通用面板的基础上，改造来的。

sandyvs

lostbalance 发表于 2023-12-9 23:24
回论坛逛逛，正好看到，回个贴。

这个面板的频率排序，只在主面板上的每个类别的排序，具体的子面板是 ...

嗯，现在就在用这个，每列放多了也没事，其他面板会超出屏幕范围报错，我现在水平还不会改。。因为我现在是通过excel更新面板数据（习惯在excel编辑命令），增减命令、排序什么的随便搞，改完更新一下数据就行。

夜冥音

终于有提示缺少的函数了
WYB-FILE-READINI

zhangrunze

不错~适合命令整理汇总~
不管是工具还是插件都很多，每个都去点也不快~

tensir

感谢作者的分享！

ma344578245

权限不够  5555

xyp1964

;; 凑个热闹

1. (defun c:jzgj (/ lst)
   
2.   "jzgj(建筑工具)"
   
3.   (setq lst '((("轴线" "ep-zxzw(直线轴网)" "ep-bzzw(标注轴网)" "ep-zhwp(轴号外偏)" "ep-pmbz(平面布柱)" "ep-zwbz(柱网标注)" "ep-hzx(画轴线)" "ep-zlzx(整理轴线)")
   
4.                ("墙体" "ep-zxbq(轴线变墙)" "ep-hzsx(绘制双线)" "ep-kxbq(宽线变墙)" "ep-qtsc(墙体删除)" "ep-xlqj(修理墙角)" "ep-qtbz(墙体标注)")
   
5.                ("立面、剖面" "ep-mlm(门立面)" "ep-clm(窗立面)" "ep-mqlm(幕墙立面)" "ep-pmlm(剖面立面)" "ep-hlm(弧立面)" "ep-lbpm(梁板剖面)")
   
6.               )
   
7.               (("门窗" "zqmc(直墙门窗)" "zqtc(直墙凸窗)" "ep-ldhc(两点画窗)"  "ep-pmjc(平面角窗)"  "dxbc(单线变窗)" "fkbc(方框变窗)"   "ep-tlmc(推拉门窗)"  "dtmc(动态门窗)"  "ep-chbc(窗号变窗)" "chpm(窗户剖面)" "bycpm(百叶窗剖面)" "ep-lhjm(铝合金门)" "ep-kqx(开启线)" "ep-lmfg(立面分格)")
   
8.                 ("门窗统计" "jdmctj(简单门窗)" "fcmctj(分层门窗)" "lzmctj(理正门窗)" "ep-mcmj(门窗面积)" "ep-mcgj(门窗工具)")
   
9.               )
   
10.               (("楼梯、踏步" "splt(双跑楼梯)" "ep-dplt(单跑楼梯)" "zxtd(直线梯段)" "ep-lxlt(螺旋楼梯)" "lttb(楼梯踏步)" "ep-lxtb(拉线踏步)" "ep-lglm(栏杆立面)")
    
11.                ("电梯、坡道" "dtjd(电梯井道)" "zdft(自动扶梯)" "ckpd(车库坡道)" "lypd(轮椅坡道)")
    
12.                ("面积、标高" "mjbz(面积标注)" "bgbz(标高标注)" "lxbg(连续标高)" "bgcz(标高重置)" "fzbg(复制标高)")
    
13.               )
    
14.               (("布置" "zzjj(住宅家具)" "hdzy(活动座椅)" "ep-hys(会议室)" "ep-yghz(衣柜绘制)" "dhyz(大会议桌)" "ep-clx(窗帘线)" "ep-sxfx(视线分析)")
    
15.                ("规范、说明" "fhgf(防火规范)" "scfl(石材分类)" "hb50(环保50条)" "jzsj(建筑数据)")
    
16.                ("构件" "jztl-pyd(排烟道)" "jztl-tfd(通风道)" "jztl-sbj(水簸箕)" "jztl-dl(地漏)")
    
17.               )
    
18.               (("计算" "ep-aqss(安全疏散)" "ep-mxfb(门线封闭)" "ep-cdb(窗地比)")
    
19.                ("停车" "ep-qxtc(曲线停车)" "dltc(道路停车)")
    
20.                ("效果" "pmgc(平面构成)" "tsyx(徒手云线)" "ep-ddxg(抖动效果)" "swts(三维透视)")
    
21.                ("其他" "ep-zbz(指北针)" "fmgt(风玫瑰图)" "sxsj(视线设计)" "txbz(天线布置)" "ssjl(疏散距离)" "dkhz(洞口绘制)" "ep-yxkc(异形孔槽)" "ep-fstl(防水图例)")
    
22.               )
    
23.              )
    
24.   )
    
25.   (xyp-Dcl-FastBt lst "【建筑工具】V202412")
    
26.   (princ)
    
27. )

(defun c:jzgj (/ lst)<br />   "jzgj(建筑工具)"<br />   (setq lst '((("轴线" "ep-zxzw(直线轴网)" "ep-bzzw(标注轴网)" "ep-zhwp(轴号外偏)" "ep-pmbz(平面布柱)" "ep-zwbz(柱网标注)" "ep-hzx(画轴线)" "ep-zlzx(整理轴线)")<br />                ("墙体" "ep-zxbq(轴线变墙)" "ep-hzsx(绘制双线)" "ep-kxbq(宽线变墙)" "ep-qtsc(墙体删除)" "ep-xlqj(修理墙角)" "ep-qtbz(墙体标注)")<br />                ("立面、剖面" "ep-mlm(门立面)" "ep-clm(窗立面)" "ep-mqlm(幕墙立面)" "ep-pmlm(剖面立面)" "ep-hlm(弧立面)" "ep-lbpm(梁板剖面)")<br />               )<br />               (("门窗" "zqmc(直墙门窗)" "zqtc(直墙凸窗)" "ep-ldhc(两点画窗)"  "ep-pmjc(平面角窗)"  "dxbc(单线变窗)" "fkbc(方框变窗)"   "ep-tlmc(推拉门窗)"  "dtmc(动态门窗)"  "ep-chbc(窗号变窗)" "chpm(窗户剖面)" "bycpm(百叶窗剖面)" "ep-lhjm(铝合金门)" "ep-kqx(开启线)" "ep-lmfg(立面分格)")<br />                 ("门窗统计" "jdmctj(简单门窗)" "fcmctj(分层门窗)" "lzmctj(理正门窗)" "ep-mcmj(门窗面积)" "ep-mcgj(门窗工具)")<br />               )<br />               (("楼梯、踏步" "splt(双跑楼梯)" "ep-dplt(单跑楼梯)" "zxtd(直线梯段)" "ep-lxlt(螺旋楼梯)" "lttb(楼梯踏步)" "ep-lxtb(拉线踏步)" "ep-lglm(栏杆立面)")<br />                ("电梯、坡道" "dtjd(电梯井道)" "zdft(自动扶梯)" "ckpd(车库坡道)" "lypd(轮椅坡道)")<br />                ("面积、标高" "mjbz(面积标注)" "bgbz(标高标注)" "lxbg(连续标高)" "bgcz(标高重置)" "fzbg(复制标高)")<br />               )<br />               (("布置" "zzjj(住宅家具)" "hdzy(活动座椅)" "ep-hys(会议室)" "ep-yghz(衣柜绘制)" "dhyz(大会议桌)" "ep-clx(窗帘线)" "ep-sxfx(视线分析)")<br />                ("规范、说明" "fhgf(防火规范)" "scfl(石材分类)" "hb50(环保50条)" "jzsj(建筑数据)")<br />                ("构件" "jztl-pyd(排烟道)" "jztl-tfd(通风道)" "jztl-sbj(水簸箕)" "jztl-dl(地漏)")<br />               )<br />               (("计算" "ep-aqss(安全疏散)" "ep-mxfb(门线封闭)" "ep-cdb(窗地比)")<br />                ("停车" "ep-qxtc(曲线停车)" "dltc(道路停车)")<br />                ("效果" "pmgc(平面构成)" "tsyx(徒手云线)" "ep-ddxg(抖动效果)" "swts(三维透视)")<br />                ("其他" "ep-zbz(指北针)" "fmgt(风玫瑰图)" "sxsj(视线设计)" "txbz(天线布置)" "ssjl(疏散距离)" "dkhz(洞口绘制)" "ep-yxkc(异形孔槽)" "ep-fstl(防水图例)")<br />               )<br />              )<br />   )<br />   (xyp-Dcl-FastBt lst "【建筑工具】V202412")<br />   (princ)<br /> )

小王在学lisp

留个记录，级别够了再来看