(vl-load-com)
(defun c:DIMX( / AWS)
  (if(and(Setq AWS(ssget '((0 . "DIMENSION"))))
         (setq P(getpoint "\nX-Koordinate: "))
     )
    (progn
      (setq INDEX -1)
      (repeat(sslength AWS)
        (setq OBJ(ssname AWS(setq INDEX(1+ INDEX))))
        (setq OBJ(vlax-ename->vla-object OBJ))
        (setq POS(vlax-safearray->list
                   (vlax-variant-value
                     (vla-get-TextPosition OBJ)
                   )
                 )
        )      
        (vla-put-TextPosition OBJ(vlax-3d-point(list(car P)(cadr POS)(caddr POS))))     
      )  
    )
  )
)
(prompt "\ndimx.lsp geladen. Start mit DIMX")
(princ)