CAD Fórum : rozd�len� ��sla sou��sti

rozd�len� ��sla sou��sti : Jestliže nemáte při prvním uložení...

Mon, 11 Dec 2017 15:15:14 +0000

Autor: EuroTec
P�edm�t: 25384
Zasl�no: 11.pro.2017 v 15:15

Jestli�e nem�te p�i prvn�m ulo�en� vypln�no ��slo sou��sti, pak zast�v�m n�zor, �e je mnohem lep�� vyplnit dva nez�visl� atributy a ty slou�it do ��sla sou��sti, t�m sp�e, �e jeden m�te z�ejm� stejn� pro v�echna d�ly.

rozd�len� ��sla sou��sti : Navara napsal(a): Psal jsem...

Mon, 11 Dec 2017 15:14:34 +0000

Autor: simunek
P�edm�t: 25384
Zasl�no: 11.pro.2017 v 15:14

Navara napsal(a):

Psal jsem to bez testu

If partNumber = "" Then
   Return
End If

XTools a extern� pravidla je dobr� rada, ale d�lejte jak mysl�te.

Jo tak ten Return mi tam chyb�l

U� to chod� kr�sn�.

Mockr�t d�ky

rozd�len� ��sla sou��sti : Psal jsem to bez testu If partNumber...

Mon, 11 Dec 2017 15:05:15 +0000

Autor: Navara
P�edm�t: 25384
Zasl�no: 11.pro.2017 v 15:05

Psal jsem to bez testu

If partNumber = "" Then
   Return
End If

XTools a extern� pravidla je dobr� rada, ale d�lejte jak mysl�te.

rozd�len� ��sla sou��sti : pane Navara mohl bych Vás tedy...

Mon, 11 Dec 2017 14:22:58 +0000

Autor: simunek
P�edm�t: 25384
Zasl�no: 11.pro.2017 v 14:22

pane Navara mohl bych V�s tedy po��dat je�t� o dopln�n� t� kontroly a ukon�en� v p��pad� �e partNumber je pr�zdn�??

N�jak jsem to zkou�el ale neda�� se.

Jinak ohledn� extern�ch pravidel a Xtools� souhlas�m, nicm�n� u star��ch soubor� m� chyb�j�c� makro tr�pit moc nebude a up��mn�, jsem r�d �e d�m dohromady iLogic nato� to je�t� "komplikovat" s xtoolsy :-)

rozd�len� ��sla sou��sti : Tady se dá udělat jediná věc...

Mon, 11 Dec 2017 12:58:43 +0000

Autor: Navara
P�edm�t: 25384
Zasl�no: 11.pro.2017 v 12:58

Tady se d� ud�lat jedin� v�c a to je kontrola na za��tku, jestli partNumber je pr�zdn�. Pokud ano, tak ukon�it pravidlo.

Jinak ta hl�ka se d� samoz�ejm� vypnout.

Slo�it�j�� varianta je nastavit to pravidlo jak p�ed ulo�en�m tak po ulo�en� a v p��pad� prvn�ho ulo�en� spou�t�t to pravidlo PO u dal��ch ulo�en� P�ED. Ale to u� je dost komplikovan� hlavn� na �dr�bu.

S t�m souvis� i to, �e tahle pravidla by m�la b�t V�DY extern� a m�la by se spou�t�t t�eba pomoc� XTools, proto�e to zjednodu�� pozd�j�� dr�bu. �e�en� pomoc� spou�t�� iLogic nedoporu�uju, proto�e jsou v�dy zaps�ny v dokumentu a do star��ch soubor� je dostanete velmi obt�n�.

rozd�len� ��sla sou��sti : Díky moc,bohužel nyní to po...

Mon, 11 Dec 2017 12:43:51 +0000

Autor: simunek
P�edm�t: 25384
Zasl�no: 11.pro.2017 v 12:43

D�ky moc,

bohu�el nyn� to po prvn�m ulo�en� vyhod� tu hl�ku "Rozd�len� se nezda�ilo".

Kdy� jsem si to proch�zel tak je to z�ejm� t�m �e p�ed prvn�m ulo�en�m je ��slo sou��sti pr�zdn�.

Z�ejm� iLogic pravidlo spou�t�n� p�ed ulo�en�m se spou�t� d��ve ne� Inventor zapisuje do ��sla sou��sti n�zev souboru.

Pak by to d�valo smysl.

S t�m asi moc nesvedeme �e?

I v tomto stavu mi to samoz�ejm� dost uleh�� pr�ci. Jde v podstat� jen o odkliknut� hl�ky. P�i dal��m ulo�en� u� to chod� jak m�.

rozd�len� ��sla sou��sti : Protože tam chybí kontrola na...

Mon, 11 Dec 2017 11:11:33 +0000

Autor: Navara
P�edm�t: 25384
Zasl�no: 11.pro.2017 v 11:11

Proto�e tam chyb� kontrola na �sp�n� rozd�len�

Tady je pokus o fin�ln� k�d, jak s pou�it�m funkce Split, tak s pou�it�m RegEx. Ka�d� si m��e vybrat co mu sed� v�c

Dim partNumber As String = iProperties.Value("Project", "Part Number")
'FOR DEBUG ONLY
partNumber = "R123456r0_xxx_yyyyy"
Dim drawingTitle As String = ""
Dim drawingNumber As String = ""
'----------------------------------------------------
'Split function
Dim strings = partNumber.Split("_".ToCharArray(), 2)
If strings.Length > 1 Then
    drawingTitle = strings(1)
    drawingNumber = strings(0)
    
    'FOR DEBUG ONLY
    MsgBox(String.Format("Original: {0}{3}DrawingTitle: {1}{3}DrawingNumber: {2}", partNumber, drawingTitle, drawingNumber, vbCrLf), Title:="Split function")
Else
    MsgBox("Rozdeleni se nezdarilo", Title:="Split function", Buttons:=MsgBoxStyle.Exclamation)
End If
'----------------------------------------------------
'----------------------------------------------------
'RegEx
Dim pattern As String = "^([^_]+)+_(.*)$"
Dim matchCollection = System.Text.RegularExpressions.Regex.Matches(partNumber, pattern)
Dim groupCollection = matchCollection(0).Groups
If groupCollection.Count > 2 Then
    drawingNumber = groupCollection(1).Value
    drawingTitle = groupCollection(2).Value
    'FOR DEBUG ONLY
    MsgBox(String.Format("Original: {0}{3}DrawingTitle: {1}{3}DrawingNumber: {2}", partNumber, drawingTitle, drawingNumber, vbCrLf), Title:="RegEx")
Else
    MsgBox("Rozdeleni se nezdarilo", Title:="RegEx", Buttons:=MsgBoxStyle.Exclamation)
End If
'----------------------------------------------------
iProperties.Value("Custom", "DrawingTitle") = drawingTitle
iProperties.Value("Custom", "DrawingNumber") = drawingNumber

rozd�len� ��sla sou��sti : Navara napsal(a): Regulární...

Mon, 11 Dec 2017 10:42:00 +0000

Autor: simunek
P�edm�t: 25384
Zasl�no: 11.pro.2017 v 10:42

Navara napsal(a):

Regul�rn� v�razy jsou fajn, ale je pot�eba je um�t napsat a odladit. Na internetu je spousta n�stroj� pro testov�n� RegEx�.

Nap��klad:

https://regex101.com/

Z�klady psan� jsou pops�ny t�eba tady

https://docs.microsoft.com/en-us/dotnet/standard/base-types/regular-expression-language-quick-reference

EDIT:

Ten regul�rn� v�raz by m�l vypadat podle m� takhle

\b([^_]+)+_(.*)\b

Jinak ten m�j k�d by potom vypadal takhle

Dim partNumber As String = iProperties.Value("Project", "Part Number")
 
'For debug only
partNumber = "R123456r0_xxx_yyyyy"
 
Dim strings = partNumber.Split("_".ToCharArray(), 2)
Dim DrawingTitle As String = strings(1)
Dim DrawingNumber As String = strings(0)
 
'TODO: Vytvo�it u�ivatelsk� iVlastnosti'
 
'Nastavit hodnoty iVlastnost�'
iProperties.Value("Custom", "DrawingTitle") = DrawingTitle
iProperties.Value("Custom", "DrawingNumber") = DrawingNumber
 
'For debug only
MsgBox(String.Format("Original: {0}{3}DrawingTitle: {1}{3}DrawingNumber: {2}", partNumber, DrawingTitle, DrawingNumber, vbCrLf))

D�ky moc, v tomto Va�em z�pisu m�m i zhruba p�edstavu na co kter� ��dek je

U� to i chod� jak m� jen kdy� nastavim spou�t�n� pravidla "p�ed ulo�en�m" tak mi to p�i prvn�m ulo�en� vyhod� tuto hl�ku

Pot� p�i dal��m ulo�en� u� to chybu nehod� a zm�ny v raz�tku se provedou jak maj�.

rozd�len� ��sla sou��sti : Regulární výrazy jsou fajn,...

Mon, 11 Dec 2017 10:23:39 +0000

Autor: Navara
P�edm�t: 25384
Zasl�no: 11.pro.2017 v 10:23

Regul�rn� v�razy jsou fajn, ale je pot�eba je um�t napsat a odladit. Na internetu je spousta n�stroj� pro testov�n� RegEx�.

Nap��klad:

https://regex101.com/

Z�klady psan� jsou pops�ny t�eba tady

https://docs.microsoft.com/en-us/dotnet/standard/base-types/regular-expression-language-quick-reference

EDIT:

Ten regul�rn� v�raz by m�l vypadat podle m� takhle

\b([^_]+)+_(.*)\b

Jinak ten m�j k�d by potom vypadal takhle

Dim partNumber As String = iProperties.Value("Project", "Part Number")
 
'For debug only
partNumber = "R123456r0_xxx_yyyyy"
 
Dim strings = partNumber.Split("_".ToCharArray(), 2)
Dim DrawingTitle As String = strings(1)
Dim DrawingNumber As String = strings(0)
 
'TODO: Vytvo�it u�ivatelsk� iVlastnosti'
 
'Nastavit hodnoty iVlastnost�'
iProperties.Value("Custom", "DrawingTitle") = DrawingTitle
iProperties.Value("Custom", "DrawingNumber") = DrawingNumber
 
'For debug only
MsgBox(String.Format("Original: {0}{3}DrawingTitle: {1}{3}DrawingNumber: {2}", partNumber, DrawingTitle, DrawingNumber, vbCrLf))

Upravil Navara - 11.pro.2017 v 10:36

rozd�len� ��sla sou��sti : V excelu ano, v Inventoru bohužel...

Mon, 11 Dec 2017 10:14:27 +0000

Autor: Radek001
P�edm�t: 25384
Zasl�no: 11.pro.2017 v 10:14

V excelu ano, v Inventoru bohu�el ne. Je�t� jsem to nepot�eboval.

Ale mysl�m, �e pokud to v Inventoru jde, tak p�nov� Michl a Navara jsou ti spr�vn� :-)