How to Explode a line?

[Anonymous]

hi,everyone:

suppose i have drawed a line, and i 'd like to divide it into 3 lines,

maybe i can use a point right on the line to decide where to cut this

line, could anyone help me? thanks

[Anonymous]

perhaps try the DIVIDE or MEASURE commands.

Regards,

[Anonymous]

Sir, thanks for answering my question. but i want my program to do this automatic, not by users,can you help me?

[Anonymous]

The way I would normally achieve this is to delete the original line, and draw smaller lines of your own instead.

I have created a brief tutorial for how to achieve this at the link below:

http://howtoautocad.com/break-a-line-into-smaller-pieces-using-vba-or-vb-net-in-autocad/

Regards,

[Anonymous · Accepted solution]

Remember that a line is simply a Curve at its base. Thus you can use the Curve.GetSplitCurves method which will return a collection of DBObjects that you can append to the space. Hope this points you in the right direction. If you need more help, let us know.

Using lck As DocumentLock = Application.DocumentManager.MdiActiveDocument.LockDocument
            Using db As Database = HostApplicationServices.WorkingDatabase
                Using trans As Transaction = db.TransactionManager.StartTransaction
                    Try
                        Dim cur As Curve = trans.GetObject(prEnt.ObjectId, OpenMode.ForWrite)
                        Dim pt3Dcol As New Point3dCollection
                        Dim endDist As Double = cur.GetDistAtPoint(cur.EndPoint)
                        Dim divLen As Double = endDist / 3.0
                        Dim pt As Point3d

                        For dbl As Double = 0.0 To endDist Step divLen
                            pt = cur.GetPointAtDist(dbl)
                            pt3Dcol.Add(pt)
                        Next

                        If pt3Dcol.Count = 0 Then GoTo TransEnd

                        Dim objCOl As DBObjectCollection = cur.GetSplitCurves(pt3Dcol)

                        Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForRead, False)
                        Dim btr As BlockTableRecord = trans.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite, False)

                        If objCOl.Count > 0 Then
                            For Each dbObj As DBObject In objCOl
                                btr.AppendEntity(dbObj)
                                trans.AddNewlyCreatedDBObject(dbObj, True)
                            Next
                        End If

                        cur.Erase()

TransEnd:
                        trans.Commit()
                    Catch
                        trans.Abort()
                    End Try
                End Using
            End Using
        End Using

[Anonymous]

Hello,

I've spent some time away from AutoCAD .net while working within Revit .net  and was curious when did everything begin to derive from Curve?  That is exactly what Revit's model structure does.  Starting to think that one day there will be a single CAD software that does it all $,$$$,$$$.$$.

jvj