Hallo.
Ich habe eine Zeichnung, mit einer Ansicht eines abgewickelten Blechteil. Ich möchte hier die BoundaryBox der Abwicklung auswerten. Dazu sollte ja die Funktion GetSMBoundaryBoxDisplayData da sein, jedoch liefert mir diese keine Daten.
Ich habe die Ansicht selektiert und verwende folgenden Code:
Code:
Dim swApp As sldworks.SldWorks = CType(GetObject(, "SldWorks.Application"), sldworks.SldWorks)
Dim swView As sldworks.View
Dim swSelectionManager As sldworks.SelectionMgr
Dim swDoc As sldworks.ModelDoc2
Dim swDrawing As sldworks.DrawingDoc
swDoc = swApp.ActiveDoc
'Get the selectionmanager for the document
swSelectionManager = swDoc.ISelectionManager
'Get the selected view
swView = swSelectionManager.GetSelectedObject6(1, 0)
If swView Is Nothing Then
Exit Sub
End If
Dim dimensions As sldworks.IDisplayData swDrawing = swDoc
swDrawing.ActivateView(swView.Name)
Dim line1
swView = swDrawing.ActiveDrawingView
dimensions = swView.GetSMBoundaryBoxDisplayData()
Dim linecount As Integer = dimensions.GetLineCount
Dim x As Integer
For i = 0 To dimensions.GetLineCount
line1 = dimensions.IGetLineAtIndex3(i)
Next i
Gefunden werden 9 Linien. Jede dieser linie gibt jedoch den Wert -1 zurück, anstatt eines arrays.
(line1 = dimensions.IGetLineAtIndex3(i))
Was mache ich denn da falsch?
------------------
ICH BIN UND WAR NIE EIN FREIER MITARBEITER!
[Diese Nachricht wurde von gegy3 am 08. Jul. 2012 editiert.]
[Diese Nachricht wurde von gegy3 am 08. Jul. 2012 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP