Thanks for your suggestions but I can't achieve solve the problem, i think the issue is not related with "Materials" o database of materials. The line of your last post already was implemented in the code to get the database with the new section.
As you can see in the library section labels after calculation:
The red-framed label-sections were attempted to be generated just after storing the XML entries, as you can see they are wrong generated and the "I" symbol is not in the items.
The blue-framed label-sections were generated after close and open Robot project, with no problem to generate it when all sections are defined in the same XML database file.
The next function is in charge to generate the sections labels:
Sub generates_section_Robot(new_secc As Variant, SDName As String)
Dim robapp As RobotApplication, lab_serv As IRobotLabelServer
Set robapp = New RobotApplication
Dim newseccion As String, i As Integer
Dim SecLab As IRobotLabel, SecData As IRobotBarSectionData
robapp.Project.Preferences.SetCurrentDatabase IRobotDatabaseType.I_DT_SECTIONS, "WSP2"
Set lab_serv = robapp.Project.Structure.Labels
Dim SDL As IRobotSectionDatabaseList, RSD As IRobotSectionDatabase
Set SDL = robapp.Project.Preferences.SectionsActive
For i = 1 To SDL.count
If SDL.GetDatabase(i).name = SDName Then
Set RSD = SDL.GetDatabase(i)
End If
Next i
Dim Sections As IRobotNamesArray
Set Sections = RSD.GetAll
'/////Stephane's suggestion
Dim Materials As RobotMaterialDatabase, MaterialDBName As String
Set Materials = robapp.Project.Preferences.Materials
MaterialDBName = "EUROCODE"
If Materials.Load(MaterialDBName) = 0 Then ' DB Material Not Found
MsgBox "The material database " & MaterialDBName & " could not be loaded, please check!", vbOKOnly + vbCritical, "Error"
Set robapp = Nothing: Exit Sub
End If
'//////
If (Sections.Find(new_secc, 1) > 0) Then
Set SecLab = lab_serv.Create(I_LT_BAR_SECTION, new_secc)
Set SecData = SecLab.data
SecData.MaterialName = "S 355"
SecData.LoadFromDBase2 new_secc, SDName
lab_serv.Store SecLab
Else
MsgBox "Section " & new_secc & " does not exist in " + SDName + " database.", vbCritical, "Warning"
'curiosly this message doesn't jump!
End If
Set lab_serv = Nothing
Set SecData = Nothing
Set SecLab = Nothing
Set robapp = Nothing
End Sub
Maybe you can find something strange.
Thank you!
With your last code, it seems the database is founded, no message:
but in the label server the sections are wrong defined:
I the Robot is closed and opened, and running again the code, then the sections are fine:
the same thing is always happening.
Many thanks for your time and suggestions.
Not sure, you need to inspect your database
I've attached mine, no need to restart
Sub CreateLabelSection()
Dim RobApp As RobotApplication: Set RobApp = New RobotApplication
DBSectionName = "ModS+"
If RobApp.Project.Preferences.SectionsActive.Add(DBSectionName) = 0 Then
Set RobApp = Nothing: Exit Sub
End If
Dim Labels As RobotLabelServer
Set Labels = RobApp.Project.Structure.Labels
Dim Label As RobotLabel, LabelData As IRobotBarSectionData
SectionName = "S+ 220x1.2"
Set Label = Labels.Create(I_LT_BAR_SECTION, SectionName)
Set LabelData = Label.Data
LabelData.LoadFromDBase2 SectionName, DBSectionName
Labels.Store Label
Set RobApp = Nothing
End SubBest Regards
Hi,
Thanks for your help and comments.
I'm not sure if you understood my need, maybe i didn't explain it well. The thing is that my XML is dynamic, that is, through code I create a new section (new entry) in the XML file and then, I want to generate the label for that section but it seems that Robot doesn't know that there is a new entry in the database.
For example, with your XML and your code:
- 1. First I have to modify your XML to do it "editable" by uncheck the CheckBox:
-2. Running your code for sectionname = "S+ 220x1.2" everything is OK, the label is well created
-3. But now I want to create by code a new XML entry (new section) and to create the corresponding label later. In this example with your XML file and to simplify the process I create the new entry manualy in the database editor.
-4. For it I copy the last element and paste in excel changing the name -> "S+ 500x5", and then paste in the XML file.
- 5. Closing the database editor, I can check in windows data that the XML file is saved, its oK.
- 6. But running your code with the new name -> sectionname = "S+ 500x5" the label is wrong defined:
-7. Even if i try to create the label manually, the new section is not showed in the combobox:
-8. And finally, closing&opening Robot and running your code again -> Everything is OK
I hope now you can understand my problem.
Thanks,
Pablo.
