|
Inventor VBA : iProperties löschen
daywa1k3r am 04.08.2008 um 11:56 Uhr (0)
Oder einfach kurz und-color: #FFFF99'>suchen...------------------Grüße IgorFX64 Software Solutions - Inventor Tools
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Fehler in Programmablauf
daywa1k3r am 07.09.2009 um 13:25 Uhr (0)
Hallo Konrad, ich habe png mit 2010 probiert und da hat es funktioniert (war selber überrascht). Dann ist deine Inventor Version noch verbuggt.Code Tag öffnet man vor dem Codeabschnitt mit (Code) -- Die Runden- durch Eckigen- Klammern ersetzen und schliesst man hinter der letzten Codezeile mit (/code) -- auch hier die runde durch eckige Klammern ersetzen. Schau mal hier...Was dein Problem betrifft, kannst du probieren dein ActiveView vor dem exportieren in ein Bild zu updaten (ActiveView.Update).---------- ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : teile in der baugruppe per excell ei/ausblenden
daywa1k3r am 28.07.2003 um 08:20 Uhr (0)
Hallo Armin, Teil X durch Teil Y ersetzen In der Pause, schaue ich mir mal ob das, mit einer Bedingung, aus Excel zu starten ist. Bis dann... ------------------ Grüße daywa1k3r
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Fehler in Programmablauf
daywa1k3r am 04.09.2009 um 12:51 Uhr (0)
Zitat:Original erstellt von conness:Geht das auch im Format .png ?bmp durch png ersetzen und probieren (ich nehme die Spannung weg - Ja es geht) ;) Zitat:Original erstellt von conness:... was ist .netWird bald auch im CAD-Bereich VB(A) ablösen.------------------Grüße IgorFX64 Software Solutions - Inventor Tools
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : DXF mit DXFTranslator AddIn, Optionen?
daywa1k3r am 15.03.2010 um 16:34 Uhr (0)
Hallo Roland, da du anscheinend nach VBA Makros suchst verschiebe ich den Thread in VBA Inventor Forum. Und was die DXF Geschichte betrifft, gibt es in VBA Forum Beispiele dafür (auch für die Optionen), so einfach mal nach DXF und-color: #FFFF99'>suchen.------------------Grüße IgorFX64 Software Solutions - Inventor Tools
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Punkt im Raum mit VB
daywa1k3r am 28.04.2004 um 07:04 Uhr (0)
3D Point ist einfach Point. Ich habe mal ein WorkPoint gemacht, so dass du es besser sehen kannst... Code: Public Sub test_point() Dim oPoint As Point Dim oWP As WorkPoint Set oPoint = ThisApplication.TransientGeometry.CreatePoint(2, 2, 2) Set oWP = ThisApplication.ActiveDocument.ComponentDefinition.WorkPoints.AddFixed(oPoint) End Sub Das Ganze jetzt als VBA. In VB musst du ThisApplication durch Inventor.Application Object ersetzen. ------------------ Grüße daywa1k3r ...
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : VBA-Tutorial
daywa1k3r am 27.02.2003 um 16:19 Uhr (0)
Ach so, Inventor / Programmierungshilfe / und-color: #FFFF99'>Suchen. Als Suchbegriff "Units of Measure" eingeben. Lesen. Die "Length" wäre das was Du suchst. Bis dann... Nachtrag: Uwe das stimmt! Nachtrag 2 : Tja wenn aber der Wert von "dblLocalUnits" und die Einheit nicht zusammen passen, dann sieht es aus wie wenn das ein Bug ist. Falls das konstant so ist, kannst Du es mit Val(m_oUOM.GetStringFromValue(dblVal, kDefaultDisplayLengthUnits)) / 10 "reparieren". Und wenn Du dich weiter mit VBA befasst, wirst Du sehen dass ...
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : VBA: Part in Assembly aktivieren?
daywa1k3r am 26.03.2003 um 20:29 Uhr (0)
Hi SEHER, es geht, wenn du weisst wie das Teil heisst. Code: Public Sub Selektiere() Call HoleElemente(ThisApplication.ActiveDocument.ComponentDefinition.Occurrences) End Sub Public Function HoleElemente(Elemente As ComponentOccurrences) Dim oObject As Object For Each oObject In Elemente If oObject.Name = "Schraube:1" Then Ersetzen durch deine Datei ThisApplication.ActiveDocument.SelectSet.Select oObject Debug.Print oObject.Name & " wurde selektiert" End If Call HoleEleme ...
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Erste Schritte mit VBA u. Inventor
daywa1k3r am 17.07.2003 um 11:23 Uhr (0)
Hallo, ja das geht, aber es ergibt keinen Sinn. Wenn du jetzt auf dein Icon in der Werkzeugleiste klickst, soll der prüfen ob das passende Dokument offen ist, und wenn nicht soll er sich verstecken ? Wie auch immer so kannst du prüfen ob ein Dokument offen ist, und von welchen Typ es ist. Code: If ThisApplication.Documents.Count = 0 Then MsgBox No Document If ThisApplication.ActiveDocumentType = kAssemblyDocumentObject Then MsgBox Assembly Document If ThisApplication.ActiveDocumentType = kPartDocum ...
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Wert aus Eigenschaftsfeld
daywa1k3r am 08.10.2003 um 09:17 Uhr (0)
Hallo Akrist, ich habe doch hier mal was gepostet: Code: Public Sub test_idw_eig() Dim oDraw As DrawingDocument Dim oProp As Property Dim oPropSet As PropertySet Dim oPropSets As PropertySets Dim i As Integer On Error Resume Next Set oDraw = ThisApplication.ActiveDocument If Err.Number 0 Then MsgBox Irgendwas stimmt nicht. Hab aber jetzt keine Zeit danach zu und-color: #FFFF99'>suchen. Sorry! , vbCritical, daywa1k3r End End If Set oPropSets = oDraw.PropertySets i = 1 For Each oPropSet In oPro ...
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Zeichnungsverwaltung mit Access
daywa1k3r am 04.09.2003 um 09:23 Uhr (0)
Hiermit: Code: Public Sub test_idw_eig() Dim oDraw As DrawingDocument Dim oProp As Property Dim oPropSet As PropertySet Dim oPropSets As PropertySets Dim i As Integer On Error Resume Next Set oDraw = ThisApplication.ActiveDocument If Err.Number 0 Then MsgBox Irgendwas stimmt nicht. Hab aber jetzt keine Zeit danach zu und-color: #FFFF99'>suchen. Sorry! , vbCritical, daywa1k3r End End If Set oPropSets = oDraw.PropertySets i = 1 For Each oPropSet In oPropSets For Each oPr ...
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : In Assembly, welches Bauteil ausgewählt?
daywa1k3r am 30.09.2004 um 19:39 Uhr (0)
Ah, waldi... Das wird schon wieder Das typische Beispiel des Missbrauchs eines Sample Codes @Roland Dein Code macht genau das, was dir der waldi vorgeschlagen hat. Aber macht dir keine Sorgen, das ist normal. Bevor sich die Leute Gedanken machen, und-color: #FFFF99'>suchen Sie ( selbst wenn es länger dauert ) immer nach der fertigen Lösung. Also: am besten holst du dir über den Select Set die gewählte Occurrence meint Dim oOccurrence As ComponentOccurrence Dim doc As Document On Error Resume Next Set ...
|
| In das Form INVENTOR VBA wechseln |
