|
INVENTOR VBA : Plotter mit Falteinheit
ILLIG am 21.09.2005 um 10:14 Uhr (0)
Hallo Marco,du hast nicht gesagt welchen Druckertreiber und welches Programm du verwendest. Aber normalerweise kann man ja auch in eine Datei ausdrucken, wenn du diese Datei dann mit dem Editor öffnest siehst du vielleicht die Druck und Faltbefehle, bei HPGL ist das auf jeden Fall so.Dann druckt man 2x die gleiche Datei, 1x gefaltet und 1x ungefaltet, so findet man die beiden Plotbefehle fürs Falten raus.Bei uns sehen die z.B. so aus:- gefaltet mit Heftrand@PJL SET FINISHPROGID="190/20 Cross Fold"- ungefal ...
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Eingebettete Excel File
0laf am 22.09.2005 um 14:49 Uhr (0)
Hallo eagle82,mittels VB kann ich so auf die eingebette Excel-Datei zugreifen:Dim wb As Excel.WorkbookDim sh As Excel.WorkSheetDim exl As New Excel.ApplicationSet wb = exl.Workbooks.Add()Set sh = oParams.ParameterTables(1).WorkSheetSet wb = sh.Parentsh.Cells(4, 1).Value = "test"Sollte analog in VBA genauso gehen. Grüße Olaf
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Text mittels VBA ändern
Stelli1 am 28.09.2005 um 09:32 Uhr (0)
Hallo,leg dir doch im vba Editor ein Modul an und kopiere folgenden Coderein:Code:Option ExplicitSub Rot_Klick() Dim entity As AcadEntity Dim Pkt As Variant Dim Abbruch As Boolean ThisDrawing.Utility.Prompt Chr$(10) & "Elemente rot färben ....." Do On Error Resume Next ThisDrawing.Utility.GetEntity entity, Pkt, Chr$(10) & "Element anklicken (oder ESC zum beenden): " If Err.Number = 0 Then On Error GoTo 0 On Error Resume Next entity.Color = acRed If Err.Number 0 Then ...
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Text mittels VBA ändern
daywa1k3r am 28.09.2005 um 10:36 Uhr (0)
@Stelli1AutoCAD? Wir nix AutoCAD, wir Inventor. ------------------Grüße daywa1k3rFX64 Software SolutionsMold&More Software Solutions
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Text mittels VBA ändern
Stelli1 am 28.09.2005 um 14:45 Uhr (0)
Hallo daywa1k3r,ich nix inventor. Aber ich war davon ausgegangen ds die AutoCAD Grundklassenauch in Inventor vorhanden sind.Lassen sich diese nicht als Verweise einstellen ??Stelli------------------Warum lispeln wenns auch anders geht.
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Ansprchen von nicht geöffneten Dateien
lbcad am 06.10.2005 um 08:27 Uhr (0)
Ohne es jetzt genau zu wissen:"activeDocument" spricht ja ein Dokument an, das gerade im IV geöffnet ist. Dann macht man mit den Objekten innerhalb des Dokuentes etwas.Normalerweise kann man dann auch ein beliebiges Dokument auf der Platte ansprechen und mit dessen Objekten das gleiche anstellen. Nur normalerweise muß man es dann eben doch öffnen - aber eben möglicherweise im Hintergrund - und dann wieder weglegen. Die Referenz zu dieser Datei wird ja beim öffnen erzeugt - und die muß man dann wohl anstell ...
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Ansprchen von nicht geöffneten Dateien
VOSTA1 am 06.10.2005 um 14:04 Uhr (0)
Hallo, es ist möglich!hier ein VorschlagDaten ansprechen bei nicht geöffneter Datei++++++++++++++++++++++++++++++++++++++Sub Daten_ansprechen()Dim Datei As StringDatei = "C: est.ipt"Dim oApp As Inventor.ApplicationSet oApp = GetObject(, "Inventor.Application") Dim opartDoc As partDocumentSet opartDoc = oApp.Documents.Open(Datei, False) Dim test_prop As Stringtest = opartDoc.PropertySets("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}").Item("Title").ValueBenutzer Eigenschaft "Abmessung" muß erst erzeugt werdenDim ...
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Excel-Export
Dammfeld am 12.10.2005 um 15:25 Uhr (0)
Hallo Forum,ich habe eine Frage zum Stücklisten-Export nach Excel. Ich habe mir ein Makro geschrieben, welches den Export übernimmt.Wie kann ich das Makro beim Schließen einer Datei automatisch ausführen? Es soll keine Abfrage kommen, die Stückliste soll einfach neu erstellt werden.GrußDietmar
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Inventor + Excel
Dammfeld am 26.10.2005 um 08:37 Uhr (0)
Hallo Forum,ich habe eine ActiveX-Dll mit VB6 erstellt und im Inventor als Addin (mit Autostart) eingebunden. Das Addin reagiert auf das Ereignis "OnCloseDocument". Beim Beenden einer IDW wird die Stückliste automatisch nach Excel exportiert. Es funktioniert auch alles bis auf die Tatsache, dass Excel im Arbeitsspeicher bleibt bis Inventor geschlossen wird. Hat jemand einen Lösungsvorschlag?Hier der Quellcode:===================Private Sub objAppEvents_OnCloseDocument(ByVal DocumentObject As Document, ByVa ...
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Inventor AddIn mit VB.Net
BernhardU am 23.11.2005 um 10:01 Uhr (0)
Das ist der Code aus VB.NET des AddIns ich möchte damit eine Form (Schriftfeld1) aufrufen:Imports InventorImports System.Runtime.InteropServicesNamespace Schriftfeld ProgId("Schriftfeld.StandardAddInServer"), _ GuidAttribute("DB5A79C7-64BC-481B-B06C-1131B17CB13B") _ Public Class StandardAddInServer Implements Inventor.ApplicationAddInServer Private WithEvents oButtonDef As ButtonDefinition#Region "Data Members" Dim InventorApplication As Inventor.Application#End Region#Region "ApplicationAddInS ...
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Inventor AddIn mit VB.Net
BernhardU am 23.11.2005 um 10:01 Uhr (0)
Das ist der Code aus VB.NET des AddIns ich möchte damit eine Form (Schriftfeld1) aufrufen:Imports InventorImports System.Runtime.InteropServicesNamespace Schriftfeld ProgId("Schriftfeld.StandardAddInServer"), _ GuidAttribute("DB5A79C7-64BC-481B-B06C-1131B17CB13B") _ Public Class StandardAddInServer Implements Inventor.ApplicationAddInServer Private WithEvents oButtonDef As ButtonDefinition#Region "Data Members" Dim InventorApplication As Inventor.Application#End Region#Region "ApplicationAddInS ...
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : dwg Export
inventomas am 28.11.2005 um 10:41 Uhr (0)
Hallo Leute,Wie kann ich beim dwg Export per Makro einstellen das ich keine Pack and Go Datei(zip) haben will sondern eine dwg?Danke Thomas
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : dwg Export
inventomas am 30.11.2005 um 15:13 Uhr (0)
Hallo Andreas,Ich benutze genau den selben Code!Aus unerklärlichen Gründen macht er hin und wieder direkt ein zip und keine dwg Datei.GrüßeThomas
|
| In das Form INVENTOR VBA wechseln |
