| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Durchgängige CAD-Daten in der Produktkonfiguration, eine Pressemitteilung
|
Autor
|
Thema: Barcode 128 (6390 mal gelesen)
|
cmaass Mitglied Technischer Zeichner
Beiträge: 31 Registriert: 01.08.2006 Autodesk Inventor 2014 (SP1) AMD Phenom(tm) II X6 RAM 8,00 GB Windows 7 Professional 64bit
|
erstellt am: 13. Mrz. 2014 14:08 <-- editieren / zitieren --> Unities abgeben:
|
axspeed Mitglied
Beiträge: 10 Registriert: 15.02.2014 Win 8.1/64 IV 2015/64
|
erstellt am: 13. Mrz. 2014 21:04 <-- editieren / zitieren --> Unities abgeben: Nur für cmaass
|
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 AutoCAD 2.5 - 2025, Inventor AIP 4-2025 Windows 11 i7, 96 GB, SSD, Quadro P2200
|
erstellt am: 13. Mrz. 2014 22:18 <-- editieren / zitieren --> Unities abgeben: Nur für cmaass
|
cmaass Mitglied Technischer Zeichner
Beiträge: 31 Registriert: 01.08.2006 Autodesk Inventor 2014 (SP1) AMD Phenom(tm) II X6 RAM 8,00 GB Windows 7 Professional 64bit
|
erstellt am: 14. Mrz. 2014 10:06 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von CAD-Huebner: Startzeichen ist Chr$(208), Chr$(209) oder Chr$(210) Stoppzeichen ist Chr$(211) Hier gibt's auch für alle möglichen Sprachen einen Programmcode zur Prüfsummenberechnung. Das nett verpackt in ein Ilogic Makro, das ein Iproperty füllt... http://grandzebu.net/informatique/codbar/code128.htm
Vielen Dank! Ich will euch meinen Lösungsweg auch nicht vorenthalten: 1) Schriftart von http://grandzebu.net/informatique/codbar-en/code128.htm (Danke CAD-Huebner) 2) VBA-Function angepasst (von http://www.azalea.com/code-128/excel/Code-128-B.txt) <- Musste Start-Stopzeichen ändern 3) iLogic-Regel erstellt (Ereignessauslöser auf Beim öffnen und beim ändern) 4) benutzerdefinierten Wert eingefügt namens Barcode 5) Auf meiner Zeichnung den Wert "Barcode" eingefügt 6) folgende Regel eingefügt (in meinem Fall lasse ich den Dateinamen ohne Endung einfügen und als Barcode mit aufdrucken): Ergebniss ist ein schöner Barcode (Code 128 B) Sub Main() iProperties.Value("Custom", "Barcode") = Code_128_B(ThisDoc.FileName(False)) End Sub Function Code_128_B(ByVal yourData As String) As String Dim temp As String Dim chunk As String Dim i As Integer Dim checkDigitSubtotal As Integer Dim e As Integer temp = Chr(209) checkDigitSubtotal = 104 For i = 1 To Len(yourData) Step 1 chunk = Mid(yourData, i, 1) Select Case Asc(chunk) Case Is > 200 temp = temp & Chr(Asc(chunk) - 35) Case Is = 32 temp = temp & Chr(206) Case Else temp = temp & chunk End Select Next i For i = 1 To Len(yourData) e = Asc(Mid(yourData, i, 1)) - 32 If e <> 142 Then checkDigitSubtotal = checkDigitSubtotal + (e * i) End If Next i checkDigitSubtotal = checkDigitSubtotal Mod 103 Select Case checkDigitSubtotal Case 0 Code_128_B = temp & Chr(206) & Chr(211) Case 1 To 93 Code_128_B = temp & Chr(checkDigitSubtotal + 32) & Chr(211) Case Is > 93 Code_128_B = temp & Chr(checkDigitSubtotal + 103) & Chr(211) End Select End Function Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
sarahlynnbr Mitglied IT Developer
Beiträge: 1 Registriert: 27.06.2014
|
erstellt am: 27. Jun. 2014 11:27 <-- editieren / zitieren --> Unities abgeben: Nur für cmaass
|
allensmith Mitglied editor
Beiträge: 1 Registriert: 07.01.2015
|
erstellt am: 08. Jan. 2015 03:09 <-- editieren / zitieren --> Unities abgeben: Nur für cmaass
Zitat: Original erstellt von sarahlynnbr: I've done a barcode project before, and I think you can actually check out this .NET barcode generator to easily draw Code 128, Code 128A, Code 128B and Code 128C easily. Check character can be automatically added so you don't need to worry about it.
I am attempting to take a string and convert it into a code 128 barcode in vb.net. I am a novice programmer and was wondering what some people thought would be the best design practices for accomplishing this. I could also attempt to do this myself, but I'm not sure the exact method of converting strings into barcodes. I am going to keep looking into this but if someone knew this off the top of their head already it could save me some time.Thanks in advance [Diese Nachricht wurde von allensmith am 08. Jan. 2015 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Roland Schröder Moderator Dr.-Ing. Maschinenbau, Entwicklung & Konstruktion von Spezialmaschinen
Beiträge: 13408 Registriert: 02.04.2004 IV 2024
|
erstellt am: 08. Jan. 2015 21:30 <-- editieren / zitieren --> Unities abgeben: Nur für cmaass
|
sebastian.donovan Mitglied Konstruktionsleitung
Beiträge: 3 Registriert: 12.12.2013
|
erstellt am: 16. Feb. 2015 18:10 <-- editieren / zitieren --> Unities abgeben: Nur für cmaass
Hallo liebe CAD-Gemeinde, ich habe es hinbekommen, einen Barcode auf mein Zeichnungsblatt zu bekommen. (Danke cmaass) Mein Problem ist aber jetzt, dass der Code nicht erkannt wird, wenn ich die Zeichnung als pdf exportiert und dann ausgedruckt habe. Weiß da jemand Rat? Ich hatte schon einmal ein ähnliches Phänomen, als ich Servicelisten mit Barcodes zusammengestellt habe, und da ebenfalls Probleme beim exportieren als odf aufgetreten sind. Danke, Gruß, Sebastian Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |