Création de point sur segment de harnais sélectionné avec option extrémité en CATSCRIPT.

par **ours_brun83** Mer 13 Mai 2020 - 15:32

Bonjour tt le monde.
Je bloque sur un point de mon developpement en CATSCRIPT
apres avoir demander la selection d'un segment de harnais (HybridShapeSpline)
Set selection_courante = Documentcourant.Selection

je voudrais distribuer 50 points sur la courbe (le segment de harnais)
je cherche a faire marcher ce genre de fonction
Set hybridShapePointOnCurve1 = hybridShapeFactory1.AddNewPointOnCurveFromDistance(reference1, 0.000000, False)
J'ai essayer d'enregistrer la macro et de la rejouer mais ca bloque la !
Set length1 = parameters1.Item("Point\Distance") la methode item a echouéExclamation!

je trouve pas d'exemple la dessus je suis en V5R20
Merci beaucoup d'avance.

par **lumpazepfel** Jeu 14 Mai 2020 - 8:23

Bonjour Pascal,

Pour récupérer la valeur du paramètre, il faut :
Set length1 = parameters1.Item("Point\Distance").value

As tu bien un paramètre nommé "Point\Distance" dans ta Part?

Si possible poste ton code complet (si n'y a pas de problème de confidentialité) ça permettra de le tester.

par **ours_brun83** Jeu 14 Mai 2020 - 14:55

slt Marc , bin non c'est normalement l'icone qui fait ca, j'avais pas l'idee de creer ce parametre avant de lancer la macro , c'est peut etre la solution Exclamation

Mais comment , quel type de parametre faut il cree , yen a beaucoup

Création de point sur segment de harnais sélectionné avec option extrémité en CATSCRIPT. Creati10

je vais essayer avec ca pour voir si ca me debloque
Cordialement

par **ours_brun83** Jeu 14 Mai 2020 - 15:03

Code:: Language="VBSCRIPT" 'pt sur segment 'fichier = essai pt sur segment Sub CATMain() Dim partDocument1 As Document Set partDocument1 = CATIA.ActiveDocument Dim part1 As Part Set part1 = partDocument1.Part Dim Documentcourant As Document Set Documentcourant = CATIA.ActiveDocument Dim bodies1 As Bodies Set bodies1 = part1.Bodies Dim body1 As Body Set body1 = bodies1.Item("Corps principal") Dim userselect As Selection Dim selecteddElement Dim SelectedElement2 Set userselect = CATIA.ActiveDocument.selection '--------------------- 'Demande de selection de la Courbe Flex '------------------------------------- msgbox "-------------------Suivre instruction en bas - statusBar --------------------" Dim FiltreNo(0) As String FiltreNo(0) = "AnyObject" Dim Retour As String Dim selection_cour As Selection Set selection_cour = Documentcourant.selection selection_cour.Clear Retour = selection_cour.SelectElement2(FiltreNo,"Selectionner la courbe flexible a traiter", False) Dim Corpschemin1 As String Dim Courbeflex1 As String Dim statusSelection As String statusSelection = CATIA.StatusBar Dim firstOccur As Long firstOccur = InStr(1, statusSelection, "/") Dim secondOccur As Long secondOccur = InStrRev(statusSelection, "/") Courbeflex1 = Left (statusSelection, firstOccur -1) Corpschemin1 = Mid (statusSelection, firstOccur + 1, secondOccur - firstOccur -1) 'msgbox Corpschemin1 "Corps.------" Dim hybridBodies1 As HybridBodies Set hybridBodies1 = part1.HybridBodies Dim hybridBody1 As HybridBody Set hybridBody1 = hybridBodies1.Item(Cstr(Corpschemin1)) msgbox hybridBody1.Name Dim hybridShapes1 As HybridShapes Set hybridShapes1 = hybridBody1.HybridShapes Dim hybridShapeSpline1 As HybridShape Set hybridShapeSpline1 = hybridShapes1.Item(Cstr(Courbeflex1)) msgbox hybridShapeSpline1.Name Dim reference1 As Reference Set reference1 = part1.CreateReferenceFromObject(hybridShapeSpline1) Dim hybridShapeFactory1 As Factory Set hybridShapeFactory1 = part1.HybridShapeFactory Dim hybridShapePointOnCurve1 As HybridShapePointOnCurve Set hybridShapePointOnCurve1 = hybridShapeFactory1.AddNewPointOnCurveFromDistance(reference1, 0.000000, False) hybridShapePointOnCurve1.DistanceType = 1 Dim hybridBody2 As HybridBody Set hybridBody2 = hybridBodies1.Item("essai") hybridBody2.AppendHybridShape hybridShapePointOnCurve1 part1.InWorkObject = hybridShapePointOnCurve1 part1.Update Dim reference2 As Reference Set reference2 = part1.CreateReferenceFromObject(hybridShapeSpline1) Dim hybridShapePointOnCurve2 As HybridShapePointOnCurve Set hybridShapePointOnCurve2 = hybridShapeFactory1.AddNewPointOnCurveFromDistance(reference2, 0.000000, False) hybridShapePointOnCurve2.DistanceType = 1 hybridBody2.AppendHybridShape hybridShapePointOnCurve2 part1.InWorkObject = hybridShapePointOnCurve2 part1.Update Dim Wzk3D As Factory Set Wzk3D = CATIA.ActiveDocument.Part.HybridShapeFactory Dim HBody As HybridBody Set HBody = CATIA.ActiveDocument.Part.HybridBodies.Add HBody.Name = "Points" Dim Mypoint As HybridShapePointOnCurveWithReferenceFromPercent Set Mypoint = Wzk3D.AddNewPointOnCurveWithReferenceFromPercent (reference1, reference2, 10 , False) Dim lngPercentageStep As long Dim n As Integer Dim iNumberOfPoints as Integer iNumberOfPoints = 50 lngPercentageStep = 1 / iNumberOfPoints msgbox "ooo" For n = 1 to iNumberOfPoints Set Mypoint = HybridShapeFactory.AddNewPointOnCurveWithReferenceFromPercent (reference1, reference2, n * lngPercentageStep , False) HBody.AppendHybridShape Mypoint Mypoint.name ="HelpingPoint." & CStr(n) Next 'hybridBody1.Name = Corpschemin1 'hybridShapeSpline1 = Courbeflex1 part1.Update End Sub

par **ours_brun83** Jeu 14 Mai 2020 - 15:05

entre temps j'ai changé le code .. J'ai celui la qui va assez loin il cree 2 points au debut du segment et s'arrete a la boucle For next de la fin.

par **ours_brun83** Jeu 14 Mai 2020 - 16:55

a yest j'ai reussi , ouf
j'ai changé ca Exclamation

Set Mypoint = Wzk3D.AddNewPointOnCurveWithReferenceFromPercent (reference1, reference2, n * lngPercentageStep , False)
et hop 50 pts sur la courbe selectionnée Exclamation

A+

par Contenu sponsorisé

Création de point sur segment de harnais sélectionné avec option extrémité en CATSCRIPT.

Création de point sur segment de harnais sélectionné avec option extrémité en CATSCRIPT.

Re: Création de point sur segment de harnais sélectionné avec option extrémité en CATSCRIPT.

Re: Création de point sur segment de harnais sélectionné avec option extrémité en CATSCRIPT.

Re: Création de point sur segment de harnais sélectionné avec option extrémité en CATSCRIPT.

Re: Création de point sur segment de harnais sélectionné avec option extrémité en CATSCRIPT.

Re: Création de point sur segment de harnais sélectionné avec option extrémité en CATSCRIPT.

Re: Création de point sur segment de harnais sélectionné avec option extrémité en CATSCRIPT.