AddBaseView giving Parameter incorrect error

[tkennedy26]

I'm trying to get started in the drawing environment with iLogic. But I can't even get the base view in. I'm referencing the API help "Adding Representation Views Api Sample". I won't have a LOD option but will need the view rep eventually which the API walks me through the .AddBaseView syntax. But I'm hoping someone can tell me why this is erroring out on the .AddBaseView Line.

Dim doc As DrawingDocument
doc = ThisApplication.ActiveDocument
Dim oSheet As Sheet
oSheet = doc.ActiveSheet
Dim modDoc As Document
modDoc = ThisApplication.Documents.Open("C:\test.iam", False)
oTG = ThisApplication.TransientGeometry
Dim oPoint As Point2d
oPoint = ThisApplication.oTG.CreatePoint2d(5, 5)
Dim oBVO As NameValueMap
oBVO = ThisApplication.TransientObjects.CreateNameValueMap
Dim oScale As Double
oScale = 0.125
Dim oViewName As String
oViewName = "test"


'MsgBox ("Made it thus far")
'Base View Options
    'Call oBVO.Add("PositionalRepresentation", oViewName)
    'Call oBVO.Add("DesignViewAssociative", True)
	
	oModelDoc = ThisDrawing.ModelDocument
	'Get full file path of model
	
Dim oBaseView As DrawingView
oBaseView = oSheet.DrawingViews.AddBaseView(oModelDoc,oPoint,oScale,kFrontViewOrientation,kHiddenLineRemovedDrawingViewStyle)

[MechMachineMan · Accepted solution]

Try simplifying the calls on the line until you isolate the issue. Or convert the code to VBA, and debug at the line.

Sometimes it's fussy and you need to declare all of the variables explicitly, other times, it could be that your enums aren't called off properly. (ie; Dim oModelDoc As Document // ViewOrientationTypeEnum.kFrontViewOrientation (or  the int 10764))

Or it could be something else all together.

[bradeneuropeArthur]

Hi,

This Code:

Public Sub CreateDrawingView()

        
Dim oInvApp As Application
Set oInvApp = ThisApplication

        Dim sTemplateFile As String

        Set sTemplateFile = "C:\Standard.dwg"

        Dim a As Document ' Document
        Set a = oInvApp.ActiveEditDocument

        oInvApp.SilentOperation = True

        Dim oDrawDoc As DrawingDocument
        Set oDrawDoc = oInvApp.Documents.Add(DocumentTypeEnum.kDrawingDocumentObject, sTemplateFile)

        oInvApp.SilentOperation = False

        ' The drawing is created with a single sheet,
        ' so we'll add our views to it.
        Dim oSheet As Sheet
        Set oSheet = oDrawDoc.Sheets.Item(1)

        ' Now we define the placement points for
        ' the two drawing views we shall be adding to the sheet
        Dim oPlacementPoint1 As Point2d

        'Set oPlacementPoint1 = ThisApplication.TransientGeometry.CreatePoint2d(20#, 15#)
        Set oPlacementPoint1 = oInvApp.TransientGeometry.CreatePoint2d(oSheet.Width / 2, oSheet.Height / 2)

        ' Define the view scales that we need.
        Dim ViewScale1 As Double
        ViewScale1 = 1 / 5
        ' define the view orientation for each view

        Dim ViewOrientation1 As ViewOrientationTypeEnum
        Set ViewOrientation1 = ViewOrientationTypeEnum.kCurrentViewOrientation 

        ' define the view style for each view
        Dim ViewStyle1 As DrawingViewStyleEnum
        Set ViewStyle1 = DrawingViewStyleEnum.kHiddenLineDrawingViewStyle

        Dim sPartPath As String
        sPartPath = a.FullFileName

        Dim oPartDoc As Document
        'Set oPartDoc = ThisApplication.ActiveEditDocument
        Set oPartDoc = oInvApp.Documents.Open(sPartPath, False)

        ' now create our two views
        Dim oView As DrawingView
        Set oView = oSheet.DrawingViews.AddBaseView(oPartDoc, oPlacementPoint1, ViewScale1, ViewOrientation1, ViewStyle1)

        Dim NewScale As Double
        NewScale = 1

        'oView.Scale =
        oView.[Scale] = 1 / NewScale
        oDrawDoc.Save

        Dim strScale As String
        strScale = InputBox("Is the scale correct otherwise fill in", "Scale overwrite", NewScale)

        oView.[Scale] = 1 / strScale

        oDrawDoc.Update

    End Sub

[tkennedy26]

   Yep, but it in Visual Studio which I'm pretty novice at so I didn't think about it. and you were right, intellisense put in the "ViewOrientationTypeEnum.kFrontViewOrientation" after that it worked in iLogic.

Thanks for the help!

Working end line for reference:

Dim oBaseView As DrawingView = oSheet.DrawingViews.AddBaseView(modDoc, oPoint, oScale, ViewOrientationTypeEnum.kFrontViewOrientation, DrawingViewStyleEnum.kHiddenLineRemovedDrawingViewStyle)

[tkennedy26]

Thank you Bradeneurope, I just saw yours after I replied to MechMachineMan. I appreciate the help, I'll definitely use this as a reference as I keep going.