Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
cencinaNB2ET
in reply to: cencinaNB2ET

Ok I have  Workaround in my case.

I knew that the curves I was tackling were all proxies and also I knew the object from which they came from.

So I just found them through Drawing curves...

 

 

 

 

Dim oCurve As DrawingCurve
Dim oColor As Color 
For Each oCurve In oView.DrawingCurves
If oCurve.ModelGeometry.Type = 83898992 Or oCurve.ModelGeometry.Type = 83896176 Then
'MessageBox.Show(oCurve.ModelGeometry.ContainingOccurrence.Definition.Document.DisplayName)
String_1 = oCurve.ModelGeometry.ContainingOccurrence.Definition.Document.DisplayName
If InStr(String_1,"SIA") > 0 Then
oColor = ThisApplication.TransientObjects.CreateColor(0, 255, 0)
oCurve.Color = oColor
oCurve.LineType = LineTypeEnum.kContinuousLineType
oCurve.LineWeight = 2
ElseIf InStr(String_1,"GIA") > 0 Then
oColor = ThisApplication.TransientObjects.CreateColor(255, 0, 0)
oCurve.Color = oColor
oCurve.LineType = LineTypeEnum.kContinuousLineType
oCurve.LineWeight = 2
End If
End If
Next