;面板按键数据结构
 ;(list "按键提示" "执行命令" "提供命令的文件名" "命令缩写" "分割线颜色")
 ;list "插入图框" "mini_tk"  nil nil "1")
 ;(list "墙宽 300" "mini_wall w 300") "执行命令"支持命令串和lisp函数，也支持exe文件
 ;(list "墙宽 300" "(setq miniwallwidth 300)")
 ;(list "插入图框" "mini_tk" nil "tk")
 ;(list "插入图框" "mini_tk" "aaa,lsp,bbb.vlx,ccc.vlx,ddd.rax" "tk" 3 颜色标记1-255) 提供命令的文件名支持多个文件，不同文件用逗号分隔
 ;(list "AutoLispVlisp帮助文件" "你的文件名" nil "hhh" 19)

 ; 以下用法可在lisp定义外挂插件快捷键
 ; (mai_panel_defun_pgpcom com loadf pgp)
 ; (mai_panel_defun_pgpcom "执行命令" "提供命令的文件名" "命令缩写")
;注册一个外挂命令
; (mai_plus_add "外挂命令" "加载文件" "快捷键")
; (mai_plus_add "-layer c 2 *wall*,*column*\n" nil "hhhh")
; (mai_plus_add "mini_hole_win s" nil "hhhh")

; 运行一个注册过的外挂命令
; (mai_plus_run "外挂命令")

; (cond ((= (atof (getvar "ACADVER")) 14.0) 14 )
      ; ((= (atof (getvar "ACADVER")) 15.0) 2000)
      ; ((= (atof (getvar "ACADVER")) 15.1) "2000i")
      ; ((= (atof (getvar "ACADVER")) 15.2) 2002)
      ; ((= (atof (getvar "ACADVER")) 16.0) 2004)
      ; ((= (atof (getvar "ACADVER")) 16.1) 2005)
      ; ((= (atof (getvar "ACADVER")) 16.2) 2006)
      ; ((= (atof (getvar "ACADVER")) 17.0) 2007)
      ; ((= (atof (getvar "ACADVER")) 17.1) 2008)
      ; ((= (atof (getvar "ACADVER")) 17.2) 2009)
      ; ((= (atof (getvar "ACADVER")) 18.0) 2010)
      ; ((= (atof (getvar "ACADVER")) 18.1) 2011)
      ; ((= (atof (getvar "ACADVER")) 18.2) 2012)
      ; ((= (atof (getvar "ACADVER")) 19.0) 2013)
      ; ((= (atof (getvar "ACADVER")) 19.1) 2014)
      ; ((= (atof (getvar "ACADVER")) 20.0) 2015)
      ; ((= (atof (getvar "ACADVER")) 20.1) 2016)
      ; ((= (atof (getvar "ACADVER")) 21.0) 2017)
      ; ((= (atof (getvar "ACADVER")) 22.0) 2018)
      ; ((= (atof (getvar "ACADVER")) 23.0) 2019)
      ; ((= (atof (getvar "ACADVER")) 23.1) 2020)
; )




(if (wcmatch (strcase (getvar 'product)) "*AUTOCAD*")
    (progn


; (mai_panel_search "SumatraPDF.exe")
;主面板开始
(setq
   tmp_ver (atof (getvar "ACADVER"))
   my_panel_all ;名字不要和其他冲突即可
   (list
   "Imini 插件管理面板-所有迷你命令，此面板命令【XALL】"
   (list "【&S 设】迷你设置"
     (list "用户配置..." "mini_config" nil nil 2)
     (list "切换绘图比例和单位" "mini_units_scale"  nil nil 2) ;2017-11-23
     (list "◆绘图比例及更新" "mini_drawing_scale" nil nil 1)
     (list "└ 1 : 1  " "mini_drawing_scale 1")
     (list "└ 1 : 5  " "mini_drawing_scale 5")
     (list "└ 1 : 10  " "mini_drawing_scale 10")
     (list "└ 1 : 20  " "mini_drawing_scale 20")
     (list "└ 1 : 25  " "mini_drawing_scale 25")
     (list "└ 1 : 40  " "mini_drawing_scale 40")
     (list "└ 1 : 50  " "mini_drawing_scale 50" nil nil 1)
     (list "└ 1 : 75  " "mini_drawing_scale 75")
     (list "└ 1 : 100 " "mini_drawing_scale 100" nil nil 1)
     (list "└ 1 : 150 " "mini_drawing_scale 150")
     (list "└ 1 : 200 " "mini_drawing_scale 200" nil nil 1)
     (list "└ 1 : 250 " "mini_drawing_scale 250")
     (list "└ 1 : 300 " "mini_drawing_scale 300")
     (list "└ 1 : 400 " "mini_drawing_scale 400")
     (list "└ 1 : 500 " "mini_drawing_scale 500" nil nil 1)
     (list "└ 1 : 600 " "mini_drawing_scale 600")
     (list "└ 1 : 750 " "mini_drawing_scale 750")
     (list "└ 1 : 800 " "mini_drawing_scale 800")
     (list "└ 1 : 1000" "mini_drawing_scale 1000" nil nil 1)
     "ROW_END"
     (list "快捷键设置及命令搜索..." "mini_pgp_edit" nil nil 19)
     (list "上一个迷你命令" "mini_last_com" nil nil 19)
     nil
     (list "重新加载迷你菜单" "minimenu" nil nil 9)
     (list "开合迷你下拉菜单" "mini_merge_menu" nil nil 8)
     nil
     (list "打开谜你所在文件夹" "mini_open_folder" nil nil 6)
     (list "打开当前图纸文件夹" "mini_current_folder" nil nil 7)
     (list "打开缩写命令文件目录" (vl-filename-directory (findfile "acad.pgp")) nil nil 17)
     (list "打开ACAD主目录" (strcat "\"" (vl-filename-directory (findfile "acad.exe")) "\"") nil nil 18)
    nil
     (list "编辑此面板代码"
			(vl-prin1-to-string
			   '( (lambda ( / x y )
					 (mai_dos_execute "AutoCAD迷你命令和收录命令嵌套套面板[xall].lsp" T)
					 (load "AutoCAD迷你命令和收录命令嵌套套面板[xall].lsp")
					 (c:xall)
				  )
				)
			)
            nil nil 16
     )
     (list "刷新此面板" "(load \"AutoCAD迷你命令和收录命令嵌套套面板[xall].lsp\")(c:xall)" nil nil 16)
    nil
    (if (< tmp_ver 20.0) (list "临时切换双击出面板" "(setq mai_panel_double_click (not mai_panel_double_click))" nil nil 14))
    (if (< tmp_ver 20.0) (list "切换图纸空间双击出面板" "(setq mai_panel_pspace_click (not mai_panel_pspace_click))" nil nil 15))
    (if (< tmp_ver 20.0)
        (list "永久关闭双击出面板"
				(vl-prin1-to-string
				   '( (lambda ( / x y )
                         (setq mai_panel_double_click T
                               x (strcat mai_mini_path "autoload\\自定义空白处双击反应器[xall].lsp")
                               y (strcat mai_mini_path "autoload\\自定义空白处双击反应器[xall].lsp.ren")
                         )
                         (if (findfile x)
                             (progn (mai_dos_delete y)
									(vl-file-rename x (strcat mai_mini_path "autoload\\自定义空白处双击反应器[xall].lsp.ren"))
							 )
                         )
                      )
                    )
                )
       )
    )
    (if (< tmp_ver 20.0)
        (list "永久打开双击出面板"
				(vl-prin1-to-string
				   '( (lambda ( / x y )
                         (setq mai_panel_double_click nil
                               x (strcat mai_mini_path "autoload\\自定义空白处双击反应器[xall].lsp")
                               y (strcat mai_mini_path "autoload\\自定义空白处双击反应器[xall].lsp.ren")
                         )
                         (or (findfile x)
							 (and (setq y (findfile (strcat mai_mini_path "autoload\\自定义空白处双击反应器[xall].lsp.ren")))
								  (vl-file-rename y x)
							 )
                         )
                         (load y)
                      )
                    )
                )
       )
    )
     (list "工具说明" "IMINI工具说明.txt")
     (list "绿色卸载迷你" "mini_unload" nil nil 13)
    nil
     (list "粉碎删除文件..." "mini_file_wipe" nil nil 2)
     (list "查看幻灯库" "mini_view_slb")
     (list "拆分vlx文件" "mini_vlx_isolate")
  )
   (list "【&F 复】问题修复"
     (list "重新加载迷你菜单" "minimenu" nil nil 9)
     (list "修复迷你与其它工具填充冲突问题" "mini_fix_pattern" nil nil 1)
     (list "修复图纸中文字变成问号问题" "mini_fix_fonts" nil nil 6)
     nil
     (list "图标一键开关" "mini_close_toolbar" nil nil 3)
     (list "开关屏幕菜单" "mini_menu" nil nil 11)
     (list "切换ACAD绘图区底色" "mini_background" nil nil 10)
     (list "捕捉打开" "mini_osnap_use" nil nil 10)
     (list "捕捉关闭" "mini_osnap_non" nil nil 10)
     (list "切换鼠标中键功能" "mini_mouse" nil nil 10)

  )
  (list "【&L 层】图层显示"
     (list "当前层" "layercur")
    nil
     (list "打开层" "layeron")
     (list "打开所有图层" "layeronall")
    nil
     (list "关闭层" "layeroff")
     (list "分离层" "layeriso")
     ; (list "关闭全部图层" "(command \"_.layer\" \"off\" \"*\" \"y\" \"\")")
     (list "关闭全部图层"
				(vl-prin1-to-string
				   '( (lambda ( )
						 (command "_.layer" "of" "*" "y" "" )
                      )
                    )
                )
     )
    nil
     (list "锁定层" "layerlck")
     (list "分离锁层" "layerlckiso")
     (list "解锁层" "layerulk")
     (list "解锁所有图层" "layerunlall")
    nil
     (list "冻结层" "layerfrz")
     (list "解冻层" "layerthaw")
     (list "自由所有图层" "layerfreeall")
    nil
     (list "保存图层状态" "mini_layerstates_save")
     (list "恢复图层状态" "mini_layerstates_res")
    nil
     (list "显示所有实体" "mini_unblank")
     (list "隐藏实体" "mini_blank")
     (list "独立显示所选实体" "mini_IsolateObjects") ;2017-12-30
    nil
     (list "锁定实体不能编辑" "mini_lockobjects" nil nil 2)
     (list "解锁实体使能编辑" "mini_unlockobjects" nil nil 2)
     (list "解锁所有实体使能编辑" "mini_disablelock" nil nil 2) ;2017-12-30
    nil
     (list "ET 图层管理..." "lman")
     (list "ET 图层浏览..." "laywalk")
     (list "ET 图层匹配" "laymch")
     (list "ET 改层复制" "copytolayer")
     (list "ET 图层删除" "laydel")
 )

  (list "【&E 扩】扩展工具"
     (list "偏移倒角数字面板->>" "mini_number_panel" nil nil 2)
     (list "多窗口拉伸" "mini_mstretch")
     nil
     (list "全能修剪" "mini_extrim")
     (list "全能裁刀" "mini_xclip")
     (list "全能缩放" "mini_exscale" nil nil 2) ;2018-06-01
     (list "全能复制" "mini_excopy")
     nil
     (list "由图纸空间到模型" "chspace")
     (list "LM 复制由模型到图纸空间" "lm_ms2ps" "实体由模型空间转到图纸空间[lm_ms2ps].lsp" nil 1)
     (list "LM 复制到布局" "lm_c2layouts" "复制实体到布局[lm_c2layouts].lsp" nil 1)
     (list "LM 复制到外部参照" "lm_c2xref" "复制实体到外部参照文件[lm_c2xref].lsp" nil 1)
     (list "LM 复制到外部文件" "lm_c2dwg" "复制实体到外部文件[lm_c2dwg].lsp" nil 1)
     (list "LM 复制到图块" "lm_Block_Add" "块内嵌套实体增减[lm_Block_Add&del]V1-1.lsp" nil 4)
     nil
     (list "删除增强" "mini_exerase")
     (list "移动增强" "mini_exmove")
     (list "镜像增强" "mini_exmirror")
     nil
     (list "交点断开" "mini_break_inter")
     (list "连续点打断" "mini_break_at" nil nil 2) ;2017-12-30
     (list "延长或修剪到点或线" "mini_extendtopoint" nil nil 2) ;2017-12-30
     (list "批量双线裁剪" "mini_sxcj")
     (list "框选打断并删除短线" "mini_break_erase" "框选打断并删除短线[mini_break_erase].lsp")
     (list "框选修补单线" "mini_fix_line")
     nil
     (list "单选全能偏移" "mini_dy_offset" nil nil 2) ;2018-9-2
     (list "多选多重偏移" "mini_MOffset")
     nil
     (list "单组自由翻转实体" "mini_block_flips")
     (list "批量中心旋转实体" "mini_rotate_center" "中心旋转实体[mini_rotate_center].lsp")
     nil
     (list "两组多平行线倒角" "mini_mfillet")
     nil
     (list "动态线型、块、填充比例" "mini_dtbl" nil nil 1) ;2019-01-06
    ; (list "LM 线段两端延长或缩短" "lm_dex" "线段两端延长或缩短一定距离[lm_dex].lsp" nil 1)
     ; (list "动态偏移" "mini_dy_offset" nil nil 2) ;2017-12-16
     ; (list "连续二点打断" "mini_break_at2" nil nil 2) ;2017-12-30合并到命令“连续点打断mini_break_at”
     ; (list "均分断开" "mini_break_divide") ;合并到命令交点断开
     ; (list "ET 偏移增强" "exoffset") ;合并到单选全能偏移mini_dy_offset
     ; (list "贯通偏移" "mini_offset_throught") ;合并到单选全能偏移mini_dy_offset
  )
  (list "【&W 墙】墙线双线"
     (list "墙功能数字面板->>" "mini_wall_panel")
     nil
     (list "连续画墙" "mini_wall" nil nil 5)
     nil
     (list "单线变墙" "mini_line_to_wall" nil nil 250)
     nil
     (list "修补墙柱门窗" "mini_fix_wall")
     nil
     (list "删墙柱门窗" "mini_erase_wall")
     (list "墙生轴线" "mini_wall_2_axis")
     (list "填充柱或墙" "mini_fill_column")
     nil
     (list "批量修改墙宽" "mini_wall_width" nil nil 1)
          "ROW_END"
     (list "简易多线" "mini_dline")
     (list "单线变双线" "mini_line_to_dline")
     nil
     (list "修补双线" "mini_fix_dline")
     (list "两根线的中间线" "mini_middle_line" nil nil 2) ;2017-12-28
  )
  (list "【&O 轴】轴线梁柱"
     (list "直线轴网" "mini_axis_line")
     (list "圆弧轴网" "mini_axis_arc")
     (list "轴号外偏" "mini_axis_out")
     (list "修改轴号" "mini_axis_update")
     (list "生成轴号" "mini_axis_text")
     nil
     (list "梁柱数字面板->>" "mini_column_panel")
     (list " ＋ 型柱" "mini_c_column")
     (list " Ｌ 型柱" "mini_l_column")
     (list " Ｔ 型柱" "mini_t_column")
     (list " ○  型柱" "mini_O_column")
     (list " □  型柱" "mini_r_column")
     nil
     (list "轴线布柱" "mini_axis_column")
     (list "多义线变柱" "mini_pline_to_column")
     (list "转PKPM GS柱" "mini_pline_to_beam")
     nil
     (list "填充柱或墙" "mini_fill_column")
     nil
     (list "画梁" "mini_beam")
     (list "梁生轴线" "mini_beam_2_axis")
     (list "单线变梁" "mini_line_to_beam")
     nil
     (list "批量修改梁宽" "mini_beam_width" nil nil 1)
     (list "筏板梁倒角" "mini_foundation_beam")
     (list "修补梁柱" "mini_fix_beam")
     nil
     (list "形心对齐" "mini_xxdq")
  )

  (list "【&D 门】门窗工具"
     (list "门窗数字面板->>" "mini_window_panel")
     nil
     (list "墙上开门" "mini_hole_door")
     (list "两点画门" "mini_door")
     (list "◆门 坎 线" "mini_door_line")
     (list "└删 除" "mini_door_line Erase")
     (list "└双 线" "mini_door_line Double")
     (list "└单 线" "mini_door_line Single")
     nil
     (list "墙上开参数门窗" "mini_hole_win")
     (list "两点画参数门窗" "mini_win")
     (list "墙上开转角窗" "mini_coner_win")
     nil
     (list "内外翻转门窗" "mini_win_direction1")
     (list "左右翻转门窗" "mini_win_direction2")
     nil
     (list "修改门窗" "mini_modify_win")
     (list "修补墙柱门窗" "mini_fix_wall")
     (list "刷门窗样式" "mini_match_win")
     (list "修改门窗宽度" "mini_win_width")
     nil
     (list "删墙柱门窗" "mini_erase_wall")
     nil
     "ROW_END"
     (list "◆门窗编号" "mini_win_text")
     (list "└更 新" "mini_win_text u")
     (list "└选 择" "mini_win_text g")
     (list "└显 示" "mini_win_text s")
     (list "└隐 藏" "mini_win_text h")
     nil
     (list "门窗表" "mini_win_list")
     (list "由门窗表生成大样边框" "mini_win_text_elev" nil nil 1)
     (list "翻转属性和门窗编号" "mini_dim_flip")
     (list "属性和门窗编号开关" "mini_attribon")
     nil
     (list "窗立面" "mini_winelev")
     (list "圆弧窗立面" "mini_elev_arcwin")
     (list "幕墙立面" "mini_winelev2")
     nil
     (list "动态网格" "mini_dtwg")
     (list "幕墙玻璃剖面" "mini_mqblpm"  nil nil 2);2018-06-03
     nil
     (list "门窗立面开启线" "mini_kqx")
     nil
     (list "删除增强" "mini_exerase")
     (list "移动增强" "mini_exmove")
     (list "镜像增强" "mini_exmirror")
     (list "全能复制" "mini_excopy")
  )




   (list "【&M 尺】尺寸标注"
     (list "全能标注" "mini_dim_devide")
     (list "合并标注" "mini_dim_merge")
     (list "标注总尺寸" "mini_dim_total")
     nil
     (list "标注移动" "mini_dim_move")
     (list "标注归位" "mini_dim_home")
     nil
     (list "标注避让" "mini_dim_fix_text")
     (list "翻转属性和标注" "mini_dim_flip")
     nil
     (list "剪延长线" "mini_dim_trim")
     (list "对齐标注" "mini_dim_align")
     nil
     (list "检查标注误差" "mini_dim_check")
     (list "标注恢复原值" "mini_dimreassoc")
     (list "更新标注" "mini_dim_update")
     nil
     (list "固化标注文字" "mini_bzgd" "将尺寸值改为固定数值[mini_bzgd].lsp" nil 1)
     "ROW_END"
     (list "辅助线" "mini_fzx" nil nil 5)
     nil
     (list "审图云线" "mini_styx"  nil nil 1)
     nil
     (list "门窗轴线标注" "mini_dim_win")
     (list "柱子轴线标注" "mini_dimpoly")
     nil
     (list "沿任意线标注" "mini_dim_line")
     (list "沿轴线标注" "mini_dim_Axis")
     (list "沿墙柱轴线标注" "mini_dim_wall")
  )

   (list "【&B 块】图块遮罩"
     (list "慧眼图库管理" "mini_BlockSee")
    nil
     (list "超级炸块" "mini_exp_mblk")
     (list "LM 无限炸开嵌套块" "lm_nburst" "无限炸开嵌套块[lm_nburst]V1-7.lsp" nil 1)
     (list "炸开实体到块的层" "mini_exptoblay")
     nil
     (list "快速做块" "mini_quick_block")
     (list "LM 往图块中加入图元" "lm_Block_Add" "块内嵌套实体增减[lm_Block_Add&del]V1-1.lsp" nil 4)
     (list "LM 删除块中图元" "lm_Block_del" "块内嵌套实体增减[lm_Block_Add&del]V1-1.lsp")
     (list "LM 移动块中图元" "lm_block_move" "块内嵌套实体移动[lm_block_move]V1-2.lsp")
     (list "LM 分离块里嵌套块" "lm_enb" "分离块里面的嵌套块[lm_enb].lsp" nil 1)
     (list "从图块中复制图元" "ncopy")
     (list "给块添加遮罩" "mini_BlockWipeouts")
     (list "块内实体到0层随块层改颜色" "mini_blk2lay0")
     nil
     (list "图块重命名" "mini_blk_rename")
     (list "改变块的插入点" "mini_blk_Insertion")
     nil
     (list "替换块或点" "mini_blk_replace")
     (list "沿路径布块" "mini_blk_along_line")
     nil
     (list "多组批量翻转图块" "mini_block_flipm")
     (list "单组自由翻转实体" "mini_block_flips")
     (list "多块同时基点缩放" "mini_dksf" "多块同时缩放[mini_dksf].lsp" nil 4)
     (list " LM 块自动随线并断线" "LM_abb" "碰到块的线自动断[LM_abb&LM_abbs]V1-7.lsp")
     (list "动态线型、块、填充比例" "mini_dtbl" nil nil 1) ;2019-01-06
     nil
     (list " ACAD 定义属性" "ddattdef")
     (list "块属性转为文字" "mini_att2text" nil nil 2)
     (list "文字变块属性" "mini_text2att" "文字变块属性[mini_text2att].lsp" nil 3) ;2019.10.10增加
     (list " LM 属性批量移动" "lm_mvAtt" "批量属性编辑[lm_xxAtt]V1-1.lsp" nil 1)
     (list " LM 属性批量改颜色" "lm_AttCol" "属性批量改颜色[lm_AttCol].lsp" nil 1)
     (list " LM 属性批量旋转" "lm_roAtt" "批量属性编辑[lm_xxAtt]V1-1.lsp" nil 1)
     (list " LM 属性批量特征修改" "lm_edAtt" "批量属性编辑[lm_xxAtt]V1-1.lsp" nil 1)
     (list " LM 外部文件批量属性处理" "lm_BAtte" "批量属性处理[lm_BAtte]V1-4.lsp" nil 1)
     (list " LM 刷块属性" "lm_MatchAttribs" "匹配块属性[lm_MatchAttribs].lsp" nil 1)
     (list "块属性统计表" "mini_attrib_list")
     nil
     (list "外部参照改相对路径" "mini_xdlj" nil nil 2)
     (list "复制外部参照为无名块" "mini_xref2blk" nil nil 2)
     (list " WG 块转外部参照" "WG_BlockToXref" "块转外部引用[WG_BlockToXref].LSP" nil 2)
     (list " WG 重定义引用、图片路径" "WG_XrefRepath" "重新定义外部引用、图片文件引用路径[WG_XrefRepath].lsp" nil 2)
     (list "批量做外部参照条件图" "mini_batch_xref" nil nil 2)
     (list "LM 复制到外部参照" "lm_c2xref" "复制实体到外部参照文件[lm_c2xref].lsp" nil 1)
  )

  (list "【&P PL】曲线变形"
     (list "全能矩形" "mini_3p_rectang")
     nil
     (list "增加顶点" "mini_add_vertex")
     (list "删除顶点" "mini_delete_vertex")
     (list "线弧转换" "mini_lw_arc")
     nil
     (list "连接多段线" "mini_pljoin")
     (list "扩展批量处理多义线" "mini_pline_batch" nil nil 5)
     nil
     (list "批改宽度面板->>" "mini_pwidth_panel" nil nil 1)
     (list "批量修改宽度" "mini_pwidth")
     nil
     (list "局部动态拉伸<不封闭>" "mini_patrial_stretch" nil nil 2)
     (list "局部动态偏移" "mini_patrial_offset" nil nil 3)
     (list "局部正交" "mini_patrial_ortho" nil nil 4)
     nil
     (list "ACAD边界" "boundary")
     (list "最小外接圆" "mini_MinEncCircle" "最小外接圆[mini_MinEncCircle].lsp" nil 1)
     (list "智能外轮廓" "mini_boundary")
     (list "内轮廓内偏移" "mini_bo_inter" nil nil 1)
     nil
     (list "多段线、填充布尔运算" "mini_pline_booler"  nil nil 2) ;2017-12-17
     (list "按面积分封闭多段线" "mini_pline_divide")
     nil
     (list "转换曲线为多义线" "mini_curve_2_pline")
     (list "等弦长均分曲线" "mini_divide_sp")
     nil
     (list "将面域转成多义线" "mini_region_2_pline" nil nil 4)
     (list "将圆变实心圆环" "mini_circle_2_donut" "圆转圆环[mini_circle_2_donut].lsp" nil 4)
     (list " LM 带宽度多段线变线框" "lm_mpolyout" "带宽度多段线变线框[lm_mpolyout]V1-1.lsp" nil 4)
     nil
     (list "检查线是否闭合，在断开处画圆" "mini_chk_open")
     (list " WG 在两曲线的最小间距处画线" "WG_MinDistLine" "在两根曲线的最小间距处画线[WG_MinDistLine].lsp" nil 1)
     nil
     (list "全能缩放" "mini_exscale" nil nil 2) ;2018-06-01
     (list "四边形变形" "mini_trans_reg" nil nil 6)
     nil
     (list "沿路径无缝连接复制" "mini_CopyAlongCurve" nil nil 6)
     (list "曲线展开立面转投影立面" "mini_hm" nil nil 6)
     (list "手绘抖动变形" "mini_freehand" nil nil 6)
  )


 (list "【&T 字】文字工具"
     (list "词库输入" "mini_text_lib")
     (list "全能编号" "mini_xuhao")
     (list "外部多行书写" "mini_shell_text")
     nil
     (list "外部多行编辑" "mini_shell_edit")
     (list "全能单选文字编辑" "mini_sedit")
     (list "动态菜单编辑<单选>" "mini_exedit" nil nil 1)
     nil
     (list "文字重排版" "mini_text_order")
     (list "文字打断" "mini_exp_text")
     (list "智能连接多行文字" "mini_join_text")
     (list " LM 单行文字变多行" "lm_Text2MText" "单行文字变多行文字[lm_Text2MText]V2-0.lsp")
     (list "强大多样修改 Cht" "mini_cht")
     nil
     (list " LM 文字加外框并关联" "lm_tbox" nil nil 1)
     (list " LM 沿曲线标注文字" "lm_CurveText" "动态曲线布文字[lm_CurveText]V1-4.lsp")
     (list "文字改斜归正" "mini_gxgz" "文字改斜归正[mini_gxgz].LSP")
     (list "输出文字到粘贴板" "mini_text_2_clipboard" "粘贴板[mini_text_2_clipboard].lsp")
     nil
     (list " ACAD 查找替换" "find")
     (list "LM  批量多文件查找替换文字-A" "LM_FIND" "批量多文件查找替换文字-A[lm_find].lsp" nil 2)
     (list "YJR 单文件查找替换文字-B" "YJR_find" "单文件查找替换文字-B[YJR_find].lsp" nil 2)
     (list "LXX 批量多文件查找替换文字-C" "LXX_find" "批量多文件查找替换文字-C[lxx_find].lsp" nil 2)
     nil
     (list "自动替换缺失的字库" "mini_fix_fonts" nil nil 6)
     (list "全部字体用我的字库" "mini_use_myfonts" nil nil 5)
     nil
     (list "字形快速设置" "mini_style_any")
     (list "字形 HZ 设置" "mini_style_hz")
     (list "字形KHZ 设置" "mini_style_khz")
     nil
     (list "文字变线" "mini_text2pl")
     (list "写高精度矢量文字" "t2g" "Text2Geom加载文件.lsp" "t22g")
     nil
     (list "HFB 简繁中文编码转换" "hfb_trans_code" "中文简繁编码转换[hfb_trans_code].lsp" nil 4)
     (list "中英文互译<单选>" "mini_youdao")
     nil
     (list " LM 文字递增复制" "LM_incarray" "文字递增复制[LM_incarray].lsp" nil 2) ;2019-06-12
     (list " LM 文字递增复制超强套装" "LM_numinc" "文字递增复制超强套装[LM_numinc]V3-9.lsp" nil 2) ;2019-06-12
  )

  (list "【&C 计】统计表格"
     (list "小菜选择易" "XC_SS" "ss_v1.39.fas" "ss" 4)
     (list "首尾链式连锁反应选择" "mini_chain_Sel" nil nil 4)
     (list "触碰连锁反应选择" "mini_fastsel" nil nil 5)
     (list " ET 获得选择集" "getsel" nil nil 5)
     nil
     (list " GU 输入Excel表格到ACAD" "Gu_X2C" "输入Excel表格到ACAD[gu_x2c].lsp")
     (list "输出文字到 Excel表格" "mini_text2excel")
     nil
     (list "块统计表" "mini_block_clist")
     (list "LM 块统计表<含嵌套块>" "lm_BlockCount" "包括嵌套块的统计表[lm_BlockCount]V1-5.lsp")
     (list "块属性统计表" "mini_attrib_list")
     nil
     (list "门窗表" "mini_win_list")
     (list "多重索引统计表" "mini_mleader_list" nil nil 1) ;2018-12-5
     (list "文字统计表" "mini_text_list" nil nil 1)
     "ROW_END"
     (list "面积标注<智能识别阳台>" "mini_area_text")
     (list "住宅面积分摊表" "mini_area_analyze")
     nil
     (list "点选、虚框选标面积" "mini_point_area")
     (list "标注房间内尺寸.周长.面积" "mini_dim_room" nil nil 1)
     nil
     (list "批量标注线段长度" "mini_text_Length")
     nil
     (list "面积分层统计表" "mini_bylayer_area" nil nil 1)
     (list "长度分层统计表" "mini_total_Length")
     (list "同形状多段线面积和长度统计" "mini_shape_list"  nil nil 1)
     nil
     (list "标注加减结果" "mini_text_cale1")
     (list "标注乘除结果" "mini_text_cale2")
     (list "标注表达式计算结果" "mini_cale_txt" nil nil 1)
  )

  (list "【&I 例】图例总图"
     (list "◆建筑符号图像面板" "mini_symbol")
     (list "折 断 线" "mini_break_line")
     (list "点 引 线" "mini_dot_line")
     (list "箭头线" "mini_arrow_line")
     (list "箭头线 2" "mini_arrow_line2")
     (list "箭头线 3" "mini_arrow_line3")
     (list "箭头线 4" "mini_arrow_line4")
     (list "箭头线 7" "mini_arrow_line7")
     (list "大 箭 头" "mini_arrow_line5")
     (list "入口箭头" "mini_arrow_line6")
     (list "流线箭头" "mini_arrow_trace")
      nil
     (list "大样索引" "mini_indexnum1")
     (list "剖切索引" "mini_indexnum2")
     (list "大样编号" "mini_indexnum3")
     (list "大剖面号" "mini_index_sec1")
     (list "小剖面号" "mini_index_sec2")
     (list "对称符号" "mini_index_mirror")
     (list "指 北 针" "mini_index_north")
     (list "绘制洞口符号" "mini_draw_Hole" nil nil 1)
     (list "绘制洞口中心线" "mini_Hole_CenterLine" nil nil 2)
      nil
     (list "素土夯实" "mini_tamped_soil")
     (list "自然土壤" "mini_nature_soil")
     (list "空心砖墙" "mini_air_brick")
     (list "面    砖" "mini_face_brick")
     (list "保温材料" "mini_batting_fill")
     (list "水泥砂浆截面" "mini_cement_mortarsec")
     (list "钢筋混凝土截面" "mini_Reinforced_Consec")
     (list "素混凝土截面" "mini_cement_Consec")
       nil
     (list "由离散点生成三角网" "mini_triangle" "由离散点生成三角网[mini_triangle].lsp" nil 1)
     (list "选边局部调整三角网" "mini_triangle_chg" "选边局部调整三角网[mini_triangle_chg].lsp" nil 1)
     (list "由离散点生成凸包" "mini_hull" "由离散点生成凸包[mini_hull].lsp" nil 1)
     (list "由三角网生成等高线" "mini_dgx" "由三角网生成等高线[mini_dgx].lsp" nil 1)
     (list "由三角网计算土方平衡" "mini_tfph" "由三角网计算土方平衡[mini_tfph].lsp" nil 1)
     (list "标注三角网内任意点高程" "mini_tin_redgc" "根据图面三角网标注任意点高程[mini_tin_redgc].lsp" nil 1)
     (list "FJW 坐标展点" "fjw_ZBZD" "坐标展点[fjw_ZBZD].lsp" nil 1)

 )

  (list "【&H 填】填充工具"
     (list "ACAD填充对话框" "bhatch")
     (list "◆快捷填充面板->>" "mini_hatch_panel")
     (list "快捷填充命令行" "mini_hatch")
     (list "└ 选择" "(setq maihatchDefault 0)(c:xall)")
     (list "└ 点选" "(setq maihatchDefault 1)(c:xall)")
     (list "└ 修改" "(setq maihatchDefault 2)(c:xall)")
     (list "└ 虚框" "(setq maihatchDefault 3)(c:xall)")
     (list "选现有图案填充" "mini_hatch_select" "选现有图案填充[mini_hatch_select].lsp")
      nil
     (list "自定义填充" "mini_custom_pattern")
     (list "超级填充" "mini_superhatch" nil nil 8)
      nil
     (list "对齐填充图案" "mini_hatch_move")
     (list "填充图案提取输出" "mini_hatch_out")
     (list "由填充生成边界" "mini_hatchb")
      nil
     (list "批量分离填充" "mini_hatch_isolate" nil nil 3)
     (list "全能裁刀" "mini_xclip")
     (list "多段线、填充布尔运算" "mini_pline_booler"  nil nil 2) ;2017-12-17
      nil
     (list "将SOLID实体变填充" "mini_solid_2_hatch" "实体SOLID转实体填充[mini_solid_2_hatch].lsp" nil 1)
     (list "用SOLID实体满铺多义线" "mini_pline_to_solid")
			[--]
     (list "动态线型、块、填充比例" "mini_dtbl" nil nil 1) ;2019-01-06
     nil
     (list "ACAD组命令" "group")
     (list "快速建组" "mini_group_creat")
     (list "快速炸组" "mini_group_explode")
     (list "组开关" "(setvar \"pickstyle\" (if (= (getvar \"pickstyle\") 0) 1 0))")

     nil
     (list "ACAD遮罩Wipeout" "Wipeout")
     (list "给块添加遮罩" "mini_BlockWipeouts")
     (list "封闭曲线转遮罩" "mini_wipeout")
     (list "删除遮罩" "mini_erase_wipeout")
     (list "多样外框显示开关" "mini_wipeout_Frames")
  )

  (list "【&A 建】建筑构件"
     (list "公共卫生间布置" "mini_jieju")
     (list "住宅家具布置" "mini_furniture")
    nil
     (list "普通楼梯平面" "mini_stair_plan" )
     (list "圆弧楼梯平面" "mini_arc_stair")
     (list "自动扶梯平面" "mini_auto_stair")
     (list "电梯轿厢平面" "mini_elevator")
     nil
     (list "楼梯剖面" "mini_stair_section")
     (list "视线升高剖面" "mini_analyzeview")
     nil
     (list "建筑标高" "mini_bg")
     (list "总图标高" "mini_ztbg")
     (list "高程标高" "mini_gcbg")
     (list "三维坐标" "mini_3dzb")
     (list "建筑坐标" "mini_zb")
    nil
     (list "标注图名" "mini_index_name")
     (list "插入日期" "mini_date_text")
    nil
     (list "单线变路" "mini_Line_to_Road")
     (list "修补双线" "mini_fix_dline")
     nil
     (list "四坡顶平面" "mini_hip_roof")
     (list "建筑高度" "mini_build_high")
     (list "阴影分析" "mini_build_shadow")
  )

  (list "【&X 型】线型景观"
     (list "改线型" "mini_ltype")
     (list "反转线型方向" "mini_reverse_line")
     (list "动态线型、块、填充比例" "mini_dtbl" nil nil 1) ;2019-01-06
     nil
     (list "局部变虚线" "mini_pline_jbbx")
     nil
     (list "炸线型<树>为块" "mini_lt_shp2blk")
     nil
     (list "形变块" "mini_shp2blk" "形变块[mini_shp2blk].lsp")
     (list "制作形到Shx文件" "mini_mkshape")
    "ROW_END"
     (list "变线为树<线型树>" "mini_tree_style")
     (list "成片布树" "mini_tree_group")
     nil
     (list "多义线变灌木边缘线" "mini_shrub_edge" nil nil 1)
     (list "画立面草" "mini_grass" nil nil 1)
     nil
     (list "标注苗木及数量" "mini_plant_text" nil nil 11)
     (list "标注灌木面积" "mini_shrub_text" nil nil 12)
     (list "内轮廓面积及随机色填充" "mini_area_landscape") ;2018-05-26
     nil
     (list "苗木统计表" "mini_mmtj" nil nil 6)
     (list "景观填充面积统计表" "mini_mmtj_hatch" nil nil 2)
     nil
     (list "封闭多义线搭桥" "mini_add_path" nil nil 4)
     (list "封闭多义线挖路" "mini_remove_path" nil nil 5)
  )

  (list "【&V VP】视口布图"
     (list "插入图框" "mini_tkk")
     nil
     (list "毫米转米缩放" "mini_dwg_mm2m" "全图单位米和毫米互转.lsp")
     (list "米转毫米缩放" "mini_dwg_m2mm" "全图单位米和毫米互转.lsp")
     (list "厘米转毫米缩放" "mini_dwg_cm2mm" "全图单位米和毫米互转.lsp")
     nil
     (list "图纸目录或拆分DWG" "mini_tzml")
     (list "合并多个DWG文件" "mini_merge_dwgs")
     (list "批量做外部参照条件图" "mini_batch_xref" nil nil 2)
     (list "QF 秋枫批量打印" "BatchPlot" "BatchPlot.VLX")
     nil
     (list "局部取图" "mini_jbqt")
     (list "快速局部重生成" "mini_regen")
     nil
     (list "图纸空间1:1布图" "mini_ps_scale")
     (list "模型空间做块布图" "mini_ms_scale")
     (list "还原炸开布图块" "mini_ms_exp")
     nil
     (list "编辑查询视口比例..." "mini_vpscale" nil nil 1) ;2018-11-28
     (list "同步视口" "mini_vpsync")
     (list "在模型空间绘制视口外框" "mini_vp_outline")
     (list "视口锁定或解锁" "mini_vportlock" "视口锁定或解锁[mini_vportlock].LSP" nil 1)
     nil
     (list "LM 布局增减及重排序" "LM_TabSort" "布局增减及重排序[LM_TabSort].lsp" nil 2)
     nil
     (list "UCS复原，南立面方向" "mini_z1" "四个立面方向，UCS旋转命令[Z1-Z4].lsp" "z1" 1)
     (list "东立面方向UCS" "mini_z2" "四个立面方向，UCS旋转命令[Z1-Z4].lsp" "z2" 2)
     (list "北立面方向UCS" "mini_z3" "四个立面方向，UCS旋转命令[Z1-Z4].lsp" "z3" 3)
     (list "西立面方向UCS" "mini_z4" "四个立面方向，UCS旋转命令[Z1-Z4].lsp" "z4" 4)
     (list "选实体的 UCS" "mini_zo" "四个立面方向，UCS旋转命令[Z1-Z4].lsp" "zo" 4)
  )

  (list "【&U 优】清理优化"
     (list "一键清理" "mini_purge")
     (list "深度清理双美元$符号" "mini_layer_killdollar" nil nil 11)
     (list "清理短线、点、空字" "mini_line_clean")
     (list "删除图中常规词典" "mini_dicts" "对当前图形里的常规词典进行列表[mini_dicts].lsp" nil 1)
     nil
     (list "合并重线、多段线多余顶点" "mini_line_union")
     (list " ACAD 消重图元" "overkill")
     nil
     (list "合并图层.字样.线型等" "mini_multimerge" nil nil 12)
     (list "层名变大小写" "mini_layer_strcase" "层名变大小写面板[mini_layer_strcase].lsp")
     (list " LM 按图层调整绘图顺序" "lm_ldorder" "按图层调整绘图顺序迷你修改版[lm_ldorder]V1-2.lsp")
     (list " LM 图层提取器" "lm_LayerExtract" "图层提取器[lm_LayerExtract]V1-4.lsp" nil 2) ;2017-12-30
      nil
     (list "按颜色分层，颜色随层" "mini_layer_bycolor" nil nil 1)
     ; (list "一切属性改为随层" "mini_yqsc" "一切属性改为随层[mini_yqsc].lsp" nil 1)
     (list "一切属性改为随层" "setbylayer" nil nil 1)
     (list "全能变色" "mini_yjbh" nil nil 1)
      nil
     (list "基点取整" "mini_quzheng")
      nil
     (list " Z 轴归零" "mini_Flat")
     (list "ET 二维化对象" "Flatten")
  )

  (list "【&Q 齐】刷子对齐"
     (list "替换块或点" "mini_blk_replace")
     (list "LM 刷块属性" "lm_MatchAttribs" "匹配块属性[lm_MatchAttribs].lsp" nil 1)
     nil
     (list "◆ 刷文字内容" "mini_match_Text_Value")
     (list "└ 增强多选" "mini_match_Text_Value z")
     (list "└ 简单多选" "mini_match_Text_Value J")
     (list "└ 精确单选" "mini_match_Text_Value Q")
     nil
     (list "匹配文字大小" "mini_match_Text_size")
     (list "匹配文字角度" "mini_match_Text_Angle")
     nil
     (list "=水平对齐文字" "mini_match_Text_y")
     (list "||垂直对齐文字" "mini_match_Text_x")
     nil
     (list "扩展对齐" "mini_exalign"  nil nil 2) ;2017-10-03
     nil
     (list "刷多重索引" "mini_match_MLeader" nil nil 1) ;2018-12-04
     (list "多重引线对齐" "mini_mleader_align") ;2018-08-11
     nil
     (list "LM 单选动态沿曲线布字" "lm_atc" "单文字动态对齐曲线[lm_atc]V1-2.lsp")
     (list "LM 多选文字动态对齐曲线" "lm_TxAlign" "多文字动态对齐曲线[lm_TxAlign]V1-6.lsp")
     nil
     (list "形心对齐" "mini_xxdq")
     (list "表格内实体智能居中" "mini_cell_center")
 )



  (list "【&Z 装】装饰工具"
        (list "公共卫生间布置" "mini_jieju")
        (list "住宅家具布置" "mini_furniture")
        nil
        (list "木工板截面" "mini_mugongban" nil nil 4)
        (list "夹板截面" "mini_jiaban" nil nil 3)
        (list "实木收口截面" "mini_woodsec" nil nil 6)
        (list "木地板截面" "mini_woodsec_floor" nil nil 2)
        nil
        (list "窗帘平面" "mini_curtain"  nil nil 2) ;2018-08-11由家居布置命令独立出来
        (list "衣柜平面" "mini_closet"  nil nil 2) ;2018-08-11由家居布置命令独立出来
        (list "高柜平面" "mini_ggpm")
        nil
        (list "柜子立面" "mini_gzlm"  nil nil 2) ;2017-09-07写
        nil
        (list "层板、抽屉剖面" "mini_cdpm")
        (list "柜子剖面" "mini_gzpm")
        (list "高低柜剖面" "mini_gdgpm")
        nil
        (list "木方剖面" "mini_mfpm")
        (list "木方垫板剖面" "mini_mfdb")
        (list "智能墙面垫板剖面" "mini_znmf")
       "ROW_END"
        (list "角线平面" "mini_jianxian_plan")
        (list "角线立面" "mini_jianxian_elev")
        nil
        (list "灯具连线或标注" "mini_elec_line")
        (list "动态沿线布天花筒灯" "mini_light_plan" nil nil 2) ;2018-01-03
        nil
        (list "玻璃截面" "mini_glasssec" nil nil 5)
        (list "石膏板截面" "mini_gypsumsec" nil nil 1)
        (list "石材截面" "mini_stonesec" nil nil 7)
        (list "钢板截面" "mini_steel" nil nil 13)
        (list "型钢截面面板" "mini_xg" nil nil 14)
        nil
        (list "石膏板吊顶剖面" "mini_gypsumsec_cell" nil nil 2) ;2017-09-03写
        (list "轻钢龙骨板墙剖面" "mini_gypsumsec_wall"  nil nil 2) ;2017.09.09写
        (list "干挂海棠角石材剖面" "mini_stonesec_wall"  nil nil 2) ;2017.09.21写
        (list "角钢钢框" "mini_jggk" nil nil 11)
         nil
        (list "生成墙体完成面" "mini_wall_cover" nil nil 2) ;2018-01-18
        (list "画背栓孔" "mini_hbsk"  nil nil 2) ;2017-11-25
        nil
        (list "焊缝" "mini_weld_line" nil nil 13)
        nil
        (list "连接软管" "mini_flex"  nil nil 2) ;2017-11-26
        (list "绘制管线" "mini_tube"  nil nil 2) ;2017-11-26
    )
  (list "【&Y 引】多重索引"
         (list "面板DIY材料索引" "MINI_CLSY") ;2018-08-11
         (list "面板面板软装物料索引" "MINI_WLSY" nil nil 1) ;2018-12-5
         (list "面板DIY做法说明索引" "MINI_ZFSY") ;2018-08-11
        nil
         (list "椭圆块索引" "mini_indexer2") ;2018-08-11
         (list "范围加框节点索引" "mini_indexer4") ;2018-08-11
         (list "文字在线上索引" "mini_indexer5") ;2018-08-11
         (list "文字在线外索引" "mini_indexer6") ;2018-08-11
         (list "文字在线外加框索引" "mini_indexer3") ;2019-06-27
        nil
         (list "多层构造说明索引" "mini_indexer8") ;2019-07-07
        nil
         (list "通用词库材料索引" "MINI_INDEXER7") ;2018-08-11
         (list "带天花标高索引" "MINI_INDEXER9") ;2018-08-11
        nil
         (list "标注块或填充的名称" "mini_bzmc" nil nil 1)
         nil
        (list "立面索引" "mini_index_elev")
        (list "四边剖断线" "MINI_SBPDX")
       "ROW_END"
         (list "多重引线对齐" "mini_mleader_align") ;2018-08-11
         (list "刷多重索引" "mini_match_MLeader" nil nil 1) ;2018-12-04
        nil
         (list "多重索引增加引线" "aimleadereditadd" nil nil 1)
         (list "多重索引删减引线" "aimleadereditremove" nil nil 1)
        nil
         (list "批量转索引为多重索引" "mini_leader_2_mleader" nil nil 1) ;2018-12-04
         (list "多重索引统计表" "mini_mleader_list" nil nil 1) ;2018-12-5
    )


  (list "【&X 新】新增命令"
     (list "增加命令")
     (list "电线交叉半圆弧" "mini_wire_cross" nil nil 1) ;2020-01-30

       nil
     (list "更新命令")
     (list "全能矩形" "mini_3p_rectang")
     (list "全能编号" "mini_xuhao")
     (list "单组自由翻转实体" "mini_block_flips")
     (list "全能复制" "mini_excopy")
     (list "触碰连锁反应选择" "mini_fastsel" nil nil 5)
      nil

     (list "新收录命令")
     (list "文字变块属性" "mini_text2att" "文字变块属性[mini_text2att].lsp" nil 1) ;2019.10.10增加
     (list "选择集管理" "sss" "选择集管理加载程序[sman].lsp" nil 1) ;2019.10.10增加

  )


  )
  tmp_ver nil
 )



    ;mai_panel_color_line
       ; 1.2.3.... 缺省颜色线隔多少个图标设置
       ; 0 仅去缺省分割线，保留自定义分割线
       ;-1 去所有所有分割线,保留间隔距离
       ;-2 去除所有分割线和间隔距离

  (setq mai_pgp_com_first nil) ;面板快捷键优先

;无需启动面板即启动快捷命令,my_panel_all与13行名字对应
(mai_load_panel_pgp my_panel_all)


(defun c:xall ()
   (mai_last_com "xall")
   (mai_make_panel2 my_panel_all "mai_panel_index_a" 24 41)
)
      ; my_panel_all  前面的表，与13行名字对应
      ;"mai_panel_index_a" 记忆面板页面的函数名，长一些，不要冲突
      ;24    面板按键行数，列数不用设置，程序自动判断
      ;41    面板单个按键宽度

    )
)
