[SE] variable 이름 변경하기

Sub SEVarRename(sName$, sWith$)
Dim objVar As Object 'SolidEdgeFramework.variable '알수 없는 형식이 있음.
Dim objVars As SolidEdgeFramework.Variables
Dim objVarl As SolidEdgeFramework.VariableList
Dim i As Long
On Error GoTo err_handler
Set objVars = objDoc.Variables S
et objVarl = objVars.Query(sName)
If objVarl.Count = 1 Then
Set objVar = objVarl.Item(1)
Call objDoc.Variables.PutName(objVar, sWith)
End If
err_handler:
If Err.Number Then MsgBox Err.Description, vbInformation, "RENAME"
End Sub