Change %% in autocad

[zypa]

Hey guys, i have searched this forum in hope for something to help me.

What's my problem :

I have many drawings each day (100-500) and i have to load them into a database. But the database gives errors if it finds %% in the drawing.

How can i make a simple script to auto search and replace %%C into Ø , %%D into º and %%p into ±

 

I'm searching for 3 days now and no result.

And something else, how can i add to the batch to auto delete any layout he finds in the drawing and to center the layout?

this would help me VERY VERY much with my tasks every day becouse it tend to repeat...and it's a time killer thing.

 

I know that I should use Lisp, i fould that Lisp is installed on my machine but i dont know the syntax of doing such things...

 

Thanks in advance !!!

[lpseifert]

I don't know if this will work for but try Find/Replace...

 

From Help

 

Special Unicode Characters

(Quick Reference)

When entering text, you can create special characters, including the degree symbol, plus/minus tolerance symbol, and the diameter symbol, by entering the following Unicode character strings:

 

\U+00B0 Degrees symbol (°)

 

\U+00B1 Tolerance symbol (±)

 

\U+2205 Diameter symbol ()

 

See Unicode Font Descriptions in the Customization Guide.

 

[zypa]

Yes i know, but how do I make this into a command so I can include into an existing batch script?

I dont need a new script to do that, i can add this to a Save-as acad 2000 script and while the script will save as acad , it will change the %% also.

Many thanks for the quick response!

[zypa]

So , in autocad exists a find/replace command?

just a line of command to find a certain thing and a second command to replace the thing?

[borgunit]

Here is a VB version

 

Public Function MText_Unformat(ByVal sTxt As String) As String
'------------------------------------------------------------------------------
'Remove formatting strings
'
'Value Examples:
' \A Sets the alignment value; valid values: 0, 1, 2 (bottom, center, top)
' \Cvalue; Changes to the specified color
' \Hvalue; Changes to the specified text height
' \Hvaluex; Changes to multiple of mtext object's property
' \L...\l Turns underline on and off
' \O...\o Turns overline on and off
' \P Ends paragraph/Carriage return
' \Qangle; Changes obliquing angle
' \S...^...; Stacks the subsequent text at the \ or ^ symbol
' \Tvalue; Adjusts the space between characters
' \Wvalue; Changes width factor to produce wide text
' \~ Inserts a nonbreaking space
' \\ Inserts a backslash
' \{...\} Inserts an opening and closing brace
' \File name; Changes to the specified font file
'
'------------------------------------------------------------------------------
Dim P1 As Integer
Dim P2 As Integer
Dim P3 As Integer
Dim iStart As Integer
Dim sComp As String
Dim sReplace As String
Dim sLittle As String
'''''''''''''''''''''''''''''''''''''''
Debug.Print sTxt
'------------------------------------------------------------------------------
'Remove alignment codes
'------------------------------------------------------------------------------
Select Case Left(sTxt, 4)
Case "\A0;", "\A1;", "\A2;"
   sTxt = Mid(sTxt, P1 + 5)
End Select
iStart = 1
'------------------------------------------------------------------------------
'Replace octal code values with strings
'------------------------------------------------------------------------------
Do
   P1 = InStr(sTxt, "%%")
   If P1 = 0 Then
       Exit Do
   Else
       Select Case Mid(sTxt, P1 + 2, 1)
       Case "P"
           sTxt = Replace(sTxt, "%%P", "+or-")
       Case "D"
           sTxt = Replace(sTxt, "%%D", " deg")
       End Select
   End If
Loop

Do
   P1 = InStr(iStart, sTxt, "\", vbTextCompare)
   If P1 = 0 Then Exit Do
   sComp = Mid(sTxt, P1, 2)
   Select Case sComp
   Case "\p"
       P2 = InStr(1, sTxt, ";")
       sTxt = Mid(sTxt, P2 + 1)
   Case "\A", "\C", "\f", "\F", "\H", "\Q", "\T", "\W"
       P2 = InStr(P1 + 2, sTxt, ";", vbTextCompare)
       P3 = InStr(P1 + 2, sTxt, sComp, vbTextCompare)
       If P3 = 0 Then
           sTxt = Left(sTxt, P1 - 1) & Mid(sTxt, P2 + 1)
       End If
       Do While P3 > 0
           P2 = InStr(P3, sTxt, ";", vbTextCompare)
           sTxt = Left(sTxt, P3 - 1) & Mid(sTxt, P2 + 1)
           'Debug.Print sTxt, sComp
           P3 = InStr(1, sTxt, sComp, vbTextCompare)
       Loop
           'sTxt = Left(sTxt, P3 - 1) & mid(sTxt, P3 + 1)
   Case "\L", "\O"
       sLittle = LCase(sComp)
       P2 = InStr(P1 + 2, sTxt, sLittle, vbTextCompare)
       If P2 = 0 Then
           sTxt = Left(sTxt, P1 - 1) & Mid(sTxt, P1 + 2)
       Else
           sTxt = Left(sTxt, P1 - 1) & Mid(sTxt, P1 + 2, P2 - (P1 + 2)) & Mid(sTxt, P2 + 2)
       End If
   Case "\S"
       P2 = InStr(P1 + 2, sTxt, ";", vbTextCompare)
       P3 = InStr(P1 + 2, sTxt, "/", vbTextCompare)
       If P3 = 0 Or P3 > P2 Then
           P3 = InStr(P1 + 2, sTxt, "#", vbTextCompare)
       End If
       If P3 = 0 Or P3 > P2 Then
           P3 = InStr(P1 + 2, sTxt, "^", vbTextCompare)
       End If
       sTxt = Left(sTxt, P1 - 1) & Mid(sTxt, P1 + 2, P3 - (P1 + 2)) _
               & "/" & Mid(sTxt, P3 + 1, (P2) - (P3 + 1)) & Mid(sTxt, P2 + 1)
               
   Case "\U" 'Replace symbols with text
       sLittle = Mid(sTxt, P1 + 3, 4)
       Debug.Print sLittle
       Select Case sLittle
       Case "2248"
           sReplace = "ALMOST EQUAL"
       Case "2220"
           sReplace = "ANGLE"
       Case "2104"
           sReplace = "CENTER LINE"
       Case "0394"
           sReplace = "DELTA"
       Case "0278"
           sReplace = "ELECTRIC PHASE"
       Case "E101"
           sReplace = "FLOW LINE"
       Case "2261"
           sReplace = "IDENTITY"
       Case "E200"
           sReplace = "INITIAL LENGTH"
       Case "E102"
           sReplace = "MONUMENT LINE"
       Case "2260"
           sReplace = "NOT EQUAL"
       Case "2126"
           sReplace = "OHM"
       Case "03A9"
           sReplace = "OMEGA"
       Case "214A"
           sReplace = "PROPERTY LINE"
       Case "2082"
           sReplace = "SUBSCRIPT2"
       Case "00B2"
           sReplace = "SQUARED"
       Case "00B3"
           sReplace = "CUBED"
       End Select
       sTxt = Replace(sTxt, "\U+" & sLittle, sReplace)
   Case "\~"
       sTxt = Replace(sTxt, "\~", " ")
   Case "\\"
       iStart = P1 + 2
       sTxt = Replace(sTxt, "\\", "\")
       GoTo Selectagain
   Case "\P"
       iStart = P1 + 1
       GoTo Selectagain
   Case Else
       Exit Do
   End Select
Selectagain:
Loop
'------------------------------------------------------------------------------
'Replace \P with vbCrLf
'------------------------------------------------------------------------------
Do
   P1 = InStr(1, sTxt, "\P", vbTextCompare)
   If P1 = 0 Then
       Exit Do
   Else
       sTxt = Left(sTxt, P1 - 1) & vbCrLf & Mid(sTxt, P1 + 2)
   End If
Loop
For iStart = 0 To 1
   If iStart = 0 Then
       sComp = "}"
   Else
       sComp = "{"
   End If
   P2 = InStr(1, sTxt, sComp)
   
   Do While P2 > 0
       sTxt = Left(sTxt, P2 - 1) & Mid(sTxt, P2 + 1)
       P2 = InStr(1, sTxt, sComp)
   Loop
Next iStart

MText_Unformat = sTxt

End Function

[cpriedel]

Just type FIND in the command line.

[borgunit]

Look for reptext.lsp

 

http://www.74mph.com/lisp.asp

[BIGAL]

I like zypa would be interested if anyone knows how to pass the "Find" Command the two lines it needs to work, I have asked this before I want to use it in a script.