Diskuzní fórum, poradna

archiv

   Zdravím,

Mám pravidlo které mi pomocí funkce if, ElseIf zjistí jaký je použitý materiál a podle toho vybere zkratku materiálu a napíše jí do Ivlastností - Custom "MAT". Pravidlo jen s pár materiály přikládám níže. Je možné toto pravidlo upravit tak aby se podívalo do excelovské tabulky? z důvodu jednodušího přidávání zkratek.

Dim oParams As Parameters
Dim oPartDoc As PartDocument = ThisDoc.Document
Dim oPartCompDef As PartComponentDefinition = oPartDoc.ComponentDefinition
oParams = oPartCompDef.Parameters

Dim oUserParams As UserParameters = oParams.UserParameters

Try
  p = Parameter("MAT")
Catch
  oUserParams.AddByValue("MAT","Neni", UnitsTypeEnum.kTextUnits)
End Try

If iProperties.Material = "Hlin�k 6061" Then
iProperties.Value("Custom", "MAT") = "AL"
Parameter("MAT")=iProperties.Value("Custom", "MAT")

ElseIf iProperties.Material = "Hlin�k 6061 - PROTISKLUZ" Then
iProperties.Value("Custom", "MAT") = "AL-Pr."
Parameter("MAT")=iProperties.Value("Custom", "MAT")

ElseIf iProperties.Material = "Hlin�k 6061 - B�L� ( RAL 9010 )" Then
iProperties.Value("Custom", "MAT") = "AL-(B)"
Parameter("MAT")=iProperties.Value("Custom", "MAT")

ElseIf iProperties.Material = "NEREZ (�sn 17 240 AISI 304 )" Then
iProperties.Value("Custom", "MAT") = "NE"
Parameter("MAT")=iProperties.Value("Custom", "MAT")

End If

MultiValue.UpdateAfterChange = True

'MessageBox.Show(Parameter("MAT"), "Kontrola Materi�lu", MessageBoxButtons.OK, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1)

Myslím tím že bych měl materiál ve sloupci A a zkratku ve sloupci B:

A                             B

Hliník 6061		AL
NEREZ			NE
....

Autor	Zpráva Najít Téma Možnosti tématu Odpovědět Vytvořit nové téma Verze pro tisk Přeložit Téma
Lukáš Záruba Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých TOP uživatel Přihlášen: 02.lis.2007 Lokalita: ČR (SČ) Používám: inventor 2015 Stav: Offline Bodů: 429	Téma: FUNKCE IF - VÝBĚR Z EXCELU Zasláno: 17.dub.2019 v 09:41
	Zdravím, Mám pravidlo které mi pomocí funkce if, ElseIf zjistí jaký je použitý materiál a podle toho vybere zkratku materiálu a napíše jí do Ivlastností - Custom "MAT". Pravidlo jen s pár materiály přikládám níže. Je možné toto pravidlo upravit tak aby se podívalo do excelovské tabulky? z důvodu jednodušího přidávání zkratek. Dim oParams As Parameters Dim oPartDoc As PartDocument = ThisDoc.Document Dim oPartCompDef As PartComponentDefinition = oPartDoc.ComponentDefinition oParams = oPartCompDef.Parameters Dim oUserParams As UserParameters = oParams.UserParameters Try p = Parameter("MAT") Catch oUserParams.AddByValue("MAT","Neni", UnitsTypeEnum.kTextUnits) End Try If iProperties.Material = "Hlin�k 6061" Then iProperties.Value("Custom", "MAT") = "AL" Parameter("MAT")=iProperties.Value("Custom", "MAT") ElseIf iProperties.Material = "Hlin�k 6061 - PROTISKLUZ" Then iProperties.Value("Custom", "MAT") = "AL-Pr." Parameter("MAT")=iProperties.Value("Custom", "MAT") ElseIf iProperties.Material = "Hlin�k 6061 - B�L� ( RAL 9010 )" Then iProperties.Value("Custom", "MAT") = "AL-(B)" Parameter("MAT")=iProperties.Value("Custom", "MAT") ElseIf iProperties.Material = "NEREZ (�sn 17 240 AISI 304 )" Then iProperties.Value("Custom", "MAT") = "NE" Parameter("MAT")=iProperties.Value("Custom", "MAT") End If MultiValue.UpdateAfterChange = True 'MessageBox.Show(Parameter("MAT"), "Kontrola Materi�lu", MessageBoxButtons.OK, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1) Myslím tím že bych měl materiál ve sloupci A a zkratku ve sloupci B: A B Hliník 6061 AL NEREZ NE ....
	Budu rád za radu i případně všelijaké postřehy.

Příbuzné CAD tipy:
Tip 14458:		Jak nahradit chybějící funkce min() a max() ve výrazech Revitu?
Tip 5355:		Zmizel mi panel nástrojů Vault z Excelu a Wordu.
Tip 6417:		Vložení živé XLS/XLSx tabulky Excelu do DWG výkresu AutoCADu.
Tip 9742:		Jak vložit XY souřadnice z Excelu jako vrcholy křivky v AutoCADu?
Tip 9526:		Chyba při editaci iSoučásti - "Export tabulky se nezdařil".
Tip 12015:		Propojení tabulek BIM projektu Revitu s Excelem.

Diskuzní fórum, poradna

?CAD diskuze, rady, výměna zkušeností

FUNKCE IF - VÝBĚR Z EXCELU

?
CAD diskuze, rady, výměna zkušeností