lyda

Bonjour à tous! Je voudrais savoir les instructions possibles pour faire une macro qui puisse créer un point sur un surface selectionée. C'est-à-dire, d'abord je selectione une surface en donnant un clic sur cette surface, et après sur cette position où j'ai fait un clic que la macro crée le point. La macro sera fait en CATIA(CAO) en VBA. Merci d'avance.

Bonojur à tous! :) Je voudrais savoir les possibles instructiones pour faire une macro en CAO en VBA. Le but de cette macro c'est de créer des points sur une surface sélectionnée, aprés créer leur normales et finalment créer un affiche avec qui contient les coordonnées de ces points avec les coordonnées de leurs normales. Un éleve et moi on a fait la dernière partie de la macro (l'extrait des coordonnées sur l'affiche) mais le problème c'est pour créer les points dedans la surface, parce que pour les créer on doit spécifier les coordonnées, et le but c'est de les créer avec la macro n'importe où dedans la surface. Quelles instructiones pouvez-vous nous conseiller? Sub CATMain() Dim partDocument1 As PartDocument Set partDocument1 = CATIA.ActiveDocument Dim part1 As Part Set part1 = partDocument1.Part Dim hybridShapeFactory1 As HybridShapeFactory Set hybridShapeFactory1 = part1.HybridShapeFactory Dim hybridShapePointCoord1 As HybridShapePointCoord Set hybridShapePointCoord1 = hybridShapeFactory1. AddNewPointCoord(-24.073, -11.286, 20#) Dim bodies1 As Bodies Set bodies1 = part1.Bodies Dim body1 As Body Set body1 = bodies1.Item("Corps principal") body1.InsertHybridShape hybridShapePointCoord1 part1.InWorkObject = hybridShapePointCoord1 part1.Update Merci par l'avance.

Bonojur à tous! Je voudrais savoir les possibles instructiones pour faire une macro en CAO en VBA. Le but de cette macro c'est de créer des points sur une surface sélectionnée, aprés créer leur normales et finalment créer un affiche avec qui contient les coordonnées de ces points avec les coordonnées de leurs normales. Un éleve et moi on a fait la dernière partie de la macro (l'extrait des coordonnées sur l'affiche) maisle problème c'est pour créer les points dedans la surface, parce que pour les créer on doit spécifier les coordonnées, et le but c'est de les créer avec la macro n'importe où dedans la surface. Quelles instructiones pouvez-vous nous conseiller? Sub CATMain() Dim partDocument1 As PartDocument Set partDocument1 = CATIA.ActiveDocument Dim part1 As Part Set part1 = partDocument1.Part Dim hybridShapeFactory1 As HybridShapeFactory Set hybridShapeFactory1 = part1.HybridShapeFactory Dim hybridShapePointCoord1 As HybridShapePointCoord Set hybridShapePointCoord1 = hybridShapeFactory1. AddNewPointCoord(-24.073, -11.286, 20#) Dim bodies1 As Bodies Set bodies1 = part1.Bodies Dim body1 As Body Set body1 = bodies1.Item("Corps principal") body1.InsertHybridShape hybridShapePointCoord1 part1.InWorkObject = hybridShapePointCoord1 part1.Update Merci par l'avance.