Need to change the ATTRIBUTE TEXT WIDTH FACTOR ON MANY DWGs!!!
' This is written in AutoCAD 2005
' Add a Reference to Autocad/objectDBX common 16.0 Type Library
' it will get your file list and change whatever values you need in
' the drawing and then save the drawing.
' All without opening each individual file in the interface.
Function GetFileList()
Dim Folder As String
Dim fs, f, f1, fc
Dim MyColl As New Collection
Folder = "c:\cadd\"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Folder)
Set fc = f.Files
For Each f1 In fc
If UCase(Right(f1.name, 4)) = UCase(".dwg") Then
MyColl.Add f1.path
End If
Next
If MyColl.Count > 0 Then
For Each item In MyColl
GetDBX (item)
Next
End If
End Function
Public Function GetDBX(FName)
Dim oSpace As AcadBlock
Dim aNumber As Double
Dim BlockName As String
Dim OBJ, item
dim att, atts
aNumber = 8#
Set odbx = GetInterfaceObject("ObjectDBX.AxDbDocument.16")
If Err Then
MsgBox "Error with ObjectDBX object"
Set odbx = Nothing
Else
odbx.Open FName
Set oSpace = odbx.ModelSpace ' Or Paperspace
End If
For Each item In oSpace
If TypeOf item Is AcadBlockReference Then ' get Attributes
If Not TypeOf item Is AcadExternalReference Then
if item.name = BlockName then
atts = item.GetAttributes
For Each att In atts
att.width = 0.55
Next
end if
End If
End If
If TypeOf item Is AcadText Then ' get text
item.width = 0.55
End If
Next
odbx.SaveAs FName
End Function
' Add a Reference to Autocad/objectDBX common 16.0 Type Library
' it will get your file list and change whatever values you need in
' the drawing and then save the drawing.
' All without opening each individual file in the interface.
Function GetFileList()
Dim Folder As String
Dim fs, f, f1, fc
Dim MyColl As New Collection
Folder = "c:\cadd\"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Folder)
Set fc = f.Files
For Each f1 In fc
If UCase(Right(f1.name, 4)) = UCase(".dwg") Then
MyColl.Add f1.path
End If
Next
If MyColl.Count > 0 Then
For Each item In MyColl
GetDBX (item)
Next
End If
End Function
Public Function GetDBX(FName)
Dim oSpace As AcadBlock
Dim aNumber As Double
Dim BlockName As String
Dim OBJ, item
dim att, atts
aNumber = 8#
Set odbx = GetInterfaceObject("ObjectDBX.AxDbDocument.16")
If Err Then
MsgBox "Error with ObjectDBX object"
Set odbx = Nothing
Else
odbx.Open FName
Set oSpace = odbx.ModelSpace ' Or Paperspace
End If
For Each item In oSpace
If TypeOf item Is AcadBlockReference Then ' get Attributes
If Not TypeOf item Is AcadExternalReference Then
if item.name = BlockName then
atts = item.GetAttributes
For Each att In atts
att.width = 0.55
Next
end if
End If
End If
If TypeOf item Is AcadText Then ' get text
item.width = 0.55
End If
Next
odbx.SaveAs FName
End Function
---------------------------
(defun botsbuildbots() (botsbuildbots))
(defun botsbuildbots() (botsbuildbots))
odbx is the same as thisdrawing
By changing the reference you can use any existing code.
By changing the reference you can use any existing code.
---------------------------
(defun botsbuildbots() (botsbuildbots))
(defun botsbuildbots() (botsbuildbots))
as Fatty mentioned.
If you want to do a "script" then lisp is better.
The main reason is commands will not synchronize with VBA.
What will happen is you will run a sendcommand and then VBA
will issue the next command without waiting for Autocad to finish
with the last command.
The result is AutoCAD will not run VBA and Lisp at the same time
and will just "hang". it won't crash but it won't run either.
The code I posted can process each drawing in several seconds. It is a magnitude faster then actually opening up a drawing or running any script file. I've used this to process 3000 drawings at a time with no errors. Processing that many files in the interface will simply crash AutoCAD.
If you want to do a "script" then lisp is better.
The main reason is commands will not synchronize with VBA.
What will happen is you will run a sendcommand and then VBA
will issue the next command without waiting for Autocad to finish
with the last command.
The result is AutoCAD will not run VBA and Lisp at the same time
and will just "hang". it won't crash but it won't run either.
The code I posted can process each drawing in several seconds. It is a magnitude faster then actually opening up a drawing or running any script file. I've used this to process 3000 drawings at a time with no errors. Processing that many files in the interface will simply crash AutoCAD.
---------------------------
(defun botsbuildbots() (botsbuildbots))
(defun botsbuildbots() (botsbuildbots))