Skip to Content

Register Login

Default Header

(header konnte nicht geladen werden)

Navigation

X/Y Coordinates of inconsistent report items

Created by: Thomas 30 at: 5/26/2021 11:57 AM (2 Replies)

Rating (1)

Thanks 1

3 Entries

5/26/2021 11:57 AM	Rate (0)
Thomas 30 Member Joined: 3/4/2019 Last visit: 1/7/2025 Posts: 9 Rating: (2)	Hello, I have the following problem. Here is a short example script to make the whole thing a little easier to understand. I would like to go through a report document on which all placed objects have been deleted. In other words, only inconsistent objects are now placed on the document from which I can get a bit of information such as the angle of the previously placed object. But now I would like to know the X / Y coordinates starting from the zero point of the previously placed object on this report document. In case of consistent objects, the way via the DocObj would be the easiest I know. Since I unfortunately cannot go the way with inconsistent objects, I hope that someone has got a way to go for me. Thanks! Best regards! Thomas '---------------------------------------------------------------------- Set objDoc = Nothing Set objDoc = a 'Document with inconsistent objects vInkonsLines = 0 'Counter for inconsistent lines vInkonsObjects = 0 'Counter for inconsistent objects If objDoc.SystemType <> 29 Then msgbox "No document found" Set GC = CreateObject("ComosRoUtilities.GlobalCastings") objDoc.Report.Open False Set ReportDoc = objDoc.Report.ReportDocument If Not ReportDoc Is Nothing Then For k = ReportDoc.ItemCount To 0 step -1 Set RepItem = ReportDoc.Item(k) Set roErr = GC.GC_GetIROError(RepItem) If Not roErr Is Nothing Then If roErr.ErrorNumber > 0 Then 'Lines If Not GC.GC_GetWspRoConnection(RepItem) Is Nothing Then vInkonsLines = vInkonsLines + 1 'Objects Else vInkonsObjects = vInkonsObjects + 1 'Rotation Set GCGeometry = GC.GC_GetIGeometry(RepItem) If Not GCGeometry Is Nothing Then Output GCGeometry.angle End If 'X/Y Coordinates on placed reportdocument??? '------- End If End If End If Next End If objDoc.Report.Save objDoc.Report.Close vResult = "Objects " & vInkonsObjects & " // Connections " & vInkonsLines Output vResult '----------------------------------------------------------------------

Suggestion To thank Quote Answer

5/26/2021 1:24 PM	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:40:52
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users Thomas 30

6/1/2021 9:03 AM	Rate (0)
Thomas 30 Member Joined: 3/4/2019 Last visit: 1/7/2025 Posts: 9 Rating: (2)	Thank you very much this is exactly what I was looking for

Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on