Rendering image
Rendering image
(OP)
I'm trying to render an image of an assy, but i can't get rid of all the planes for each part, nor the indicators for the contraints. I have "hidden" all the contraints, but there are still all these planes, icons and axes all over. How do i get rid of these to get an image of my assembly only?
Any possible solutions would be greatly appreciated
Any possible solutions would be greatly appreciated





RE: Rendering image
Open Notepad, paste what is bellow and change extention from txt to CATScript then execute.
Sub CATMain()
Set ProductDocument1 = CATIA.ActiveDocument
Set Product1 = ProductDocument1.Product
Dim ProductDoc1_As_Document
Set ProductDoc1 = Catia.ActiveDocument
Dim Selection1_As_Selection
Set Selection1 = ProductDoc1.Selection
CATIA.DisplayFileAlerts = False
Selection1.Search "CATAsmSearch.MfConstraint,All" 'hide Constrains
Set visPropertySet1 = Selection1.visProperties
VisPropertySet1.SetShow 1
Selection1.Clear
Selection1.Search "CatPrtSearch.Surface,All" 'hide Surfaces
Set visPropertySet1 = Selection1.visProperties
VisPropertySet1.SetShow 1
Selection1.Clear
Selection1.Search "CatPrtSearch.AxisSystem,All" 'hide axissystem
Set visPropertySet1 = Selection1.visProperties
VisPropertySet1.SetShow 1
Selection1.Clear
Selection1.Search "CatPrtSearch.AxisSystem.Name=Axis' 'System*,All"
Set visPropertySet1 = Selection1.visProperties
VisPropertySet1.SetShow 1
Selection1.Clear
Selection1.Search "CatPrtSearch.Line,All" 'hide lines
Set visPropertySet1 = Selection1.visProperties
VisPropertySet1.SetShow 1
Selection1.Clear
Selection1.Search "CatPrtSearch.Curve,All" 'hide curves
Set visPropertySet1 = Selection1.visProperties
VisPropertySet1.SetShow 1
Selection1.Clear
Selection1.Search "CatPrtSearch.Sketch,All" 'hide sketches
Set visPropertySet1 = Selection1.visProperties
VisPropertySet1.SetShow 1
Selection1.Clear
Selection1.Search "CatPrtSearch.Point,All" 'hide points
Set visPropertySet1 = Selection1.visProperties
VisPropertySet1.SetShow 1
Selection1.Clear
Selection1.Search "CatPrtSearch.Plane,All" 'hide planes
Set visPropertySet1 = Selection1.visProperties
VisPropertySet1.SetShow 1
Selection1.Clear
selection1.Search "CATGmoSearch.OpenBodyFeature,all" 'hide geometrical set
Set visPropertySet1 = Selection1.visProperties
VisPropertySet1.SetShow 1
Selection1.Clear
Dim specsAndGeomWindow1 As Window
Set specsAndGeomWindow1 = CATIA.ActiveWindow
Dim viewer3D1 As Viewer
Set viewer3D1 = specsAndGeomWindow1.ActiveViewer
Dim viewpoint3D1 As Viewpoint3D
Set viewpoint3D1 = viewer3D1.Viewpoint3D
viewer3D1.Reframe
Set viewpoint3D1 = viewer3D1.Viewpoint3D
End Sub
Regards
Fernando
https://picasaweb.google.com/102257836106335725208
RE: Rendering image
Anyways, i manages to remove the planes, contraints and axes by searching, selecting and hiding - so i'm all good for the moment!
Thanks again, Fernando
RE: Rendering image
Regards
Fernando
https://picasaweb.google.com/102257836106335725208