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

(or mini_wlsy_layer
    (setq MINI_WLSY_layer (list "W-物料索引" "35")) ;物料索引层名和层颜色组成的表
)
(or mini_wlsy_angle
    (setq mini_wlsy_angle 60)
)
(defun c:MINI_WLSY (  / n )
 (setq n
  (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 n 
      (setq MINI_WLSY_angle
            (cadr 
              (mai_user_mleader
                    MINI_WLSY_layer ;(list (car mai_zxindex_layer) (cadr mai_zxindex_layer))            ; 层名和层颜色组成的表
                    "MN-ARROW2"                        ; "箭头块名，必须有"   "MN-DOT" "MN-ARROW1" "MN-ARROW2"
                    0                                  ; 0 为块，1为文字在线上，2为文字在线外
                    (list "MN-INDEX-CLBH07" 1)         ; 前一个参数为 0 时，此参数为索引块名字和块比例表，1 2时为文字形名字和字高度"
                    n                                  ; "文字或块属性，逗号分隔"
                    nil                                ; 两点表或索引实体名，空为输入
                    MINI_WLSY_angle                    ; 引线倾斜角度（0-90），nil 为由标注点确定角度
              )
            )
      )
  )
)
