
; 批量在柱填充层填充实体[mini_hatch_solid].lsp

(defun c:mini_hatch_solid ( / old_cmd ss mark )
	(mai_start nil)
	(mai_last_com "mini_pline_booler")
	(mai_var_save (list "hpname" nil "hpang" nil "hpscale" nil "hpspace" nil "hpdouble" nil "snapbase" nil "hpcolor" "."))
	(setq
		ss	(mai_select_first
				'((0 . "CIRCLE,ELLIPSE,SPLINE,*POLYLINE"))
				"选择需要填充的封闭多段线、圆、样条曲线、椭圆实体:<退出>"
				"没有选择物体."
			)
		ss (mai_ssget_2_list ss)
		ss (vl-remove-if-not 'mai_Curve_isClosed ss)
		mark (entlast)
	)
	(or ss (exit))
	; (mai_create_layer "HATCH_SOLID" 8)
	(apply 'mai_create_layer maicolumnfill)
	(command "-bhatch" "s" (mai_list_2_ssget ss) "" "p" "s" "a" "i" "y" "h" "y" "" "")
	(and
		(setq ss (mai_newset mark))
		(> (sslength ss) 0)
		(command "_.draworder" ss "" "b")
	)
	(mai_end)
)
