---

Hallo,
gibt es eine Möglichkeit, wenn man in einem Part eine 3D Skizze hat und dort eine Kontur definiert, die Länge dieser Kontur mittels VBA auszulesen ?

Im Inventor funktioniert es unter 
z.B. 3D-Skizze1 bearbeiten
Menü Extras -> Kontur messen
vorhandene Kontur mit Maus auswählen
nun wird der Wert in einer kleinen Box ausgegeben.

In der *.ipt ist nur eine 3D-Skizze und nur eine Kontur!

Wie komme ich an die Info per VBA?

MFG

[Diese Nachricht wurde von VOSTA1 am 19. Jul. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von VOSTA1:
[B]... eine 3D Skizze hat und dort eine Kontur definiert, die Länge dieser Kontur mittels VBA auszulesen ?

---

Hallo Vosta,

wenn's 'ne 3D-Linie ist, dann geht es so:

Private Sub getLenght3D()
 
  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
  Dim oDoc As PartDocument
  Set oDoc = oApp.ActiveDocument
 
  Dim oSk3D As Sketch3D
  Set oSk3D = oDoc.ComponentDefinition.Sketches3D(1)
 
  Dim oLine As SketchLine3D
  Set oLine = oSk3D.SketchLines3D(1)
 
  Debug.Print Round(oLine.Length * 10, 3)

End Sub

Für andere Skizzenelemente (z.B. 3D-Spline) musst Du halt erst prüfen, was überhaupt in der Skizze ist.

Grüsse,

Paul
www.morecam.ch/cad.htm

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich bin begeistert:

11 Zeilen, und davon 10 Zeilen Overhead.

Und da soll noch mal einer behaupten, Pascal-Programmierer wären Quasselstrippen 

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Schon mal vielen Dank an Paul für die schnelle Antwort !

Für die zweite weniger erquickliche Antwort.
Es würde auch mit 7 Zeilen gehen.
Über 25% Ersparnis das ist doch was?!?
############################################################
Private Sub getLenght3D_()
 
  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
  Dim oDoc As PartDocument
  Set oDoc = oApp.ActiveDocument
  
  MsgBox oDoc.ComponentDefinition.Sketches3D.Item(1).SketchLines3D.Item(1).Length * 10
 
End Sub
##############################################################

Jetzt hab ich aber noch ein Problem.
es gibt 5 Arbeitspunkte, die mit 4 Linien verbunden sind,
und mit 3 Radien und alles auf einer Ebene

mit
oSk3D.SketchArcs3D.Item(1).Length * 10
oSk3D.SketchArcs3D.Item(2).Length * 10
oSk3D.SketchArcs3D.Item(3).Length * 10

bekomme ich die tatsächlichen Bogenlängen

und mit
oSk3D.SketchLines3D.Item(1).Length * 10
oSk3D.SketchLines3D.Item(2).Length * 10
oSk3D.SketchLines3D.Item(3).Length * 10
oSk3D.SketchLines3D.Item(4).Length * 10
bekomme ich die Linienlängen, aber nur die zwischen den
Arbeitspunkten, diese sind aber jetzt kürzer, da der Radius
vorhanden ist.

Mit einer einfachen Aufsummierung ist es nicht getan, um
die Länge des Splines zu bekommen.

Diese SketchLines3D müßten dann über Winkelfunktionen umgerechnet werden.

Bei einem Spline der nicht mehr auf einer Ebene liegt, sondern sich im Raum befindet, wird es wohl ganz schön aufwendig!

Ist das die einzige Möglichkeit?

MFG

[Diese Nachricht wurde von VOSTA1 am 20. Jul. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP