Mögliche Lösung in AutoCAD mit AutoLisp:
(defun C:umi()
(printc „ Element wählen“) ;Bildschirmausgabe
(setq element
(ssget) ) ;Interaktive Wahl eines Elementes
(setq anzahl (sslenght element)
;Anzahl der gewählten Elemente ermitteln
(if (=anzahl 0) ;Wenn die Anzahl
gleich 0
(printc „Kein Element gewählt“) ;Bildschirmausgabe
(progn ;ein
Element wurde gewählt
(setq x 4.2 y –1.2) ;die Variablen x und y definieren
(setq vektor (list x y)) ;aus den Varablen eine Liste erzeugen
; Autocad
Befehl Schieben aufrufen
(command „_MOVE“ element „“ vektor „“ „“)
) ;ende
progn (if- Block)
) ;ende if
) ;ende function