HD81258: RUN-TIME ERROR '-2147467259 (80004005)' WITH CATVBA MACRO

APAR status

• Closed as unreproducible in next release.

Error description

• Run-time error '-2147467259 (80004005)' with
  catvba macro
  .
  Scenario:
  1. Launch CATIA V5R18SP05
  2. Open Part1.CATPart
  3. Tools / Macro / Macros
  ===> Macros dialog box appears
  4. Click Macro libraries
  ===> Macro libraries dialog box appears
  5. Click Add existing library
  6. Select attached VBA.catvba
  Click Close Macro libraries dialog box
  7. Click Run in Macros dialog box.
  Then, Run-time error occurs.
  Microsoft Visual Basic
  Run-time error '-2147467259 (80004005)':
  The script was previously executed. It valued a
  Public variable with a
  Selection object. The Public variable is currently
  being used although
  it has not been set since the beginning of the script
  execution.
  Additional information:
  There is no problem on R517SP03.
  .
  

Local fix

Problem summary

• Run-time error '-2147467259 (80004005)' with catvba macro
  Run-time error '-2147467259 (80004005)' with
  catvba macro
  .
  Scenario:
  1. Launch CATIA V5R18SP05
  2. Open Part1.CATPart
  3. Tools / Macro / Macros
  ===> Macros dialog box appears
  4. Click Macro libraries
  ===> Macro libraries dialog box appears
  5. Click Add existing library
  6. Select attached VBA.catvba
  Click Close Macro libraries dialog box
  7. Click Run in Macros dialog box.
  Then, Run-time error occurs.
  Microsoft Visual Basic
  Run-time error '-2147467259 (80004005)':
  The script was previously executed. It valued a
  Public variable with a
  Selection object. The Public variable is currently
  being used although
  it has not been set since the beginning of the script
  execution.
  Additional information:
  There is no problem on R517SP03.
  .
  

Problem conclusion

Temporary fix

Comments

• THE PROBLEM WAS SUBMITTED ON CATIA
  VERSION 5 RELEASE 18.
  THIS PROBLEM IS NOT REPRODUCIBLE ON CATIA
  VERSION 5 RELEASE 19 SP03 LEVEL.
  AND ON V5R18SP08 AND ON V5R18SP07
  .
  .Incident Diagnosis
  Note: you can replay the scenario on English XP by
  changing the following line:
  Set length1 =
  Part1.Parameters.Item("Part1\*japanese
  characters*")
  into:
  Set length1 =
  Part1.Parameters.Item("Part1\Geometrical
  Set.1\Point.1\X")
  .
  Reason
  Already corrected for R18SP7 and above.
  .
  Possible bypass: add the following line:
  Part1.Update
  ---> Set sel1 = CATIA.ActiveDocument.Selection
  sel1.Add hybridShapeLinePtDir1
  .
  

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

Fix information

• Fixed component name

  CATIA V5 NT>XP

• Fixed component ID

  569151000

Applicable component levels

• R518 PSN SP51808

     UP09/02/24 I 1000