.NET

[#1]

I am looking for the correct TypedValue to get only polylines. Any ideas

PublicSub WATakeoff()

Dim myDocument AsDocument = DocumentManager.MdiActiveDocument

Dim myDB AsDatabase = HostApplicationServices.WorkingDatabase   ' Database of Drawing

Dim myEd AsEditor = myDocument.Editor

Using myTrans AsTransaction = myDocument.TransactionManager.StartTransaction

Dim myTVs(1) AsTypedValue

            myTVs(0) = NewTypedValue(DxfCode.LayerName, "T-STRIP-WHITE")

            HERE IS MY PROBLEM : myTVs(1) = NewTypedValue(Poly2dType.SimplePoly)

Dim myFilter AsNewSelectionFilter(myTVs)

Dim myPSR AsPromptSelectionResult = myEd.GetSelection(myFilter)

            MsgBox(myPSR.Value.Count)

If IsNothing(myPSR.Value) = TrueThen

                myTrans.Abort()

Exit Sub

EndIf

If IsNothing(myPSR.Value) = FalseThen

Dim myss AsSelectionSet = myPSR.Value

ForEach mySelObj AsSelectedObjectIn myss

ForEach myObjID AsObjectIdIn myPSR.Value.GetObjectIds

If myObjID.ObjectClass.DxfName = "LWPOLYLINE"Then

                            MsgBox(myObjID.ObjectClass.DxfName & vbCr & myObjID.ObjectClass.Name)

                            Autodesk.Civil.QTO.DatabaseServices.

QTOUtility.AddPayItemId(myObjID, "6472120")

EndIf

Next

Next

EndIf

            myTrans.Commit()

EndUsing

EndSub

[#2]

Hi Troymoore,

try this:

  myTVs(1) = NewTypedValue(DXFCode.Start,"LWPOLYLINE")

[#3]

Thanks. I knew it was something simple, but I needed more coffee.