Hallo miteinander,
ich möchte gerne von ausgewählten Linien die Anfangs- und Endkkordinaten haben
dank Forum habe ich mit:
Private Sub CommandButton1_Click()
Dim AcObject As Object
Dim AcPline As AcadLine
Dim ArrStartofLine() As Double
Dim ArrEndofLine() As Double
Dim sset As AcadSelectionSet
'Userform verstecken
Me.Hide
Set sset = ThisDrawing.SelectionSets.Add("Meine_Auswahl")
sset.Clear
sset.SelectOnScreen
Debug.Print "Ausgabe" & sset.Count
For Each AcObject In ThisDrawing.SelectionSets("Meine_Auswahl")
'Ist das Object vom Typ Linie?
If TypeName(AcObject) = "AcadLine" Then
'Weise das Object dem richtigen Typ zu
Set AcPline = AcObject
'Übergib die Koordinatenpaare in das Array
ArrStartofLine = AcPline.StartPoint()
ArrEndofLine = AcPline.EndPoint()
'Ausgabe der Koordinaten im Debug-Fenster
Debug.Print "Start X/Y/Z", ArrStartofLine(0), ArrStartofLine(1), ArrStartofLine(2)
Debug.Print "Ende X/Y/Z", ArrEndofLine(0), ArrEndofLine(1), ArrEndofLine(2)
End If
Next AcObject
sset.Delete
'lösche die Objecte wieder
Set AcObject = Nothing
Set AcPline = Nothing
Me.Show
End Sub
den Anfang aber leider ist hier der Wurm drin:
.
.
.
For Each AcObject In ThisDrawing.SelectionSets("Meine_Auswahl")
'Ist das Object vom Typ Linie?
If TypeName(AcObject) = "AcadLine" Then
.
.
.
Würde mich sehr freuen, wenn mir vielleicht jemand sagen könnte was hier richtiger Weise stehen muss.
Grüße
hep
------------------
ADT 2006, Glaser -isb cad- 19.0, WIN XP SP2
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de
| 
