---

Hallo Leute,

ich mal wieder. Habe hier das Makro gefunden (s.u.) und etwas modifiziert, damit mir das Ergebnis gleich in MB angezeigt wird.

Jetzt meine Frage: Wie bekomme ich es hin, daß er in die Klammer gleich den aktuellen Modellnamen einträgt ohne ihn erst mühsam aus dem Scratch zu suchen.

Kann mir jemand helfen?  

Gruß

ausie-r-n

Language = "VBSCRIPT"

Sub CATMain()

Dim s As Long
Dim f As file

'------------------------------------------------------------
'In ("B:\work\???.CATPart") ??? den Model Namen eintragen
'------------------------------------------------------------

Set f = CATIA.FileSystem.GetFile("B:\work\???.CATPart")

s = f.size

MsgBox "size: " & s/1000000 &  "  MByte"

End Sub

[Diese Nachricht wurde von ausie-r-n am 11. Feb. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

erstens darfst du nicht durch "1000000" teilen sondern durch "1048576" den 1KByte = 1024Byte und zweitens würde ich das auch noch runden sonst bekommst einen riesigen Nachkommawust 

Hier mal das Script:

Code:

---

Sub CATMain()

    Dim intDoc As Document
    Dim intFilePathStr As String
    Dim FileSizeLng As Long
    Dim intFileObj As File
   
    Set intDoc = CATIA.ActiveDocument
    intFilePathStr = intDoc.FullName

    Set intFileObj = CATIA.FileSystem.GetFile(intFilePathStr)
    FileSizeLng = intFileObj.Size
   
    MsgBox "Filesize: " & CStr(Round(FileSizeLng / 1048576, 2)) & "  MByte"
   

End Sub

---

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
erstens ist auf MB hochgerechnet *1048576 und nicht *100000 zu rechnen.
Dann ist mir noch nicht klar, nach welchen Kriterien deiner Meinung nach der Partname erkannt werden soll.

------------------
MFG
Rick Schulz
      Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Daniel,

vielen Dank. Genau das wollte ich haben. 

Gruß

ausie-r-n

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP