面板系统-源码--继发姊妹贴

尘缘一生

http://bbs.mjtd.com/thread-184339-1-1.html
快捷键系统做完，自然想，以此为基础，做成快捷面板，那么尝试下吧：
面板系统，实际就是一个问题：键的触发问题。希望大师指点，更好触发设置。
WIN764 CAD2020  测试成功。

• by :尘缘一生   QQ:15290049
• ;;三领面板--------【开始】-----------------c:z
• (defun c:tt (/ dcl_id keys n)
•   (vl-load-com)
•   (setq keys
•     (list
•       ;;设置|整图
•       (list "Text1"    "zcsl")              ; 注册三领
•       (list "Text2"    "slsetup")           ; 三领设置
•       (list "Text3"    "(ht1-1)")           ; 建筑1:1绘图
•       (list "Text4"    "(ht1-100)")         ; 建筑1:100绘图
•       (list "Text5"    "(htbl)")            ; 绘图比例
•       (list "Text6"    "options")           ; 选项设置
•       (list "Text7"    "sl-kjj")            ; 三领快捷键
•       (list "Text8"    "slcstyles")         ; 文字样式设置
•       (list "Text9"    "(opmenu T)")        ; 菜单显示
•       (list "Text10"   "(opmenu nil)")      ; 菜单关闭
•       (list "Text11"   "zzz0")              ; z轴归零
•       (list "Text12"   "ent2lay")           ; 实体移层
•       (list "Text13"   "sl-tc")             ; 三领图层
•       (list "Text14"   "slsstc")            ; 删除合并层
•       (list "Text15"   "t-explode")         ; 清理图纸
•       (list "Text16"   "duprem")            ; 删除重叠
•       (list "Text17"   "slxref")            ; 三领参照
•       (list "Text18"   "slatf")             ; 三领属性
•       (list "Text19"   "sltkgl")            ; 图块管理
•       (list "Text20"   "sl-col")            ; 颜色集成
•       (list "Text21"   "(aboutsl)")         ; 关于三领
•       (list "Text22"   "removesl")          ; 卸载三领
•       (list "Text23"   "sl:xts")            ; 相同刷
•       (list "Text24"   "sldz")              ; 递增刷
•       (list "Text25"   "slcopyadd")         ; 递增复制
•       
•       ;;文字|符号
•       (list "Text26"   "xzp")               ; 细体字符
•       (list "Text27"   "xxzp")              ; 空心字符
•       (list "Text28"   "suan-xz")           ; 齐线字符
•       (list "Text29"   "xhz")               ; 综合汉字
•       (list "Text30"   "ch-text")           ; 给字改字
•       (list "Text31"   "dd-cht")            ; DCL改字
•       (list "Text32"   "chgtext")           ; 依旧换新
•       (list "Text33"   "jjstr")             ; 左+右-
•       (list "Text34"   "ch-z-hi")           ; 改字高
•       (list "Text35"   "macedit")           ; 文字伸缩
•       (list "Text36"   "sl-substr")         ; 屏幕选字
•       (list "Text37"   "crfh")              ; 特殊符号
•       (list "Text38"   "slciku")            ; 词库
•       (list "Text39"   "expzi")             ; 文字炸开
•       (list "Text40"   "zhazxian")          ; 炸字成线
•       (list "Text41"   "zfhb")              ; 字符合并
•       (list "Text42"   "ch-xz")             ; 改成-空心字
•       (list "Text43"   "ch-sz")             ; 改成-细体字
•       (list "Text44"   "x-rotate")          ; 文字、物体齐线
•       (list "Text45"   "slxhq")             ; 序号球
•       (list "Text46"   "slzbz")             ; 指北针
•       (list "Text47"   "pmh")               ; 剖面号
•       
•       ;;文字|符号
•       (list "Text48"   "pq")                ; 剖切符
•       (list "Text49"   "xth")               ; 现场焊缝
•       (list "Text50"   "fxth")              ; 工厂焊缝
•       (list "Text51"   "yzhf")              ; 一字焊缝
•       (list "Text52"   "jt")                ; 箭头
•       (list "Text53"   "duichen")           ; 对称符
•       (list "Text54"   "zdx")               ; 折断线
•       (list "Text55"   "zdx1")              ; 双折断线
•       (list "Text56"   "zhx-hao")           ; 加轴线号
•       (list "Text57"   "xthao")             ; 详图号
•       (list "Text58"   "pmsy")              ; 剖面索引号
•       (list "Text59"   "slziyi")            ; 指引符号
•       (list "Text60"   "txt-jt")            ; 文字箭头
•       (list "Text61"   "syp")               ; 圆柱截断线
•       (list "Text62"   "sl:biaogao")        ; 基线标高
•       (list "Text63"   "r-bgf")             ; 标高符
•       (list "Text64"   "sl-gj")             ; 钢筋集成
•       (list "Text65"   "gujin")             ; 改写箍筋
•       (list "Text66"   "1-3")               ; 改写1根
•       (list "Text67"   "2-3")               ; 改写2根
•       (list "Text68"   "3-3")               ; 改写3根
•       (list "Text69"   "4-3")               ; 改写4根
•       
•       ;;标|填|查|统
•       (list "Text70"   "sl-zdbz")           ; 逐点标注
•       (list "Text71"   "ll")                ; 平行线间距
•       (list "Text72"   "dd-dim")            ; 点点标注
•       (list "Text73"   "ali-dim")           ; 选线标注
•       (list "Text74"   "ccjx-h")            ; 尺寸界线
•       (list "Text75"   "hu")                ; 弧长标注
•       (list "Text76"   "banjing")           ; 半径标注
•       (list "Text77"   "jd")                ; 角度标注
•       (list "Text78"   "yxbz")              ; 引线标注
•       (list "Text79"   "zb")                ; 坐标标注
•       (list "Text80"   "slzbjc")            ; 坐标及制表
•       (list "Text81"   "sl-tic")            ; 三领填充
•       (list "Text82"   "jctc")              ; 继承填充
•       (list "Text83"   "dttcbi")            ; 动态填充比例
•       (list "Text84"   "(btmj)")            ; 填充面积
•       (list "Text85"   "(cjtchl)")          ; 重建边界
•       (list "Text86"   "Na-soil")           ; 自然土壤
•       (list "Text87"   "ram-soil")          ; 素土夯实
•       (list "Text88"   "bwm")               ; 保温棉
•       (list "Text89"   "ss-ll")             ; 查线距
•       (list "Text90"   "sldd")              ; 查点距
•       (list "Text91"   "cr")                ; 标型心
•       (list "Text92"   "ad")                ; 线长度统计
•       (list "Text93"   "am")                ; 面积、体积、周长
•       (list "Text94"   "printdxf")          ; 显示实体dxf码
•       
•       ;;结构|计算|绘制
•       
•       (list "Text95"   "exclcalc")          ; 三领计算 exclcalc
•       (list "Text96"   "xcwj")              ; 型材五金
•       (list "Text97"   "xgcr")              ; 插入型钢
•       (list "Text98"   "amkg")              ; 钢板重量
•       (list "Text99"   "sl-xgjm")           ; 钢构件截面特征
•       (list "Text100"   "sl-gjb")           ; 选筋表
•       (list "Text101"   "hguj")             ; 绘制箍筋
•       (list "Text102"   "ban-fj")           ; 画板负筋
•       (list "Text103"   "ban-zj")           ; 画板正筋
•       (list "Text104"   "qiuhe")            ; 求和
•       (list "Text105"   "pjz")              ; 求平均值
•       (list "Text106"   "qiuji")            ; 求积
•       
•       ;;绘制
•       (list "Text107"   "slyx")            ; 云线
•       (list "Text108"   "pxx")             ; 平行线
•       (list "Text109"   "div-lin")         ; 等分画线
•       (list "Text110"   "ayPerCurve1")     ; 曲线垂线
•       (list "Text111"   "ce")              ; 智能中心线
•       (list "Text112"   "slyuan")          ; 比例圆
•       (list "Text113"   "tcyx")            ; 填充圆
•       (list "Text114"   "gangjind")        ; 钢筋点
•       (list "Text115"   "kua00")           ; 细线矩形
•       (list "Text116"   "gjk")             ; 0.45矩形
•       (list "Text117"   "tcjx")            ; 填充矩形
•       (list "Text118"   "slot")            ; 椭圆孔
•       (list "Text119"    "th")             ; 涂黑
•       
•       ;;编辑|修改
•       (list "Text120"    "dellayer")        ; 按层删除
•       (list "Text121"    "d-mov")           ; 点移
•       (list "Text122"    "dd-mov")          ; 重复点移
•       (list "Text123"    "smove")           ; 选移
•       (list "Text124"    "py")              ; 定距移
•       (list "Text125"    "x-rotate")        ; 实体同角移
•       (list "Text126"    "d-cop")           ; 点复制
•       (list "Text127"     "dd-cop")         ; 多点复制
•       (list "Text128"     "scopy")          ; 选复制
•       (list "Text129"     "pyfz")           ; 定距复制
•       (list "Text130"     "x-r-cc")         ; 实体同角拷贝
•       (list "Text131"     "slofset")        ; 偏移拷贝
•       (list "Text132"     "slofboth")       ; 双向偏移、剪切
•       (list "Text133"     "ys")             ; 双向延伸
•       (list "Text134"     "slshj")          ; 双向伸剪
•       (list "Text135"     "slstrch")        ; 三领拉伸
•       (list "Text136"      "disstr")        ; 定距拉伸
•       (list "Text137"      "xing-b")        ; 实体形变
•       (list "Text138"      "dtfillet")      ; 动态圆角、倒角
•       (list "Text139"      "num-sc")        ; 定值改变实体比例
•       (list "Text140"       "ang-rot")      ; 旋转
•       (list "Text141"       "gxxhq")        ; 改写序号球
•       (list "Text142"       "c-gx")         ; 线编辑器
•       (list "Text143"       "slexpline")    ; 保留宽度解线类
•       (list "Text144"       "sl-jf")        ; 连线、弧、多段线
•       
•       ;;编|修|表|图|审|综合
•       (list "Text145"       "h-mr-mv")        ; 水平镜像且移动定位，原图删除
•       (list "Text146"       "v-mr-mv")        ; 垂直镜像且移动定位，原图删除
•       (list "Text147"       "h-mr-mv-n")      ; 水平镜像且移动定位，原图保留
•       (list "Text148"       "v-mr-mv-n")      ; 垂直镜像且移动定位，原图保留
•       (list "Text149"       "j-mirror")       ; 以直线镜像
•       (list "Text150"       "sl-arry")        ; 三领阵列
•       (list "Text151"       "sldaduan")       ; 三领打断
•       (list "Text152"       "sl-break")       ; 交点断开
•       (list "Text153"       "dt-xx")          ; 动态线型比例
•       (list "Text154"       "slfd")           ; 局部放大
•       (list "Text155"       "sl-table")       ; 表格处理
•       (list "Text156"       "(sl-bjz)")       ; 表格实体居中
•       (list "Text157"       "dwgchli")        ; 图纸集令
•       (list "Text158"       "bl2dwg")         ; 同比双图
•       (list "Text159"       "sl-jjm")         ; 图纸加密解密
•       (list "Text160"       "slshikou")       ; 视口集令
•       (list "Text161"       "sldwgmark")      ; 图审集令
•       (list "Text162"       "slfinde")        ; 查找、替换、标记、亮显
•       (list "Text163"       "slszy")          ; 选择易
•       (list "Text164"       "SL-Lib-Main")    ; 三领图库
•       (list "Text165"       "pldy")           ; 批量打印
•       (list "Text166"       "(sl-nx)")        ; 乱码恢复
•     )
•   )
•   (setq dcl_id (load_dialog (sl_dcl_form)))
•   (new_dialog "Form" dcl_id)
•   (foreach n keys
•     (action_tile (car n) (strcat "(vla-sendcommand *AcDocument* \"" (cadr n) " \"))"))  
•   )
•   (set_tile "sltime" (menucmd "M=$(edtime,$(getvar,date), 三领设计V 2.0                         现在时间:YYYY/MO/DD DDD HH:MM:SS am/pm )"))
•   (action_tile "help" "(dohelp)")
•   (action_tile "cancel" "(done_dialog 0)")
•    (start_dialog)
•   (unload_dialog dcl_id)
• )
• ;;------------------------------
• (defun dohelp ()
•   (slalert
•     (slmsg (strcat
•              "                     命令显示解释                                  "
•              "\n     m 表示 编辑; + 表示增加实体 ;- 表示删除实体               "
•              "\n     ? 表示查询  c表示 计算功能 []【】表示集成或重点开发         "
•              "\n       以上特征字符有机组合即表示共有功能                        "
•            )
•       (strcat
•         "                     命令顯示解釋                                  "
•         "\n     m 表示 編輯； + 表示增加實體 ；- 表示刪除實體               "
•         "\n       ? 表示查詢  c表示 計算功能 []【】 表示集成或重點開發         "
•         "\n       以上特征字符有機組合即表示共有功能                        "
•       )
•     )
•     2 "三领设计 V2.0" 4096
•   )
• )
• ;;建临时DCL文件--------------------
• (defun sl_dcl_form (/ lst_str)
•   (setq lst_str
•     (list
•       "kk_but:button {height = 0.6 ; horizontal_margin = none ; vertical_margin = none ; width =0.4 ;}"
•       "Form:dialog{key = \"sltime\";"
•       ":row{"
•       
•       ":boxed_column { label = \"设置|整图\" ;"
•       ":kk_but{key = \"Text1\"  ; label = \"   注册三领\" ;}"
•       ":kk_but{key = \"Text2\"  ; label = \"   三领设置\" ;}"
•       ":kk_but{key = \"Text3\"  ; label = \"   建 1:1  \" ;}"
•       ":kk_but{key = \"Text4\"  ; label = \"   建 1:100\" ;}"
•       ":kk_but{key = \"Text5\"  ; label = \"   【比例】\" ;}"
•       ":kk_but{key = \"Text6\"  ; label = \"   选项设置\" ;}"
•       ":kk_but{key = \"Text7\"  ; label = \"   [快捷键]\" ;}"
•       ":kk_but{key = \"Text8\"  ; label = \"   文字样式\" ;}"
•       ":kk_but{key = \"Text9\"  ; label = \"   显示菜单\" ;}"
•       ":kk_but{key = \"Text10\" ; label = \"   关闭菜单\" ;}"
•       ":kk_but{key = \"Text11\" ; label = \"m  归零Z轴 \" ;}"
•       ":kk_but{key = \"Text12\" ; label = \"m    移层  \" ;}"
•       ":kk_but{key = \"Text13\" ; label = \"m+-【图层】\" ;}"
•       ":kk_but{key = \"Text14\" ; label = \"m-  删并层 \" ;}"
•       ":kk_but{key = \"Text15\" ; label = \"m- 【清图】\" ;}"
•       ":kk_but{key = \"Text16\" ; label = \"m-   消重  \" ;}"
•       ":kk_but{key = \"Text17\" ; label = \"m+-【参照】\" ;}"
•       ":kk_but{key = \"Text18\" ; label = \"m+-【属性】\" ;}"
•       ":kk_but{key = \"Text19\" ; label = \"m+-【图块】\" ;}"
•       ":kk_but{key = \"Text20\" ; label = \"m+-【颜色】\" ;}"
•       ":kk_but{key = \"Text21\" ; label = \"   关于三领\" ;}"
•       ":kk_but{key = \"Text22\" ; label = \"   卸载三领\" ;}"
•       "}"
•       
•       ":boxed_column {label = \"文字|符号\" ;"
•       ":kk_but{key = \"Text26\" ; label = \"+ 细体字 \" ;}"
•       ":kk_but{key = \"Text27\" ; label = \"+ 空心字 \" ;}"
•       ":kk_but{key = \"Text28\" ; label = \"+ 齐线字 \" ;}"
•       ":kk_but{key = \"Text29\" ; label = \"+ 写汉字 \" ;}"
•       ":kk_but{key = \"Text30\" ; label = \"m+字改字 \" ;}"
•       ":kk_but{key = \"Text31\" ; label = \"m+[DCL字]\" ;}"
•       ":kk_but{key = \"Text32\" ; label = \"m+旧换新 \" ;}"
•       ":kk_but{key = \"Text33\" ; label = \"m左加右减\" ;}"
•       ":kk_but{key = \"Text34\" ; label = \"m 改字高 \" ;}"
•       ":kk_but{key = \"Text35\" ; label = \"m 字伸缩 \" ;}"
•       ":kk_but{key = \"Text36\" ; label = \"m屏幕选字\" ;}"
•       ":kk_but{key = \"Text37\" ; label = \"+特殊符号\" ;}"
•       ":kk_but{key = \"Text38\" ; label = \"+  词库  \" ;}"
•       ":kk_but{key = \"Text39\" ; label = \"m文字炸开\" ;}"
•       ":kk_but{key = \"Text40\" ; label = \"m炸字成线\" ;}"
•       ":kk_but{key = \"Text41\" ; label = \"m字符合并\" ;}"
•       ":kk_but{key = \"Text42\" ; label = \"m改空心字\" ;}"
•       ":kk_but{key = \"Text43\" ; label = \"m改细体字\" ;}"
•       ":kk_but{key = \"Text44\" ; label = \"m文物齐线\" ;}"
•       ":kk_but{key = \"Text45\" ; label = \"+ 序号球 \" ;}"
•       ":kk_but{key = \"Text46\" ; label = \"+ 指北针 \" ;}"
•       ":kk_but{key = \"Text47\" ; label = \"+ 剖面号 \" ;}"
•       "}"
•       
•       ":boxed_column {label = \"文字|符号\" ;"
•       ":kk_but{key = \"Text48\" ; label = \"+ 剖切号\" ;}"
•       ":kk_but{key = \"Text49\" ; label = \"+ 现场焊\" ;}"
•       ":kk_but{key = \"Text50\" ; label = \"+ 工厂焊\" ;}"
•       ":kk_but{key = \"Text51\" ; label = \"+ 一字缝\" ;}"
•       ":kk_but{key = \"Text52\" ; label = \"+  箭头 \" ;}"
•       ":kk_but{key = \"Text53\" ; label = \"+ 对称符\" ;}"
•       ":kk_but{key = \"Text54\" ; label = \"+ 折断线\" ;}"
•       ":kk_but{key = \"Text55\" ; label = \"+ 双断线\" ;}"
•       ":kk_but{key = \"Text56\" ; label = \"+ 轴线号\" ;}"
•       ":kk_but{key = \"Text57\" ; label = \"+ 详图号\" ;}"
•       ":kk_but{key = \"Text58\" ; label = \"+ 索引号\" ;}"
•       ":kk_but{key = \"Text59\" ; label = \"+ 指引号\" ;}"
•       ":kk_but{key = \"Text60\" ; label = \"+ 箭字符\" ;}"
•       ":kk_but{key = \"Text61\" ; label = \"+ 柱断线\" ;}"
•       ":kk_but{key = \"Text62\" ; label = \"+ 线标高\" ;}"
•       ":kk_but{key = \"Text63\" ; label = \"+ 标高符\" ;}"
•       ":kk_but{key = \"Text64\" ; label = \"m+[钢筋]\" ;}"
•       ":kk_but{key = \"Text65\" ; label = \"m+写箍筋\" ;}"
•       ":kk_but{key = \"Text66\" ; label = \"m+一根筋\" ;}"
•       ":kk_but{key = \"Text67\" ; label = \"m+二根筋\" ;}"
•       ":kk_but{key = \"Text68\" ; label = \"m+三根筋\" ;}"
•       ":kk_but{key = \"Text69\" ; label = \"m+四根筋\" ;}"
•       "}"
•       
•       ":boxed_column{ label = \"标|填|查|统\" ;"
•       ":kk_but{key = \"Text70\" ; label = \"+   逐点标注 \" ;}"
•       ":kk_but{key = \"Text71\" ; label = \"+   平行线距 \" ;}"
•       ":kk_but{key = \"Text72\" ; label = \"+   点点标注 \" ;}"
•       ":kk_but{key = \"Text73\" ; label = \"+   选线标注 \" ;}"
•       ":kk_but{key = \"Text74\" ; label = \"+   尺寸界线 \" ;}"
•       ":kk_but{key = \"Text75\" ; label = \"+   弧长标注 \" ;}"
•       ":kk_but{key = \"Text76\" ; label = \"+   半径标注 \" ;}"
•       ":kk_but{key = \"Text77\" ; label = \"+   角度标注 \" ;}"
•       ":kk_but{key = \"Text78\" ; label = \"+   引线标注 \" ;}"
•       ":kk_but{key = \"Text79\" ; label = \"+   坐标标注 \" ;}"
•       ":kk_but{key = \"Text80\" ; label = \"+  【坐标集】\" ;}"
•       ":kk_but{key = \"Text81\" ; label = \"+  【填充集】\" ;}"
•       ":kk_but{key = \"Text82\" ; label = \"+   继承填充 \" ;}"
•       ":kk_but{key = \"Text83\" ; label = \"m   填充动比 \" ;}"
•       ":kk_but{key = \"Text84\" ; label = \"+   填充面积 \" ;}"
•       ":kk_but{key = \"Text85\" ; label = \"+   重建边界 \" ;}"
•       ":kk_but{key = \"Text86\" ; label = \"+   自然土壤 \" ;}"
•       ":kk_but{key = \"Text87\" ; label = \"+   素土夯实 \" ;}"
•       ":kk_but{key = \"Text88\" ; label = \"+    保温棉  \" ;}"
•       ":kk_but{key = \"Text89\" ; label = \"?    查线距  \" ;}"
•       ":kk_but{key = \"Text90\" ; label = \"?    查点距  \" ;}"
•       ":kk_but{key = \"Text91\" ; label = \"?+   标型心  \" ;}"
•       ":kk_but{key = \"Text92\" ; label = \"mc+【线统标】\" ;}"
•       ":kk_but{key = \"Text93\" ; label = \"mc+【面体周】\" ;}"
•       ":kk_but{key = \"Text94\" ; label = \"?   dxf组码  \" ;}"
•       "}"
•       
•       ":boxed_column{ label = \"结构|计算|绘制\" ;"
•       ":kk_but{key = \"Text95\"  ; label = \"c[excels]\" ;}"
•       ":kk_but{key = \"Text96\"  ; label = \"+[五金库]\" ;}"
•       ":kk_but{key = \"Text97\"  ; label = \"+[型钢库]\" ;}"
•       ":kk_but{key = \"Text98\"  ; label = \"m+门钢表 \" ;}"
•       ":kk_but{key = \"Text99\"  ; label = \"?截面char\" ;}"
•       ":kk_but{key = \"Text100\" ; label = \"? 选筋表 \" ;}"
•       ":kk_but{key = \"Text101\" ; label = \"+ 绘箍筋 \" ;}"
•       ":kk_but{key = \"Text102\" ; label = \"+绘板负筋\" ;}"
•       ":kk_but{key = \"Text103\" ; label = \"+绘板正筋\" ;}"
•       ":kk_but{key = \"Text104\" ; label = \"mc+求和  \" ;}"
•       ":kk_but{key = \"Text105\" ; label = \"mc+平均  \" ;}"
•       ":kk_but{key = \"Text106\" ; label = \"mc+求积  \" ;}"
•       
•       ;以下绘制
•       ":kk_but{key = \"Text107\" ; label = \"+【云线】\" ;}"
•       ":kk_but{key = \"Text108\" ; label = \"+ 平行线 \" ;}"
•       ":kk_but{key = \"Text109\" ; label = \"+[线等分]\" ;}"
•       ":kk_but{key = \"Text110\" ; label = \"+曲线垂线\" ;}"
•       ":kk_but{key = \"Text111\" ; label = \"+[中心线]\" ;}"
•       ":kk_but{key = \"Text112\" ; label = \"+ 比例圆 \" ;}"
•       ":kk_but{key = \"Text113\" ; label = \"+ 填充圆 \" ;}"
•       ":kk_but{key = \"Text114\" ; label = \"+ 钢筋点 \" ;}"
•       ":kk_but{key = \"Text115\" ; label = \"+细线矩形\" ;}"
•       ":kk_but{key = \"Text116\" ; label = \"+粗线矩形\" ;}"
•       ":kk_but{key = \"Text117\" ; label = \"+填充矩形\" ;}"
•       ":kk_but{key = \"Text118\" ; label = \"+ 椭圆孔 \" ;}"
•       ":kk_but{key = \"Text119\" ; label = \"+ [涂黑] \" ;}"
•       "}"
•       
•       ":boxed_column{ label = \"编辑|修改\" ;"
•       ":kk_but{key = \"Text120\" ; label = \"- 按层删除 \" ;}"
•       ":kk_but{key = \"Text121\" ; label = \"m   点移   \" ;}"
•       ":kk_but{key = \"Text122\" ; label = \"m  多点移  \" ;}"
•       ":kk_but{key = \"Text123\" ; label = \"m   选移   \" ;}"
•       ":kk_but{key = \"Text124\" ; label = \"m  定距移  \" ;}"
•       ":kk_but{key = \"Text125\" ; label = \"m  同角移  \" ;}"
•       ":kk_but{key = \"Text126\" ; label = \"+  点拷贝  \" ;}"
•       ":kk_but{key = \"Text127\" ; label = \"+ 多点拷贝 \" ;}"
•       ":kk_but{key = \"Text128\" ; label = \"+  选拷贝  \" ;}"
•       ":kk_but{key = \"Text129\" ; label = \"+ 定距拷贝 \" ;}"
•       ":kk_but{key = \"Text130\" ; label = \"+ 同角拷贝 \" ;}"
•       ":kk_but{key = \"Text131\" ; label = \"+ 偏移拷贝 \" ;}"
•       ":kk_but{key = \"Text132\" ; label = \"m+双偏修剪 \" ;}"
•       ":kk_but{key = \"Text133\" ; label = \"m 双向延伸 \" ;}"
•       ":kk_but{key = \"Text134\" ; label = \"m 双向伸剪 \" ;}"
•       ":kk_but{key = \"Text135\" ; label = \"m   拉伸   \" ;}"
•       ":kk_but{key = \"Text136\" ; label = \"m 定距拉伸 \" ;}"
•       ":kk_but{key = \"Text137\" ; label = \"m 实体形变 \" ;}"
•       ":kk_but{key = \"Text138\" ; label = \"m [grr倒角]\" ;}"
•       ":kk_but{key = \"Text139\" ; label = \"m [改比例] \" ;}"
•       ":kk_but{key = \"Text140\" ; label = \"m [改角度] \" ;}"
•       ":kk_but{key = \"Text141\" ; label = \"m[序号球变]\" ;}"
•       ":kk_but{key = \"Text142\" ; label = \"m[线编辑器]\" ;}"
•       ":kk_but{key = \"Text143\" ; label = \"m 同宽炸线 \" ;}"
•       ":kk_but{key = \"Text144\" ; label = \"m 合并线类 \" ;}"
•       " }"
•       
•       ":boxed_column{ label = \"编|修|表|图|审|综合\" ;"
•       ":kk_but{key = \"Text145\" ; label = \"m+- 水平镜像- \" ;}"
•       ":kk_but{key = \"Text146\" ; label = \"m+- 垂直镜像- \" ;}"
•       ":kk_but{key = \"Text147\" ; label = \"m+  水平镜像+ \" ;}"
•       ":kk_but{key = \"Text148\" ; label = \"m+  垂直镜像+ \" ;}"
•       ":kk_but{key = \"Text149\" ; label = \"m+- [选线镜像]\" ;}"
•       ":kk_but{key = \"Text150\" ; label = \"m+    [阵列]  \" ;}"
•       ":kk_but{key = \"Text151\" ; label = \"m+     断线   \" ;}"
•       ":kk_but{key = \"Text152\" ; label = \"m+  [交点断线]\" ;}"
•       ":kk_but{key = \"Text153\" ; label = \"m   [动态线比]\" ;}"
•       ":kk_but{key = \"Text154\" ; label = \"m+  [局部放大]\" ;}"
•       ":kk_but{key = \"Text155\" ; label = \"m+- [表格集令]\" ;}"
•       ":kk_but{key = \"Text156\" ; label = \"m   [表内居中]\" ;}"
•       ":kk_but{key = \"Text157\" ; label = \"m+- [图纸集令]\" ;}"
•       ":kk_but{key = \"Text166\" ; label = \"m   [乱码恢复]\" ;}"
•       ":kk_but{key = \"Text158\" ; label = \"m    同比双图 \" ;}"
•       ":kk_but{key = \"Text159\" ; label = \"m   图纸加解密\" ;}"
•       ":kk_but{key = \"Text160\" ; label = \"m   [视口集令]\" ;}"
•       ":kk_but{key = \"Text161\" ; label = \"m+- [审图集令]\" ;}"
•       ":kk_but{key = \"Text162\" ; label = \"?m+-[查找替换]\" ;}"
•       ":kk_but{key = \"Text163\" ; label = \"m+- 【选择易】\" ;}"
•       ":kk_but{key = \"Text23\" ; label =  \"m[  【相同刷】\" ;}"
•       ":kk_but{key = \"Text24\" ; label =  \"m[  【递增刷】\" ;}"
•       ":kk_but{key = \"Text25\" ; label =  \"m+  [递增拷贝]\" ;}"
•       ":kk_but{key = \"Text164\" ; label = \"m+[ 【*图库*】\" ;}"
•       ":kk_but{key = \"Text165\" ; label = \"     批量打印 \" ;}"
•       " }"
•       "}"
•       ":row{"
•       "help_button;"
•       "cancel_button;"
•       "}"  
•       "}"      
•     )
•   )
•   (dcl2lisp lst_str)
• )
• ;;-------三领快捷键-----【结束】-------------------
  

尘缘一生

触发部分方法二：

• (setq dcl_id (load_dialog (sl_dcl_form)))
•   (new_dialog "Form" dcl_id)
•   (setq n 1)
•   (repeat 166
•     (eval (read (strcat "(action_tile \"" (car (nth (1- n) keys)) "\" \"(done_dialog " (itoa n) ")\")" )))
•     (setq n (1+ n))
•   )
•   ;;(foreach n keys
•   ;;  (action_tile (car n) (strcat " (vla-sendcommand *AcDocument* \"" (cadr n) " \"))"))  
•   ;;)
•   (set_tile "sltime" (menucmd "M=$(edtime,$(getvar,date), 三领设计V 2.0                        现在时间:YYYY/MO/DD DDD HH:MM:SS am/pm )"))
•   (action_tile "help" "(dohelp)")
•   (action_tile "cancel" "(done_dialog 0)")
•   ;;(start_dialog)
•   (setq dd (start_dialog))
•   (setq n 1)
•   (repeat 166
•     (eval (read (strcat "(if (=  dd " (itoa n) ") (c:" (cadr (nth (1- dd) keys)) "))")))
•     (setq n (1+ n))
•   )
•   (unload_dialog dcl_id)
• )
  

尘缘一生

cghdy 发表于 2021-11-12 09:06
不错，可以看看老迈的面板

我知道，都了解，我做不了那么复杂面板，一步步做起，通用性，稳定性是最主要的。

我现在提出个问题：

那就是，凡是面板，涉及两方面，那就是，面板调用后，是返回面板，还是返回命令的重复？

目前存在的面板，都是，做完一个功能，再调出的是面板，对不对？那么，最合理的是什么方式？

当然，这并不是难以处理，那么，作那套？

最好就是左键，右键，自动调出命令重复，还是面板？

本坛并没有这个选择的代码，那么真没有吗？当然有，只是没有愿意发出的罢了！

尘缘一生

烟盒迷唇 发表于 2021-11-12 08:51
太密密麻麻了

面板的界面问题啊，和年龄有关，我女儿都看不上我作的，她喜欢卡通，哈哈！年轻人吗。哪面板做几个卡通，二维码，什么的，有什么难度吗还？

好看与好用是两码事，首先得好用，次之美观。路漫漫吗！急不得。
关于按钮大小，也是个难题，我曾经遇到一个老哥，他花眼了，按钮都是特大。

建议大家，注意下高飞鸟大师的，屏幕分辨率问题帖子。

bssurvey

感謝尘缘一生大大的無私分享，學習了

烟盒迷唇

太密密麻麻了

cghdy

不错，可以看看老迈的面板

spp_wall

不错 不错！！！！！！！！！！！！

e2002

这么写代码太老实了...楼主没想过可以用代码来生成吗？数据与逻辑要分离，这样才能按提供的数据，创建出所需要的结果。

尘缘一生

e2002 发表于 2021-11-12 21:37
这么写代码太老实了...楼主没想过可以用代码来生成吗？数据与逻辑要分离，这样才能按提供的数据，创建出所 ...

嗯，想到了的，只是我想方便增减、维护、完善，然后，哪两部分表，再转为批处理，数据部分单独表，最后定版。