| | |  | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | |  | Autodesk Inventor CAM, ein Webinar am 22.08.2025
|
|
Autor
|
Thema: iLogic Regel nur für Zeichnungen ausführen (1745 / mal gelesen)
|
GZDesign
Mitglied
Designer
   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 / 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
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 |
| |
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.:
Anzeige: (Infos zum Werbeplatz >>)
 |
Foren auf CAD.de
| 
