What's wrong with this ??

[jclaidler]

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.")
)

 

[DonB]

I think you may need to close out the WBLOCK command before calling the OOPS command.

 

Don

 

"jclaidler" <> wrote:

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.")
)