| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: SelectEvents und Path/Profile markieren (936 mal gelesen)
|
C-Hoppen Mitglied CAD-Trainer
Beiträge: 51 Registriert: 23.10.2006
|
erstellt am: 24. Jul. 2009 08:36 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, ich habe eine Skizze, in der Elemente eine Kette bilden. Ich möchte nun ein Verhalten, wie beim auswählen eines Profils (z.B. Extrusion / als Fläche) oder eines Pfads (z.B. Sweeping): Wenn ich mit der Maus EIN Element der Skizze anfahre, sollen alle Elemente der Kette rot markiert aufleuchten.
Code: Private Sub oSelectEvents_OnPreSelect(ByRef PreSelectEntity As Object, _ .....ByRef MorePreSelectEntities As ObjectCollection, _ .....)Handles oSelectEvents.OnPreSelect
Aus dem "PreSelectEntity" bastele ich mir jetzt ein "Profil":
Code: oSketchProfile = oNativeSketch.Profiles.AddForSurface(PreSelectEntity) ... oProfilePath = oSketchProfile.Item(1)
Dann greife ich mir den "ProfilPath" und dessen Enities, und füge sie als "MorePreSelectEntities" hinzu:
Code: Dim EntitiesToAdd As ObjectCollection EntitiesToAdd = ThisApplication.TransientObjects.CreateObjectCollection For Each oProfileEntity As ProfileEntity In oProfilePath EntitiesToAdd.Add(oProfileEntity) Next MorePreSelectEntities = EntitiesToAdd
oSketchProfile, oProfilePath und oProfileEntity sind korrekt (Items, Count, Type stimmt alles). Ich habe schon alles mögliche ausprobiert, aber es will nicht. HighlightSet wollte auch nicht so, wie ich ;-)Ist der Ansatz falsch? Hat wer einen Tipp? Danke, Christoph Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|