|
Autor
|
Thema: For-schleife mit makros - Laufwariable (1263 mal gelesen)
|
sl291
Mitglied
BA Student
   Beiträge: 20
Registriert: 19.11.2008
|
erstellt am: 01. Jan. 2009 16:27  <-- editieren / zitieren -->   Unities abgeben:          
Hallo Leute, ich habe wohl ein denkbar einfaches Problem. Ich möchte eine Schleife mit Makros Programmieren um zuerst einmal einfach nur Linien zwischen Punkten zu erstellen.
Die Punkte sind automatisch generiert und daher schön nummeriert.
Ich habe einfach ein Makro aufgezeichnet und wollte die Zahlen der Punkte durch die Laufvariable ersetzen. Leider scheint das so einfach nicht zu gehen. Wie muss ich folgenden Code bezüglich der Variablen ändern? Code:
...
For i = 10 To 15Dim hybridShapePointOnCurve3 As HybridShapePointOnCurve
Set hybridShapePointOnCurve3 = hybridShapes1.Item("Punkt.i") Dim reference3 As Reference
Set reference3 = part1.CreateReferenceFromObject(hybridShapePointOnCurve3) Dim hybridShapePointOnCurve4 As HybridShapePointOnCurve
Set hybridShapePointOnCurve4 = hybridShapes1.Item("Punkt.i+15") Dim reference4 As Reference
Set reference4 = part1.CreateReferenceFromObject(hybridShapePointOnCurve4) Dim hybridShapeLinePtPt2 As HybridShapeLinePtPt
Set hybridShapeLinePtPt2 = hybridShapeFactory1.AddNewLinePtPt(reference3, reference4) hybridBody2.AppendHybridShape hybridShapeLinePtPt2 part1.InWorkObject = hybridShapeLinePtPt2 part1.Update Next i
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied
Beiträge: 4755
Registriert: 27.09.2000 Dell precision M4300, 4GB Arbeitsspeicher
NVidia FX360M
Windows XP professional SP3
CATIA V5 R16SP9, R17SP8, R18SP8, R19SP4
Adobe Acrobat 8
Linux: Ubuntu 8.04LTS
|
erstellt am: 01. Jan. 2009 16:37 <-- editieren / zitieren --> Unities abgeben: Nur für sl291 
|
zoltan.bekesi
Mitglied
Beiträge: 321
Registriert: 22.10.2006 Job:
CATIA V5R19 / XP 32bit
MS Office 2003
Microstation V8 2004 Edition
DELL Precision M6300
|
erstellt am: 01. Jan. 2009 20:06 <-- editieren / zitieren --> Unities abgeben: Nur für sl291
Hallo, versuche die zwei Zeilen wie folgt:
Code:
Set hybridShapePointOnCurve3 = hybridShapes1.Item("Punkt." & cstr(i))
Set hybridShapePointOnCurve4 = hybridShapes1.Item("Punkt." & cstr(i+15))
(und ein Anfängerbuch in VBA...)Gruß,
Zoltán Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| | Ingenieur (m/w/d) Elektronikentwicklung im Bereich Medizintechnik | | Menschen und Technologien zu verbinden, den Perfect Match für unsere Kunden zu gestalten, immer die richtigen Expert:innen für die jeweilige Herausforderung zu finden - das ist unser Anspruch bei FERCHAU und dafür suchen wir dich: als ambitionierte:n Kolleg:in, der:die wie wir Technologien auf die nächste Stufe bringen möchte. Wir realisieren spannende Projekte für namhafte Kunden in allen Technologiebereichen und für alle Branchen und übernehmen Verantwortung für komplexe Entwicklungsprojekte.... | | Anzeige ansehen | Elektrotechnik, Elektronik |
|
nikibert
Mitglied
entwickler
Beiträge: 40
Registriert: 19.05.2008 Windows 7 Pro 64bit
DeLL T5500
NVIDIA Quadro 2000
CATIAV5 V19 SP9
|
erstellt am: 09. Jan. 2009 11:29 <-- editieren / zitieren --> Unities abgeben: Nur für sl291
probiers lieber mal so: '******************************************************* For i = 10 To 15 Punkt = "Punkt." & i Set hybridShapePointOnCurve3 = hybridShapes1.Item(Punkt) '******************************************************* Gruss Niko Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
