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
Can't find what you're looking for? Ask the community or share your knowledge.