How to copy the Plane to New Geo Set
How to copy the Plane to New Geo Set
(OP)
Hi
I wanted to select a plane manually (user input). Once user selects the Plane (parent Geomertic Set is Unknown in this case), i want tht plane to be copied to the new geometric set (Geo_Set_Plane) which i created.
Any suggestions
How to add to the selection and copy it to the new geometric set
Thanks
Barath
I wanted to select a plane manually (user input). Once user selects the Plane (parent Geomertic Set is Unknown in this case), i want tht plane to be copied to the new geometric set (Geo_Set_Plane) which i created.
Any suggestions
How to add to the selection and copy it to the new geometric set
Thanks
Barath





RE: How to copy the Plane to New Geo Set
Regards
Fernando
https://picasaweb.google.com/102257836106335725208
https://picasaweb.google.com/103462806772634246699...
RE: How to copy the Plane to New Geo Set
Dim Selection1 as object
Set Selection1 = CATIA.ActiveDocument.Selection
MsgBox "Select a Plane"
Status = sel.SelectElement2(inpt2, "Select a Plane (" & msgboxtext & "), (C)EMA", False) ' For User Selection (a plane in my case)
Set SelectedElement1 = sel.Item(1).Value
Selection1.Add
Selection1.Copy
Set hybridShapeFactory1 = part1.HybridShapeFactory
Set bodies1 = part1.Bodies
Set hybridBodies1 = part1.HybridBodies
Dim Hybridbody1 As HybridBody
Set Hybridbody1 = hybridBodies1.Add()
Hybridbody1.Name = " Geometric_Set_Plane" ' created a New geo metric Set
Set Hybridbody1 = hybridBodies1.Item(" Geometric_Set_Plane")
Set hybridShapes1 = Hybridbody1.HybridShapes
part1.InWorkObject = Hybridbody1
part1.Update
Selection1.Paste
RE: How to copy the Plane to New Geo Set
CODE --> CATScript
Regards
Fernando
https://picasaweb.google.com/102257836106335725208
https://picasaweb.google.com/103462806772634246699...