Attribute update use with excel file
Concerning the loop for open, do what you need, save and close several drawings, you can try to store the drawings list into a txt file, use the contents as filename to open and save with new or same drawing name, here below a procedure more or less easy, based upon old "DOS" command for creating the list of dwg file name to be open (if this is not still available):
- Open a MS Windows command windows typing "CMD" con windows command bar,
- Change path where your drawing are stored, typing "CD XXXX" (where XXX it's the directory name where your dwg are stored).
- Then type dir *.DWG >FILENAME.TXT (see dwg.txt in the below code) if everything is correct you will have a text file with the list of dwg to be modify.
- The text file shall be purged by other unwanted information like the file length, the last saved data, and so on (see image below). You can use a text editor for doing this purging operations, like notepad by MSWindows or something of more advanced that allows you to select a block in vertical mode instead only in horizontal (see for example TextPad software https://www.textpad.com/home should be free of charge).
- On the opposite there are some software able to produce a list of file already "clean", see Directory List & Print (Pro) https://www.infonautics-software.ch/directorylistprint/ so you can export the list directly as text file, excel and so on (should be free of charge).
- Please note that txt file, containing the list of drawing, shall not be delimited type, but each row shall contain the file name, including extension .dwg
and loop by the following code:
Sub MyFileOpenLoop()
Dim MyPath As String
Dim MyFileName As String
MyPaht = "C:\Users\IO\Documents\" 'your path could change, insert here yuor path including last backslash char.
Open MyPath & "dwg.txt" For Input As #1 'dwg.txt it's the list of file name to open as drawing.
Do While Not (EOF(1))
Input #1, MyFileName
Debug.Print MyFileName
Application.Documents.Open MyPath & MyFileName 'Open drawing
'Do Something here with the file opened
ThisDrawing.SaveAs MyPath & "NewFileName.DWG" 'save drawing with another name
ThisDrawing.Close 'close the drawing
Loop 'loop on the next file drawing
Close #1
End Subof course there should be added some controls like to check if file is open or some others detail.
Bye
Hi @Anonymous
here attached the code and Excel file.
I'll Explain how to run the procedure:
- Open the Excel file (attached MyAttributes.xlsx)
- Fill Inside the Excel file the field related to block attribute to modify, please note that the field PF_CHANGE_REV_2 to 8 it has been converted in text cell, due to attribute value require a format like "01", "02" etc. As the previous message, all cells not empty will be considered as attribute to be modified into drawing if cell left blank the attribute value will be not modified.
- Attributes that will be modified are actually only related to your indications "HERE NEED TO UPDATE THE ATTRIBUTE" in a next future you can modify the procedure and adding other values already available on Excel.
- Please check the drawing name placed in the last Excel file column, these shall be exactly the same of that stored in the computer, without dwg extension. Fill with all drawing filename to be modified.
- Keep the excel file opened, will be used by Autocad.
- Open new empty drawing in Autocad.
- Save attached project (dvb file extension) in your folder, load the procedure in Autocad as project (MANAGE ->LOAD APPLICATION ->Browse your path.
- Press Visual Basic Editor on Autocad, double click on Module1 and check the row code with MyPath = "C:\Users\IO\Documents\VBA Test file\" 'your path could change, Modify there your path including last backslash char as per your own path where drawing are stored. It's important for open drawings, if not you got an error.
- Inside Visual Basic Editor click on Tools ->Reference and click on Microsoft Excel and Microsoft Office refence library (see picture below, if you have office or excel different release from .16 you will find a different number after the dot, select it in any case). If not selected the procedure could not run well.
- Run the procedure with
- Procedure should open the first indicated file drawing listed in Excel, change the Attributes as required, save the file with own file drawing name adding _UPD and dwg extension.
- File will be closed after modification, and opened the second one in the list.
- Do not close the first blank drawing, you can close at the end, and do not run the procedure with already opened drawing to be modify.
Concerning the random number I left as is, I don't know how do you want to manage it.
Let Me know.