ilogic ein bestimmtes Schriftfeld aus Vorlage in aktuelle Zeichnung kopieren.

[ralf.rosenburg]

Hallo, vielleicht kann mir jemand helfen

Ich benötige eine i-logic Regel, welche aus einer Vorlagenzeichnung ein bestimmtes Schriftfeld in meine aktuelle Zeichnung kopiert.

Also ich habe mehrere Kunden und für jeden Kunden ein spezifisches Schriftfeld. Nun möchte ich in meinen Zeichnungen nur das Schriftfeld des jeweiligen Kunden haben.

Die Idee ist es nun eine Vorlagendatei (IDW) zu haben in der alle Schriftfelder gespeichert sind. Z.B. Kunde A, B, C...

in meiner aktuellen Zeichnung habe ich zuerst mal kein Schriftfeld. Über eine Abfrage möchte ich nun z.B. Kunde A bestimmen. Jetzt brauche ich eine Routine, welche das Schriftfeld von Kunde A in der Vorlagendatei sucht und in meine aktuelle Zeichnung einfügt.

Bin für jede Hilfe Dankbar

[ralf.rosenburg]

Hallo, vielleicht kann mir jemand helfen

Ich benötige eine i-logic Regel, welche aus einer Vorlagenzeichnung ein bestimmtes Schriftfeld in meine aktuelle Zeichnung kopiert.

Also ich habe mehrere Kunden und für jeden Kunden ein spezifisches Schriftfeld. Nun möchte ich in meinen Zeichnungen nur das Schriftfeld des jeweiligen Kunden haben.

Die Idee ist es nun eine Vorlagendatei (IDW) zu haben in der alle Schriftfelder gespeichert sind. Z.B. Kunde A, B, C...

in meiner aktuellen Zeichnung habe ich zuerst mal kein Schriftfeld. Über eine Abfrage möchte ich nun z.B. Kunde A bestimmen. Jetzt brauche ich eine Routine, welche das Schriftfeld von Kunde A in der Vorlagendatei sucht und in meine aktuelle Zeichnung einfügt.

Bin für jede Hilfe Dankbar

[johnsonshiue · Accepted solution]

Hi! I think there could be a solution using iLogic rules. But, you can also use "Drawing Resource Transfer Wizard" to do that. Go to All Programs -> Autodesk -> Inventor 20xx -> Tools. It should be fairly straight forward (select source idw/dwg files -> select target files -> copy over the objects).

Many thanks!

[johnsonshiue · Accepted solution]

Hi! I think there could be a solution using iLogic rules. But, you can also use "Drawing Resource Transfer Wizard" to do that. Go to All Programs -> Autodesk -> Inventor 20xx -> Tools. It should be fairly straight forward (select source idw/dwg files -> select target files -> copy over the objects).

Many thanks!

[ralf.rosenburg]

Hi, thank you for your answer. But that's not what I'm Looking for. I've got an answer from the German Forum.

best regards

Ralf Rosenburg

[ralf.rosenburg]

Hi, thank you for your answer. But that's not what I'm Looking for. I've got an answer from the German Forum.

best regards

Ralf Rosenburg

[ralf.rosenburg]

Hallo,

hier mein Quellcode für die iLogic Routine. Habe ich von Martin Winkler aus dem deutschen Forum. Vielen Danke hier nochmal.

Sub SK_Vorlage(Pfad As String, SK As String)
	
	Dim oNewDocument As DrawingDocument
	oNewDocument = ThisApplication.ActiveDocument

	Dim oSourceDocument As DrawingDocument
	oSourceDocument = ThisApplication.Documents.Open(Pfad)

	Dim oSourceTitleBlockDef As TitleBlockDefinition
	oSourceTitleBlockDef = oSourceDocument.TitleBlockDefinitions.Item(SK)

	Dim oNewTitleBlockDef As TitleBlockDefinition
		Try
		oNewTitleBlockDef = oSourceTitleBlockDef.CopyTo(oNewDocument)
		Catch
		End Try

	'Schriftfeld in jedes Blatt einfügen
	Dim oSheet As Sheet
	For Each oSheet In oNewDocument.Sheets
		oSheet.Activate
		Try
		oSheet.TitleBlock.Delete
		Catch
		Call oSheet.AddTitleBlock(oNewTitleBlockDef)
		End Try
	Next
	oSourceDocument.Close(False)
End Sub

[ralf.rosenburg]

Hallo,

hier mein Quellcode für die iLogic Routine. Habe ich von Martin Winkler aus dem deutschen Forum. Vielen Danke hier nochmal.

Sub SK_Vorlage(Pfad As String, SK As String)
	
	Dim oNewDocument As DrawingDocument
	oNewDocument = ThisApplication.ActiveDocument

	Dim oSourceDocument As DrawingDocument
	oSourceDocument = ThisApplication.Documents.Open(Pfad)

	Dim oSourceTitleBlockDef As TitleBlockDefinition
	oSourceTitleBlockDef = oSourceDocument.TitleBlockDefinitions.Item(SK)

	Dim oNewTitleBlockDef As TitleBlockDefinition
		Try
		oNewTitleBlockDef = oSourceTitleBlockDef.CopyTo(oNewDocument)
		Catch
		End Try

	'Schriftfeld in jedes Blatt einfügen
	Dim oSheet As Sheet
	For Each oSheet In oNewDocument.Sheets
		oSheet.Activate
		Try
		oSheet.TitleBlock.Delete
		Catch
		Call oSheet.AddTitleBlock(oNewTitleBlockDef)
		End Try
	Next
	oSourceDocument.Close(False)
End Sub