iLogic Regel nur für Zeichnungen ausführen (Autodesk/Inventor)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

Autor

Thema: iLogic Regel nur für Zeichnungen ausführen (1216 mal gelesen)

GZDesign
Mitglied
Designer

Senden Sie eine Private Message an GZDesign

Schreiben Sie einen Gästebucheintrag für GZDesign

Beiträge: 58
Registriert: 05.02.2016

i7 4790 16GB Windows 7 64 Bit
Inventor 2016
Vault 2016

erstellt am: 04. Jul. 2016 12:58

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Hallo,
ich habe eine iLogic Regel, diese lasse ich per Macro Button ausführen.
Daher möchte ich diese nur für Zeichnungen ausführbar machen. Bei allem anderen soll nix passieren.

Code:

If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then

If ThisDrawing.ModelDocument Is Nothing Then Return
modelFullFileName = ThisDoc.ModelDocument.FullFileName
modelDirectory = IO.Path.GetDirectoryName(modelFullFileName)
iProperties.Value("Custom", "Folder") = Mid(modelDirectory,31)
MsgBox ("Drawing Folder saved " & Mid(modelDirectory,31))

Else
MsgBox ("No Drawing")
End If

Die MSGBox sind nur zum Testen.
Die Regel ist Global!
Ist es aber eine Baugruppe oder ein Bauteil, kommt ein Inventor Fehler, dass es keine Zeichnung ist. Dabei habe ich das ja ausgeschlossen?!
Bin da noch neu drin, aber

Code:

If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then

sollte ja den Code nur ausführen, wenn das Document eine Zeichnung ist?!

------------------
MFG
Florian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

muellc
Ehrenmitglied V.I.P. h.c.
ICT Specialist

Senden Sie eine Private Message an muellc

Schreiben Sie einen Gästebucheintrag für muellc

Beiträge: 3501
Registriert: 30.11.2006

Inventor 2017.4.12 64 bit
Windows 10 Enterprise 64 bit
3DEXPERIENCE R2016x
--------------------
HP Z-Book 15 G4
32 Gig Ram
NVIDIA Quadro M2200
2x HP E243i

erstellt am: 04. Jul. 2016 13:46

<-- editieren / zitieren -->

Unities abgeben:

Nur für GZDesign

Ich bin zwar kein Profi, aber das hier gibt mir im Bauteil ein no Drawing aus.

Code:

Dim oDoc As Document = ThisApplication.ActiveEditDocument
If oDoc.DocumentType = kDrawingDocumentObject
modelFullFileName = ThisDoc.ModelDocument.FullFileName
modelDirectory = IO.Path.GetDirectoryName(modelFullFileName)
iProperties.Value("Custom", "Folder") = Mid(modelDirectory,31)
MsgBox ("Drawing Folder saved " & Mid(modelDirectory,31))
Else
MsgBox ("No Drawing")
End If

------------------
Gruß, Gandhi
"Dem guten Frager ist schon halb geantwortet" - Friedrich Nietzsche

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Technischer Produktdesigner / Technischer Zeichner (m/w/d)
Die aas gmbh ist ein innovativer Hersteller von Hochdruckarmaturen mit einem umfassenden Programm für Standard- und Sonderarmaturen. Mit unserem besonderen Branchen-Know-how aus über 40 Jahren Erfahrung, unseren technologischen Innovationen und eigenen Patenten betreuen wir europaweit namhafte Kunden aus dem Energiesektor und der Industrie. Technischer Produktdesigner / Technischer ...
*Anzeige ansehen*	Technischer Zeichner, Bauzeichner

GZDesign
Mitglied
Designer

Beiträge: 58
Registriert: 05.02.2016

i7 4790 16GB Windows 7 64 Bit
Inventor 2016
Vault 2016

erstellt am: 05. Jul. 2016 08:25

<-- editieren / zitieren -->

Unities abgeben:

Danke.

Offenbar hing er sich am "ThisDrawing" innerhalb der IF Abfrage auf.
Wobei das echt seltsam ist, da ja eigentlich vor schon geklärt sein sollte, dass er diesen Code in einer nicht Zeichnung nicht ausführt, sondern die MSG Box ausgibt.
Trotzdem will die Programmierung hier etwas festgelegt haben vorher. Naja... nun geht es und ich weiß nun das ich immer festlegen muss das er Doc bzw Drawing etc liest.

------------------
MFG
Florian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)