CAD Fórum : Popis súčiastky https://www.cadforum.cz/forum/ Mon, 04 May 2026 23:03:00 +0000 Tue, 28 Jan 2014 21:37:47 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=17945 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Popis súčiastky : Ďakujem veľmi pekne.Snád sa to...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=17945&PID=83748&title=popis-suciastky#83748 Autor: CADCAPONE
Předmět: 17945
Zasláno: 28.led.2014 v 21:37

Ďakujem veľmi pekne.
Snád sa to už neskomplikuje.To by mal byť výsledný názov súšiastky.

Ešte raz vám ďakujem
]]> Tue, 28 Jan 2014 21:37:47 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=17945&PID=83748&title=popis-suciastky#83748 <![CDATA[Popis súčiastky : Tento název se ale strukturou...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=17945&PID=83747&title=popis-suciastky#83747 Autor: Vladimír Michl
Předmět: 17945
Zasláno: 28.led.2014 v 21:27

Tento název se ale strukturou liší od předchozích případů. Pokud se to dále nezkomplikuje dalším případem, tak aktuální regulární výraz je tento (koncové skupině/skupinám ale teď musí předcházet alespoň jedna numerická skupina a v poslední skupině nesmí být číslice):
 
\b(.+\d+)_(\D+)$\b
]]> Tue, 28 Jan 2014 21:27:13 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=17945&PID=83747&title=popis-suciastky#83747 <![CDATA[Popis súčiastky : Dobrý večer.Ďakujem za výraz ale...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=17945&PID=83746&title=popis-suciastky#83746 Autor: CADCAPONE
Předmět: 17945
Zasláno: 28.led.2014 v 21:15

Dobrý večer.

Ďakujem za výraz ale nefungu je to.

docname=ThisDoc.FileName(False)
Dim matches As System.Text.RegularExpressions.MatchCollection
Dim match As System.Text.RegularExpressions.Match
Dim groups As System.Text.RegularExpressions.GroupCollection
matches = System.Text.RegularExpressions.Regex.Matches(docname, "\b(.+)_(\D+)$\b")
If matches.count>0 Then
 For Each match In matches
  groups = match.Groups ' parenthesis 1 and 2
  iProperties.Value("Project", "Description") = groups.item(2).Value
  iProperties.Value("Project", "Part Number") = groups.item(1).Value
  MsgBox("iProperties set to " & groups.item(1).Value & " and " & groups.item(2).Value)
 Next
 Else
 MsgBox("No match!")
End If




toto je už s tým novým výrazom.
Skúšal som to na GRM_W_02_20_12_PLATTE_LINKS
Potrebujem to rozdeliť o poslednom čísle.

Ďakujem veľmi pekne.

]]> Tue, 28 Jan 2014 21:15:44 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=17945&PID=83746&title=popis-suciastky#83746 <![CDATA[Popis súčiastky : Regulární výraz by pak měl vypadat...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=17945&PID=83744&title=popis-suciastky#83744 Autor: Vladimír Michl
Předmět: 17945
Zasláno: 28.led.2014 v 15:18

Regulární výraz by pak měl vypadat takto:
 
\b(.+)_(\D+)$\b
 
ale nezkoušeno.
]]> Tue, 28 Jan 2014 15:18:42 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=17945&PID=83744&title=popis-suciastky#83744 <![CDATA[Popis súčiastky : Prosím Vás dalo by sa to zordeliť...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=17945&PID=83742&title=popis-suciastky#83742 Autor: CADCAPONE
Předmět: 17945
Zasláno: 28.led.2014 v 14:25

Prosím Vás dalo by sa to zordeliť za poslednou číselnou radou? ako by vyzeral ten kód. Nemožem nato prísť.


Ďakujem
]]> Tue, 28 Jan 2014 14:25:24 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=17945&PID=83742&title=popis-suciastky#83742 <![CDATA[Popis súčiastky : Tu prvú ulohu som vyriešil : SW_17_00_02_Grundkorper_SPI...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=17945&PID=82233&title=popis-suciastky#82233 Autor: CADCAPONE
Předmět: 17945
Zasláno: 27.lis.2013 v 10:09

Tu prvú ulohu som vyriešil : SW_17_00_02_Grundkorper_SPI som nahradil SW_17_00_02_Grundkorper-SPI takže už to rozdeluje tak ako má SW_17_00_02 a na popis Grundkorper-SPI.

ta druha otázka by sa nadala spustiť caz spoušteč udalosti. Mám to nastavené na "po uložení dokumentu" či by sa to dalo zmeniť, lebo ked dávam uložiť po každej konštrukčnej zmene stále ten názov vyhadzuje a rozdeluje čo už ale nepotrebujem ked sa to  rozdelilo na začiatku.
]]> Wed, 27 Nov 2013 10:09:25 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=17945&PID=82233&title=popis-suciastky#82233 <![CDATA[Popis súčiastky : To makro je navržené podle logiky...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=17945&PID=82224&title=popis-suciastky#82224 Autor: Vladimír Michl
Předmět: 17945
Zasláno: 27.lis.2013 v 09:36

To makro je navržené podle logiky "odděl za posledním podtržítkem". Pokud v některých případech tato logika neplatí, je potřeba stanovit jinou. Z toho příkladu mi nějaká jiná snadná logika nevyplývá - nebo je to vždy "5. skupina oddělená podtržítky"? nebo snad "první nečíselná skupina za čistě číselnými"? To už je na regulární výrazy trochu složitější.
To, kdy se dané pravidlo má spouštět, určujete pomocí událostí. Pokud se má spouštění nějak automatizovat podmíněně, upravili bychom makro jako zakázkový vývoj.
]]> Wed, 27 Nov 2013 09:36:28 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=17945&PID=82224&title=popis-suciastky#82224 <![CDATA[Popis súčiastky : Dobrý den. funguje to fajn ale...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=17945&PID=82218&title=popis-suciastky#82218 Autor: CADCAPONE
Předmět: 17945
Zasláno: 27.lis.2013 v 08:43

Dobrý den. funguje to fajn ale narazil som na problém:

Pri tvare SW_17_00_02_Grundkorper_SPI......mi to rozdelí na číslo súčiastky SW_17_00_02_Grundkorper a do popisu dá SPI (to znamená zrkadlové).Dá sa to prosím nejak ošetriť?

Další problém mám s tým že by som to potreboval to rozdelenie zvoliť len raz. Ak na súčiastke niečo zmením a dám to uložiť sa tam vyhadzuje stále tá tabulka. Dá sa to nejak urobiť aby to rozpísalo len raz a ked znovu uložím dokument že to nebude chcieť znova rozpisovať. Pri zostave 500 súčiastkach je to na dlho.

Ďakujem za odpoveď
]]> Wed, 27 Nov 2013 08:43:30 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=17945&PID=82218&title=popis-suciastky#82218 <![CDATA[Popis súčiastky : Ďakujem velmi pekne.Funguje to...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=17945&PID=80555&title=popis-suciastky#80555 Autor: CADCAPONE
Předmět: 17945
Zasláno: 24.zář.2013 v 08:38

Ďakujem velmi pekne.
Funguje to ako má.
ulahčili ste mi robotu]]> Tue, 24 Sep 2013 08:38:59 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=17945&PID=80555&title=popis-suciastky#80555 <![CDATA[Popis súčiastky : Ano, to je jen drobná úprava...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=17945&PID=80554&title=popis-suciastky#80554 Autor: Vladimír Michl
Předmět: 17945
Zasláno: 24.zář.2013 v 08:32

Ano, to je jen drobná úprava:
 
docname=ThisDoc.FileName(False)
Dim matches As System.Text.RegularExpressions.MatchCollection
Dim match As System.Text.RegularExpressions.Match
Dim groups As System.Text.RegularExpressions.GroupCollection
matches = System.Text.RegularExpressions.Regex.Matches(docname, "\b(.+)_(.+)$\b")
If matches.count>0 Then
 For Each match In matches
  groups = match.Groups ' parenthesis 1 and 2
  iProperties.Value("Project", "Description") = groups.item(1).Value
  iProperties.Value("Project", "Part Number") = groups.item(2).Value
  MsgBox("iProperties set to " & groups.item(1).Value & " and " & groups.item(2).Value)
 Next
 Else
 MsgBox("No match!")
End If
]]> Tue, 24 Sep 2013 08:32:52 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=17945&PID=80554&title=popis-suciastky#80554