;新建实体按命令自动归层命令配置文件.lsp
(setq
	layerdirector:data
		(list
			(list
				"[DM]TEXT,TEXT"				;1 命令名称，逗号分隔<字符串>
				(car maitextname)			;2 以上命令实体自动归层层名<字符串>
				"文字图层"					;3 描述<字符串，""为没有>
				(atoi (cadr maitextname))	;4 层颜色，<整数1~255>
				"Continuous"				;5 层线形<字符串>
				-3							;6 层笔宽 <整数0~211，-3为层缺省值>
				1							;7 层是否打印 1打印 0不打印
				nil							;8 打印样式<字符串 nil为使用CTB>
			)
			(list
				"DIM*"						;1 命令名称，逗号分隔<字符串>
				(car maidimname)			;2 以上命令实体自动归层层名<字符串>
				"标注图层"					;3 描述<字符串，""为没有>
				(atoi (cadr maidimname))	;4 层颜色，<整数1~255>
				"Continuous"				;5 层线形<字符串>
				-3							;6 层笔宽 <整数0~211，-3为层缺省值>
				1							;7 层是否打印 1打印 0不打印
				nil							;8 打印样式<字符串 nil为使用CTB>
			)
			(list
				"*LEADER"						;1 命令名称，逗号分隔<字符串>
				(car mai_zxindex_layer)			;2 以上命令实体自动归层层名<字符串>
				"多重索引图层"						;3 描述<字符串，""为没有>
				(atoi (cadr mai_zxindex_layer))	;4 层颜色，<整数1~255>
				"Continuous"					;5 层线形<字符串>
				-3								;6 层笔宽 <整数0~211，-3为层缺省值>
				1								;7 层是否打印 1打印 0不打印
				nil								;8 打印样式<字符串 nil为使用CTB>
			)
			(list
				"*VPORT"					;1 命令名称，逗号分隔<字符串>
				"DEFPOINTS"					;2 以上命令实体自动归层层名<字符串>
				""							;3 描述<字符串，""为没有>
				3							;4 层颜色，<整数1~255>
				"Continuous"				;5 层线形<字符串>
				-3							;6 层笔宽 <整数0~211，-3为层缺省值>
				1							;7 层是否打印 1打印 0不打印
				nil							;8 打印样式<字符串 nil为使用CTB>
			)
			(list
				"XLINE,RAY"							;1 命令名称，逗号分隔<字符串>
				(car mai_recycle_layer)				;2 以上命令实体自动归层层名<字符串>
				"构造线图层"						;3 描述<字符串，""为没有>
				(atoi (cadr mai_recycle_layer))		;4 层颜色，<整数1~255>
				"Continuous"						;5 层线形<字符串>
				0									;6 层笔宽 <整数0~211，-3为层缺省值>
				0									;7 层是否打印 1打印 0不打印
				nil									;8 打印样式<字符串 nil为使用CTB>
			)
	)
)
