Info: Olá. Welcome to my humble wiki page. I'm not a VB Expert, but I do my best. If you'd like to report a bug (or maybe a spelling / grammar mistake), to send a suggestion or just contact me, feel free to send an e-mail.

This .zip file (last revision: 03 / Fev / 06) contains all the scripts described below, saved in .rvb format - it is simpler than upload every single script…

These .rvb files are ready to be copied and pasted to a button. Take a look at the MacroScriptSetup tutorial page to know what I'm talkin 'bout.

Quickly change the absolute tolerance of a document.

Runs the Angle command with a pivot point.

Quicly changes both wireframe and render/material colors of any objects.

Runs the ClearAllMeshes command with a secure confirmation box.

Runs the ClearUndo command with a secure confirmation box.

Creates individual area centroids for each closed planar curve selected.

Copies several objects to selected points at the same time.

(Original idea by Gelfling aka David Rutten )

Automatically creates open curves from the intersection between given cross-section and profile curves.

Runs the DigDisconnect command with a secure confirmation box.

Encloses open planar curves inside a closed planar curve boundary.

One of the most useful scripts I've ever written: extend several curves at the same time.

Creates individual area centroids for each srf or polysrf selected.

Creates individual bounding boxes for each object selected.

Creates projected to Cplane bounding boxes for each object selected.

Sets an “Invert Bottom” view in any Rhino document.

Sets an “Invert Top” view in any Rhino document.

Simply inverts selection and delete remaining objects - with a secure confirmation box.

Offsets more than one curve at the same time, including a “BothSides” option.

Creates an oriented Bounding Box accordingly to a 3pt Cplane. (thanks for the help, Pascal!)

The orient command with a pivot point (same first point on both reference and target).

Also extremely useful: creates a Projected To Cplane Bounding Box.

Mirror an object twice, first horizontally and then vertically, using the origin, resulting in 4 equal objects.

(hmmm…is this clear enough?)

Quicly changes the render/material color of objects.

Re-assigns both wireframe and render/material color of objects as “By Layer”.

Re-assigns the wireframe color of objects as “By Layer”.

Re-assigns render/material color of objects as “By Layer”.

Selects only the planar curves in a model that coincides with the active CPlane.

All objects of the model on the screen - basically unlocks and shows everything.

Transforms text objects in curves.

Quicly changes the wireframe color of objects.

Here it's possible to download my personal workspace file, with custom buttons and organization. It contains the macros below, all scripts above and other useful codes from some VB masters such as Dan Bayn , Gelfling / David Rutten , Emilio Morello and Thomas Anagnostou.

Macros are usually quite easy and simple. Here are some of mine:

Just replace YOURTEMPLATE with the real name of the template wanted.

{@

}@

{@

_pause _Hide

}@

{@

_pause _Invert _Hide

}@

You obviously must have a layer named “default”.

{@

}@

{@

'_NoEcho 'DocumentPropertiesPage Units

}@

{@

-GradientView View

Enter

}@

{@

-GradientView View

State

Enter

}@

It works only with TreeFrog as the current renderer .

{@

-_DocumentProperties _TreeFrog _Wireframe=yes Enter Enter

_SetRedrawOn _Echo

}@

{@

-_DocumentProperties _TreeFrog _Wireframe=no Enter Enter

_SetRedrawOn _Echo

}@

Creates a blend curve using G1 and G0 continuities in the first and last input, respectively.

You can use this macro as a model to create other continuity combinations.

{@

continuity=tangency

_pause continuity=position

}@

{@

_BothSides _pause _FromFirstPoint

}@

{@

_CrvStart _CrvEnd

}@

Cheers/

Saudações,

G. C. Webster

(Guilherme C. Webster) gcwebster36@gmail.com RS - Brasil

contact