.NET
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

Typed Value - Polyline

2 REPLIES 2
Reply
Message 1 of 3
frankp23
890 Views, 2 Replies

Typed Value - Polyline

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

Troy Moore
Civil3D 2014
Windows 7 Pro, 64 bit
Intel Xeon E31225 @ 3.40Ghz
16 GB RAM
Tags (3)
2 REPLIES 2
Message 2 of 3
Paulio
in reply to: frankp23

Hi Troymoore,

 

try this:

 

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

Message 3 of 3
frankp23
in reply to: Paulio

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

Troy Moore
Civil3D 2014
Windows 7 Pro, 64 bit
Intel Xeon E31225 @ 3.40Ghz
16 GB RAM

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Autodesk DevCon in Munich May 28-29th


Autodesk Design & Make Report

”Boost