Rotation of BLOCK

This one is a short-cut for ROTATE command.

Suppose in an Electro Mechanical drawing we have to rotate a block exactly with refer to the rotation angle of another instance of the same block or some other block. It’s a tiresome job to first findout the angle and then gives the same. Match property will not work here.

The below LISP routine will do the work for you as it will ask to first select the source block (so as to extract the rotation angle) and then it will apply this angle to the targeted block. Source and Target block may not be the same.

* Rotate-Block.lsp (1Kb)
This command change the rotation angle of block to a given angle (which can be extracted from another block).

Sequence of command lines for this routine:-

Command: RBL
Select SOURCE block:
Select TARGET block:

Download : Rotate-Block.lsp

To Select only NUMERIC text/s

Sorry for a long gap. Actually I was out-of-station.

Here I come up with select/filter option. Say for example:
In an electro-mechanical drawing we are working on a panel board schedule. In the schedule, ALL the numerical texts have to be rewritten.
We cannot select the numerical text data through the AutoCAD built-in FILTER command.

So I developed this lisp routine.
It will SELECT and HIGHLIGHT only the numerical TEXTs.

* SLCTNUMBTXT.lsp (2Kb)
This command will filter out only the NUMERICAL text/s.

Sequence of command lines for this routine:-

Command: NUMB
Select texts...

Download : SLCTNUMBTXT.lsp

Lighting Layout : 1-Unit from edge, 2-units in between

Have you ever worked on Electrical drawings, especially "Lighting Layout" drawing?
In a Lighting Layout drawing, the blocks representing the normal light will be placed in a room as ...
one unit from the edges of wall & two units in between them.
This is a common concept.

So a draftsman has to either calculate manually or either place a line touching both walls (towards the LENGTH or WIDTH) and then using AutoCAD builtin command DIVIDE, he can get the required points.
But, Its annoying to use a long procedure of dividing & putting/erasing the POINTS, Hence, I worked to develop a LISP routine.

So this LISP routine is actually ...
A command to DIVIDE a line/pline/arc in equal segments with 1-unit from both ends and 2-units in between segments.

* DIVIDE_ALTERNATE.LSP (2Kb)
This command will DIVIDE a line/pline/arc in equal segments with 1-unit from both ends and 2-units in between segments.

Sequence of command lines for this routine:-

Command: DVD
Pick LINE/PLINE/ARC:
Enter the number of POINTS:

Download : DIVIDE_ALTERNATE.LSP