明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 714|回复: 1

此贴重复,请版主删除

[复制链接]
发表于 2021-11-11 19:39 | 显示全部楼层 |阅读模式
本帖最后由 尘缘一生 于 2021-11-11 20:06 编辑

  • ;;三领面板--------【开始】-----------------c:z
  • (defun c:tt (/ dcl_id Return 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 (vla-sendcommand *AcDocument* \"" (cadr n) " \")))"))  ;;正确
  •     ;;(action_tile (car n) (strcat "(command (vla-sendcommand *AcDocument* \"" (cadr n) " \")))"))  ;;可以执行,BUG
  •   )
  •   (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)")
  •   (setq Return (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)
  • )
  • ;;-------三领快捷键-----【结束】-------------------

发表于 2022-3-30 14:29 | 显示全部楼层
这个好,所有快捷键都可以改嘛
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 02:43 , Processed in 0.249365 second(s), 22 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表