| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Selectset beibehalten (739 mal gelesen)
|
hudln Mitglied Konstrukteur
Beiträge: 130 Registriert: 05.10.2007 Inventor 2008 SP2<P>Fujitsu Siemens Workstation Intel Core 2 6300 (1.86 Ghz) Nvidia Quadro FX 1500 4gb DDR Ram Win XP Pro
|
erstellt am: 21. Feb. 2008 12:53 <-- editieren / zitieren --> Unities abgeben:
hi! Also versuche gerade mir ein kleines vba zum verschieben mehrer fixer arbeitspunkte zu erstellen. mit einem punkt funktioniert es ja ganz schön, würde es jetzt gerne somachen das er alle punkte die ich makiert habe verschiebt. jedoch verliert er beim verschieben des arbeitspunktes die auswahl daher keine selectset mehr hier der Code: Code:
Sub Punkt_Verschieben() Dim oPartDoc As PartDocument Set oPartDoc = ThisApplication.ActiveDocumentDim oCompDef As PartComponentDefinition Set oCompDef = oPartDoc.ComponentDefinition If oPartDoc.SelectSet.Count = 0 Then MsgBox "Nix ausgewählt" Exit Sub End If Dim i As Integer For i = 1 To oPartDoc.SelectSet.Count MsgBox i Dim oWorkpoint As WorkPoint Set oWorkpoint = oPartDoc.SelectSet(i) Dim paramx(1) As Double Dim paramy(1) As Double Dim paramz(1) As Double paramx(1) = oWorkpoint.Point.X + 0.3 paramy(1) = oWorkpoint.Point.Y + 0.5 paramz(1) = oWorkpoint.Point.Z Dim oPoint As Point Set oPoint = ThisApplication.TransientGeometry.CreatePoint(paramx(1), paramy(1), paramz(1))
oWorkpoint.SetFixed oPoint Next End Sub
------------------ MfG Rudi Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
daywa1k3r Moderator Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 21. Feb. 2008 13:16 <-- editieren / zitieren --> Unities abgeben: Nur für hudln
|
hudln Mitglied Konstrukteur
Beiträge: 130 Registriert: 05.10.2007 Inventor 2008 SP2<P>Fujitsu Siemens Workstation Intel Core 2 6300 (1.86 Ghz) Nvidia Quadro FX 1500 4gb DDR Ram Win XP Pro
|
erstellt am: 21. Feb. 2008 14:07 <-- editieren / zitieren --> Unities abgeben:
Hallo Igor! Danke für deinen Tipp, sowas habe ich gesucht. Jedoch komme ich mit der Collection noch nicht ganz zusammen. Habe die Punkte in die Collection eingefügt über Dim Punkte as New Collection Punkte.Add oWorkpoint Das funktioniert auch wunderbar! Jedoch will ich danach wieder auf die Punkte zugreifen hier dachte ich mir ich komme mito Workpoint = punkte.Item(1) auf den ersten punkt, jedoch gibt er mir immer den fehler '438' Objekt unterstützt Methode nicht. Was mache ich falsch? ------------------ MfG Rudi Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
daywa1k3r Moderator Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 21. Feb. 2008 14:16 <-- editieren / zitieren --> Unities abgeben: Nur für hudln
|
hudln Mitglied Konstrukteur
Beiträge: 130 Registriert: 05.10.2007 Inventor 2008 SP2<P>Fujitsu Siemens Workstation Intel Core 2 6300 (1.86 Ghz) Nvidia Quadro FX 1500 4gb DDR Ram Win XP Pro
|
erstellt am: 21. Feb. 2008 14:19 <-- editieren / zitieren --> Unities abgeben:
aber jetzt nicht wirklich^^ das kanns ja end sein... *schäm* danke Edit: Hab das Makro jetzt fertig. Man kann damit mehrere feste Arbeitspunkte Gleichzeitig verschieben. Ich weiss ist nicht recht großartig, aba ich bin ja noch ein newbie ------------------ MfG Rudi
[Diese Nachricht wurde von hudln am 21. Feb. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |