Property Intelligence-Makro

Macro
1

Hallo

In meinem Unternehmen nennen wir unsere Stücke: Nomdeprojet_Numérodepièce_Révision.

Ich möchte ein Solidworks-Makro erstellen, mit dem ich die Eigenschaften "ProjectName" (die ersten 7 Zeichen oder etwas vor dem ersten "_") und "PartNumber" (Zeichen zwischen den beiden "_") eines Teils in der benutzerdefinierten Eigenschaft ausfüllen kann.

Könnten Sie mir mit dem Code helfen, weil ich ein echter Anfänger bin, wenn es um Makros geht, oder wenn es eine einfachere Methode gibt?

 

Vielen Dank

 

Quentin

2

Hallo

Es ist nicht in Solidworks und nicht genau das, wonach Sie suchen, aber es kann Ihnen mit dem Makro helfen.

In meinem Fall lautet der Dateiname wie folgt: désignationdelapièce__référence

Die Referenz hat immer 8 Zeichen.

 

/*Suche nach dem Trennzeichen
separator=Suche(rel_model_name(),"__")
/* Testen Sie, ob der Separator vorhanden ist
if Trennzeichen >0
/*Extrahieren der Bezeichnung
Bezeichnung=Extrakt(rel_model_name(),1,(Trennzeichen-1))
/*Abrufen der Referenz
Referenz=Extrakt(rel_model_name(),(Trennzeichen+2),8)
oder
Bezeichnung=rel_model_name()
reference="...-.... "
endif

 

S.B

3

Vielen Dank

Das ist mir dank eines offenen Forenthemas gelungen, falls das hilft:

 

 

Dim swApp als SldWorks.SldWorks

Dim swModel As ModelDoc2

 
Sub main()

 
    Legen Sie swApp = Application.SldWorks fest

    Festlegen von swModel = swApp.ActiveDoc

 
    'PartNo-Eigenschaft prüfen und hinzufügen/aktualisieren
   
    Wenn swModel.CustomInfo("_ToolingNo") = "" dann

      swModel.AddCustomInfo2 "_ToolingNo", swCustomInfoText, Links(swModel.GetTitle, 7)

    Oder

        swModel.CustomInfo("_ToolingNo") = Links(swModel.GetTitle, 7)

    Ende, wenn

 
    'Revisionseigenschaft prüfen und hinzufügen/aktualisieren
  
    Wenn swModel.CustomInfo("_Position") = "" dann

      swModel.AddCustomInfo2 "_Position", swCustomInfoText, Mitte(swModel.GetTitle, 9, 5)

    Oder

        swModel.CustomInfo("_Position") = Mitte(swModel.GetTitle, 9, 5)

    Ende, wenn

 
    'Überprüfen und Hinzufügen/Aktualisieren der Beschreibungseigenschaft

    Wenn swModel.CustomInfo("Revision") = "" dann

      swModel.AddCustomInfo2 "Revision", swCustomInfoText, Mid(swModel.GetTitle, 15, 2)

    Oder

        swModel.CustomInfo("Revision") = Mitte(swModel.GetTitle, 15, 2)

    Ende, wenn

 
Ende Sub