Convert Lines in LWPolylines

Hi, I’ve a problem. In my drawing I have a number n of lines. I want t oconvert them into LWPolylines.
I tried a meythod:

Public Sub sellinesandconvert()
  Dim sset As AcadSelectionSet
  Dim objline As AcadLine
  Dim lenght As Double
  Dim objpoly As AcadLWPolyline
  Dim vertex(0 To 1) As Double
  Dim points(0 To 3) As Double

lenght = 0
  Set sset = ThisDrawing.SelectionSets.Add("TEST")
  sset.SelectOnScreen
  Set objline = sset.Item(0)
  If objline.Delta(0) = 0 Then
    lenght = lenght + Abs(objline.Delta(1))
  ElseIf objline.Delta(1) = 0 Then
    lenght = lenght + Abs(objline.Delta(0))
  End If
  points(0) = objline.StartPoint(0)
  points(1) = objline.StartPoint(1)
  points(2) = objline.EndPoint(0)
  points(3) = objline.EndPoint(1)
  Set objpoly = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
  'Delete line
  objline.Delete
  objpoly.Closed = False
   For i = 1 To sset.Count - 1
    Set objline = sset.Item(i)
    If objline.Delta(0) = 0 Then
      lenght = lenght + Abs(objline.Delta(1))
    ElseIf objline.Delta(1) = 0 Then
      lenght = lenght + Abs(objline.Delta(0))
    End If
    vertex(0) = objline.EndPoint(0)
    vertex(1) = objline.EndPoint(1)
    objpoly.AddVertex i + 1, vertex
    'Delete line
    linea.Delete
  Next
  MsgBox "lenght : " & lenghtofpolyline(objpoly), vbOKOnly
  'Delete SelectionSet
  ThisDrawing.SelectionSets.Item("prova").Delete
End Sub

This code has a very big problem: I had to select lines in AutoCAD in order. I can’t use the selection window (as more common AutoCAD commands). How can I resolve this? Does anybody has an idea?

Thank you very much.

Diego Alejandro Talledo

 

You can use the a selection window but you'll have to sort the line entities by their endpoints and match them up with others that share the same endpoint.




There is already a routine in the Express Tools that will provide this functionality.




http://estore.autodesk.com/dr/v2/ec_MAIN.Entry17c?SP=10007&PN=5&CID=0&SID=19515&PID=282138&DSP=&CUR=840&CACHE_ID=-1

 

See the first paragraph in my previous answer.

 

Would you be opposed to an autolisp solution?

;JOIN LINES, PLINES & ARCS INTO A SINGLE POLYLINE

(defun c:join (/ ent n name ss1 etype)
(setq ss1 (ssget '((-4 . "<OR") (0 . "line") (0 . "arc") (0 . "polyline") (0 .
"lwpolyline") (-4 . "OR>"))))
(if ss1
(progn
(setq n (sslength ss1)
name (ssname ss1 0)
ent (entget name)
etype (cdr (assoc 0 ent))
)
(if (or (= etype "POLYLINE") (= etype "LWPOLYLINE"))
(command ".pedit" name "j" ss1 "" "")
(command ".pedit" name "" "j" ss1 "" "")
)
)
(princ "\nNothing selected. ")
)
(princ)
)

realised that AutoCAD Express Tools 1.9 costs 149$. But I can't spend so much
money, because I'm a student and I'm writing my application for scolastic level.
So, have you got any idea?

 

Hello, thank you for answering...
I'm not opposed use Visaul Lisp Routines. Can I run this LISP code from VBA?
Thank you
Diego

 

Technically it's possible (see VLAX on AcadX.com), but I don't know that I
would recommend it. I'm not sure if it is a good idea to run autolisp
functions that contain COMMAND calls using VLAX. Frank Oquendo could answer
that better than I can.