Thema "Betreff: ExportParameter in iLogic löschen" in Inventor - Deutsches Forum

ExportParameter in iLogic löschen

Anonymous — Tue, 23 Oct 2018 05:36:55 GMT

Hallo, das Greenhorn meldet sich wieder.

Diesmal habe ich ein Problem in Zeie 56. Der Parameter wird nicht gelöscht. Der Fehler liegt warscheinlich darin das er noch "in Benutztung" ist. Vermutlich muss ich ihn erst umdefinieren ... aber wie ? (Versuch in Zeile 54 funktioniert nicht).

Danke schon mal fürs Ankucken!

P.S. So sieht der Code eines Handwerkers aus der vor 30 Jahren auf dem C64 mit Basic rummachte...Hoffentlich kann hier einer Schmunzeln

P.P.S. Kann die Datei nich mit der Endung .iLogicVb hochladen .. deshalb als Text hier:

SyntaxEditor Code Snippet

Sub Main()
'Fehler in offener Datei abfragen:
On Error GoTo Errorending 'Falls Fehler auftreten gehe zur Fehlerbehandlung

If ThisApplication.Documents.Count = 0 Then         'Fehlerabfrage keine Datei offen
    MsgBox ("Es ist keine Datei geöffnet. So passiert nix!")
    Exit Sub
End If

Dim openDocu As Document
openDocu = ThisDoc.Document

Dim Welding_type_value As Parameter														'define Welding_type_value

Dim odoctypepara As Parameters 															'variable for the part of the path to the user parameterlocation that is dependent on document type

If openDocu.DocumentType = Inventor.DocumentTypeEnum.kPartDocumentObject Then			'set the odoctypepara variable to oPartCompDef if a part file is open
    Dim oPartDoc As PartDocument = openDocu												
    Dim oPartCompDef As PartComponentDefinition = oPartDoc.ComponentDefinition
    odoctypepara = oPartCompDef.Parameters												'set the variable to the correct type
ElseIf openDocu.DocumentType=Inventor.DocumentTypeEnum.kAssemblyDocumentObject Then		'set the odoctypepara variable to oAssCompDef if an assembly file is open
    Dim oAssdoc As AssemblyDocument = openDocu											
    Dim oAssCompDef As AssemblyComponentDefinition = oAssdoc.ComponentDefinition
    odoctypepara = oAssCompDef.Parameters												'set the variable to the correct type
End If

Dim oUserParameterlocation As UserParameters 
oUserParameterlocation = odoctypepara.UserParameters							'setting the path for the userparameters together and putting the whole path for the user parameters location into the variable UserParameters

'See if the variables allready excist and if so delete them

On Error Resume Next
Dim welding_type_list_OLD As Parameter											'create a checking variable
welding_type_list_OLD = oUserParameterlocation.Item("welding_type_list")		'see if filling checking variable creates an error
If Err.Number <> 0 Then															'is there an error ?
		GoTo seeifvalueexsists													'if error then there is no welding_type_list so go check welding_type_value
		Err.Clear
	Else																		'on no error delete welding_type_list
		welding_type_list_OLD = oUserParameterlocation.Item("welding_type_list")
		welding_type_list_OLD.Delete
End If

seeifvalueexsists :

On Error Resume Next
Dim welding_type_value_OLD As Parameter											'create a checking variable
welding_type_value_OLD = oUserParameterlocation.Item("welding_type_value")		'see if filling checking variable creates an error
If Err.Number <> 0 Then															'is there an error ?
		GoTo GoOnToGetNewParameters												'if error then there is no welding_type_list so go to new input of welding_type_value
		Err.Clear
	Else																		'on no error delete welding_type_list
		'Welding_type_value.ExposedAsProperty = False							'make the variable deletable -- doesn't work
		welding_type_value_OLD = oUserParameterlocation.Item("welding_type_value")
		welding_type_value_OLD.Delete										'<---------------------------no function ?!?!?!?!?!!?!?!?!???!?
		'iLogicVb.Automation.Deleteparam(openDocu,welding_type_value)  	  <--- doesn't work either :-(
End If

GoOnToGetNewParameters:
openDocu.Update																	'write the deletes

welding_type_list = oUserParameterlocation.AddByValue("welding_type_list", "", UnitsTypeEnum.kTextUnits)   ' create the parameter welding_type_list in the document 

' fill the created welding_type_list with the different welding typs 
MultiValue.SetList("welding_type_list", "000 - Keines", "111 - Lichbogenhandschweißen", "131 - MIG Metall-Inert-Gasschweißen", "135 - MAG Metall-Aktiv-Gasschweißen", "141 - WIG Wolfram-Inert-Gasschweißen", _
"142 - WIG schweißen ohne Schweißzusatz", "143 - WIG schweißen mit Füllschweißzusatz", "151 - Plasma-Metall-Schutzgasschweißen", "311 - Gasschweißen mit Sauerstoff-Acetylen-Flamme", "312 - Gasschweißen mit Sauerstoff-Propan-Flamme") 

'let the person calling the function choose a weldingtype:
Dim Welding_type_value_Integer As Integer										'create an integer variable for exporting the selection to a drawing document

welding_type_selected = InputListBox("Wählen Sie ein Schweißverfahren", MultiValue.List("welding_type_list"), 000, Title := "Schweißverfahrenauswahl")

If welding_type_selected = "000 - Keines" Then Welding_type_value_Integer = 000
	If welding_type_selected = "111 - Lichbogenhandschweißen" Then Welding_type_value_Integer = 111
		If welding_type_selected = "131 - MIG Metall-Inert-Gasschweißen" Then Welding_type_value_Integer = 131
			If welding_type_selected = "135 - MAG Metall-Aktiv-Gasschweißen" Then Welding_type_value_Integer = 135
				If welding_type_selected = "141 - WIG Wolfram-Inert-Gasschweißen" Then Welding_type_value_Integer = 141
					If welding_type_selected = "142 - WIG schweißen ohne Schweißzusatz" Then Welding_type_value_Integer = 142
						If welding_type_selected = "143 - WIG schweißen mit Füllschweißzusatz" Then Welding_type_value_Integer = 143
							If welding_type_selected = "151 - Plasma-Metall-Schutzgasschweißen" Then Welding_type_value_Integer = 151
								If welding_type_selected = "311 - Gasschweißen mit Sauerstoff-Acetylen-Flamme" Then Welding_type_value_Integer = 311
									If welding_type_selected = "312 - Gasschweißen mit Sauerstoff-Propan-Flamme" Then Welding_type_value_Integer = 312
																			

Welding_type_value = oUserParameterlocation.AddByValue("Welding_type_value", Welding_type_value_Integer, UnitsTypeEnum.kUnitlessUnits)	'create the parameter Welding_type_value in the document

Welding_type_value.ExposedAsProperty = True 																							'set the exported parameter button for the parameter Welding_type_value

Parameter.UpdateAfterChange = True 
iLogicVb.UpdateWhenDone = True

Exit Sub

Errorending :
MsgBox ("Error somewhere somtime => Ending" & vbCr & Err.Description) 'Der UPS ein Fehler Text
ThisApplication.SilentOperation = False 'Inventor darf wieder Dialoge anzeigen

End Sub

Betreff: ExportParameter in iLogic löschen

Anonymous — Tue, 23 Oct 2018 06:40:16 GMT

Okay, Noob error: Verwende .zip !

Hier also die Datei als zip, Danke S_May

für den Hinweis

Betreff: ExportParameter in iLogic löschen

Anonymous — Tue, 23 Oct 2018 09:34:49 GMT

Okay, habs anders gemacht..ohne den blöden Parameter.. man ist ja rum probier fähig.

Pogramm im Anhang tut jetzt. Falls irgendwer das gebrauchen kann. Leider habe ich (noch) nicht herausgefunden wie ich diesen blöden Parameter gelöscht bekomme.

Auszug:

SyntaxEditor Code Snippet

Dim Welding_type_value_Integer As Integer																								'create an integer variable for exporting the selection to a drawing document
Dim welding_type_selected As String																										'create a string for putting the selected "text" into
welding_type_selected = InputListBox("Wählen Sie ein Schweißverfahren", MultiValue.List("welding_type_list"), 000, Title := "Schweißverfahrenauswahl")

If welding_type_selected = "Keine Angabe" Then Welding_type_value_Integer = 000
	If welding_type_selected = "111 - Lichbogenhandschweißen" Then Welding_type_value_Integer = 111
		If welding_type_selected = "131 - MIG Metall-Inert-Gasschweißen" Then Welding_type_value_Integer = 131
			If welding_type_selected = "135 - MAG Metall-Aktiv-Gasschweißen" Then Welding_type_value_Integer = 135
				If welding_type_selected = "141 - WIG Wolfram-Inert-Gasschweißen" Then Welding_type_value_Integer = 141
					If welding_type_selected = "142 - WIG schweißen ohne Schweißzusatz" Then Welding_type_value_Integer = 142
						If welding_type_selected = "143 - WIG schweißen mit Füllschweißzusatz" Then Welding_type_value_Integer = 143
							If welding_type_selected = "151 - Plasma-Metall-Schutzgasschweißen" Then Welding_type_value_Integer = 151
								If welding_type_selected = "311 - Gasschweißen mit Sauerstoff-Acetylen-Flamme" Then Welding_type_value_Integer = 311
									If welding_type_selected = "312 - Gasschweißen mit Sauerstoff-Propan-Flamme" Then Welding_type_value_Integer = 312
																			

'Welding_type_value = oUserParameterlocation.AddByValue("Welding_type_value", Welding_type_value_Integer, UnitsTypeEnum.kUnitlessUnits)	'create the parameter Welding_type_value in the document <- not good, can't delete it again in iLogic ?

iProperties.Value ("Custom","Welding_type_value") = Welding_type_value_Integer															'put the value into the iproperties for export , will overwrite older values
'Welding_type_value.ExposedAsProperty = True 											'set the exported parameter button for the parameter Welding_type_value => creates a custum iProperties text parameter with the value as text => BULL****
iProperties.Value("Custom", "Welding_type_selected") = welding_type_selected															'put the text into the iproperties for export , will overwrite older values 


Parameter.UpdateAfterChange = True 
iLogicVb.UpdateWhenDone = True

Exit Sub

Betreff: ExportParameter in iLogic löschen

Martin-Winkler-Consulting — Tue, 23 Oct 2018 09:46:05 GMT

Hallo @Anonymous

grundsätzliche Anmerkungen:

Zur Fehlerbehandlung solltest du dich mal mit dem Try , Catch , End Try Block beschäftigen. Das ist eine gute (bessere) Methode um Fehler abzufangen. Darüber hinaus empfehle ich dir auch mal den VBA Makro Editor. Da kann man das Verhalten des Programms wesentlich besser nachvollziehen und Fehler finden. VBA Code ist dann schnell in iLogic umgeschrieben.

Grüße Martin

Betreff: ExportParameter in iLogic löschen

Anonymous — Tue, 23 Oct 2018 10:55:11 GMT

Jup, danke für die Hilfestellung. Try-Catch hab ich schon mal ausprobiert.. bin da nur nicht so ganz Firm wie mit dem "alten" if then ...und als VBA Code editor ist scheints der Visual Studio Code nicht schlecht...ich kuck da auch schon mal rein.

Im Augenblick will ich ja "nur" die Eingaben/Angaben für den Zeichnungskopf automatisieren. So ein wenig wildes herumprobieren und es tut (irgendwie).

Betreff: ExportParameter in iLogic löschen

Dennis.Ossadnik — Wed, 24 Oct 2018 08:19:15 GMT

Hallo @Anonymous,

ich habe mir mal den Teil der Regel aus Deinem zweiten Post angesehen. Also ich habe keine Probleme, den Parameter hinterher zu löschen.

Den Code habe ich etwas abgeändert und ein paar Fehlerabfragen eingebaut. Das ist sicher noch ausbaufähig, scheint aber zunächst stabil zu funktionieren.

Dim Welding_type_value_Integer As Integer																								'create an integer variable for exporting the selection to a drawing document
Dim welding_type_selected As String																										'create a string for putting the selected "text" into

'retrieve list from parameter
Try
	welding_type_selected = InputListBox("Wählen Sie ein Schweißverfahren", MultiValue.List("welding_type_list"), 000, Title := "Schweißverfahrenauswahl")
Catch
	MessageBox.Show("Fehler beim Abrufen der Parameter in die Auswahlliste!", "Fehlerbehandlung")
	Exit Sub
End Try

Select Case welding_type_selected
	
	Case "Keine Angabe"
		Welding_type_value_Integer = 000
		
	Case "111 - Lichbogenhandschweißen"
		Welding_type_value_Integer = 111
		
	Case "131 - MIG Metall-Inert-Gasschweißen"
		Welding_type_value_Integer = 131
		
	Case "135 - MAG Metall-Aktiv-Gasschweißen"
		Welding_type_value_Integer = 135
		
	Case "141 - WIG Wolfram-Inert-Gasschweißen"
		Welding_type_value_Integer = 141
	
	Case "142 - WIG schweißen ohne Schweißzusatz"
		Welding_type_value_Integer = 142
		
	Case "143 - WIG schweißen mit Füllschweißzusatz"
		Welding_type_value_Integer = 143
		
	Case "151 - Plasma-Metall-Schutzgasschweißen"
		Welding_type_value_Integer = 151
	
	Case "311 - Gasschweißen mit Sauerstoff-Acetylen-Flamme"
		Welding_type_value_Integer = 311
		
	Case "312 - Gasschweißen mit Sauerstoff-Propan-Flamme"
		Welding_type_value_Integer = 312
	
	Case Else
			MessageBox.Show("Ungültiger Typ wurde ausgewählt! Parameter-Liste prüfen!", "Fehlerbehandlung")
			Exit Sub

End Select

'Try to set a value to parameter if it fails, create a parameter
Try
	Parameter("Welding_type_value") = Welding_type_value_Integer
Catch
	Dim p As Inventor.Parameter
	p = ThisDoc.Document.ComponentDefinition.Parameters.UserParameters.AddByValue("Welding_type_value", Welding_type_value_Integer, UnitsTypeEnum.kUnitlessUnits)
	p.ExposedAsProperty = True
	p.CustomPropertyFormat.PropertyType = Inventor.CustomPropertyTypeEnum.kNumberPropertyType
	p.CustomPropertyFormat.Precision = Inventor.CustomPropertyPrecisionEnum.kZeroDecimalPlacePrecision
	
End Try

If MessageBox.Show("Parameter Welding_type_value jetzt löschen?", "NUR ZUM TESTEN!", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then

	Try
		ThisDoc.Document.ComponentDefinition.Parameters.UserParameters.Item("Welding_type_value").Delete
		MessageBox.Show("Parameter gelöscht.", "Title")

	Catch
		MessageBox.Show("Parameter konnte nicht gelöscht werden", "Fehlerbehandlung")
	End Try

End If

'Welding_type_value = oUserParameterlocation.AddByValue("Welding_type_value", Welding_type_value_Integer, UnitsTypeEnum.kUnitlessUnits)	'create the parameter Welding_type_value in the document <- not good, can't delete it again in iLogic ?

'iProperties.Value ("Custom","Welding_type_value") = Welding_type_value_Integer															'put the value into the iproperties for export , will overwrite older values
'Welding_type_value.ExposedAsProperty = True 											'set the exported parameter button for the parameter Welding_type_value => creates a custum iProperties text parameter with the value as text => BULL****
'iProperties.Value("Custom", "Welding_type_selected") = welding_type_selected															'put the text into the iproperties for export , will overwrite older values 


Parameter.UpdateAfterChange = True 
iLogicVb.UpdateWhenDone = True

Exit Sub

Dem Parameter habe ich auch eine Bentzerdefiniertes Format verpasst, so dass das iProperty hinterher eine Nummer ist ohne Nachkommastellen.

Die Baugruppe hängt im Format 2019 an.

Würde Dir das schon mal weiterhelfen?

Betreff: ExportParameter in iLogic löschen

Anonymous — Wed, 24 Oct 2018 10:49:40 GMT

Hey, Vielen Dank!

Ich lern richtig viel von deinem Vorschlag! Und es tauchen viele neue fragen auf .. warum z.B. man mit "case" das Rad (If..Then..) neu erfindet...(nach dem compelieren besserer code?) Ist aber hier jetzt auch egal.

Ich habe inzwischen den Code dahingehend geändert solch einen Parameter gar nicht zu verwenden. Ich schieb den Wert direkt in iProperties rein.

SyntaxEditor Code Snippet

iProperties.Value ("Custom","Welding_type_value") = Welding_type_value_Integer

Nächster Schritt ist dann das mit dem Integer bleiben zu lassen und einfach den Text da rein zu schieben...

Bleibt die Frage welche Vorteile den der Wert in den "normalen" Parametern hätte ..

Und es bleibt irgendwie die Frage offen WARUM sich in meinem alten Code der Parameter nicht löscht.

Im Anhang den funktional gemachten Vorschlag von Dir (Nochmals DANKE!) sowie den Code den ich jetzt gerade verwende.

Bin erst morgen wieder da..

Betreff: ExportParameter in iLogic löschen

Dennis.Ossadnik — Wed, 24 Oct 2018 16:04:03 GMT

Hallo @Anonymous,

freut mich, dass Dir der Code etwas weitergeholfen.

Du hast recht, eigentlich kann man das mit den IF Statements auch so machen, aber ich persönlich finde, dass der Code durch die Verwendung der SELECT CASE etwas leserlicher und verständlicher ist.

Wenn Du nach ein paar Jahren daran mal was ändern musst oder ein Fehler auftritt, ist es etwas übersichtlicher und die betroffene Stelle bestimmt schneller zu finden.

Was den Fehler beim Löschen angeht... Irgendwie läuft das bei mir nicht auf einen Fehler.

Eventuell liegt es an dem Datensatz, mit dem Du testest, oder ich habe etwas übersehen.

Ich habe Dir mal einen kleinen Code geschrieben, der ein paar Fehler analysiert, die üblicherweise in diesem Zusammenhang kommen könnten. Kannst du ja einfach mal in der Baugruppe testen.

Dim welding_type_value_OLD As Inventor.UserParameter 

'Prüfen der Fehler beim Zuweisen
Try
	welding_type_value_OLD = ThisDoc.Document.ComponentDefinition.Parameters.UserParameters.Item("welding_type_value")
Catch
	MessageBox.Show("Da ist was schief gegangen. Gibt es diesen Parameter überhaupt???", "Parameter zuweisen")
	Exit Sub
End Try

'Vorbedingung zum Löschen: Der Parameter darf nicht verwendet sein.
If welding_type_value_OLD.Dependents.Count > 0 Then
	MessageBox.Show("Der Parameter " & welding_type_value_OLD.Name & " kann nicht gelöscht werden, da er noch Abhängigkeiten hat!", "Prüfung der Abhängigkeiten")
	Exit Sub
End If

'Prüfen der Fehler beim Löschen
If MessageBox.Show("Jetzt den Parameter " & welding_type_value_OLD.Name & " löschen?", "Parameter-TEST", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
	
	Try
		welding_type_value_OLD.Delete
		MessageBox.Show("Geschafft!", "Parameter löschen")

	Catch
		MessageBox.Show("Da ist noch was schief gegangen.", "Parameter löschen")
		Exit Sub
	End Try
	
End If

Eventuell könnte es daran liegen, dass der Parameter irgendwie verwendet wird. Bspw. in dem Parametern. Dann kann man den mit dem Code nicht löschen.

Sollte das der Fall sein, würdest Du beim Code nun diese Meldung bekommen:

Ich hoffe, das hilft Dir noch ein Stückchen weiter.

Bitte nutzt den "Als Lösung akzeptieren"-Button, wenn ein Beitrag euer Problem oder eure Frage löst. Für hilfreiche Posts könnt ihr auch gerne Kudos vergeben.

Betreff: ExportParameter in iLogic löschen

Martin-Winkler-Consulting — Wed, 24 Oct 2018 20:03:30 GMT

@Anonymous

ich nochmal....

Also wenn du in deinem alten Code wirklich die Ursache finden willst, würde ich als erstes mal die OnError Resume Next da auskommentieren. Wahrscheinlich fliegt dir dann eh der Code um die Ohren (du hast die bestimmt aus gutem Grund da rein genacht). Für mich mittlerweile ein No Go. Fehler sollte man nicht einfach übergehen, sondern beheben oder kontrolliert abfangen. Das gilt um so mehr in iLogic, da das Debuggen dort nach wie vor sehr mühselig ist, im Unterschied zu VBA. Und der Goto Befehl war mir schon immer Suspekt.

By the way, Select Case gibt es schon ewig und dann würde es auch noch If , ElseIf geben. Ich persönlich finde es auch recht übersichtlich wenn man sieht wo die If Schleife zu Ende ist.

@Dennis.Ossadnik hast du dir ja echt Mühe gegeben! Sieht doch gleich lesbar aus.

Grüße Martin

Betreff: ExportParameter in iLogic löschen

Anonymous — Thu, 25 Oct 2018 07:51:02 GMT

Okay, danke! Der Parameter ist in Benutzung und das er damit nicht löschbar ist war der entscheidend Hinweis. Bleibt die Frage warum er in Benutzung ist ....Muss ich mal wenn ich etwas Zeit habe nachforschen. Rein an dem Flag „Export“ kann es ja nicht liegen. Ich mach jetzt erst mal ohne Parameter weiter mit direkten i-Properties Einträgen. Nach dem Motto „keep it simple“.

Case kenn ich von meinen C64 Tagen her nicht …(~30 Jahre her?). Aber man ist ja lernfähig. Bleibt bei mir aber das Fragezeichen warum man sowas bloß für bessere Lesbarkeit erfindet. Leider gibt der wiki-Artikel auch keine wirkliche Auskunft.. https://de.wikibooks.org/wiki/VBA_in_Excel/_Wenn-Abfragen

Ist jetzt aber alles auch nicht so wichtig . Vielen herzlichen Dank für die tollen Programm Beispiele. So lern ich hier auch noch das Try-Case und komm vielleicht ohne solche Fehler generieren und Abfragen aus. Interessant fand ich auch die Tatsache das es offensichtlich keinen Unterschied macht ob ein Bauteil oder eine Baugruppe offen ist. Hätte ich mir die Mühe der Differenzierung sparen können 😕

Betreff: ExportParameter in iLogic löschen

Anonymous — Thu, 25 Oct 2018 07:53:09 GMT

Danke für den Hinweis. Ich hab den On Error Resume Next ebraucht für die (unnötige) und holprige Abfrage ob Bauteil oder Baugruppe offen ist. Danke für den hinweis!