help? scale lisp

[shakn-1]

Hi i am curently working with an engineering firm, and am curently using an addon to cad2009 called DRApro.

but are wanting to uninstall the program due to bugs it has.

 

there is a tool in it called bounding box.

it creates a box in model space and alows you to draw in the box at a scale of your choice. then you can draw another box and draw in it and it will make it another scale you choose.

 

say 1 box is at 1/100 and the one next to it at 1/200

 

bit like viewports but in model...

 

also a way of selecting all hatching and deleting it....

 

hope it sound clear.... lol

 

any help would be great!

 

thanks,

[flowerrobot]

 

bit like viewports but in model...

 

that would be a command, its standard.

But im at home, so i can not 'help' it.

[Lee Mac]

bit like viewports but in model...

 

You can create viewports in model space:

 

Type in command line:

 

vports > then two, three, or four and how you want them arranged...

 

Hope this helps

[shakn-1]

thanks but sorry na not like that.

 

I mean its like having 2 box's and if i coppy text that is say 1/100 into the 1/200 box it will automaticaly change to 1/200.

 

also still stuck on the macro for a way to select all hatching and delete it.

 

thanks

[Lee Mac]

LISP to delete all hatch:

 

(defun c:hatdel    (/ ss)
 (if (setq ss (ssget "X" '((0 . "HATCH"))))
     (command "_erase" ss ""))
 (princ))