;;;多块同时缩放mini_dksf
(defun c:mini_dksf ( / old_cmd nam ss sca tmp )
  (mai_start nil)
  (setq ss (mai_select_first (list (cons 0 "INSERT")) "选择同时缩放的块 :" "没有选择到同名块."))
  (initget 7)
  (or (setq sca (getdist "\n请输入缩放倍数:<1>"))
      (setq sca 1)
  )
  (foreach tmp (mai_ssget_2_list ss)
     (command "_.scale" tmp "" "non" (trans (vlax-get (vlax-ename->vla-object tmp) 'InsertionPoint) 0 1) sca)
  )
  (princ (strcat "\n完成缩放 < " (itoa (sslength ss)) " > 个块."))
  (mai_end)
)
