| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Creo |
Autor
|
Thema: Text aus Zwischenablage nach Me10-OSD (2544 mal gelesen)
|
friedhelm at work Mitglied Techniker Aluminium Profile
Beiträge: 882 Registriert: 01.04.2003 Creo Elements Direct /Drafting 17+20.x ui classic-Tablett + Ribbon, Modeling 17-20.0,.2,.4,.5 Lizenz auf USB-Netzwerkadapter PE-Express 8 Win 10 Enterprise 64 @work Win 10 Pro 64 @home Notepad++,IrfanView,eDrawings, ....
|
erstellt am: 26. Jan. 2010 14:53 <-- editieren / zitieren --> Unities abgeben:
Grüss Euch In den klassischen Oberflächen Maus + Tablet, kann man einen "Text" der sich in der Zwischenablage von Windows befindet, durch drücken der mittleren Maustaste/rad in die Textzeile bzw. in den Me10-Editor einfügen. Kann man dieses Einfügen auch anders bewerkstelligen ? Grund: Wir verwenden das Tablett. Dh. Stift weglegen ; Maus angeln und positionieren ; mittlere Maustaste/rad drücken ; Maus wegschubsen und wieder den Stift nehmen. Ich suche also so etwas wie eine INQ-abfrage (die es leider nicht gibt), die ich in ein Macro eingebaut vom Tablett oder von der Tastatur aus auslösen könnte. Ist die Zwischenablage event. eine Datei an die man mit OPEN_INFILE rankommt ? Gruss Friedhelm ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
woho Mitglied Technik CAD
Beiträge: 1468 Registriert: 05.09.2000 von SolidDesigner ab 1.0 ueber Precision Engineering Dynamic Modeling ueber CoCreate Modeling bis Creo Elements/Direct 19.x
|
erstellt am: 26. Jan. 2010 15:45 <-- editieren / zitieren --> Unities abgeben: Nur für friedhelm at work
PASTE_FROM_CLIPBOARD NOSUBPART Damit wird der Text aus der Zwischenablage an den Cursor gehaengt. Diesen Text koennte man z.B. an einen Punkt 9999,9999 setzen. Dann mit INQ_ELEM dieses Element abfragen. Gruss WoHo [Diese Nachricht wurde von woho am 26. Jan. 2010 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
friedhelm at work Mitglied Techniker Aluminium Profile
Beiträge: 882 Registriert: 01.04.2003 Creo Elements Direct /Drafting 17+20.x ui classic-Tablett + Ribbon, Modeling 17-20.0,.2,.4,.5 Lizenz auf USB-Netzwerkadapter PE-Express 8 Win 10 Enterprise 64 @work Win 10 Pro 64 @home Notepad++,IrfanView,eDrawings, ....
|
erstellt am: 27. Jan. 2010 09:34 <-- editieren / zitieren --> Unities abgeben:
|
riesi Mitglied CAD-Admin, SolidWorks-Backend-Developer
Beiträge: 1016 Registriert: 06.05.2002 SolidWorks 2020-Sp5 OneSpaceDrafting V20.5 MS-Windows 10 Prof. 64Bit Core i7-6700 @ 3.40 GHz 32,00 GB RAM ATI WX 5100
|
erstellt am: 27. Jan. 2010 10:44 <-- editieren / zitieren --> Unities abgeben: Nur für friedhelm at work
Ich weis ja nicht, woher Dein Text kommt, aber ich habe mir mal ein Excel-Makro geschrieben, welches Excel-Tabellen ausliest und als eigenständiges Teil nach ME10 überträgt. Wir brauchen das immer in unseren Aufstellplänen als Stückliste für die Maschinenkomponenten. Diese werden zuerst in Excel aufgeschrieben, anschließend nach ME10 übertragen. Falls Intresse besteht, kann ich das gerne hier rein stellen. Gruß, Klaus. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Kiara Mitglied Technische Zeichnerin
Beiträge: 88 Registriert: 05.12.2008 ME10, OneSpace Designer, Solid Edge
|
erstellt am: 27. Jan. 2010 10:53 <-- editieren / zitieren --> Unities abgeben: Nur für friedhelm at work
Zitat: Original erstellt von riesi: Ich weis ja nicht, woher Dein Text kommt, aber ich habe mir mal ein Excel-Makro geschrieben, welches Excel-Tabellen ausliest und als eigenständiges Teil nach ME10 überträgt. Wir brauchen das immer in unseren Aufstellplänen als Stückliste für die Maschinenkomponenten. Diese werden zuerst in Excel aufgeschrieben, anschließend nach ME10 übertragen. Falls Intresse besteht, kann ich das gerne hier rein stellen.Gruß, Klaus.
Das währe super wenn du das hier reinstellen könntest hätte so was schon ein paar mal gebrauchen können ------------------ Gruß Nicky Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
riesi Mitglied CAD-Admin, SolidWorks-Backend-Developer
Beiträge: 1016 Registriert: 06.05.2002 SolidWorks 2020-Sp5 OneSpaceDrafting V20.5 MS-Windows 10 Prof. 64Bit Core i7-6700 @ 3.40 GHz 32,00 GB RAM ATI WX 5100
|
erstellt am: 27. Jan. 2010 13:09 <-- editieren / zitieren --> Unities abgeben: Nur für friedhelm at work
Code:
Sub tabelle2me10() Dim startx As Integer Dim starty As Integer Dim endx As Integer Dim endy As Integer Dim bereich Dim aktspalte As Integer Dim breite As Integer Dim aktzeile As Integer Dim inhalt As StringDDEinit_num = DDEInitiate("ME10F", "GENERAL") DDEExecute DDEinit_num, ("EDIT_PART TOP") DDEExecute DDEinit_num, ("INIT_SUBPART 'Excel-Tabelle'") DDEExecute DDEinit_num, ("INQ_ENV 7") DDEExecute DDEinit_num, ("SYMBOL_PART ('~'+INQ 302)") If areaCount > 1 Then Exit Sub End If bereich = Split(Selection.Address, "$") startx = Columns(bereich(1)).Column starty = Val(Left(bereich(2), Len(bereich(2)) - 1)) endx = Columns(bereich(3)).Column endy = Val(bereich(4)) aktspalte = 0 aktzeile = 0 For x = startx To endx For y = starty To endy inhalt = Cells(y, x) DDEExecute DDEinit_num, ("TEXT '" & inhalt & "' " & aktspalte & "," & aktzeile & " END") aktzeile = aktzeile - 7 Next y Cells(y, x).Select breite = Round(ActiveCell.Width) aktspalte = Round(aktspalte + (breite / 2)) aktzeile = 0 Next x DDETerminate All End Sub
Mann/Frau markiert die zu kopierenden Zellen in Excel und ruft das Makro auf. Viel Spaß, Klaus. [Diese Nachricht wurde von riesi am 27. Jan. 2010 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
der_Wolfgang Ehrenmitglied V.I.P. h.c. Tastenhauer
Beiträge: 2017 Registriert: 3.20. ● PE6+8@home ● W10 Pro Build19044.2006 ● Drafting V17~V20.5.1 ● Modeling V17~V20.5.1 ● @Scirotec201804
|
erstellt am: 27. Jan. 2010 18:38 <-- editieren / zitieren --> Unities abgeben: Nur für friedhelm at work
|