03-28-2020
01:27 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
03-28-2020
01:27 AM
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