Its checking for a file in the directory with the same name, before it creats a wblock. (IF (not (= (TYPE (VL-FILE-SYSTIME (strcat blockdir "\\" newb))) 'LIST)) (command ".wblock" newblock "" point "l" "" "oops") (princ "\nBlock name already exists in 'Blocks' directory.") )
I think you may need to close out the WBLOCK command before calling the OOPS command. Don "jclaidler" <-usa.com> wrote in message news:... Its checking for a file in the directory with the same name, before it creats a wblock. (IF (not (= (TYPE (VL-FILE-SYSTIME (strcat blockdir "\\" newb))) 'LIST)) (command ".wblock" newblock "" point "l" "" "oops") (princ "\nBlock name already exists in 'Blocks' directory.") )