; 用户可自行修改面板数据，文件在AUTOLOAD文件夹下【用户软装物料索引文件[MINI_WLSY].lsp】
; 文字用逗号分隔

(if (> (atof (getvar "ACADVER")) 17.1)  ;代码在AutoCAD2008以下版本不加载，AutoCAD2008以下版本不支持多重索引
    (progn

        (or mini_wlsy_layer
            ; (setq mini_wlsy_layer (list "W-物料索引" "35")) ;物料索引层名和层颜色组成的表
            (setq mini_wlsy_layer (list (car mai_zxindex_layer) (cadr mai_zxindex_layer))) ;物料索引层名和层颜色组成的表
        )

        (or mini_wlsy_angle
            (setq mini_wlsy_angle mai_mleaser_line_angle)
        ) ; 引线倾斜角度（0-90），nil 为由标注点确定角度，负数为智能角度

        (defun c:MINI_WLSY (  / txt )
         (setq txt
          (mai_get_text_panel
            (list
               "用户可自行修改数据，文件在AUTOLOAD文件夹下【用户软装物料索引文件[MINI_WLSY].lsp】" ;对话框标题
              (list "艺术品"
                    "AR,01,艺术品"
                    "AR,02,艺术品"
                    "AR,03,艺术品"
                    "AR,04,艺术品"
                    "AR,05,艺术品"
                    "AR,06,艺术品"
                    "AR,07,艺术品"
              )
              (list "床上用品"
                    "BDG,01,床上用品"
                    "BDG,02,床上用品"
                    "BDG,03,床上用品"
                    "BDG,04,床上用品"
                    "BDG,05,床上用品"
                    "BDG,06,床上用品"
                    "BDG,07,床上用品"
              )
              (list "块毯"
                    "CA,01,块毯"
                    "CA,02,块毯"
                    "CA,03,块毯"
                    "CA,04,块毯"
                    "CA,05,块毯"
                    "CA,06,块毯"
                    "CA,07,块毯"
              )
              (list "窗帘"
                    "CU,01,窗帘"
                    "CU,02,窗帘"
                    "CU,03,窗帘"
                    "CU,04,窗帘"
                    "CU,05,窗帘"
                    "CU,06,窗帘"
                    "CU,07,窗帘"
              )
              (list "灯具"
                    "DL,01,灯具"
                    "DL,02,灯具"
                    "DL,03,灯具"
                    "DL,04,灯具"
                    "DL,05,灯具"
                    "DL,06,灯具"
                    "DL,07,灯具"
              )
              (list "家具"
                    "FU,01,家具"
                    "FU,02,家具"
                    "FU,03,家具"
                    "FU,04,家具"
                    "FU,05,家具"
                    "FU,06,家具"
                    "FU,07,家具"
              )
              (list "厨房设备"
                    "KIT,01,厨房设备"
                    "KIT,02,厨房设备"
                    "KIT,03,厨房设备"
                    "KIT,04,厨房设备"
                    "KIT,05,厨房设备"
                    "KIT,06,厨房设备"
                    "KIT,07,厨房设备"
              )
              (list "植物"
                    "PLT,01,植物"
                    "PLT,02,植物"
                    "PLT,03,植物"
                    "PLT,04,植物"
                    "PLT,05,植物"
                    "PLT,06,植物"
                    "PLT,07,植物"
              )
              (list "开关、插座面板"
                    "SSP,01,开关、插座面板"
                    "SSP,02,开关、插座面板"
                    "SSP,03,开关、插座面板"
                    "SSP,04,开关、插座面板"
                    "SSP,05,开关、插座面板"
                    "SSP,06,开关、插座面板"
                    "SSP,07,开关、插座面板"
              )
              (list "洁具"
                    "SW,01,洁具"
                    "SW,02,洁具"
                    "SW,03,洁具"
                    "SW,04,洁具"
                    "SW,05,洁具"
                    "SW,06,洁具"
                    "SW,07,洁具"
              )
            )
           )
          )
          (if txt
              (setq MINI_WLSY_angle
                    (cadr
                      (mai_user_mleader
                            MINI_WLSY_layer                    ; 层名和层颜色组成的表
                            (car mai_mleader_jjsy_block)       ; "箭头块名，必须有，迷你提供三个块，"MN-DOT"、"MN-ARROW1"、"MN-ARROW2"，用户也可用自己的块
                            0                                  ; 0 为块，1为文字在线上，2为文字在线外，3为文字在线外加框
                            (list (cadr mai_mleader_jjsy_block) 1)         ; 前一个参数为 0 时，此参数为索引块名字和块比例表，1 2时为文字形名字和字高度，用户也可用自己的块
                            txt                                ; 文字或块属性，逗号分隔，本命令由上面面板获得
                            nil                                ; 两点表或索引实体名，空为输入
                            MINI_WLSY_angle                    ; 引线倾斜角度（0-90），nil 为由标注点确定角度，负数为智能角度
                      )
                    )
              )
          )
        )


    )
)
