Eng-Tips is the largest engineering community on the Internet

Intelligent Work Forums for Engineering Professionals

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

Search results for query: *

  1. PedroPeter

    [CATIA] Interactive macro for Screen shot.

    Or you could try the Emmett Ross one: Sub CATMain() Dim ObjViewer3D As Viewer3D Set objViewer3D = CATIA.ActiveWindow.ActiveViewer Dim objCamera3D As Camera3D Set objCamera3D = CATIA.ActiveDocument.Cameras.Item(1) ' Input box to name the screen capture image file Dim...
  2. PedroPeter

    [CATIA] Interactive macro for Screen shot.

    Sorry I can't test it right now. Try this: Sub CaptureViewport(strFileName As String, Optional intWidth As Integer = 1024, Optional intHeight As Integer = 1024) Dim objWindow As SpecsAndGeomWindow Dim objViewer As Variant ' Viewer3D Dim objCamera As Camera3D Dim objViewpoint As...
  3. PedroPeter

    [CATIA] Interactive macro for Screen shot.

    Try this: Sub CaptureScreenshot() Dim CATIA As Object Set CATIA = GetObject(, "CATIA.Application") If CATIA Is Nothing Then MsgBox "CATIA is not running. Please start CATIA and try again." Exit Sub End If Dim doc As Object Set doc = CATIA.ActiveDocument If Not doc Is Nothing Then Dim...
  4. PedroPeter

    I'm trying to improve myself in vba and macro. Tell me ideas and I will try to make :)

    Hi! I take this opportunity to ask you help about something i'm struggling for. I'm trying to write a macro that measures some lines and write the output in a csv file. These lines are called "feet-line", and are objects of some (not all) catparts inside the active catproduct.
Back
Top