i want to share a basic macro i build, that could be handfull or not, some times i need to build a basic fixture.
all you have to do is build a boundary and active, run macro
input size and then name
DIALOGS MESSAGE OFF
DIALOGS ERROR OFF
GRAPHICS LOCK
Real $size = ''
$size = INPUT "Tamanho"
STRING Name = ""
$Name = INPUT "Nome"
FORM BLOCK
EDIT BLOCKTYPE BOUNDARY
EDIT BLOCK LIMITTYPE BOUNDARY
EDIT BLOCK RESETLIMIT "0"
EDIT BLOCK RESET
EDIT BLOCK ZLEN "$size"
EXPORT BLOCK ; FILESAVE
"C:\Temp\solido.dmt"
Yes
BLOCK CANCELLED
DELETE BLOCK
Yes
IMPORT MODEL FILEOPEN
"C:\Temp\solido.dmt"
EDIT MODEL "solido" SELECT ALL
VIEW MODEL ; SHADE NORMAL
MODE WORKPLANE_CREATE ; SELECTION top
ACTIVATE WORKPLANE "#"
RENAME Model "solido" $Name
EXPLORER SELECT Model $Name NEW
FORM MODELTRANS EDIT MODEL $Name INTERACTIVE
TRANSFORM TYPE WORLD TRANSFORM MODEL $Name
MODELTRANS ACCEPT
DELETE BOUNDARY "#"
DELETE WORKPLANE "#"
BLANK EXCEPT
BLOCK CANCEL
BLOCK CANCELLED
DIALOGS MESSAGE ON
DIALOGS ERROR ON
GRAPHICS UNLOCK
