Visual Basic/SolidWorks

Du skal have en sketch åben med en eller flere linier valgt.

Sub Start()
    Dim swapp As Object

    Set swapp = CreateObject("SldWorks.Application")
    Set part = swapp.activedoc
    retval = part.GetLines
End sub

Retval vil returnere et array af double.
[Linie type, Xpkt1, Ypkt1, Xpkt2, Ypkt2, .....]

Tak for svaret, lige en ting mere.
Jeg får nu nogle endepunkter tilbage fra linien, men jeg har svært ved at tolke dem. For det første får jeg kun heltal tilbage og for det andet synes jeg ikke at kunne relatere koordinaterne til min SolidWorks tegning.
Ved du hvordan det er at dataene bliver repræsenteret?

Ignorer ovenstående kommentar, jeg har fundet ud af det.
For at jeg kan give dig pointene skal du skrive et "svar" du har skrevet en "kommentar"

Ok - så er der her et svar (Det var første gang jeg har deltaget og fået point).