---

Polylinie.rar

Hallo zusammen,

ich habe vor einiger Zeit mal im Allgemeinen Forum nach einer möglichkeit gefragt, wie man ein Rohr aus einer Excelliste erstellen lassen kann.

Da hat mir auch ein Fourum Mitglied sehr gut erstmal auf die sprünge geholfen und mir eine Datei mit dem ersten schritt erstellt.

Da ich bis jetzt noch keine Ahnung von Makroprogrammierung habe, ist meine erste Frage, was für ein Buch Ihr mir empfehlen könntet?

Die zweite, ich habe es jetzt geschaft das ich eine Ebene auf die Polylinie bzw. Punkt bekomme, jetzt hängt es bei der Skizze :/ die denn Durchmesser des Rohres generieren soll und auch über die Excelliste definiert werden soll.

Und die 3te, wie kann man denn erstellen geometrischen Set ein namen geben?

Habe einmal die beispieldatei Hochgeladen

Würde mich sehr über Hilfreiche Literatur freuen und noch mehr, wenn wir jemand die Datei etwas weiter Programmiert

Mit freundlichen Grüßen
BlackEagle

[Diese Nachricht wurde von B1ackEag1e am 01. Nov. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus

Zu deinen Fragen:
- Buchempfehlungen:
         Kochbuch CATIA V5 automatisieren - Jens Hansen
         CATIA V5 - Makroprogrammierung mit Visual Basic Script - Dieter R. Ziethen

- GetSet umbenennen: zB hybridBody.name = "Neuername"

- du könntest (falls die Lizenz vorhanden ist) auch direkt eine Translation mit einem Kreisprofil erstellen (AddNewSweepCircle), diese danach im PartDesign nur Aufdicken
zB (etwas nachbereitete Aufnahme des Makrorecorders zr Erstellng der Translation):

Code:

---

....
Dim reference1 As Reference
Set reference1 = part.CreateReferenceFromObject(hybridShapePolyline1)

Dim hybridShapeSweepCircle1 As HybridShapeSweepCircle
Set hybridShapeSweepCircle1 = hybridshapefactory.AddNewSweepCircle(reference1)

hybridShapeSweepCircle1.Mode = 6
hybridShapeSweepCircle1.SmoothActivity = False
hybridShapeSweepCircle1.GuideDeviationActivity = False
hybridShapeSweepCircle1.SetRadius 1, 20.000000
hybridShapeSweepCircle1.SetbackValue = 0.020000
hybridShapeSweepCircle1.FillTwistedAreas = 1

hybridBody1.AppendHybridShape hybridShapeSweepCircle1

part1.InWorkObject = hybridShapeSweepCircle1
....

---

Du solltest ggf hoch einige Prüfungen in das Makro einbauen: Biegeradius muss größer als der Rohraußenradis sein, ...

Gruß
Bernd

PS: Wenn du fertig bist, kannst du das Makro gerne hier veröffentlichen (vielleicht kann ich es auch mal gebrauchen *grins*)

------------------
Warum einfach, wenn es auch kompliziert geht.

[Diese Nachricht wurde von bgrittmann am 01. Nov. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Polylinie.rar

Servus bgrittmann,

du treibst dich hier auch in jedem Forum rum oder? 

Danke nochmal für deine beiden Tipps

hab mir jetzt das Buch
CATIA V5 - Makroprogrammierung mit Visual Basic Script - Dieter R. Ziethen bestellt

und das mit dem HeoSet umbenennen funktioniert jetzt auch.

Nur das mit der Blöden Skitze bekomme ich immer noch nicht hin 

könntest du mir da vieleicht noch was weiter helfen?
hab die Datei nochmal hochgelden

Thx für deine super Hilfe

Mit freundlichen grüßen
Norman

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Wo bleibt das Makro bei dir hängen?
Wenn du mit HybridShapeSweepCircle arbeitest brauchst du keine Ebene und auch keine Skizze (ist ggf Lizenz abhängig).
Diese Translation könntest du einfach im PartDesign aufdicken (der Makrorecorder hilft vielleicht etwas weiter)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP