Topic: My block lost

[Adesu]

Hi Alls,
I just create a block, look at this code

Code: [Select]

(setq bn (getstring t "\nEnter name for block: ")) 
(setq ss (ssget))
(command "_wblock"  "bn" "" bp ss "")

After that the drawing is gone, I confuse and don't know where it drawing put.
any one know how to search it ?.

[CAB]

The file name is "bn" and should be in the same folder as the working drawing.
change to this to use the string stored in bn:

Code: [Select]

(command "_wblock"  [color=red]bn[/color] "" bp ss "")

[Adesu]

Hi CAB,
it's great, and I revised that code as your suggest

Code: [Select]

(setq path "D:/YBI/Drawing/Data Base/Block/")                 
  (setq bn (getstring t "\nEnter name for block: "))           
  (setq loc (strcat path bn))                                   
  (setq bp (getpoint "\nClick as base point block: "))         
  (prompt "\nSelect object would become block")
  (setq ss (ssget))
  (command "_wblock" loc "" bp ss "")

Thanks you very much.

The file name is "bn" and should be in the same folder as the working drawing.
change to this to use the string stored in bn:

Code: [Select]

(command "_wblock"  [color=red]bn[/color] "" bp ss "")

[CAB]

You are welcome.