I have made a program as below (defun c:HE () (Graphscr) (Setq osnp (Getvar "osmode")) (Setq clay (Getvar "clayer")) (cOMMAND "-layer" "m" "HEDGE" "c" "GREEN" "" "") (setq obj (vlax-ename->vla-object (car (entsel " pick a spline: ")))) (setq startParam (vlax-curve-getStartParam obj)) (sETQ STARTFIRSTPOINT (vlax-curve-getPointAtDist OBJ 0)) (setq endParam (vlax-curve-getEndParam obj)) (sETQ ENDFIRSTPOINT (vlax-curve-getPointAtDist OBJ endParam)) (SETQ IND 2) (SETQ DISTTOTAL (vlax-curve-getDistAtParam OBJ (- endPARAM startPARAM)) ) (sETQ NOOFINS (- (/ DISTTOTAL 2) 1)) (SETQ NOOFTEXT (FIX NOOFINS)) (sETQ FIRSTPOINT (vlax-curve-getPointAtDist OBJ IND)) (Command "-layer" "thaw" "HEDGE" "") (Command "-Layer" "s" "HEDGE" "") (SETVAR "OSMODE" 0) (Command "insert" "HE" STARTFIRSTPOINT "2" "1" FIRSTPOINT) (rEPEAT NOOFTEXT (sETQ IND (+ IND 2)) (sETQ NEXTPOINT (vlax-curve-getPointAtDist OBJ IND)) (Command "insert" "HE" FIRSTPOINT "2" "1" NEXTPOINT) (sETQ FIRSTPOINT NEXTPOINT) ) (Command "insert" "HE" FIRSTPOINT "2" "1" ENDFIRSTPOINT) (setvar "osmode" osnp) (Command "-Layer" "s" CLAY "") (Princ startParam) (Princ) ) The program works in 2004 but will not work in 2002 and R14 the nlock is made in all versions I says something in 2002 about initilising the VLAX commands Any help would be greatfully accepted. Regards Clive