;实体SOLID转实体填充mini_solid_2_hatch
(defun c:mini_solid_2_hatch ( / old_cmd old_hpname mark ss en pp)
    (mai_start nil)
    (mai_last_com "mini_solid_2_hatch")
    (setq ss (mai_select_first '((0 . "SOLID")) "选择要变HATCH的SOLID实体:" "没有找到SOLID实体.")
          pp (mai_get_property (ssname ss 0) nil)
          mark (entlast)
          old_hpname (getvar "hpname")
    )
    (princ "\n耐心请等候......")
    (mai_ss_bo2 ss nil nil)
    (if (setq en (mai_newset mark))
        (mai_entdel ss nil)
        (progn (princ "\n没有生成边界.") (exit))
    )
    ;(mai_cpattern "solid" nil nil)
    (command "_.bhatch" "p" "s" "a" "i" "y" "" "s" en "" "")
    (mai_entdel en nil)
    (foreach en (mai_ssget_2_list (mai_newset mark))
       (mai_put_property (entlast) pp)
       (command "_.-hatchedit" en "h")
    )
    (mai_end)
)
