| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: automatisch idw erzeugung (2176 mal gelesen)
|
kleiner Mitglied
Beiträge: 137 Registriert: 20.01.2002 Inventor Prof. 8 SP1, Windows XP SP1, 2 x Intel Xeon 2,66 Ghz 533 Mhz FSB Hypert., WildCat VP 990 Pro 512 MB, 2048 MB SD-RAM, 2 x SCSI 15000 U/Min.
|
erstellt am: 28. Jun. 2004 12:04 <-- editieren / zitieren --> Unities abgeben:
bräuchte für den inventor 8 prof folgendes vba programm wenn ich z.b. eine test.ipt (oder test.iam) habe, soll das programm mittels eines button`s, automatisch eine test.idw (im vorlagenverzeichnis die norm.idw nehmen) erzeugen, der speichername soll der gleiche name sein wie in der ipt, ist jedoch die test.idw bereits gespeichert (vorhanden) dann soll automatisch die test.idw geöffnet werden hat jemand so etwas schon programmiert? vielen dank im voraus
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
lbcad Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3833 Registriert: 15.02.2001 DELL Precision 7520 Win10Pro-64 Inventor mit Vault Professional 2024 --------------------- Während man es aufschiebt, verrinnt das Leben. Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)
|
erstellt am: 29. Jun. 2004 10:10 <-- editieren / zitieren --> Unities abgeben: Nur für kleiner
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 29. Jun. 2004 10:41 <-- editieren / zitieren --> Unities abgeben: Nur für kleiner
Zitat: Original erstellt von lbcad: ... Wenn wir uns jetzt zusammen tun, dann haben wir so was auch schnell gemacht!...
Dieser Satz... Wow... Also, ich habe Gänsehaut bekommen Ich hätte auch schon einen Namen für euere Koalition: web.de & gmx.de Corporation Spass bei Seite... Viel Spass beim Coden Jungs ------------------ Grüße daywa1k3r Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
lbcad Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3833 Registriert: 15.02.2001 DELL Precision 7520 Win10Pro-64 Inventor mit Vault Professional 2024 --------------------- Während man es aufschiebt, verrinnt das Leben. Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)
|
erstellt am: 29. Jun. 2004 13:59 <-- editieren / zitieren --> Unities abgeben: Nur für kleiner
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 29. Jun. 2004 14:19 <-- editieren / zitieren --> Unities abgeben: Nur für kleiner
|
Arne Mitglied
Beiträge: 243 Registriert: 19.04.2002 AIS7 und OSD
|
erstellt am: 06. Dez. 2004 09:18 <-- editieren / zitieren --> Unities abgeben: Nur für kleiner
|
Schattenbacke Mitglied Dipl.-Ing (FH)
Beiträge: 114 Registriert: 28.01.2009 Dell Precision T3500 Productstream Professional Easy 2011 Autodesk Inventor 2016
|
erstellt am: 16. Apr. 2009 11:02 <-- editieren / zitieren --> Unities abgeben: Nur für kleiner
Hallo, suche auch so etwas ähnliches. Bei mir reicht es aber wenn zu der gerade geöffneten IDW die IPT geöffnet wird. Ist eigentlich einfach. Dateiname des aktiven Dokuments auslesen, hinten die erweiterung abknapsen, dann idw bzw ipt dranhängen und die datei mit dem Namen öffnen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
lbcad Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3833 Registriert: 15.02.2001 DELL Precision 7520 Win10Pro-64 Inventor mit Vault Professional 2024 --------------------- Während man es aufschiebt, verrinnt das Leben. Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)
|
erstellt am: 16. Apr. 2009 11:25 <-- editieren / zitieren --> Unities abgeben: Nur für kleiner
|
rtend12 Mitglied Dipl.-Ing. (FH) Maschinenbau / Konstrukteur
Beiträge: 436 Registriert: 21.07.2004 Catia V5 (R16SP5, B18SP5) VB.Net 2003
|
erstellt am: 18. Apr. 2009 00:14 <-- editieren / zitieren --> Unities abgeben: Nur für kleiner
Hallo, für alle ohne Subscription und mit Userform zur Erstellung einer IDW sollte noch keine bestehen. Anzupassen ist der Pfad zum IDW-Template und die Behandlung des Zeichnungsrahmens. Anwendung auf eigene Gefahr! Gruß Reinhard [Diese Nachricht wurde von rtend12 am 18. Apr. 2009 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Schattenbacke Mitglied Dipl.-Ing (FH)
Beiträge: 114 Registriert: 28.01.2009 Dell Precision T3500 Productstream Professional Easy 2011 Autodesk Inventor 2016
|
erstellt am: 23. Apr. 2009 10:33 <-- editieren / zitieren --> Unities abgeben: Nur für kleiner
|
rtend12 Mitglied Dipl.-Ing. (FH) Maschinenbau / Konstrukteur
Beiträge: 436 Registriert: 21.07.2004 Catia V5 (R16SP5, B18SP5) VB.Net 2003
|
erstellt am: 23. Apr. 2009 20:53 <-- editieren / zitieren --> Unities abgeben: Nur für kleiner
|
Schattenbacke Mitglied Dipl.-Ing (FH)
Beiträge: 114 Registriert: 28.01.2009 Dell Precision T3500 Productstream Professional Easy 2011 Autodesk Inventor 2016
|
erstellt am: 24. Apr. 2009 14:20 <-- editieren / zitieren --> Unities abgeben: Nur für kleiner
@rtend12 hey vielen Dank für dein Programm! Das kann ich genau für meine Zwecke gebrauchen. Nun würde ich auch gerne mal das mit dem Rahmen machen. Nur leider bin ich wohl noch zu Nooby um in dem Programm zu sehen wie ich den Rahmen einstelle. Alles andere funktioniert soweit. Kannst du mir da nur kurz helfen, wenigstens die Zeilen sagen? Unities gibts natürlich auch Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rtend12 Mitglied Dipl.-Ing. (FH) Maschinenbau / Konstrukteur
Beiträge: 436 Registriert: 21.07.2004 Catia V5 (R16SP5, B18SP5) VB.Net 2003
|
erstellt am: 24. Apr. 2009 21:55 <-- editieren / zitieren --> Unities abgeben: Nur für kleiner
Hallo Schsttenbacke, folgender Code ist für Auswahl und einfügen des Rahmens zuständig: On Error Resume Next osheet.Border.Delete
Code:
Dim oBorder As BorderDefinition For Each oBorder In oIDW.BorderDefinitions If InStr(oBorder.Name, osize_str) <> 0 Then osize_str = oBorder.Name End If Nextosheet.AddBorder (osize_str) On Error GoTo 0
Wie Du siehst ist es notwendig, dass Blatt und Rahmen den gleichen Namen haben. Solltest Du eine andere Zuordnung wünschen mußt Du den Code deinen Wünschen anpassen. Gruß Reinhard Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |