Maßstab aus Erstansicht in Schriftfeld automatisch übernehmen Inventor 2014

[Leftfield62]

Hallo Leute brauche eure Hilfe und Anleitung zu oben genannten Wunsch nach Komfort 😉

Bis jetzt pflege ich den Maßstab manuell ein,(benutzerdefinierte Iproperties als Text in der IDW) dass geht doch bestimmt einfacher oder?

Habt ihr Lösungen, Anleitungen, Videos? Dann her damit. 🙂

Danke im voraus

Gruß Ralf

[Holger_Naumann]

Musst du dir das hier im Schriftfeld eintragen. Das bezieht sich aber IMMER nur auf die erste Ansicht:

Neil Cross hatte mal in einem seiner YouTube Videos gezeigt, wie man das durch "herumschubsen" der Ansichten bearbeiten kann, ohne die Zeichnung neu zu erstellen, habe das Video aber gerade nicht griffbereit.

[Leftfield62]

Hallo Holger
danke für die schnelle Antwort. Den Eintrag gibt es leider bei IV 2014 noch nicht :-).

Gruß Ralf

[Holger_Naumann]

Oh! Entschuldige. Deine Version ist mir nicht aufgefallen. Asche auf mein Haupt. 😑

[j_weber]

Hallo, 

im Inventor 2014 könntest du es mit einer iLogic-Regel so machen, das der Wert in eine Eigenschaft geschrieben wird und diese Eigenschaft dann im Schriftfeld dargestellt wird. 

Such bei Google einfach mal nach

Inventor iLogic FirstViewScale

dann findest du sicher etwas was dir helfen kann. 

[Leftfield62]

Hallo Jörg,

danke für den Tipp. Habe auch schon was gefunden, aber da ich I-Logic Neuling bin überhaupt keinen Plan wie das geht. Kannst du mir bitte eine Hilfestellung geben in Form von Videos Anleitungen etc?

Hier der Link:

https://forums.autodesk.com/t5/inventor-ilogic-and-vb-net-forum/first-view-scale/td-p/10019845 

Muss der Code bearbeitet werden?

Gruß Ralf

[j_weber]

Ich habe es mal versucht in einem Screencast zu zeigen. 

https://autode.sk/3Nalrdq

Ich hab allerdings nicht mehr daran gedacht, das du ja Inventor 2014 hast. 

Vom Prinzip her läuft es da aber auch. 

Ich hoffe es hilft dir trotzdem weiter. 

[Leftfield62]

Hallo Jörg,

erstmal Danke für dein Screencast. Habe es soweit auch verstanden. Woher bekomme ich den I-Logic Code? Hast du denn für mich ? gibt es einen Ling wie genau ich den Code einfüge bzw. erstelle?

Gruß

Ralf / Leftfield  

[j_weber]

Hallo @Leftfield62 

Der Code müßte in dem Beitrag sein, den ich dir zuerst verlinkt hatte. 

Lass mir Zeit bis zum Wochenende, dann kann ich das noch mal anschauen

[Leftfield62]

Hallo Jörg,

hattest du schon Zeit gefunden ? um dir die Sache nochmals anzuschauen.

Gruß

Leftfield 

[j_weber]

Leider noch nicht, wir hatten Kundentag heute.

Ich schaue aber morgen danach, da hab ich Zeit dafür

[j_weber · Accepted solution]

Hallo @Leftfield62 

also im Grunde hab ich ja in meinem Screencast schon gezeigt wie es gehen könnte. 

Ich kann dir leider keine Datei vorbereiten, weil ich kein Inventor 2014 mehr haben. 

Der Code dazu findest du ja in dem Beitrag der hier schon gepostet wurde. 

Also dieser hier. 

'Public Sub BaseViewScaleToIProp()
Sub Main
	If ThisApplication.ActiveDocumentType <> DocumentTypeEnum.kDrawingDocumentObject Then
		MsgBox("A Drawing Document must be active for this rule (" & iLogicVb.RuleName & ") to work. Exiting.",vbOKOnly+vbCritical, "WRONG DOCUMENT TYPE")
		Exit Sub
	End If
	Dim oDDoc As Inventor.DrawingDocument = ThisApplication.ActiveDocument
	Dim oSheet As Inventor.Sheet = oDDoc.ActiveSheet
	Dim oView As Inventor.DrawingView

	'how do you want to identify your base view?
	'For Each oView In oSheet.DrawingViews
	'	If oView.Name = "Base View" Then
	'	'If oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType Then
	'	'If oView.ViewStyle <> DrawingViewStyleEnum.kFromBaseDrawingViewStyle Then
	'	'If oView.Camera.ViewOrientationType = ViewOrientationTypeEnum.kFrontViewOrientation Then
	'		Exit For
	'	End If
	'Next
	'or simply:
	oView = oSheet.DrawingViews.Item(1)

	Dim oScale As Double = oView.Scale
	Dim oScaleSt As String = oView.ScaleString
	Dim oCProps As Inventor.PropertySet = oDDoc.PropertySets.Item("Inventor User Defined Properties")
	Dim oProp1, oProp2 As Inventor.Property
	Try
		oProp1 = oCProps.Item("Base View Scale")
	Catch
		oProp1 = oCProps.Add(oScale, "Base View Scale")
	End Try
	Try
		oProp2 = oCProps.Item("Base View Scale String")
	Catch
		oProp2 = oCProps.Add(oScaleSt, "Base View Scale String")
	End Try
End Sub

[Leftfield62]

Hallo Jörg,

danke für den Code. Werde das Ganze ausprobieren.

Gruß

Leftfield

[FrankGrim3s]

Hallo Jörg, Ich habe eine ähnliche Problemstellung, bezüglich des automatischen Einfügens eines Maßstabes.
Ich verwende Inventor 2015 und habe eben gerade deinen Code ausprobiert, resultierend in folgende Fehlermeldung:

Regelkompilierungsfehler in Maßstab, in Zeichnung1

Fehler in Zeile 4 : "RuleName" ist kein Member von "Autodesk.iLogic.Interfaces.ILowLevelSupport".


Kannst du mir da evtl. weitrerhelfen?


Mit freundlichen Grüßen

[j_weber]

Hallo Halter, 

ich muss es dann noch mal an einem alten System testen. 

So direkt kann ich es im Moment nicht sagen. 

Ich guck mal das ich ein altes Inventor finde. 

[FrankGrim3s]

Das wäre super lieb.

Danke schon mal im voraus.

[j_weber]

Ich hab grad ein Problem, 

ich hab keine ältere Version mehr laufen. 

Ich such mal weiter, kann also noch ein bissel dauern. 

Tut mir leid und entschuldigung

[j_weber]

Hallo, 

ich habe mein altes Inventor 2016 Netzwerk überlistet und konnte nun so gucken. 

Ich hab auch den Hinweis. Offenbar ist 

(" & iLogicVb.RuleName & ")

in älteren Versionen noch nicht verfügbar. 

Wenn ihr einfach den Text aus der Meldung entfernt, dann geht es.  

Die ganze Zeile sieht dann so aus

MsgBox("A Drawing Document must be active for this rule to work. Exiting.",vbOKOnly+vbCritical, "WRONG DOCUMENT TYPE")

MsgBox("A Drawing Document must be active for this rule to work. Exiting.",vbOKOnly+vbCritical, "WRONG DOCUMENT TYPE")​

Ich hoffe es hilft und es klappt dann auch bei euch

[FrankGrim3s]

Alles gut. musst dich dafür nicht Entschuldigen

[FrankGrim3s]

Hallo, Ich habe es gerade Ausprobiert. Leider war auch dass nicht die Lösung meines Problems.

Schade 🙄

Ich habe euch noch ein paar Bilder gemacht.

Evtl. habe ich ja irgendwo einen Anderen Fehler gemacht