LISP: move dopo di insert

Ciao,

Ho questo codice che fa uno insert di un block e dopo muove il block.

Non so per che, ma fa il insert e muove il block ma non lo muove il "displacement" che ho scrito. In vece, a volte lo fa, a volte no e cambia il "displacement"

Se qualcuno sa cosa sucede con questo codice, per favore, farmi sapere...

(e scusate il italiano...no e la mia lingua e non ho parlato da molto tempo fa)

qui, il code:

(command "_insert" pipe_dir_top_last pti "1" "1" "0")
(if (/= top_last_verif+1 nil) (command "move" "l" "" "d" "0,0,250"))
(if (/= top_last_verif+2 nil) (command "move" "l" "" "d" "0,0,500"))
(if (/= top_last_verif-1 nil) (command "move" "l" "" "d" "0,0,-250"))
(if (/= top_last_verif-2 nil) (command "move" "l" "" "d" "0,0,-500"))
(command "_insert" pipe_dir_top pti "1" "1" "0")
(if (/= top_verif+1 nil) (command "move" "l" "" "d" "0,0,250"))
(if (/= top_verif+2 nil) (command "move" "l" "" "d" "0,0,500"))
(if (/= top_verif-1 nil) (command "move" "l" "" "d" "0,0,-250"))
(if (/= top_verif-2 nil) (command "move" "l" "" "d" "0,0,-500"))

grazie!
dario