; 用户可自行修改面板数据，文件在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
					"艺术品"
					"编辑此面板数据"
					"刷新此面板"
					nil
					"AR,01,艺术品"
					"AR,02,艺术品"
					"AR,03,艺术品"
					"AR,04,艺术品"
				)
				(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,洁具"
				)
			)
		)
	)
	(cond
		(	(= "编辑此面板数据" txt)
			(mai_shell_ascii_edit (findfile "用户软装物料索引文件[mini_wlsy].lsp") nil)
			; (load (findfile "用户软装物料索引文件[mini_wlsy].lsp"))
			(c:mini_wlsy)
		)

		(	(= "刷新此面板" txt)
			(load (findfile "用户软装物料索引文件[mini_wlsy].lsp"))
			(c:mini_wlsy)
		)

		(	(not (= "" txt))
			(setq mini_wlsy_angle
				(cadr
					(mai_user_mleader
						mini_wlsy_layer                    ; 层名和层颜色组成的表
						(car mai_mleader_rzsy_block)       ; "箭头块名，必须有，迷你提供三个块，"mn-dot"、"mn-arrow1"、"mn-arrow2"，用户也可用自己的块
						0                                  ; 0 为块，1为文字在线上，2为文字在线外，3为文字在线外加框
						(list (cadr mai_mleader_rzsy_block) 1 (nth 3 mai_zxindex_layer))         ; 前一个参数为 0 时，此参数为索引块名字和块比例表，1 2时为文字形名字和字高度，用户也可用自己的块
						txt                                ; 文字或块属性，逗号分隔，本命令由上面面板获得
						nil                                ; 两点表或索引实体名，空为输入
						mini_wlsy_angle                    ; 引线倾斜角度（0-90），nil 为由标注点确定角度，负数为智能角度
					)
				)
			)
		)
	)
)


	)
)
