topic Re: Numbering in AutoCAD Forum

Numbering

yogeshnairvarkala — Sun, 29 Mar 2020 04:58:46 GMT

Hi buddies,

Need one hlp...I want to add "P=" infront of every numbers ..Is there any easy with rather than editing one by one??

Re: Numbering

Alfred.NESWADBA — Sun, 29 Mar 2020 06:31:26 GMT

Hi,

>> I want to add "P=" infront of every numbers

Are these numbers part of an attribute inside a block or text or mtext objects or part of application objects?

Search and replace does not work, but when we know what you have (or you upload a dwg-file) it could help to get valid suggestions.

- alfred -

Re: Numbering

yogeshnairvarkala — Sun, 29 Mar 2020 06:37:11 GMT

It's part of text am attaching the drawing if u can hlp pls

Re: Numbering

Alfred.NESWADBA — Sun, 29 Mar 2020 06:57:52 GMT

Hi,

if you don't have AutoCAD VBA-Enabler installed then please download and install it from >>>here<<<

Load the attached DVB file, then start command _VBARUN and select "...addTextPrefix" in the list ==> Run.

This is the code inside the DVB (no error handling)

Public Sub addTextPrefix() Const newPrefix = "P=" Dim tLayName As String: tLayName = "number" Dim tEnt As AcadEntity Dim tTxt As AcadText For Each tEnt In ThisDrawing.ModelSpace If TypeOf tEnt Is AcadText Then Set tTxt = tEnt If Not (Left(tTxt.TextString, Len(newPrefix)) = newPrefix) Then tTxt.TextString = newPrefix & tTxt.TextString End If End If Next End Sub

- alfred -

Re: Numbering

yogeshnairvarkala — Sun, 29 Mar 2020 07:18:08 GMT

vowwww .it wrks like a charm tks alot 🙂

Re: Numbering

Alfred.NESWADBA — Sun, 29 Mar 2020 07:21:25 GMT

Hi,

thank you for your feedback!

Just saw that my code does not filter to only text objects on a specific layer. Let me know if you need that change build in!

- alfred -