HD83567: [NEW] BAD PERFORMANCE WITH CATVBA MACRO ON 64BITS

APAR status

• Closed as Permanent restriction.

Error description

• Bad performance with CATVBA macro on
  64bits
  .
  Scenario:
  .
  1- Copy .dat file in C:\Temp (or change the path in
  the CATVba)
  2- Run the attached CATVBA macro
  .
  Time result:
  R19SP3 32bits = 12s
  R19SP3 64bits = 3mn20s
  there is a big difference ! 64bits is slower.
  .
  

Local fix

Problem summary

•  New  bad performance with CATVBA macro on 64bits
  Bad performance with CATVBA macro on
  64bits
  .
  Scenario:
  .
  1- Copy .dat file in C:\Temp (or change the path in
  the CATVba)
  2- Run the attached CATVBA macro
  .
  Time result:
  R19SP3 32bits = 12s
  R19SP3 64bits = 3mn20s
  there is a big difference ! 64bits is slower.
  .
  

Problem conclusion

• THIS PROBLEM IS PERMANENT RESTRICTION IN
  CATIA
  .
  .Incident Diagnosis
  bad performance with CATVBA macro on
  64bits
  .
  .Restriction Explanation
  The problem of bad performance for some pattern
  of code (loop with huge number iterations) is well-
  known. The detailed explanations are in the
  attached document (VBA integration on Windows
  64bit.pdf).
  .
  .By-Pass
  VBA code :
  Sub CATMain()
  MsgBox Time
  Dim catSysServ
  Set catSysServ = CATIA.SystemService
  Dim params()
  Call catSysServ.ExecuteScript("E:\tmp",
  catScriptLibraryTypeDirectory, "Macro1.catvbs", "Hi
  ddenLoop", params)
  MsgBox "fichier parcouru " & Time
  End Sub
  //macro E:\tmp\Macro1.catvbs
  Sub HiddenLoop()
  Dim m_chaine
  Dim m_Cligne
  Dim iPathLu
  iPathLu = "E:\tmp\nastran_modal_solution_2.dat"
  Dim oTestModif
  Dim FileLu
  Dim Lu
  Dim lustream
  oTestModif = False
  Set FileLu = CATIA.FileSystem
  Set Lu = FileLu.GetFile(iPathLu)
  Set lustream = Lu.OpenAsTextStream
  ("ForReading")
  Do Until lustream.AtEndOfStream
  m_chaine = lustream.ReadLine
  m_Cligne = m_Cligne + 1
  Loop
  lustream.Close
  MsgBox "fichier parcouru, NbLigne= " & m_Cligne
  End Sub
  .
  

Temporary fix

Comments

APAR Information

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

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

Fix information

Applicable component levels