Sorry guys, I was off until today.
Yes lardman363, I only gave you a piece of code because I am not allowed to show the rest of it...
In any case, I checked my code and for the CofG, I have been wrong on two things :
- I didn't use the SPAWorkbench.
- And even if I've done it so, the Inertia...
- InputObjectType(0)="PlanarFace"
What I tried :
I created new directions using AddNewDirectionByCoord; I put random values but it didn't worked.
I retrieved the CofG coordinates with the Inertia object but unfortunately it creates a point at (0,0,0)...
Hi everyone,
I'm trying to create a point in the center of a surface with the use of the AddNewPointOnSurface function. For the moment it doesn't work and I can't find why..
My surface is selected with the SelectElement2 function and this work great (I tried to change its color with...
For those interested, here is a solution :) !!!
Function IsTheSamePlane(oFirstPlane, oSecondPlane) As Boolean
'--------------------------------------------------
' ABSTRACT:
' Check if two planes are identical.
' DEPENDANCIES:
' IsInThePlane...
sorry for the late answer.
It is really frustrating, my angle function doesn't work anymore. @itsmyjob I can't even try to get the distance to (0,0,0)...
@jackk I am really new to VBA, I don't really know from where to start to get the planes equations and then compare coefficients...
So here...
Hi everyone,
I struggle to create a function that allow to determine whether or not two planes are parallel and on the same level. Bellow I managed to get the angle between the two planes and the idea is to return true or false in fonction of the angle between them. However, I don't know how to...
I was wrong !!! It wasn't because of the space ....
The things I had to do was to go deeper in the tree and now it works !
If anyone need help on it, please contact me :)
Byee
I found the problem !!! It's because there is a space in my parameter name... As I cannot change it, is it possible to "force" the scan ?
Thanks again,
Pharys
Hi everyone,
So I create this :
If oBodies.Count > 0 Then
Dim m As Integer
For m = 1 To oBodies.Count
If oBodies.Item(m).Name = sHybridBodyName Then
MsgBox "It appears the geometrical set that this macro creates already exists in the part. Unable to proceed."...
You are my savior !
More seriously, it was exactly what I was looking for. Also, I made few searches on this forum and... it is literally a gold mine !!! In two days I made huge progresses :). Thank to all of you
Have a nice day itsmyjob,
Pharys
Hi everyone,
I am currently developing procedures and I would like to know if anyone know a site which give description/examples on CATIA classes and librairies ? As I am new to VBA, it is quite difficult for me to understand every functions... even when I use the Record Macro functionalities ...