| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SolidEdge |
Autor
|
Thema: Warum läuft das in VBA und als VB exe nicht (359 mal gelesen)
|
amg13 Mitglied
Beiträge: 942 Registriert: 20.12.2002 Aktuell: FSC R550 2x Xeon X5450 QuadCore 8GB RAM Nvidia FX4800 Dell Precision M6300 Solid Edge ST3 NX 7.5 Solid Works 2010 Pro/E Das war einmal: HP Workstation >80x SolidEdge V19 (Classic & Foundation) 14x SMAP3D Piping/Partfinder
|
erstellt am: 13. Aug. 2004 15:47 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich komm einfach nicht dahinter. Ich will einfach einen Save As Dialog aufrufen. Der angefügte Code funzt in VBA nur in VB gehts net. Wäre für ne hilfe echt dankbar. Das Problem ist das GetSaveAsFilename!!!! cya AMG Sub main() 'Connect to a running instance of Solid Edge. Set objApp = GetObject(, "SolidEdge.Application") 'Access the currently open document. Set objDoc = objApp.ActiveDocument 'Get the ActiveSelectSet Set objSelect = objApp.ActiveSelectSet.Item(1) If objSelect.Name = "" Then MsgBox "No proper selection or nothing selected. Make a selection and run the macro again." End End If cName = Application.GetSaveAsFilename(, , , "Save") MsgBox (cName) End Sub Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Marco Kreutz Mitglied
Beiträge: 640 Registriert: 11.02.2003 SolidEdge 2021, SolidWorks 2021, Inventor 2020, PRO/E Creo1 und Creo2 VB 6.0 / VB.NET / C#.NET Windows 10 64bit
|
erstellt am: 13. Aug. 2004 15:59 <-- editieren / zitieren --> Unities abgeben: Nur für amg13
Hallo so funktioniert's.... sub Main() Dim objApp As SolidEdgeFramework.Application set objApp = GetObject(, "SolidEdge.Application") Set objDoc = objApp.ActiveDocument Set objSelect = objApp.ActiveSelectSet.Item(1) If objSelect.Name = "" Then MsgBox "No proper selection or nothing selected. Make a selection and run the macro again." End End If cName = objApp.GetSaveAsFileName(igLinksUpdateWithAltPath, 0) MsgBox (cName) end sub ------------------ Marco Kreutz info@hitteam.de http://www.hitteam.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
amg13 Mitglied
Beiträge: 942 Registriert: 20.12.2002 Aktuell: FSC R550 2x Xeon X5450 QuadCore 8GB RAM Nvidia FX4800 Dell Precision M6300 Solid Edge ST3 NX 7.5 Solid Works 2010 Pro/E Das war einmal: HP Workstation >80x SolidEdge V19 (Classic & Foundation) 14x SMAP3D Piping/Partfinder
|
erstellt am: 13. Aug. 2004 17:13 <-- editieren / zitieren --> Unities abgeben:
Hallo Marco, danke, manchmal steht man wirklich im Wald. Im objectbrowser stehts ja die syntax. Mal noch eine andere Frage zu VB. Man soll ja ein Formular als Icon einer Exe Datei zuweisen können. Jeder Versuch den ich unternommen habe ist aber fehlgeschlagen. => kein eigens Icon. Muss man beim Erstellen des Formulars fürs Icon etwas beachten? Ich hab 5 verschiedene Forms probiert und keines wurde als Icon eingebunden. cya AMG
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
modeng Ehrenmitglied V.I.P. h.c.
Beiträge: 7061 Registriert: 10.12.2003
|
erstellt am: 13. Aug. 2004 19:06 <-- editieren / zitieren --> Unities abgeben: Nur für amg13
meinst Du die Angabe eines Icons in Project Properties --> Application? Wenn dem so ist sollte der Name des Icons gleich dem des Forms sein: Project Browser: Forms frmBatch(Batch.frm) das Icon heisst dann : frmBatch.ico Zuweisen in den Properties fuer das Formular ueber Property --> Icon (siehe Bild) Das Icon muss als Typ Ico erstellt werden. der Name ist zwar beliebig, aber so ist es augenfaellig welches Icon zu welchem Form gehoert Klaus [Diese Nachricht wurde von modeng am 13. Aug. 2004 editiert.]
[Diese Nachricht wurde von modeng am 16. Aug. 2004 editiert.] [Diese Nachricht wurde von modeng am 16. Aug. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
amg13 Mitglied
Beiträge: 942 Registriert: 20.12.2002 Aktuell: FSC R550 2x Xeon X5450 QuadCore 8GB RAM Nvidia FX4800 Dell Precision M6300 Solid Edge ST3 NX 7.5 Solid Works 2010 Pro/E Das war einmal: HP Workstation >80x SolidEdge V19 (Classic & Foundation) 14x SMAP3D Piping/Partfinder
|
erstellt am: 16. Aug. 2004 09:50 <-- editieren / zitieren --> Unities abgeben:
Hallo Klaus, hm wie soll ich sagen. Ich schaff es nicht. ich will ja nur in der generierten exe ein Symbol haben. Übrigens das bild von deinem Dampfross ist ja nicht schlecht, hilft mir bei VB aber nicht wirklich weiter :-) cya AMG Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Marco Kreutz Mitglied
Beiträge: 640 Registriert: 11.02.2003 SolidEdge 2021, SolidWorks 2021, Inventor 2020, PRO/E Creo1 und Creo2 VB 6.0 / VB.NET / C#.NET Windows 10 64bit
|
erstellt am: 16. Aug. 2004 10:05 <-- editieren / zitieren --> Unities abgeben: Nur für amg13
|
modeng Ehrenmitglied V.I.P. h.c.
Beiträge: 7061 Registriert: 10.12.2003
|
erstellt am: 16. Aug. 2004 10:05 <-- editieren / zitieren --> Unities abgeben: Nur für amg13
|