;一切属性改为随层[mini_yqsc]
(defun c:mini_yqsc ( / old_cmd x )
  (mai_start nil)
  (mai_last_com "mini_yqsc")
  (setq x (mai_select_first nil "选择一切属性改为随层的实体:<退出>" "没有选择物体."))
  (command "_.chprop" x "" "lt" "bylayer" "lw" "bylayer" "c" "bylayer" "")
  (initget "Y") 
  (if (= (getkword "\n是否处理块内嵌套实体?[处理(Y)]:<不处理>") "Y")
      (mai_chgcolor x 256 nil)
  )
  (mai_end)
)
