Skip to Content

Register Login

Industry Online Support

Technical Forum

Navigation

CheckIn the Symbol of an object inside the project

Created by: Thorium at: 11/18/2019 3:53 PM (4 Replies)

Rating (2)

Thanks 0

5 Entries

11/18/2019 3:53 PM	Rate (0)
Thorium Experienced Member Joined: 2/14/2012 Last visit: 11/12/2024 Posts: 91 Rating: (21)	Hi all We have the situation that certain devices have already been placed on a report before their symbol passed through valiation because of project deadlines. In case that the symbol gets changed on the CObject later, we do not want the original symbol to be changed for the already placed objects in the project. I know that the inheritence is cut off, when you change the symbol of on object manually. That's kind of what we would need. Question is if you can do this by script. The process would be like this: 1. check in the symbol for the objetcs that are already placed in a project and cut off the inheritence of the symbol to the CObject 2. edit the symbol in the base object 3. new objects created in the project will have the new symbol, the others will remain unchanged until the user resets the symbol thanks Th.

Suggestion To thank Quote Answer

12/2/2019 5:41 PM	Rate (0)
ShamiGupta Bronze Member Joined: 5/2/2018 Last visit: 7/15/2024 Posts: 128 Rating: (22)	@Moderator, please help me delete this (intermediate) post.
	Last edited by: ShamiGupta at: 08/07/2023 14:36:02
Suggestion To thank Quote Answer

12/6/2019 9:23 AM	Rate (0)
Thorium Experienced Member Joined: 2/14/2012 Last visit: 11/12/2024 Posts: 91 Rating: (21)	Hello Shami Thanks for your reply. That's about the same idea we came up with. We introduced a new attribute as a version index with a standard table behind it and set this attribute as a graphical relevant attribute. At first the symbol is valid for all values, so you don't have to do anything on the symbolscripts yet. The current value (=1) is checked in at the object OnReferencebyDevice. So this freezes the symbol for the object at the moment it's created in the project. When there is a new symbol version (=2), the new symbol is checked in at the base object for the graphical attribute value = 2. in the project, the attribute is marked orange and the user can switch the index manually (+1). The symbol than changes. If you don't like the change, you simply put the index back again (-1). All new objects based on that base object are automatically on the new version. There are some constraints thow. When you are already using graphical relevant attributes or your are planning to do so, it makes a big difference at which owner level of the CDevices you introduce this graphical relevant attribute. Because the button is greyed out for all elements below the one you first introduced such an attribute. So you might be limiting yourself in other functionalities. cheers Th.

Suggestion To thank Quote Answer

1/14/2020 11:31 AM	Rate (1)
ShamiGupta Bronze Member Joined: 5/2/2018 Last visit: 7/15/2024 Posts: 128 Rating: (22)	@Moderator, please help me delete this (intermediate) post.
	Last edited by: ShamiGupta at: 08/07/2023 14:36:50
Suggestion To thank Quote Answer

1/14/2020 3:20 PM	Rate (1)
Velek Jir Silver Expert Joined: 1/2/2017 Last visit: 7/29/2024 Posts: 209 Rating: (117)	Hello, Interactive documents are outside me work scope almost two years, but I still remember something It is easy. Convert ReportObject to ISymbolScript and just set that symbol is local. Set obj_SymbolScript = dll_GC.GC_GetISymbolScript(obj_ItemDocObj) If Not obj_SymbolScript Is Nothing Then obj_SymbolScript.IsSymbolScriptLocal = True End If Here is whole script which starts with CDevice. It searches all Devices of CDevice -> Their usages on documents -> searches reportObjects for devices -> Set local script Set obj_CDev = a Set dll_GC = CreateObject("ComosROUtilities.GlobalCastings") '### All Devices Set col_BPDevs = obj_CDev.BackPointerDevices int_BPDevsCount = col_BPDevs.Count For int_iBPDev = 1 To int_BPDevsCount Set obj_ItemBPDev = col_BPDevs.Item(int_iBPDev) 'Output obj_ItemBPDev.SystemFullName & " " & obj_ItemBPDev.Description '### All document usages of device Set col_BPDocObjs = obj_ItemBPDev.BackPointerDocObjs int_BPDocObjsCount = col_BPDocObjs.Count For int_iBPDocObj = 1 To int_BPDocObjsCount Set obj_ItemBPDocObj = col_BPDocObjs.Item(int_iBPDocObj) Set obj_Doc = obj_ItemBPDocObj.Owner 'If obj_Doc.SymbolType = "---" Then 'Output obj_Doc.SystemFullName & " " & obj_Doc.Description '### Find document object for device obj_Doc.Report.Open Set obj_DocRep = obj_Doc.Report.ReportDocument int_DocObjsCount = obj_DocRep.ItemCount For int_iDocObj = 0 To int_DocObjsCount - 1 Set obj_ItemDocObj = obj_DocRep.Item(int_iDocObj) Set obj_ComosDev = dll_GC.GC_GetComosDevice(obj_ItemDocObj) If Not obj_ComosDev Is Nothing Then If obj_ComosDev Is obj_ItemBPDev Then '### Set local symbol flag Set obj_SymbolScript = dll_GC.GC_GetISymbolScript(obj_ItemDocObj) If Not obj_SymbolScript Is Nothing Then obj_SymbolScript.IsSymbolScriptLocal = True End If Exit For End If End If Next obj_Doc.Report.Save obj_Doc.Report.Close ' End If Next Next Thanks for rating Jiri

Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on