command with lisp load in conditional -bedit

[robert06]

Hi,

I can't figure this out, after adding condition to check if the block exists in drawing, the 'csdf' command from "Convert_SaveDate_Fields_CSDF.lsp" won't execute as expected in the lisp:

Command: -bedit
Enter block name or [?]: blockname Regenerating model.
Regenerating model.

Command: Regenerating model.

Command: bsave
Command: bclose Regenerating model.

Command: ; error: bad function: C:CSDF

....

(if (tblsearch "block" "blockname")
(progn ((command "-bedit" "blockname")
(load "Convert_SaveDate_Fields_CSDF")
(c:csdf)
(command "bsave")
(command "bclose")
))
)

...

berfore:

...
(command "-bedit" "blockname")

(load "Convert_SaveDate_Fields_CSDF")
(c:csdf)
(command "bsave")
(command "bclose")

...

[hmsilva · Accepted solution]

Hi Robert,

you have an extra pair of () brackets inside progn function, try

(if (tblsearch "block" "blockname")
   (progn (command "-bedit" "blockname")
          (load "Convert_SaveDate_Fields_CSDF")
          (c:csdf)
          (command "bsave")
          (command "bclose")
   )
)

Hope this helps,
Henrique

[robert06]

Thank you!

[hmsilva]

You're welcome, robert06
Glad I could help

Henrique