| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Prüfbemaßung einfügen (2941 mal gelesen)
|
noctis79
Mitglied
Konstrukteur/ CAD-Administrator
   Beiträge: 164
Registriert: 07.10.2009 Inventor Pro 2017
Cideon Workspace
|
erstellt am: 23. Mai. 2011 10:08  <-- editieren / zitieren -->   Unities abgeben:          
Hallo, folgender Sachverhalt:
Ich möchte automatisch in einer Zeichnung alle Maße durchlaufen und
Maße die eine Passung oder Toleranz enthalten mit einem Prüfmaß versehen. Dabei tritt folgendes Problem auf: Beim Ausführen von: Code:
oDrawDoc.ActiveSheet.DrawingDimensions.Item(i).SetInspectionDimensionData (kRoundedEndsInspectionBorder)
Wird bei Bezeichnung ein Leerzeichen eingefügt.
Dadurch erhalte ich einen | vor der Bemaßung. Kann man das irgendwie beeinflussen? Wenn ich es mit (kRoundedEndsInspectionBorder, "", "") probiere bekomm ich als Fehler "Compile Error: Expected:=" zurück.... Danke für eure Hilfe! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
basti19
Mitglied
Beiträge: 26
Registriert: 23.07.2003 Software: AIP2011 SP2 x64
|
erstellt am: 11. Aug. 2011 16:47 <-- editieren / zitieren --> Unities abgeben: Nur für noctis79 
Hi Noctis, wenn ich deinen Code richtig verstanden habe, rufst du eine Methode auf (ich schätze mal VBA). VB hätte Methoden/Prozeduren aber gern ohne Klammer um die Argumente. Der Grund, warum dein Aufruf funktioniert hat liegt darin, dass ein geklammerter Parameter als ByVal übergeben wird und somit ein aus VB-Sicht sinnvoller Aufruf entsteht. Die gewünschte Zeile würde wahrscheinlich funktionieren, wenn du die Klammern weglässt oder ein "Call " davorstellst. CU Sebastian Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
st.w
Mitglied
Beiträge: 59
Registriert: 08.11.2011
|
erstellt am: 22. Feb. 2013 15:03 <-- editieren / zitieren --> Unities abgeben: Nur für noctis79
Hallo noctis79, das klingt genau so, wie ich mir das wünsche... Kannst Du bitte den Code einstellen, damit ich den auch bei mir einsetzen kann ? Ein schönes Wochenende und Danke dafür,
Stefan ------------------
IV2008 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik
    
Beiträge: 2166
Registriert: 15.11.2006 Windows 10 x64, AIP 2022
|
erstellt am: 23. Feb. 2013 11:02 <-- editieren / zitieren --> Unities abgeben: Nur für noctis79
Hallo Code:
Call oDrawDoc.ActiveSheet.DrawingDimensions.Item(i).SetInspectionDimensionData (kRoundedEndsInspectionBorder)
war da gemeint. Der Trennstrich ist trotzdem drin, da der meines Wissens automatisch und nicht beeinflußbar gesetzt wird.
------------------
MfG
Ralf  Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
noctis79
Mitglied
Konstrukteur/ CAD-Administrator
Beiträge: 164
Registriert: 07.10.2009 Inventor Pro 2017
Cideon Workspace
|
erstellt am: 06. Mrz. 2013 15:40 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de (alle Foren)
| 
