Hallo zusammen,
ich versuche unser Schriftfeld mittels I-Logic anhand der Bauteilnummer auszutauschen.
Hierbei gibt es 2 Situationen:
1. Die Zeichnung liegt im PSP und erhält eine 6-Stellige Bauteilnummer mit Index z.B. 123456-00
2. Die Zeichnung liegt eben nicht im PSP, die Bauteilnummer entspricht dem Dateinamen ohne Endung.
Dazu habe ich versucht die ersten 6 Ziffern der Bauteilnummer als Zahl auszulesen und diese mit Min und Max zu vergleichen.
Code:
If Val(Left(iProperties.Value("Project", "Part Number"),6)) >=000000 And Val(Left(iProperties.Value("Project", "Part Number"),6)) <= 999999 ThenActiveSheet.TitleBlock = "Schriftfeld1"
Else
ActiveSheet.TitleBlock = "Schriftfeld2"
End If
Irgendwo hab ich hier einen Denkfehler drin, er setzt jedes mal Schriftfeld 1 ein.
Wäre nett wenn mir jemand von euch hierbei helfen könnte.
------------------
Gruß, Gandhi
It's not a bug, it's a feature!
CAD-RPG - Anleitungen IVNGWC
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP