Hey All,
I'm trying to write a macro that will replace a custom linestyle named "17-0.6-0.6" with the "Dotted" linestyle. I keep getting errors at "G = Activedoc.Styles[i].name". Does anyone know a solution? Here's what i have so far. I'm using IsoDraw 7.1.
Define S_QTY as integer
Define i as integer
Define G as string
S_QTY = Activedoc.styleCount
For i = 16 to S_QTY
G = Activedoc.Styles[i].name
If (G = "17-0.6-0.6")
If (exists (activeDoc.Styles["Dotted"]) = false) Then
Activedoc.Styles[i].name = "Dotted"
Else
Delete Styles G "Dotted"
i = (i - 1)
End If
S_QTY = Activedoc.styleCount
End for
End Macro
Thanks in advance.
