Topic: Change Multiple dwgs with a scripts or something

[MSTG007]

How could i chage a text style and dim style in multiple dwgs (1,000) dwgs , without opening eachone of the them?

Thanks!

[David Hall]

with a script.  Although the script would be opening each one and saving it

[Yoland]

Hi,

Look for in autodesk.com the program Scriptpro.

Bye
Yolanda

[M-dub]

It would be something like:

OPEN C:\DIRECTORY\FILENAME1.DWG -STYLE;ROMANS;ROMANS.SHX;;;;;;;qsave;close
OPEN C:\DIRECTORY\FILENAME2.DWG -STYLE;ROMANS;ROMANS.SHX;;;;;;;qsave;close
...And so on...

First, you need to go into one of your drawings and make sure you can do everything you need to do from the command prompt.

[MSTG007]

Lets say I do not have a text style created and I want to change textstyle1 to be textstyle2.

I want to change my arrowheads on dimstyle to be from what it is a closed arrowhead to another arrow head.

Thats it.

and I have several drawings.

So setup a script and just drag each one to it or can i batch do a directory / folder?

thxs

[M-dub]

Lets say I do not have a text style created and I want to change textstyle1 to be textstyle2.

I'm pretty sure all you would need is something like this:

OPEN C:\DIRECTORY\FILENAME1.DWG -STYLE;ROMANS;ROMANS.SHX;;;;;;;qsave;close
OPEN C:\DIRECTORY\FILENAME2.DWG -STYLE;ROMANS;ROMANS.SHX;;;;;;;qsave;close

I want to change my arrowheads on dimstyle to be from what it is a closed arrowhead to another arrow head.

I'm trying to figure that one out right now... ( DIMBLK? )

and I have several drawings.

So setup a script and just drag each one to it or can i batch do a directory / folder?

You create one script file with every drawing's path in it, then start AutoCAD, type SCRIPT and select the .scr file you created.  Then all you have to do is sit and watch AutoCAD work away.  It's actually kind of fun for a while.

[M-dub]

If you're new to scripts though, I would suggest starting with a few test drawings (copies) before you start overwriting hundreds of them.

[Bob Wahr]

creating the style is easy, changing the text from one style to another is harder to do commandline.  Is it possible just to change textstyle1 to the properties that you want?  If not, the best way would be to use a lisp statement to select all of the text that is style textstyle1, then you can use the CHANGE command to change the style.

For the arrowheads, I would cover all of your bases for different ways that the dimensions could be set up and set DIMBLK, DIMBLK1, and DIMBLK2 to your arrow block, then do a DIM UPDATE ALL

[David Hall]

i would do it through VBA cuz its easier.  I have example code to shange all text to Romans and change dims

[David Hall]

Code: [Select]

Public Sub ChangeTextToRomans()
  Dim objSelected As Object
  Dim objTxt As AcadText
  Dim objstyle As AcadTextStyle
  Dim objLayer As AcadLayer
  Dim objSelSet As AcadSelectionSet
  Dim intAnswer As Integer
  On Error GoTo ErrControl

Set objstyle = ThisDrawing.TextStyles.Add("ROMANS")
objstyle.fontFile = "romans.shx"
objstyle.Width = 1#
Set objstyle = ThisDrawing.TextStyles.Add("TEP-TITLE")
objstyle.fontFile = "C:\WINNT\Fonts\ARIAL.TTF"
objstyle.Width = 0.85

  Set objSelSet = ThisDrawing.SelectionSets.Add("Text")
  objSelSet.Select acSelectionSetAll
    For Each objSelected In objSelSet
        If TypeOf objSelected Is AcadText Then
        Set objTxt = objSelected
            If UCase(objTxt.StyleName) <> "ROMANS" Then
            objTxt.StyleName = "ROMANS"
            objTxt.ScaleFactor = 1#
            Else
            objTxt.ScaleFactor = 1#
            End If
        End If
    Next
  ThisDrawing.SelectionSets.Item("Text").Delete
  ThisDrawing.Application.Update
Exit_Here:
  Exit Sub
ErrControl:
  MsgBox Err.Description
End Sub

[David Hall]

Do the same for your dims

[Bob]

Great code CmdrDuh.

I am also a bit new to scripts. Can you invoke a VBA routine through script?

[Bob Wahr]

Absolutely.  Just paste the code into the VBAIDE save it as a dvb, then use VBARUN in your script to run it.  Although I would still set the dimblk* variable and do a dim update for them.

[Bob]

Thanks Bob,

I'll try it at work.

[MSTG007]

OK...I am dumb... can not figure this out... I am trying to make this alot easier on me...

trying to create a script which will do the following:

-change text style l75 from simplex to arial

-replace words of CONCRETE TO CONC.

-replace words of PAVEMENT to PVMT.

- Paste Block or insert block

- Plot to a certain printer with pen settings.


----------------

thats it...

any ideas?

thanks!