|
Inventor VBA : Wie integriert man ein ivb Projekt in Inventor?
daywa1k3r am 18.02.2008 um 10:03 Uhr (0)
Zitat:Original erstellt von Kraxelhuber:...was muß ich dann mit der UserForm des neuen Projektes machen?...Neues Projekt: Drag Form - Anwendungsprojekt: Drop Form.------------------Grüße IgorFX64 Software Solutions
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : ActiveDoc->Property -> name ????
daywa1k3r am 02.02.2008 um 16:12 Uhr (0)
Hi,also das Makro ist so simple wie es nur simple sein kann. Aufgelistet werde alle Properties aus allen PropertySets. Was interessant zu wissen wäre ist ob du Daheim und in der Firma die gleiche Inventor Version (inkl. SP) benutzt? Und die Dateien sind auch die Gleichen (Firma - Daheim)? ------------------Grüße IgorFX64 Software Solutions
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Namen übergabe an FreePDFXP
Ernst3 am 27.09.2006 um 07:46 Uhr (0)
Na das ist ja schön.....dann seid ihr ja schon am Ziel.....Nun aber meine Frage dazu:Welchen habt ihr denn? PDFCreator oder PDF-Creator http://de.wikipedia.org/wiki/PDFCreator " Die beschriebene GPL-Software PDFCreator sollte nicht verwechselt werden mit der kostenpflichtigen Shareware "PDF-Creator", die der Hersteller CAD-KAS vertreibt."
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Rückgabewert einer Funktion mit Argumenten
daywa1k3r am 18.11.2006 um 21:20 Uhr (0)
Klar.Code:Private Sub TestSub() Dim iResult As Integer iResult = Addiere(2, 4) MsgBox iResultEnd SubPrivate Function Addiere(x As Integer, y As Integer) As Integer Addiere = x + yEnd Function------------------Grüße daywa1k3rFX64 Software Solutions
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteil aus DA (Desing Accelerator) Konstruktions-Assistent erkennen
daywa1k3r am 09.06.2008 um 12:39 Uhr (0)
Hi Udo, war so wie vermutet ein weiteres PropertySet. Mit dem Makro kannst du es löschen. Schau dann ob sich das Bauteil so verhält, wie du es haben willst.Code:Sub DeletePropertySet() Dim oPart As PartDocument Set oPart = ThisApplication.ActiveDocument If (oPart.PropertySets.Count 5) Then oPart.PropertySets(5).Delete End IfEnd Sub------------------Grüße IgorFX64 Software Solutions
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Microsoft Visual Basic 2005 Express Edition und Inventor?
daywa1k3r am 25.07.2007 um 10:06 Uhr (0)
Zitat:Original erstellt von BernhardU:OK! Habe nachgelesen! SharpDevelop hat keinen Debugger der VB unterstützt! Die Projekte können zwar erstellt werden, jedoch nicht debuggt! Schade mfg Bernhard Heißt ja auch SharpDevelop und nicht BasicDevelop Schade.------------------Grüße IgorFX64 Software Solutions
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : benutzerdefinierte iProbs löschen
daywa1k3r am 17.06.2008 um 14:08 Uhr (0)
Code:Sub Property_loeschen() Dim oDoc As Document Set oDoc = ThisApplication.ActiveDocument Dim oPropSets As PropertySets Set oPropSets = oDoc.PropertySets Dim oProp As Property Dim oPropSet As PropertySet Set oPropSet = oPropSets(4) For Each oProp In oPropSet oProp.Delete Next End Sub------------------Grüße IgorFX64 Software Solutions
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Save über CommandManager
daywa1k3r am 23.04.2007 um 16:40 Uhr (0)
Ich verstehe nicht was da nicht funktionieren soll!? Code:Sub test_save_asm() Dim oAsm As AssemblyDocument Set oAsm = ThisApplication.ActiveDocument ThisApplication.SilentOperation = True On Error Resume Next oAsm.SaveAs "C: est.iam", False If Err.Number = 0 Then MsgBox ("Alles klar") Else MsgBox ("Nix is klar") End If ThisApplication.SilentOperation = FalseEnd Sub------------------Grüße IgorFX64 Software Solutions
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Flächen automatisiert anwählen, um deren Farbe zu ändern
daywa1k3r am 05.03.2007 um 15:06 Uhr (0)
Code:Sub SelectAllFaces() If (ThisApplication.ActiveDocumentType kPartDocumentObject) Then MsgBox "Nur für Bauteile gedacht...", vbOKOnly, "Falscher Dokumenttyp" Exit Sub End If Dim oPart As PartDocument Dim oFace As Face Dim oSurfaceBody As SurfaceBody Set oPart = ThisApplication.ActiveDocument For Each oSurfaceBody In oPart.ComponentDefinition.SurfaceBodies For Each oFace In oSurfaceBody.Faces oPart.SelectSet.Select oFace Next NextEnd Sub------------------Grüße IgorFX64 So ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Size Designation aus iProperties auslesen
daywa1k3r am 25.04.2006 um 18:10 Uhr (0)
Hier:Code:Sub Properties() Dim oDoc As PartDocument Set oDoc = ThisApplication.ActiveDocument Dim oPropSet As PropertySet Dim oProp As Inventor.Property For Each oPropSet In oDoc.PropertySets Debug.Print "~~~~~~~~~~~~~~~~~~~~~ " & oPropSet.Name & " ~~~~~~~~~~~~~~~~~~~~~" For Each oProp In oPropSet On Error Resume Next Debug.Print vbTab & oProp.Name & ": " & oProp.Value If Err.Number 0 Then Debug.Print vbTab & oProp.Name; ": " & Err.Description Err.Clear End ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : guen abend
daywa1k3r am 19.12.2007 um 21:49 Uhr (0)
warez monkey wäre passender als winni puh. Geh weg!------------------Grüße IgorFX64 Software Solutions
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Apprentice und AttributeSet ?
daywa1k3r am 26.02.2006 um 10:18 Uhr (0)
Hilfe ------------------Grüße daywa1k3rFX64 Software SolutionsMold&More Software Solutions
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Material Stil ändern
daywa1k3r am 19.11.2005 um 12:00 Uhr (0)
Suchfunktion------------------Grüße daywa1k3rFX64 Software SolutionsMold&More Software Solutions
|
| In das Form INVENTOR VBA wechseln |
