---

Hallo Forum,
möchte alle Fasengröße eines Parts auslesen. Finde dazu aber keine Dokumentation oder bin ich im neuen Jahr vba blind eingestiegen.

Wo schau ich am besten nach, ohne mit try & error zu versuchen.

Public Sub fase()
Dim oDoc As Inventor.PartDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oFeatures As PartFeatures
Set oFeatures = oDoc.ComponentDefinition.Features
Dim oFeature As PartFeature
For Each oFeature In oFeatures
Select Case oFeature.Type
Case kChamferFeatureObject
MsgBox oFeature.Name
End Select
Next
End Sub

Frohes Neues

SEHER  

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

---

Ich bin mir nicht sicher, ob ich dein Problem verstehe (auch nicht, ob du eins hast   ), aber vielleicht hilft das:

MsgBox oFeature.Definition.Distance.Expression

------------------
Grüße daywa1k3r

FX64 Software Solutions
Mold&More Software Solutions

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

---

Danke Igor,
aber wie kann ich systematisch an das definition.distance.expression kommen. Bei ofeature bietet mir vba kein definition an, dann kein distance und dann kein expression. Hast Du das im Urin oder wo findet man diese Folge? Wie ist der Radius bei einem Fillet? Auf jeden Fall 10Us!

Gruß
Seher      

[Diese Nachricht wurde von SEHER am 03. Jan. 2006 editiert.]

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

---

Hallo Seher,

setze bei "End Select" einen Breakpoint, und dann gehe mit der Maus auf oFeature und dann "Überwachung hinzufügen...". So kannst du dir dann dein Objekt in dem Überwachungsfenster anschauen, und raussuchen was du brauchst, denn nicht alle Eigenschaften eines Objektes werden in der Liste angezeigt.

------------------
Grüße daywa1k3r

FX64 Software Solutions
Mold&More Software Solutions

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

---

Super,
genau so einen Hinweis habe ich gesucht um bei allen möglichen Sachen strukturiert weiter zu kommen.

Mehr Us geht leider nicht.

Ich werd es sofort testen.

Gruß
SEHER

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

---

Hi igor

schön das du dich der hellen seite der macht zuwendest 
Try
  [ tryStatements ]
[ Catch [ exception [ As type ] ] [ When expression ]
  [ catchStatements ] ]
[ Exit Try ]
...
[ Finally
  [ finallyStatements ] ]
End Try

PS: Ich habe die Fremdsprachen nicht vergessen, aber im Moment brennt bei mir die Hütte 

------------------

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

---

Zitat:

---

Original erstellt von SEHER:
Hast Du das im Urin oder....

---

Ich hatte schon länger den Verdacht, das der Igor Code-Snippets pinkelt. 

------------------
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