---

Hallo zusammen

da man ab SWX 2005 SP1.1 beim Hinzufügen einer Wellenpassung
eine Fehlermeldung bekommt, die Wellenpassung zwar hinzugefügt wird,
aber keine Toleranzen hinterlegt werden, habe ich mein Makro umgeschrieben.
Es wird nun nur nach der Passungsbezeichnung gesucht, die Toleranzen
werden aus der SWX Datenbank "FIT.MDB" ausgelesen, an das Maß
"angehängt" und die Tabelle eingefügt.
D.h. Wenn man die Option "Passung mit Toleranz" wählt stehen die
Toleranzen erst beim Maß, sobald das Makro 1x gestartet wurde.
Vorher stehen nur zwei Nullen bei den Toleranzen.
Bitte beachtet die Hinweise im Makro!
Ich nehme mal an, dass bei Allen die Access installiert haben es keine Probleme geben sollte.
Da ich noch nicht dazugekommen bin, das Makro ausführlich zu testen,
bin ich für Anregungen und Verbesserungsvorschläge dankbar.
Hinweis:
Zur Zeit erkennt das Makro nicht, wenn bereits eine Passungstabelle vorhanden ist.

------------------
Grüße
Heinz

ACHTUNG:
Da es noch immer mehr od. weniger kleine Bugs in dem Makro gibt
hab ich es einstweilen entfernt.
Danke an Thomas Rabald für Testen und die Verbeserungsvorschläge

[Diese Nachricht wurde von nahe am 22. Feb. 2005 editiert.]

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

---

Passungstabelle3.zip

Hallo nochmals

nach einigen Änderungen hoffe ich, dass das Makro nun brauchbar ist.
Entgegen meinem obigen Eintrag werden nun die Toleranzen nicht
an das Maß angehängt. Dafür werden auch Angaben der Form "H7/g6"
unterstützt.
Die aktuell gültige Version des Makros ist die Version 2.3

------------------
Grüße
Heinz

[Diese Nachricht wurde von nahe am 28. Feb. 2005 editiert.]

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

---

wie soll denn dieses Ding funktionieren:

1. Bemassungen in der zeichnung mit Passungen versehen
2. Makro ausführen
3. NICHTS passiert !!

Gruss
Rapti

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

---

Hallo Rapti

kannst Du vielleicht die Zeichnung posten,
bzw. hast Du die Hinweise ganz am Anfang im Makro, bezüglich
der Datei "DAO360.DLL" beachtet?

------------------
Grüße
Heinz

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

---

capture_02282005_164353.jpg

Hallo Heinz

Habe mir, nachdem das Makro immer tadellos funktioniert hat, die neuste Version heruntergeladen. Leider funktioniert diese Version aber nicht mehr :-( Das Makro bricht mit "Laufzeitfehler 5, ungültiger Prozeduraufruf oder ungültiges Argument" ab. Weisst Du, an was das liegen könnte?

Gruss Tom

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

---

Hallo Tom

kannst Du bitte die Zeichnung posten?

------------------
Grüße
Heinz

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

---

21-728.00.zip

Kann ich....

Gruss Tom

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

---

Passungstabelle3.zip

Hallo Tom

es hat sich noch ein Fehler eingeschlichen
anbei das aktuallisierte Makro.
Version 2.31
Sorry :-(
Was an Deiner Zeichnung bzw. Teil seltsam ist,
ist, dass ich für die Paßung 6 G9 als Maßwert
5,9999999999 bekomme.
Erst wenn ich das Maß z.B. auf 8 ändere und dann wieder zurück
auf 6, wird auch 6 zurückgegeben.
Das liegt aber scheinbar an SWX.

------------------
Grüße
Heinz

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

---

Hi Heinz

Das mit diesem Mass habe ich auch gesehen. Dabei wurde diese Bohrung mit dem Bohrungsassistenten erstellt. Habe auch die Skizze editiert und dort stand wirklich 6.0 drin.

Danke für das korrigierte Makro. Werde es morgen gleich ausprobieren.

Gruss Tom

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

---

Hallo Heinz,
wegen der 5.999999... Diese Sache kommt doch recht häüfig vor.
Deshalb runde ich mit  Int(Passmass * 1000 + 0.5) / 1000  meine Maßzahlen auf 3 Stellen. Das ist auch für den Vergleich, ob der Wert schon in der Tabelle ist, nützlich.
Viele Grüße
Thomas

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

---

Hallo Heinz,

habe Dein Macro jetzt auch mal getestet und immer Laufzeitfehler bekommen. Bei verschiedenen Zeichnungen ausprobiert und nun herausbekommen, wenn sich in der Zeichnung ein "graues" Maß, also im 2D eingefügtes Maß befindet... dann funktioniert das Macro nicht.
Schade, denn "graue" Maße sind, bei den furchtbar zu bemaßenden Schnitten im SWX für uns unerläßlich.

Gruß
Ramona

------------------
**Chaos ist die Ordnung, die wir nicht verstehen.**

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

---

pass-01.jpg

Hallo Ramona

ich hab mal in einer Testzeichnung Maße eingefügt
und konnte kein Problem feststellen (siehe Bild)
Kannst Du Deine Zeichnung vielleicht posten?

------------------
Grüße
Heinz

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

---

TEST.zip

Hallo Heinz,

könnte vielleicht auch an der Konfigurationstabelle liegen?
Unsere Passungen haben alle den Status "benutzerdefiniert"..
Auf jeden Fall, nachdem ich das graue Maß gelöscht habe, geht es gar nicht mehr...

Gruß
Ramona

------------------
**Chaos ist die Ordnung, die wir nicht verstehen.**

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

---

Hallo Heinz

Wäre es möglich, dass was Thomas5 geschrieben hat, noch zu integrieren? Oder könntest Du mir verraten, an welcher Stelle ich die Massrundung einfügen muss?

Gruss Tom

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

---

pass-02.jpg

Hallo Ramona

ich hab kein Problem mit Deiner Zeichnung feststellen können
Kannst Du mal in das Makro schauen, ob Du auch die letzte version hast? (Version 2.31)

------------------
Grüße
Heinz

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

---

Hallo Tom

ich persönlich halte nichts davon die Maße zu manipulieren
aber wenn Du willst kannst Du das gern einbauen
im Abschnitt

> '* Nochmals alle Maße durchlaufen
>    xx = 0
>    For i = LBound(dliste) To UBound(dliste)
>      suf = Left(dliste(i), InStr(dliste(i), Chr(9)) - 1)
>      t2 = Mid(dliste(i), InStr(dliste(i), Chr(9)) + 1)
>      masz = Val(Left(t2, InStr(t2, Chr(9))))

Hier müsstes Du die Variable masz runden

------------------
Grüße
Heinz

[Diese Nachricht wurde von nahe am 01. Mrz. 2005 editiert.]

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

---

@nahe

Danke Dir, hat geklappt...

Gruss Tom

[Diese Nachricht wurde von T. Steffen am 01. Mrz. 2005 editiert.]

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

---

Hallo Tom,
du suchst in der Prozedur "passungstabelle" die folgende Textstelle
....
Do While Not swDispDim Is Nothing
      Set swDim = swDispDim.GetDimension
      nDimFactor = GetDimFactor(swApp, swModel, swDim)
      tt = swDim.GetToleranceFitValues 'Passung
      masz = swDim.GetSystemValue2("") * nDimFactor
....
und fügst die Zeile:
      masz = Int(masz * 1000 + 0.5) / 1000
ein. Das warŽs...
Viele Grüße
Thomas

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

---

Zitat:

---

Original erstellt von Thomas5:
Hallo Tom,
du suchst in der Prozedur "passungstabelle" die folgende Textstelle
....
Do While Not swDispDim Is Nothing
      Set swDim = swDispDim.GetDimension
      nDimFactor = GetDimFactor(swApp, swModel, swDim)
      tt = swDim.GetToleranceFitValues 'Passung
      masz = swDim.GetSystemValue2("") * nDimFactor
....
und fügst die Zeile:
      masz = Int(masz * 1000 + 0.5) / 1000
ein. Das warŽs...
Viele Grüße
Thomas

---

Hi Thomas

Habe es so gelöst:
'* Nochmals alle Maße durchlaufen
    xx = 0
    For i = LBound(dliste) To UBound(dliste)
      suf = Left(dliste(i), InStr(dliste(i), Chr(9)) - 1)
      t2 = Mid(dliste(i), InStr(dliste(i), Chr(9)) + 1)
-->  masz = Int(Val(Left(t2, InStr(t2, Chr(9)))) * 100 + 0.5) / 100

Danke Dir...

Gruss Tom

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

---

Ups, da war ich wohl nicht der schnellste...

Hallo Heinz,
eines ist mir noch untergekommen:
Wenn in der Zeichnung Maße sind, bei denen die Toleranz auf Passung eingestellt ist, aber es wurde keine Passung ausgewählt, bzw. eingetragen, dann bricht das Programm ohne Meldung ab. Es passiert halt nichts.
Ist das Programm in Makroeditor, dann kommt eine Meldung.
Viele Grüße
Thomas

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

---

Hallo Thomas

hast Du die letzte Version des Makros (Version 2.31)?

------------------
Grüße
Heinz

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

---

Hallo Heinz,
da hatte ich wohl den letzen Programmstand übersehen.Sorry...
Viele Grüße
Thomas

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

---

Hallo Heinz,

das macro ist das neueste... ich bekomme jetzt immer die Meldung:
"Maß gefunden, bei dem beide Toleranzwerte 0 sind!
<MOD-DIAM>...
Bitte prüfen Sie die Toleranzeinstellungen
Makro wird beendet!"

Damit wars das....
Und wenn ich das, dort angegebene Maß lösche, gibt das macro ein anderes Maß als Fehler aus... eines, wo gar keine Passung dran ist.....

Gruß
Ramona

------------------
**Chaos ist die Ordnung, die wir nicht verstehen.**

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

---

HI Ramona,
wir haben das bei verschiedenen Zeichnungen auch. Einer unserer Mitarbeiter definiert(e) standardmäßig alle Maße als Passung. Toleranzen trägt er aber nur bei den wirklichen Passmaßen ein. in so einem Fall ist das Makro leider nicht zu gebrauchen  Es sei den man übergeht die Meldung und trägt das entsprechende Maß nicht in die Tabelle ein. Das muss ich mir mal anschauen, wenn ich dazukomme.
CU

------------------
Viele Grüße aus dem Schwarzwald
gismo
Meine bescheidene Website Klamm? Was ist Klamm?

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

---

Hallo Ramona

bitte achte einmal drauf, welches Makro Du aufrufst.
In dem letztgültigen Makro (2.31) gibt es diese Fehlermeldung nicht mehr!
Du kannst das einfach überprüfen, indem Du das Makro im VBA-Editor öffnest und nach dem Text "beide Toleranzwerte" suchst.
Der Suchvorgang sollte keinen Text finden.
Achtung:
auch im Makro der Version (2.2 das noch Bugs enthält) kommt diese Meldung auch schon nicht mehr vor.

------------------
Grüße
Heinz

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

---

Hi Gismo,

das stimmt, habe ich auch gesehen, daß bei allen Maßen standardmäßig Passung eingetragen ist... wo ist denn das voreingestellt? Habe da noch nie drauf geachtet...
Aber die Fehlermeldung kommt auch bei den Maßen, wo Passungen dran sind...
Na, nicht so wild... nur wegen mir braucht Ihr das Macro nicht stundenlang zu bearbeiten.
Scheint ja ansonsten bei den meisten Leuten zu funktionieren...
Ich schau mal, was ich an meinen Zeichnungen noch ändern kann..

Gruß
Ramona

------------------
**Chaos ist die Ordnung, die wir nicht verstehen.**

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

---

Passung.jpg

Das ist in den Dokumenteigenschaften definiert und in der Zeichnungsvorlage gespeichert.
Keie Sorge, wegen der Zeit  Ich mach das ja auch nur, wenn ich sowieso Zeit habe und es ist ja auch aus eigenem Interesse 

------------------
Viele Grüße aus dem Schwarzwald
gismo
Meine bescheidene Website Klamm? Was ist Klamm?

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

---

Moin Ramona,

das speichert man mit in die Vorlage!
Steht unter Extras, Optionen, Bem., und dann unter Toleranz!
Was dort eingestellt ist, wird als Standart verwendet.

Jan

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

---

Hallo an alle...

jetzt funktioniert es doch... ich hatte das macro schon auf Tastatur zum Starten gelegt... und dann wurde dort das alte macro gestartet.
Sorry, für die Verwirrung.
Mit dem aktuellen macro geht es... ohne Probleme... auch, wenn bei allen Maßen Passung voreingestellt ist... und auch mit Konfiguration..

Klasse, Prima, SUUUUUPER!!

Gruß
Ramona

------------------
**Chaos ist die Ordnung, die wir nicht verstehen.**

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

---

Hallo Heinz!
In welchem Bereich Deines Makros kann ich doe Größe der auszugebenden Tabelle anpassen? Ich würde das sehr gute Makro von Dir gerne in meinen Schriftkopf integrieren. Dazu müsste die Tabelle kleiner werden. An welcher Stelle muss ich da "drehen"? Bevor ich mich zu tode suche, frage ich vorher Dich 

Danke und lieben Gruß!

------------------
Grüße - Letschi! 

www.9dw.de

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

---

Zitat:

---

Original erstellt von Letschinger:
Hallo Heinz!
In welchem Bereich Deines Makros kann ich doe Größe der auszugebenden Tabelle anpassen? Ich würde das sehr gute Makro von Dir gerne in meinen Schriftkopf integrieren. Dazu müsste die Tabelle kleiner werden. An welcher Stelle muss ich da "drehen"? Bevor ich mich zu tode suche, frage ich vorher Dich 

Danke und lieben Gruß!

---

'* Tabelle anpassen
    '* Zur Zeit nicht wirklich befriedigend :-(
    th = swTable.GetRowHeight(0)
    swTable.SetRowHeight swTableCellRange_All, 0.0015, swTableRowColChange_TableSizeCanChange
    th = swTable.GetColumnWidth(0)
    swTable.SetCellRange 0, xx, 0, 0
    swTable.SetColumnWidth swTableCellRange_Current, th / 2, swTableRowColChange_TableSizeCanChange
    th = swTable.GetColumnWidth(1)
    swTable.SetCellRange 0, xx, 1, 1
    swTable.SetColumnWidth swTableCellRange_Current, th / 4, swTableRowColChange_TableSizeCanChange
    th = swTable.GetColumnWidth(2)
    swTable.SetCellRange 0, xx, 2, 2
    swTable.SetColumnWidth swTableCellRange_Current, th / 2, swTableRowColChange_TableSizeCanChange
    th = swTable.GetColumnWidth(3)
    swTable.SetCellRange 0, xx, 3, 3
    swTable.SetColumnWidth swTableCellRange_Current, th / 2, swTableRowColChange_TableSizeCanChange
    swTable.BorderLineWeight = 1

Du musst nur die Zahl nach "th / " ändern...

Gruss Tom

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

---

ich nochmal....
also, bei meinen "richtigen" Zeichnungen bekomme ich jetzt wieder den Laufzeitfehler "313" Syntaxfehler in FROM-Klausel... und zwar an folgender Stelle:

            tt = get_tabelle(pass)
              ss1 = "select " + pass + " from " + tt + " where min_dia<" + Trim(Str(masz)) + " and max_dia>=" + Trim(Str(masz))
>>>>>>>>>>>>>>>>>        Set rec = db.OpenRecordset(ss1, dbOpenDynaset, dbReadOnly)
              rec.MoveLast
              rec.MoveFirst
              If IsNull(rec.Fields(0).Value) Then

hmmmm.... kann eigentlich an der Zeichnung nichts Schlimmes entdecken.. kann sie aber auch nicht posten.. erstens... 150 Konfigurationen... zweitens... Firmeninterne "Geheimnisse"... 

Gruß
Ramona

------------------
**Chaos ist die Ordnung, die wir nicht verstehen.**

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

---

... habe es gefunden... es befinden sich Maße mit der Passung -0,01... oder ±0,05 in der Zeichnung... nachdem ich diese gelöscht habe, geht es... das kann ich aber leider nicht ändern...

Gruß
Ramona

------------------
**Chaos ist die Ordnung, die wir nicht verstehen.**

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

---

Zitat:

---

Original erstellt von rawo:
... habe es gefunden... es befinden sich Maße mit der Passung -0,01... oder ±0,05 in der Zeichnung... nachdem ich diese gelöscht habe, geht es... das kann ich aber leider nicht ändern...

Gruß
Ramona

---

Aber Du kannst doch diese Passungen umgestalten auf "Symetrisch" oder "Zweiseitig". Dann wird es nicht mehr als Passung gesehen.

------------------
Grüße - Letschi! 

www.9dw.de

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

---

... auf symmetrisch steht die eine Passung sowieso.. aber wenn nur ein Abmaß erscheinen soll, kann ich nicht zweiseitig nehmen... ich habe keine Möglichkeit gefunden, wie ich ein Abmaß von -0,01 anders als durch Passung erstellen kann...
Gruß
Ramona

------------------
**Chaos ist die Ordnung, die wir nicht verstehen.**

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

---

zweiseitig.jpg

Hi Ramona,
wie wäre es denn so? Siehe Screenshot -->

------------------
Viele Grüße aus dem Schwarzwald
gismo
Meine bescheidene Website Klamm? Was ist Klamm?

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

---

Zitat:

---

Original erstellt von rawo:
... auf symmetrisch steht die eine Passung sowieso.. aber wenn nur ein Abmaß erscheinen soll, kann ich nicht zweiseitig nehmen... ich habe keine Möglichkeit gefunden, wie ich ein Abmaß von -0,01 anders als durch Passung erstellen kann...
Gruß
Ramona

---

Gut, dann steht eben oben eine Null als Abmaß. Das sind so die kleine Sachen, mit denen man sich bei SW arrangieren muss 

------------------
Grüße - Letschi! 

www.9dw.de

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

---

... also, ich gehe ja viele Kompromisse ein, bei diesem Programm.. aber.. bei sooooo vielen Maßen auf der Zeichnung und so vielen Passungen.. ich denke mal, da müssen nicht auch noch unnötige Passungen stehen....
Das sagt mir absolut nicht zu.....
Danke aber für die Hilfe...

Gruß
Ramona

------------------
**Chaos ist die Ordnung, die wir nicht verstehen.**

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

---

Ich weiß ich weiß 
In Sachen Zeichnungen hättest Du mal mit der 98er arbeiten sollen ... es ist schon gewaltig besser geworden. Den Amis geht die deutsche Pingeligkeit eben am A**** vorbei ...

------------------
Grüße - Letschi! 

www.9dw.de

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

---

... ich weiß auch... ich habe mit der 98er angefangen... lach....
Dagegen sind wir natürlich Welten vorangekommen.... 
witzig, und nachdem ich das besagte maß jetzt einmal auf zweiseitig umgestellt hatte und wieder zurück auf passung, springt das macro gar nicht mehr an.. auch nicht mehr nach, maß löschen und neu einfügen... seltsam, seltsam...
------------------
**Chaos ist die Ordnung, die wir nicht verstehen.**

[Diese Nachricht wurde von rawo am 02. Mrz. 2005 editiert.]

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

---

Hallo Ramona

in der Zwischenzeit hab ich Dein Problem verstanden
(obwohl ich nichts davon halte Toleranzen auf diese Weiße einzutragen, weil sie kaum für andere Anwendungen verwendbar sind)
und werd mal versuchen mein Makro so anzupassen, dass "Passungseinträge" die nicht mit einem Buchstaben beginnen, zu übergehen. Kann aber ein paar Tage dauern.

------------------
Grüße
Heinz

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

---

Hallo Heinz,

das ist ja super nett... wenn es nicht klappt, ist nicht so wild.. bisher ging es auch ohne diese Tabelle.. da war ICH die Passungstabelle... wenn einer Fragen zur Passung hat, ruft er mich an und fragt... grins..
Also, keine Eile, meinetwegen...

Gruß
Ramona

------------------
**Chaos ist die Ordnung, die wir nicht verstehen.**

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

---

Zitat:

---

Original erstellt von T. Steffen:
'* Tabelle anpassen
    '* Zur Zeit nicht wirklich befriedigend :-(
    th = swTable.GetRowHeight(0)
    swTable.SetRowHeight swTableCellRange_All, 0.0015, swTableRowColChange_TableSizeCanChange
    th = swTable.GetColumnWidth(0)
    swTable.SetCellRange 0, xx, 0, 0
    swTable.SetColumnWidth swTableCellRange_Current, th / 2, swTableRowColChange_TableSizeCanChange
    th = swTable.GetColumnWidth(1)
    swTable.SetCellRange 0, xx, 1, 1
    swTable.SetColumnWidth swTableCellRange_Current, th / 4, swTableRowColChange_TableSizeCanChange
    th = swTable.GetColumnWidth(2)
    swTable.SetCellRange 0, xx, 2, 2
    swTable.SetColumnWidth swTableCellRange_Current, th / 2, swTableRowColChange_TableSizeCanChange
    th = swTable.GetColumnWidth(3)
    swTable.SetCellRange 0, xx, 3, 3
    swTable.SetColumnWidth swTableCellRange_Current, th / 2, swTableRowColChange_TableSizeCanChange
    swTable.BorderLineWeight = 1

Du musst nur die Zahl nach "th / " ändern...

Gruss Tom

---

Hallo!
Kannst Du es bitte ein wenig genauer definieren? Ich möchte alles andere drum herum weg haben, also ohne Überschrift, ohne leere Spalten, etc.
Habe mal die Werte verändert, aber die Tabellenhöhe lässt sich nicht beeinflussen? Sorry, wenn ich etwas nerve - aber jetzt habe ich Blut geleckt 

------------------
Grüße - Letschi! 

www.9dw.de

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

---

Moin

Ich habe vorher mit dem SP 1.1 gearbeitet, da funktioniert die Passungstabelle wunderbar. Nun arbeite ichmit dem 3.1 und er gibt mir folgende Fehlermeldung aus: "Fehler bim Kompilieren: Funktionsmermal der Objektbibliothek nicht unterstützt"

Die dll-Datei, die am Anfang des Makros erwähnt wird ist bei mir definitv vorhanden. Woran könnte es noch liegen?

------------------
Munter bleiben

Peter

Irren ist menschlich. Aber wenn man richtig Mist bauen will, braucht man einen Computer.
(Dan Rather)
Dulce bellum inexpertis (Erasmus)
akt. Pratchett: Die Nachtwächter

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

---

Test-Teil.JPG Test-Teil.zip

Hallo,
nach langer, glücklicher Nutzung unseres Paßmaßtabellen-Makros wird immer mehr der Wunsch laut, daß auch die Passungen, die ich an Bohrungsbeschreibungen ja anhängen kann, in der Paßmaßtabelle berücksichtigt werden.
Bei Bohrungen, die durch einen Schnitt entstanden sind, klappt das auch. Aber bei Bohrungen, die durch den Bohrungsassistenten erzeugt wurden, finde ich keine API-Methode, um da an die Toleranz zu kommen.
Weiß vielleicht jemand einen Trick?

Viele Grüße und frohes Schaffen...
Thomas

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

---

Hallo Thomas

also bei der Testzeichnung die Du angehängt hast kann ich auch nichts finden um an die Passung zu kommen.
Was mir dazu noch einfällt ist, dass Du an die Bohrungsskizze, die vom Bohrungsassistenten erstellt wird, die Passung anhängen kannst.

------------------
Grüße
Heinz

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

---

Hallo Heinz,
wir schreiben jetzt die Passung direkt, wie Du auch vorschlägst, hinter das Maß und fischen das dann wieder im Makro heraus. So klappt´s erst mal, bis von SWX vielleicht ´ne bessere Möglichkeit kommt.
Viele Grüße
Thomas

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

---

tolles prog!

mein kollege wird es für uns vielleicht etwas abändern (rahmen und einfügepunkt), aber du hast wie ich gesehen habe eh alles erstklassig beschrieben, ich bin leider nicht so gut im programmieren, aber er wird sich schon zurechtfinden.

hoffe wir können auch mal was ans forum zurückgeben

vielen dank
martin

------------------
SolidWorks & Inventor Nutzer

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

---

Moin

Das Makro läuft bei uns jetzt auch wieder. Ich ahbe nach langer Zeit den Fehler gefunden.

Am Anfang stand "Sub passungstabelle()" und das musste ich nur in "Sub Main()" ändern.

Manchmal sieht man den Wald vor lauter Bäumen nicht!

------------------
Munter bleiben

Peter

Irren ist menschlich. Aber wenn man richtig Mist bauen will, braucht man einen Computer.
(Dan Rather)
Dulce bellum inexpertis (Erasmus)
akt. Pratchett: Die Nachtwächter
Ab jetzt wird gebloggt!

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

---

Hi

Habe die aktuellste Version (2.31)!
und das Marko gint im SW 05 SP5.0 und im SW 06 SP3.4 einen Rundungsfehler auf - wurde schon wie ich gesehen habe oft diskutiert; aber ich bekomme diesen Fehler NCIHT weg! *gr*

------------------
lg
Andreas
-------------------------------------------------
Das Leben ist eine wahre Schule, man lernt nie aus und der der alles kann, denn nenne ich Gott

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