---

Passungstabelle4.zip

Hallo zusammen

da ich erst jetzt SWX2007 bei uns installiert habe anbei ein überarbeitetes Makro.
Bitte die Info´s im Kopf des Makros beachten, bzw. für die die es schon kennen anbei die Änderungen

'** Version 3.0 / 23.02.2007
'**  - Passungen aus Bohrungstabellen werden berücksichtigt
'**  - Da SWX die Maße "ungenau" zurückliefert
'**    z.B. 5.00000000000002 statt 5.0
'**    werden alle Maße auf 8 Kommastellen gerundet
'**  - Das ist die erste Anpassung an SWX mit Bohrungstabellen,
'**    ev. sind noch zusätzliche Verbesserung nötig

ACHTUNG: Das war nur mal ein Schnellschuss um die Passungen der Bohrungstabelle zu integrieren!
Für weitere Verbesserungen bin ich dankbar

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

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

---

Hallo Heinz,
kann es sein, daß die Sache mit der Bohrungstabelle erst ab SWX2007 funktioniert.
Ich arbeite mit SWX2006, und da passiert überhaupt nix mit DispDimension bei der Bohrungstabelle.
Ich hole mir alternativ den Text aus der Tabellenzelle. Aber an das Maß komme ich halt nicht 'ran.
Viele Grüße!
Thomas

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

---

Guten Morgen Thomas

ja, das funktioniert erst ab 2007

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

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

---

Hallo,

Funktioniert das Makro bei Euch mit SP4?
Seit ich SP4 drauf hab, gehts nicht mehr - ich bin der Meinung dass SP4 schuld sein müßte.

------------------
Gruß Daniel

[Diese Nachricht wurde von DanielJ am 26. Jul. 2007 editiert.]

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

---

Hallo Daniel

das kann ich Dir leider nicht sagen, weil wir bis jetzt SP 3.1 haben

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

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

---

Bei mir haut es auch nicht hin, und ich fahre auch SP4.0.

Beim Kompilieren gibt es schon die Fehlermeldung "Funktionsmerkmal der Objektbibliothek nicht unterstützt", und das schon in der Zeile
Set swApp = Application.SldWorks
Keine Ahnung, was das heißt.

Die MS Jet Datenbank-Engine ist auf dem neuesten Stand, und die fit.mdb liegt auch am vorgesehenen Platz.

Gruß,
Piet

[Diese Nachricht wurde von Piet am 26. Jul. 2007 editiert.]

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

---

Hallo zusammen

ich hab nun SP4 bei einem Rechner installiert und habe das gleiche Problem festgestellt.
Abhilfe:
-das Marko zum editieren öffnen
-Extras->Verweise
-die Verweise für
    "SLDWorks 2007 Type Library"
    "SLDWorks 2007 Constant Type Library"
    "SLDWorks 2007 Commands Type Library"
deaktivieren
-über "durchsuchen" die entsprechenden "TLB" Dateien wieder zuordnen
-das sind "swcommand.tlb" "swconst.tlb" und "sldworks.tlb"

danach hat es bei mir wieder funktioniert
und ich hab keine Ahnung warum das so ist :-(

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

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

---

Danke Heinz,

Das ist die Lösung ... wenns immer so einfach gehen würde ... einfach ein aus und es läuft wieder.

Cool!!!

------------------
Gruß Daniel

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

---

Einwandfrei, Heinz! Vielen Dank, das ist eins meiner Lieblingsmakros.

20U for you!

Piet

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

---

ahaa, das suchte ich schon, die Version 4

bitte auf Stefans's Seite das neue reintun, habs erst nicht gefunden

endlich ist der dämliche Fehler mit den ungenauen Werten weg! Perfekt!

mfg
Kriechi

Edit:
den Fehler mit den Verweisen hatte ich auch
haken bei den 3 raus und wieder rein hat geholfen!

[Diese Nachricht wurde von Kriechi am 31. Jul. 2007 editiert.]

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

---

Hallo!

Ich nutze dieses Makro auch sehr gerne und bin sehr dankbar, dass es das gibt!

Ich würde aber gern den Einfügepunkt in der Zeichnung ändern und weiss nicht, wo ich die entsprechenden Werte in dem Code finde.

Könnte mir denn da jemand weiterhelfen?

Vielen Dank schonmal im voraus!

Grüße
Susann

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

---

Einfuegepunkt.jpg

  Hi Susann,

vermute so wie im Bild...

G.   thomas

------------------
   

diese umläute...

[Diese Nachricht wurde von myca am 08. Dez. 2007 editiert.]

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

---

Ha! Na mensch, ich hab die ganze Zeit nur in dem "Sub passungstabelle" rumgesucht!   Da hätt ich ja noch lange suchen können!

Vielen lieben Dank für den Hinweis Thomas!!

Grüße
Susann

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

---

... und ich hab die Tabelle sicher schon tausendmal händisch verschoben 
Jetzt werd ich'S umstellen, Tabellen verschieben kann ich mittlerweile;

------------------
Gruß Daniel

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

---

Hallo

na da ist mir ja schon wer zuvor gekommen ;-)

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

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

---

Hi Heinz,

gut daß ich Dich erwische - ich hab XP 64 und es will nicht so richtig laufen. Die "alte" PT läuft noch. was kann das sein?

G.   thomas

------------------

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

---

Hallo Thomas

hast Du das schon versucht, was ich am
28. Jul. 2007 14:43  (weiter oben)
hier gepostet habe?

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

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

---

Hi Heinz,

nein, noch nicht. werde wohl tun müssen..

DANKE

G.  thomas

------------------

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

---

FEHLER.jpg

Hi Heinz,

immer noch nichts....
Im Editor kriege ich ne Fehlermeldung die ich nich ganz zuordnen kann...

G.  thomas

------------------

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

---

  Hi,

 

Zitat:

---

  Wenn die Datei "DAO360.DLL" vorhanden ist

---

rauß, rein, läuft....

Ich muß es ja nicht verstehen...   

G.    thomas

------------------
   

[Diese Nachricht wurde von myca am 09. Dez. 2007 editiert.]

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

---

Hallo Thomas

wer versteht schon alles was in so einem Computer vor sich geht? 

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

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

---

Passungstabelle4.jpg Passungstabelle4-2.jpg

Mein Rechner läuft vermutlich anders... Das Makro ist leider nicht versionsunabhängig und nebenbei macht es in der Version 2007 genau NICHTS außer Fehlermeldungen...   

Offensichtlich fehlt eine Fehlerbehandlung für den nicht gerade seltenen Praxisfall, daß etwas anderes in der Passung steht als eine erlaubte, die auch in der Tabelle enthalten ist...

------------------
Lutz Federbusch
Mein Gästebuch
Der Mensch, Herr oder Sklave der Technik?

[Diese Nachricht wurde von Lutz Federbusch am 10. Dez. 2007 editiert.]

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

---

Hallo Lutz

das sollte dann allerdings auch schon bei den früheren Versionen so gewesen sein.
Und es fehlen wahrscheinlich etliche Fehlerbehandlungen.
Vielleicht finde ich über die Feiertage Zeit mich damit zu beschäftigen.

P.S.
es steht aber jedem frei das Makro an seine Bedürfnisse anzupassen

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

[Diese Nachricht wurde von nahe am 10. Dez. 2007 editiert.]

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

---

Wegen mir mußt Du nicht gleich was machen. Hab' dafür was selbstgestricktes  und das bemeckert in dem Beispiel Bemaßungen, die vom Typ Toleranztyp Passung sind, deren Wert aber leer ist. Das dürfte die zu behandelnde Fehlerquelle sein...
Habe es nur nebenbei getestet, aber gleich die erste Zeichnung war gut, wie Du siehst!

------------------
Lutz Federbusch
Mein Gästebuch
Der Mensch, Herr oder Sklave der Technik?

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

---

Hallo Lutz

gleich komm ich sowieso nicht dazu 
Aber ich bin immer für Anregungen dankbar.

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

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

---

swPassung.zip

Hallo  nahe

super Makro --- Punkte kommen
geht auch mit SW06
kopier einfach die 3 Dateien in SW-Verzeichnis rein (SW08)
bei mir gehts
zwei Fragen ---- bei H7 kommt kein Plus zeichen ???

      und          kann man die Schriftgroesse aendern ???

mfg Nobbi
             

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

---

Hallo Nobbi

1.)
eigentlich sollte bei keiner "Plus-Toleranz" ein Plus-Zeichen angezeigt werden, nicht nur bei H7

2.)
'* Tabelle einfügen
    Set swTable = swDraw.InsertTableAnnotation(x, y, ii, xx * 2 + 1, 4)
    swTable.GetAnnotation.SetName ("PASSUNGSTABELLE")
    Set textf = swTable.GetTextFormat
    th = textf.CharHeight
    textf.CharHeight = 0.0015
    swTable.SetTextFormat False, textf

die Texthöhe sollte in der Zeile
    textf.CharHeight = 0.0015
geändert werden können

nur musst Du dann auch im Abschnitt

'* 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 / 3, 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 / 4, swTableRowColChange_TableSizeCanChange
    th = swTable.GetColumnWidth(3)
    swTable.SetCellRange 0, xx, 3, 3
    swTable.SetColumnWidth swTableCellRange_Current, th / 3, swTableRowColChange_TableSizeCanChange
    swTable.BorderLineWeight = 3

die Zellbreite anpassen

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

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

---

1.JPG

Hallo nahe
SW06 machts ja auch siehe Bild
Danke fuer die INFO
mfg Nobbi

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

---

Hallo nochmals

also für mich ist kein Vorzeichen Plus ;-)
Aber man könnte das sicher noch in das Makro einbauen.
Vielleicht versuche ich noch eine Art Setup Funktion einzubauen
um die verschiedenen Optionen nicht immer im Makro per Hand ändern zu müssen

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

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

---

Das Makro kommt schon ganz gut an eine perfekte Passungsliste ran, danke!

Eine Art Setup für die Optionen wäre natürlich super. 

Und damit komm ich auch schon zu meiner Frage: Wie macht Ihr das mit verschiedenen Blattformaten? Auf DIN A4 mag Schrifthöhe 1.5 okay sein, aber auf A0 ist mir das zu klein. Das Makro jeweils anpassen und separat für verschiedene Blattformate speichern, oder Schriftgröße nachträglich ändern?

Und ich verstehe leider das Anpassen der Spaltenbreiten nicht  was genau muss ich denn da ändern? Ich hab 0.0015 auf 0.0035 geändert, aber die Spalten bleiben trotzdem schmal...

------------------
Gruß, Nina

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

---

Hallo Nina

0.0015 ist die Texthöhe und hat nichts mit der Spaltenbreite zu tun

siehe mein posting weiter oben

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

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

---

Das geht ja fix hier 

Mit den 0.0015 meinte ich hier:

* 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 / 3, 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 / 4, swTableRowColChange_TableSizeCanChange
    th = swTable.GetColumnWidth(3)
    swTable.SetCellRange 0, xx, 3, 3
    swTable.SetColumnWidth swTableCellRange_Current, th / 3, swTableRowColChange_TableSizeCanChange
    swTable.BorderLineWeight = 3

Da hab ich auf 0.0035 geändert, aber das war scheinbar falsch. Ich hab von VB3 nicht wirklich Ahnung und weiß nicht, was ich stattdessen ändern sollte. Vemutlich die Zahl hinter "th /", oder? Aber wie wirkt sich das dann auf die Breite der Zellen aus?

------------------
Gruß, Nina

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

---

Hallo Nina

wie schon der Name "swTable.SetRowHeight" ausdrückt wird damit die
Zeilenhöhe und nicht die Spaltenbreite "swTable.SetColumnWidth" geändert.

Für die Spaltenbreite ist jeweils th/3 bzw th/4 kannst Du einfach andere Werte einsetzen
aber Achtung die Werte müssen in Meter eingegeben werden also z.B. 0.008 für 8mm
------------------
Grüße
Heinz

[Diese Nachricht wurde von nahe am 14. Dez. 2007 editiert.]

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

---

Vielen Dank für die Hilfe, jetzt klappt es! 

------------------
Gruß, Nina

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

---

Zitat:

---

Original erstellt von Lutz Federbusch:
Mein Rechner läuft vermutlich anders... Das Makro ist leider nicht versionsunabhängig und nebenbei macht es in der Version 2007 genau NICHTS außer Fehlermeldungen...    

Offensichtlich fehlt eine Fehlerbehandlung für den nicht gerade seltenen Praxisfall, daß etwas anderes in der Passung steht als eine erlaubte, die auch in der Tabelle enthalten ist...

---

Hallo Lutz

kannst Du bitte bildlich darstellen was in Deiner Passung steht?
Damit ich das berücksichtigen kann.

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

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

---

Bemaßungen, die vom Toleranztyp Passung sind, deren Wert aber leer ist. Zu sehen ist da nichts... Der ausgelesene Wert besteht in einem solchen Falle aus einem String, der nur ein Komma enthält. Also für oberen und unteren Wert nichtmal ein Leerzeichen, sondern gar nichts. Es ist nur das Komma als Trennzeichen da.

------------------
Lutz Federbusch
Mein Gästebuch
Der Mensch, Herr oder Sklave der Technik?

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

---

Pass-03.jpg

Hallo Lutz

meinst Du das so wie im angehängten Bild dargestellt?
Wenn ja, dann prüfe bitte mal welche Version Du verwendest,
in der "Version 3.0 / 23.02.2007", sollte das nämlich bereits ohne Fehler funktionieren.
Du kannst mir aber auch eine solche Zeichnung schicken, wenn das möglich ist.

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

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

---

Blind.jpg

Also: Zuerst mal prüft das Makro nicht, ob überhaupt ein Dokument da ist bzw. ob es eine Zeichnung ist. Wenn nicht, stürzt es gleich mal ab. Dann habe ich aus dem Teil ein fehlerhaftes Maß per Modellelemente einfügen in die Zeichnung gebracht, da sagt es "Keine Passungen gefunden!". Hmm! Ich glaube, so recht verlassen kann man sich wohl noch nicht darauf...

------------------
Lutz Federbusch
Mein Gästebuch
Der Mensch, Herr oder Sklave der Technik?

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

---

Hallo Lutz

also das mit der Dokument- bzw. Zeichnungsprüfung habe ich gerade
eingebaut.
Und was sollte Deiner Meinung nach sonst für eine Meldung kommen?
Es ist ja auch keine Passung vergeben.

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

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

---

Also auf meinem Bild ist schon eine zwar fehlerhafte, aber doch Passung markiert!

------------------
Lutz Federbusch
Mein Gästebuch
Der Mensch, Herr oder Sklave der Technik?

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

---

Hallo

ja das sehe ich, aber was soll das Makro auswerten????
Wenn keine Passungsangabe gemacht wurde gibt es auch nichts zum Auswerten.

Es könnte höchstens eine Meldung kommen "Passung ohne Angaben gefunden"

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

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

---

Man könnte es z.B. gleich mal reparieren, damit nachfolgende Werkzeuge, die z.B. das Maß auf Mitte Toleranz setzen, keinen Unsinn veranstalten...

------------------
Lutz Federbusch
Mein Gästebuch
Der Mensch, Herr oder Sklave der Technik?

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

---

das halte ich für eher gefährlich, weil man ja nicht weiß ob das nicht absichtlich gemacht wurde.

Eine Möglichkeit wäre das als Parameter zu definieren mit folgenden Wahlmöglichkeiten
1.) ignorieren (= wie bisher)
2.) reparieren (= Passung entfernen)
    was unter Umständen Schwierigkeiten bereitet, wenn z.B. die Modelldatei schreibgeschützt ist
3.) Warnmeldung ausgeben

P.S. eigentlich sollten ja die anderen "Werkzeuge" das auch richtig interpretieren und keinen Unsinn machen 

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

[Diese Nachricht wurde von nahe am 18. Dez. 2007 editiert.]

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