Drawing a Quarter or Semi Circle

Want to make a closed QUARTER (of a CIRCLE) as POLYLINE?
and/or
Want to make a closed SEMI-CIRCLE as POLYLINE?
These may required as symbols of Electro Mechanical drawings.

This LISP will sure help you to get what you required just in 4-simple prompts.

* QSCircle.LSP (3Kb)
This command will draw a QUARTER CIRCLE or a SEMI CIRCLE as a POLYLINE object.

Sequence of command lines for this routine:-

Command: QSC
Quarter-circle/Semi-circle :
Pick center of polyline circle...
Radius of circle is... <2.0> =
Specify rotation angle or [Copy/Reference] <270>:

Download : QSCircle.LSP

Text Replacement ...!

While working on TEXT entities, I had forced to make several LISP routines. First I think its a complex job as TEXT includes alpha-numeric characters as well as in AutoCAD it is inserted as a single line TEXT & multi-line also.
But later on I got interest & still happy to make any kind of LISP related to TEXT.

In Electro Mechanical drawings, such as in "Panel-Board Schedules" more & more times a drafter has to replace one text value to another. What to do?
Some find it easy to EDIT them using DDEDIT. But what if we have a large no. of values to be replace with each other? Isn't it a trouble some & time wasting job?
So came this LISP routine.
Just pick one text & then other .... wow...
You can see the values will be replace instantly !!

* TextReplace.lsp (3Kb)
This command replaces two text objects.

Sequence of command lines for this routine:-

Command: TRP
Select FIRST text:
Select SECOND text:
Select FIRST text:
(The command work continuously till you "Enter" or press "Esc".)

Download : TextReplace.lsp

How to know the total number of any "text-value"?

Here I come up with another simple but interested routine.
Say you have a ground Floor plan of a commercial building in which you put a text with the value read as "SHOP" in all the rooms which are designated as SHOPs.

This routine will help you to find out the total number of shops in the drawing instantly. Just pick any text value of "SHOP". Within a milli-second, this routine will show you the total number of text entities placed in the whole drawing as "SHOP".
Howzat??
Isn't it good? Cheers.....!!

P.S.:
This selection will also saved thru out the drawing session. i.e. If you want to select all the texts (named as "SHOP") again, then just type
!V1
at the Select objects: prompt.

* TotalNoOfPickedTEXTs.lsp (1Kb)
This command finds out the total number of any picked TEXTVALUE.

Sequence of command lines for this routine:-

Command: TXTV
Pick text entity:

Download : TotalNoOfPickedTEXTs.lsp