| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für NX |
| | |
 | SIEMENS PLM CONNECTION 2026 | 22. - 24. Juni 2026 | Lufthansa Konferenzzentrum Seeheim |
|
Autor
|
Thema: JPG mittels VB einfügen (903 mal gelesen)
|
hg-obdf
Mitglied
Konstrukteur
   Beiträge: 78
Registriert: 30.07.2008 NX7.5
Visual Basic 2010 Express
Eclipse
|
erstellt am: 14. Sep. 2009 13:25  <-- editieren / zitieren -->   Unities abgeben:          
Hallo- habe ein Journal aufgezeichnet, wo ein Bild (jpg) auf eine 2D Zeichnungsableitung eingefügt wird. Dim displayPart As Part = theSession.Parts.Display ' ----------------------------------------------
' Menü: Einfügen->Image...
' ----------------------------------------------
' ----------------------------------------------
' Menü: Werkzeuge->Journal->Stopp
' ---------------------------------------------- End Sub
End Module Leider bringt mich das nicht wirklich weiter.
Hat jemand eine Idee, oder funktioniert das mit VB nicht?
mFG Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mseufert
Moderator
Freiberuflicher CAD/CAM Ingenieur
    
Beiträge: 2750
Registriert: 18.10.2005 HP Z420
WIN7 64 Win 10
UG NX6-2306
3D Printer Prusa MK2 S
|
erstellt am: 14. Sep. 2009 17:07 <-- editieren / zitieren --> Unities abgeben: Nur für hg-obdf 
|
| | Technischer Zeichner | - Erstellung, Pflege und Dokumentation von technischen Zeichnungen und 3D-Modellen
- Bearbeitung von Konstruktionsbestellungen
- Unterstützung bei der Identifikation von Bauteilen
- Anfertigen von Scans, Modellen und Zeichnungen
- Dokumentation der Ergebnisse im ERP- und PDM-System
- Nutzung von Messsystemen und CAD-Programmen
- Zusammenarbeit mit Konstruktionsleiter, ...
| | Anzeige ansehen | Feste Anstellung |
|
hg-obdf
Mitglied
Konstrukteur
Beiträge: 78
Registriert: 30.07.2008 NX7.5
Visual Basic 2010 Express
Eclipse
|
erstellt am: 24. Sep. 2009 12:32 <-- editieren / zitieren --> Unities abgeben:
Fürs Forum- wenns jemand braucht.... Dim curDwg As NXOpen.Tag = NXOpen.Tag.Null
Dim pnt() As Double = {1, 20, 0} 'Position auf der Zeichnung
ufs.Drf.CreateImageFromFile("Pfad", curDwg, pnt, NXOpen.Tag.Null) MFG Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de
| 
