(defun c:MV_BINS(/ MVB_EL MVB MVB_VB MVB_VB_list LiLang PIN PINX PINY DX DX1)
  (vl-load-com)
  (setq MVB_EL (car (entsel)))
  (if (= (cdr (assoc 0 (entget MVB_EL)))  "AEC_MVBLOCK_REF")
  (progn
  (setq MVB (vlax-ename->vla-object MVB_EL)
        MVB_VB (vlax-get-property MVB 'ViewBlocks)
        MVB_VB_list (list))
  (vlax-for i MVB_VB
    (setq MVB_VB_list (append MVB_VB_list (list (vla-get-name i))))
    )       ;;;end vlax-for
  (if (/= nil MVB_VB_list)
    (progn
      (setq LiLang (- (length MVB_VB_list) 1)
	    PIN (getpoint "\n Einfügepunkt für die Unterblöcke angeben:")
	    PINX (car PIN)
	    PINY (rtos (cadr PIN) 2 2)
            DX (getdist "\nHorizontalabstand für die einzufügenden Blöcke eingeben :")
	    DX1 DX 
	    DX (+ PINX DX) )
      (if (or (= nil DX)(= "" DX))(setq DX 1))
      (repeat (length MVB_VB_list)
       (command "_.-insert" (nth LiLang MVB_VB_list) (strcat (rtos DX 2 2) "," PINY) "" "" "")
        (setq DX (+ DX DX1)
              LiLang (- LiLang 1) )
	)   ;;;endrepeat
      ))
  
   )        ;;;end progn
    (alert "Element ist kein MV-BLOCK!\nBitte MV-Block wählen!")
    )       ;;;end if
  (princ)
  )         ;;Enddefun
(princ "\n...Lisp geladen -> mit MV_BINS starten")