|
Inventor VBA : ipt-Skizze Linienfarbe verändern
daywa1k3r am 08.05.2014 um 17:01 Uhr (1)
Hallo Ralf,man könnte das Highlighten auch zusätzlich manipulieren, ja, oder sich die Objekte aus der Selektion merken, oder, oder… Aber ich halte ohnehin die Version mit „Farben-Durchlauf“ nicht als beste Lösung. Es sind einfach zusätzliche Klicks / Tastendrücke gegenüber der aktuellen Version mit einzelnen Farben. Es ist im Prinzip das was du im zweiten Teil beschreibst nur in anderer Richtung und ohne zusätzlichen Zwang die Funktion mit Esc beenden zu müssen. Jedoch was ist wenn man sich "verklickt"?Sch ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Size Designation aus iProperties auslesen
daywa1k3r am 25.04.2006 um 15:40 Uhr (0)
Hallo,dann ist der Wert von der ersten Property 0. Das ist schon richtig. Wenn du probierst Code:size = opartDoc.PropertySets(5)(2).Value dann wird ein anderer Wert statt 0 erscheinen. Die Frage ist welche von den "Content Library Component Properties" du brauchst. Was ich mit dem Code feststellen wollte ist, ob es mit ItemByPropId(kSizeDesignationContentLibrary).Value zusammenhängt, warum es nicht funktioniert. Und das scheint so zu sein, denn nur über den Index (5 für Content Center Properties und 1 fü ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Physikalische Eigenschaften in Parameterliste benutzen
daywa1k3r am 04.10.2006 um 09:55 Uhr (0)
So in etwa?Code:Public Sub Kontur() Dim oPart As PartDocument Dim oFace As Face Dim oThicknessParam As Parameter Dim oSheetMetalCompDef As SheetMetalComponentDefinition Dim dArea As Double Dim dVolume As Double Dim dThickness As Double Dim dContour As Double Aktives Dokument holen Set oPart = ThisApplication.ActiveDocument dArea = 0 For Each oFace In oPart.ComponentDefinition.SurfaceBodies(1).Faces Gesamtfläche berechnen dArea = dArea + oFace.Evaluator.Area Next Volumen berech ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : IDW über Inventor View Drucken
daywa1k3r am 18.02.2013 um 22:05 Uhr (0)
Zitat:Original erstellt von rkauskh:MoinWie druckst du denn mit InventorView? Codeschnipsel? Was gefällt dir an der Qualität nicht?Zitat:Original erstellt von ASDF:Hallo Ralf,gefällt Dir meine Fragestellung nicht oder hast Du sie nicht genau gelesen?Hallo ASDF,kann es sein, dass DU die Fragen ignorierst? Was mich interessieren würde ist:Zitat:Original erstellt von ASDF:Hallo zusammen,ich möchte gerne aus Access heraus mit Inventor View idw Dateien automatisiert ausdrucken,mit Pdf Dateien funktioniert das, ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : I-Properties
daywa1k3r am 24.08.2007 um 14:43 Uhr (0)
Servus Gerd,meinst du das:Code:*********************************Inventor - Zusammenfassungsinformationen{F29F85E0-4FF9-1068-AB91-08002B27B3D9}*********************************TitleSubjectAuthorKeywordsCommentsLast Saved ByRevision NumberThumbnail*********************************Inventor - Zus.-fassungsinfo f. Dokument{D5CDD502-2E9C-101B-9397-08002B2CF9AE}*********************************CategoryManagerCompany*********************************Design Tracking - Eigenschaften{32853F0F-3444-11D1-9E93-0060B03C1C ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Constraint zwischen Arbeitsebenen
daywa1k3r am 19.05.2008 um 11:54 Uhr (0)
Hilfedatei:Code:Public Sub MateConstraintOfWorkPlanes() Dim oAsmCompDef As AssemblyComponentDefinition Set oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition Get references to the two occurrences to constrain. This arbitrarily gets the first and second occurrence. Dim oOcc1 As ComponentOccurrence Set oOcc1 = oAsmCompDef.Occurrences.Item(1) Dim oOcc2 As ComponentOccurrence Set oOcc2 = oAsmCompDef.Occurrences.Item(2) Get the XY plane from each occurrence. This goes to the componen ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Auto-Kantenprojektion in Skizze an/ab-schalten
daywa1k3r am 28.03.2007 um 19:15 Uhr (0)
Also bei mir funktionieren nur die Publics Bist du dir das sicher, das deine Private Funktionen aufgerufen werden können?Also noch mal. Du hast die Funktion in dein Modul geschrieben und getestet und es funktioniert. Das Modul befindet sich in Anwendungsprojekt. Über Extras-Anpassen-Befehle-Makros konntest du in dem rechten Fenster deine Funktion sehen (kein vertipper?). Den Befehl konntest du in eine Werkzeugleiste reinziehen, und nach dem Klick tut sich nichts?Aber stimmt, dass ohne Anzeige so eine Funk ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : IV2015/2016 Browser Baugruppe
daywa1k3r am 27.05.2015 um 13:44 Uhr (1)
Zitat:Original erstellt von Chris 31:Wenn ich das nicht völlig falsch interpretiere, dann durchlaufen doch beide geposteten Codes rekursiv die Baugruppe, was ja nicht erwünscht war.Wie interpretierst du es denn? Hilf mal, oder auch Frank, denn drei haben es bisher schon falsch interpretiert :)Berno, dein Code, jedoch ein wenig gesäubert und umstrukturiert:Code:Sub KomponentenFixieren() If MeineBaugruppe Is Nothing Then Exit Sub ForAllComponents MeineBaugruppe.ComponentDefinition.Occurrences, TrueEnd ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : text wird nicht in textbox angezeit c#
daywa1k3r am 12.08.2012 um 09:52 Uhr (0)
Hallo,jetzt mal rein theoretisch, ohne es getestet zu haben… Du könntest den dritten Parameter in den Funktionen von String auf Control umstellen, und gleich das Control selbst übergeben. Anschließend kannst du die Text Property von Control setzen, da Control das Basisobjekt ist und sowohl die TextBox als auch ComboBox davon ableiten.Code: private void GetCustomiProperty(Inventor.Document Doc, String PropertyName, System.Windows.Forms.Control PropertyValueControl) // string war object bei ...
|
| In das Form Inventor VBA wechseln |
 |
Inventor VBA : BinaryFormatter serialization and deserialization are disabled within this applicatio
Meierjo am 30.06.2026 um 08:23 Uhr (15)
HalloWir haben ein kleines Add-in in Inventor im Einsatz, mit welchem ich einfach virtuelle Bauteile in Baugruppen einfügen kann. Bis Inventor 2025 hat dieses Add-in problemlos funktioniert. In Inventor 2027 (Inventor 2026 haben wir ausgelassen) verweigert es den Dienst, Fehlermeldung siehe Anhang.Hier noch in Textform:Code:System.NotSupportedException: BinaryFormatter serialization and deserialization are disabled within this application.See https://aka.ms/binaryformatter for more information.at system.Re ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : VB Add-In auf mehreren Clients / PCs ausführen
daywa1k3r am 08.05.2006 um 09:48 Uhr (0)
Hallo René, wenn du das auf allen Rechnern zum Laufen gebracht hast, dann hast du es schon einigermaßen begriffen. Und was du verwendest, um deine Anwendung zu installieren, hängt davon ab, wie weit die verbreitet werden soll. Programmierst du deine Programme für dich selbst um deine Produktivität zu steigern, brauchst du gar kein Setup, denn irgendwie bringst du das zum Laufen. Bist du in einer Konstruktionsfirma Der Programmierer und du programmierst nur für deine Kollegen, reicht es zu verstehen, wie si ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Koordinatentabelle mit x-, y-, und z-Koordinaten auf einer Zeichnungsableitung
daywa1k3r am 21.05.2012 um 19:51 Uhr (0)
Das Makro funktioniert nur für Arbeitspunkte als CenterMarks? Wenn Dir das reicht, und wenn als Name der StyleName gemeint ist, kannst Du das mal ausprobieren:Code:Public Sub CreateCustomCenterMarkTable() Set a reference to the drawing document. This assumes a drawing document is active. Dim oDrawDoc As DrawingDocument Set oDrawDoc = ThisApplication.ActiveDocument Set a reference to the active sheet. Dim oSheet As Sheet Set oSheet = oDrawDoc.ActiveSheet Set the column ti ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Probleme mit AddByProjectingEntity
daywa1k3r am 30.10.2008 um 15:08 Uhr (0)
Hallo, hast du schon das Beispiel aus der Hilfe ausprobiert?Code:Public Sub ProjectingAcrossParts() Set a reference to the assembly component definition. Dim oAsmCompDef As AssemblyComponentDefinition Set oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition Get references to two occurrences. This arbitrarily gets the first and second occurrence. Dim oOcc1 As ComponentOccurrence Set oOcc1 = oAsmCompDef.Occurrences.Item(1) Dim oOcc2 As ComponentOccurrence Set oOcc2 = oAsmCompDef.Occur ...
|
| In das Form Inventor VBA wechseln |
