Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations cowski on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. mayrou

    Create hybridShapePointCenter

    thank you Eric!! my macro selects a hole then recuperates its diameter! then creates a center point!! but if l try to work with curve or edge! i can't get the diameter!!! so, is there another solution?
  2. mayrou

    Drawing View

    Hello, i want to create a macro that change the size of character coasts and arrows of quotation in a Drawing view. i don't know how to start my essay!! :/ Thank you.
  3. mayrou

    Selected Hole Center

    Hi! I developed a macro that select a hole! then make a point center of that hole!! Dim productDocument1 As Document Set productDocument1 = CATIA.ActiveDocument Dim product1 As Product Set product1 = productDocument1.Product Dim selection1 Set selection1 = productDocument1.Selection Dim...
  4. mayrou

    Create hybridShapePointCenter

    Hi!!! I'm having some trouble getting update to work the way I'm expecting it to. Dim productDocument1 As Document Set productDocument1 = CATIA.ActiveDocument Dim product1 As Product Set product1 = productDocument1.Product Dim partDocument1 As Document Set partDocument1 =...
  5. mayrou

    Coordinates in a second axis system

    hello! I want to create a macro that gets the coordinates of a point (cercle origin), belonging in a part1, in the axis system of a second part (part2)! TH U
  6. mayrou

    problem with reference

    hahahaha!! Merci En Tout Cas! thank you anyway
  7. mayrou

    problem with reference

    je l'ai utilisé avec la selection des point et c a bien marché!!!! mais dans ce cas c'est bizarre! sorry et ... METC
  8. mayrou

    problem with reference

    Bonjour!! [ponytails2] I have a problem with reference of selection!! MsgBox "select a hole" Dim InputObjectType(0), Status1 InputObjectType(0)="Hole" Status1=selection1.SelectElement2(InputObjectType,"Select a hole",false) If Status1 = "Cancel" Then selection1.Clear: Exit Sub Dim...
  9. mayrou

    origin

    thank you AlexLozoya for you help! :) the hole is already selected! but what "25.4" refers to? after all, the values still wrong :(
  10. mayrou

    select a hole

    Well i did it partially! the hole is created! Dim reference11 As Reference Set reference11 = part1.CreateReferenceFromBRepName("FSur:(Face:(Brp:(Pad.1;2);None:();Cf11:());WithTemporaryBody;WithoutBuildError;WithInitialFeatureSupport;MonoFond;MFBRepVersion_CXR15)", pad1) Dim hole1 As Hole Set...
  11. mayrou

    origin

    hello everybody! I tried to create a macro that give me the origin of a selected cercle! MsgBox "selectionnez un trou" Dim InputObjectType(0), Status1 InputObjectType(0)="Hole" Status1=selection1.SelectElement2(InputObjectType,"Select un trou",false) If Status1 = "Cancel" Then...
  12. mayrou

    select a hole

    Thank you for you help! at the beginning, my macro hide the tangent plane, iSupport (reference1), then i select the hole, then the plane is displayed, in the end, the hole creation on that iSupport! I tried with: Set hole1 =part1.AddNewHoleFromPoint (origin(0), origin(1), origin(2)...
  13. mayrou

    select a hole

    I want to create a hole automatically where the user select its place Sub CATMain() '**********Declarations******* Dim productDocument1 As Document Set productDocument1 = CATIA.ActiveDocument Dim product1 As Product Set product1 = productDocument1.Product Dim selection1 As Selection Set...
  14. mayrou

    select a hole

    well ...still not working [cry] " uncorrected value, indicate a value between 0 and 1 "
  15. mayrou

    select a hole

    Thank you Eric :) one more thing! how to create a hole in front of that selected one! Dim reference1 As Reference Set reference1 = selection1.Item(1).Value Dim hole1 As Hole Set hole1 = part1.CreateReferenceFromObject(reference1) Dim oDiameter As Length Set oDiameter = oAssemblyHole.Diameter...
  16. mayrou

    select a hole

    hi! i want to create a macro that select a hole in a product i developed this macro MsgBox "selectionnez un trou" Dim InputObjectType(0), Status1 InputObjectType(0)="Hole" Status1=selection1.SelectElement2(InputObjectType,"Select un trou",false) If Status1 = "Cancel" Then selection1.Clear...
  17. mayrou

    distance

    I created this macro! that measure distance between a point in part1 and a plane in part2! but it give a wrong distance compared to the manual one! Sub CATMain() Dim productDocument1 As Document Set productDocument1 = CATIA.ActiveDocument Dim documents1 As Documents Set documents1 =...
  18. mayrou

    distance

    Hello world i have an issue, hope you can help me with this in a CATIAProduct, i want to create a macro that gets the minimal distance between a point and a part! How can I do that! thx you
  19. mayrou

    PastSpecial

    i did get the neme Set selection1 = productDocument1.Selection selection1.Add hybridBody2 selection1.PasteSpecial ("CATPrtResultWithOutLink") Dim reference1 As Reference Set reference1 = selection1.Item(1).Reference MsgBox (reference1.Name) but if i want to change its name reference1.Name...
  20. mayrou

    PastSpecial

    one more thing please! if i want to recuperate the copied point's name : "Point.1" Set selection1 = productDocument1.Selection selection1.Add hybridBody2 selection1.PasteSpecial ("CATPrtResultWithOutLink") msgbox(???) i tried whith msgbox(selection1.name) but it gives "CAATIASelection1"...

Part and Inventory Search

Back
Top