isometric view

[mayrou]

Hello World!

I want to develop in macro that create an isometric view in a CATDrawing from a product!
help please!
regards

 

[ferdo]

Hi

Try

       ' Create a view called "Isometrical View" in the sheet
    Dim oIsoView As DrawingView
    Set oIsoView = oSheet.Views.Add("Isometrical View")

    ' Retrieve it generative behavior
    Dim oIsoViewGB As DrawingViewGenerativeBehavior
    Set oIsoViewGB = oIsoView.GenerativeBehavior

    ' Declare the part to draw in this iso view
    oIsoViewGB.Document = oPartToDraw

    ' Define this view as a iso view, with the XY plane (in oPartToDraw) as projection plane 
    oIsoViewGB.DefineIsometricView  0.925456, -0.042455, 0.376469, 0.109966, 0.981023, -0.159692
    
    ' Position the View in the Sheet
    oIsoView.x = 300
    oIsoView.y = 400

    ' Update the view
    oIsoViewGB.Update

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

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

 

[mayrou]

Define this view as a iso view, with the XY plane (in oPartToDraw) as projection plane

thanks a lot
the program runs! but i don't know why the TopView is inclined!
the fact that i work in a CATproduct, I want to change projection plane to another part's plane
but i don't know how!
is it possible?
regards

 

[mayrou]

meaning instead of using product plane projection i want to project views from another plane of a specific part!