Wblock dialog box

[chiimayred]

hey guys,

 

I am working on converting some 3d solids into usable 2D dynamic blocks and I am working on writing a quick little lisp that will help speed it up.

 

(defun c:test (/ obj obj2 bp name)
 (setq obj (entsel))
 (command
   "_-view" "_top"
   "flatshot" '(0 0) 1 1 0
   "_erase" obj ""
   "_explode" "_all"
   )
 (setq obj2 (ssget))
 (setq bp (getpoint "\nWhere is basepoint?: "))
 (setq name (getstring T "\nWhat is the name of the block?: "))
 (command
 "_block" name bp obj2 ""
 "_insert" name '(0 0) 1 1 0
 "wblock"
 )
 )

 

my issue is with the wblock command, is there a way to get the dialog box to open? if not i need to export the block file to a different file path (not every time but most)... what would be your approach?

 

Thanks!

[ReMark]

Have you tested the method you want to automate yet?

[neophoible]

Have you tried issuing initdia just before the WBLOCK command? You need to break it out separately when doing so. E.g.

 

(initdia)
(command "WBLOCK")

[chiimayred]

Have you tried issuing initdia just before the WBLOCK command? You need to break it out separately when doing so. E.g.

 

(initdia)
(command "WBLOCK")

 

It's all these little bits of code I don't know... Thanks!

[ReMark]

Are you going to incorporate the OVERKILL command in your new routine?

[chiimayred]

Are you going to incorporate the OVERKILL command in your new routine?

 

Now that you mention it, I probably will.

 

Also after adding the wblock command I realized that I don't need to create the block after the fshot. What happens is the block is exported inside of the drawing where i just need the lines to be present for my purposes.

 

(defun c:test (/ obj obj2 bp name)
 (setq obj (entsel));;select 3D to flatten
 (command
   "_-view" "_top"
   "flatshot" '(0 0) 1 1 0
   "_erase" obj "";;erase 3D entitiy
   "_explode" "_all";;explode fshot block
   "overkill" "_all"
   )
 (setq obj2 (ssget));;select newly create 2D lines
 (setq bp (getpoint "\nWhere is basepoint?: "));;Basepoint for Block
 (setq name (getstring T "\nWhat is the name of the block?: "));;name for block
 (initdia)
 (command
 "-wblock" "" name bp obj2
 )
 )

 

For some reason it's saying overkill is an unknown command

 

Also, with the FSHOT command it sets the lineweights to 0, what's the command to set the lineweight to bylayer?

[chiimayred]

Here's the updated code that I'm using in case anyone else will find this useful.

 

Added some error checking. Still can't figure out the lineweight thing after the fshot, but i can change that later anyway.

 

(defun c:Z (/ obj obj2 bp un)
 (if (setq un (getint "\nWhat are your units? 1-Inches 2-Feet 3-Millimeters 4-Meters "))
   (progn
     (cond
((= un 1)
 (command
   "_.insunits" 1 ""
   );;end command
 )
((= un 2)
 (command
   "_.insunits" 2 ""
   );;end command
 )
((= un 3)
 (command
   "_.insunits" 4 ""
   );;end command
 )
((= un 4)
 (command
   "_.insunits" 6 ""
   );;end command
 )
((> un 4)
 (alert "PLEASE SELECT APPROPRIATE UNITS")
 )
((< un 1)
 (alert "PLEASE SELECT APPROPRIATE UNITS")
)
     )
     )
   (alert "PLEASE SELECT APPROPRIATE UNITS")
   )
 (IF (setq obj (entsel));;select 3D object to flatten
   (progn
     (command
"_-view" "_top"
"flatshot" '(0 0) 1 1 0
"_.erase" obj "";;erase 3D entitiy
"_.explode" "_all";;explode fshot block
"_.overkill" "_all"
)
 (setq obj2 (ssget));;select newly create 2D lines
 (setq bp (getpoint "\nWhere is basepoint?: "));;Basepoint for Block
 (initdia)
 (command
 "-wblock" "" bp obj2 ""
 "_.CLOSE" "Y"
 )
 )
 (alert "NO OBJECTS SELECTED!"))
 (princ)
 )

Edited August 28, 2013 by chiimayred
updated code for insunits