×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

transparency

transparency

transparency

(OP)
hi every one

here again giving trouble to all of you guys, I want to get my solid transparency, and I found a command SetRealOpacity but some how I can not set it

here is the code im using

CATIA.ActiveDocument.Selection.Clear
Set objsel = CATIA.ActiveDocument.Selection
objsel.Search "Type=Topology.Face,all"

objsel.SetRealOpacity 255, 1

icnt = objsel.Selection.Count
ReDim MySurface(icnt + 1)

For o = 1 To icnt
Set MySurface(o) = objsel.Item(o).Value
Next o

Dim spabench As SPAWorkbench
Dim mymeas As Measurable
Dim centroide
Dim ref1 As Reference
Dim myans As Double
Dim InputObjectType(0)
Dim variable As String

'*******************Toma Fotografia de la Superficie Seleccionada***************
For o = 1 To icnt

Dim ObjViewer3D As Viewer3D
Set ObjViewer3D = CATIA.ActiveWindow.ActiveViewer
Dim objCamera3D As Camera3D
Set objCamera3D = CATIA.ActiveDocument.Cameras.Item(1)

Dim j
CATIA.ActiveDocument.Selection.Clear
CATIA.ActiveDocument.Selection.Add (MySurface(o))
'Ubicacion del guardado de la imagen
Dim fileloc As String
fileloc = "C:\Users\Lab3\Desktop\Fotos\"
Dim exten As String
exten = ".jpg"
Dim strName As String
strName = fileloc & CStr(o) & exten

Dim objSpecWindow As SpecsAndGeomWindow
Set objSpecWindow = CATIA.ActiveWindow
objSpecWindow.Layout = catWindowGeomOnly
CATIA.StartCommand ("Compass")

'Toma la Fotografia
ObjViewer3D.FullScreen = True
ObjViewer3D.Viewpoint3D = objCamera3D.Viewpoint3D
ObjViewer3D.CaptureToFile 5, strName

ObjViewer3D.FullScreen = False
objSpecWindow.Layout = catWindowSpecsAndGeom
CATIA.StartCommand ("Compass")
'ObjViewer3D.Viewpoint3D = objCamera3D.Viewpoint3D

Next o

its just a section, what I need it to get the solid transparent, and then in the cicle remove the transparency of the selected face and give a color,

hope you can help me with this,

thank you for your time

RE: transparency

This is from CATIA Portable Script Center, maybe you will get some other ideas.

CODE --> CATScript

Language="VBSCRIPT"

Sub CATMain()

Dim specsAndGeomWindow1 As Window
Set specsAndGeomWindow1 = CATIA.ActiveWindow

Dim viewer3D1 As Viewer
Set viewer3D1 = specsAndGeomWindow1.ActiveViewer

Dim viewpoint3D1 As Viewpoint3D
Set viewpoint3D1 = viewer3D1.Viewpoint3D


Text = InputBox("After click OK you will see Rendering mode 0 = shading Gouraud", "RenderingMode", "RenderingMode 0", 150, 9000) 
viewer3D1.RenderingMode = 0

Text = InputBox("After click OK you will see Rendering mode 1 = shading Gouraud with edges", "RenderingMode", "RenderingMode 1", 150, 9000) 
viewer3D1.RenderingMode = 1

Text = InputBox("After click OK you will see Rendering mode 2 = wireframe with edge lines", "RenderingMode", "RenderingMode 2", 150, 9000) 
viewer3D1.RenderingMode = 2

Text = InputBox("After click OK you will see Rendering mode 3 = wireframe without hidden lines", "RenderingMode", "RenderingMode 3", 150, 9000) 
viewer3D1.RenderingMode = 3

Text = InputBox("After click OK you will see Rendering mode 4 = shading Gouraud outlines with edges", "RenderingMode", "RenderingMode 4", 150, 9000) 
viewer3D1.RenderingMode = 4

Text = InputBox("After click OK you will see Rendering mode 5 = shading with material without edge lines", "RenderingMode", "RenderingMode 5", 150, 9000)
viewer3D1.RenderingMode = 5

Text = InputBox("After click OK you will see Rendering mode 6 = shading with material with edge lines", "RenderingMode", "RenderingMode 6", 150, 9000) 
viewer3D1.RenderingMode = 6

Text = InputBox("After click OK you will see Rendering mode 7 = shading with edge and hidden lines", "RenderingMode", "RenderingMode 7", 150, 9000) 
viewer3D1.RenderingMode = 7

Text = InputBox("After click OK you will see Rendering mode 8 = shading Gouraud no smooth edges", "RenderingMode", "RenderingMode 8", 150, 9000) 
viewer3D1.RenderingMode = 8

Text = InputBox("After click OK you will see Rendering mode 9 = wireframe no smooth edges no vertices", "RenderingMode", "RenderingMode 9", 150, 9000) 
viewer3D1.RenderingMode = 9

Text = InputBox("After click OK you will see Rendering mode 10 = wireframe half visible smooth edges no vertices", "RenderingMode", "RenderingMode 10", 150, 9000) 
viewer3D1.RenderingMode = 10

Text = InputBox("After click OK you will see Rendering mode 11 = shading Gouraud outlines with edges ", "RenderingMode", "RenderingMode 11", 150, 9000) 
viewer3D1.RenderingMode = 11

Text = InputBox("After click OK you will see Rendering mode 12 = shading Gouraud outlines with edges no vertices", "RenderingMode", "RenderingMode 12", 150, 9000) 
viewer3D1.RenderingMode = 12

Msgbox "And So On"

End Sub 

Regards
Fernando

https://picasaweb.google.com/102257836106335725208
https://picasaweb.google.com/103462806772634246699...

RE: transparency

(OP)
hi every one, never mind I solve the issue, thanks a lot

RE: transparency

(OP)
thank you for the post ferdo, I really get more ideas on this

you are awesome

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources