| | ![](https://ww3.cad.de/php/image.php?resolution=width:20050) | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS | | | ![](https://ww3.cad.de/php/image.php?resolution=width:20044) | SOLIDWORKS PDM Professional im Einsatz bei Wölfle, ein Anwenderbericht
|
Autor
|
Thema: Hilfe bei Makro: Passung zu Maß auf Zeichnung hinzufügen (449 / mal gelesen)
|
LeonardStark Mitglied
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für LeonardStark](/foren/ubb/pmimages/gbu.gif) Beiträge: 105 Registriert: 14.08.2018
|
erstellt am: 19. Okt. 2022 15:04 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Liebes Forum, ich wäre mal wieder für etwas Hilfe sehr dankbar. Ich möchte mir für Passungen, die oft vorkommen die Beschriftungserstellung auf Zeichnungen auf einen Button legen. Allerdings scheint man nicht alle Funktionen der Bemaßungsdefinition mit editdimensionproperties2 ändern zu können. bisher habe ich mir per Makrorecorder folgendes aufgezeichnet. Nun kann ich aber die Nachkommastellen der Toleranz nicht ändern und die Bezeichnung steht hochgestellt, statt neben der Maßzahl? Außerdem scheinen die Toleranzwerte fix eingetragen und nicht abhängig vom Maß bestimmt zu werden. Hat jemand eine Idee, wie man die Definition anpassen kann? Im Anhang noch ein Bild, wie es sein soll. Code:
Dim swApp As ObjectDim Part As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Sub main() Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc boolstatus = Part.EditDimensionProperties2(8, 0.000043, 0.000016, "H6", "", True, 2, 2, True, 12, 12, "", "", True, "", "", True) Part.ClearSelection2 True End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Andi Beck Ehrenmitglied V.I.P. h.c. Konstrukteur
![](/foren/avatars/Andi_Beck.gif)
![Schreiben Sie einen Gästebucheintrag für Andi Beck](/foren/ubb/pmimages/gbu.gif) Beiträge: 2577 Registriert: 02.10.2006 Firma: SW 2023-5.0 + PDM Prof. Windows 10 Pro 64bit, i9-11900 32 GbRAM, Quadro P2200 Home: SW 2023-5.0 Passungstabelle von Heinz Windows 11 Pro 64bit, i7-12700K, 32 GbRAM, GeForce GTX 1050Ti Samsung C34H892, 3440x1440 Pixel
|
erstellt am: 19. Okt. 2022 20:20 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für LeonardStark
|
LeonardStark Mitglied
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für LeonardStark](/foren/ubb/pmimages/gbu.gif) Beiträge: 105 Registriert: 14.08.2018
|
erstellt am: 21. Okt. 2022 10:52 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Hallo Andi, danke dir für den Hinweis. Allerdings gibt es die richtigen Optionen auch hier leider nicht. Ich ändere aktuell einfach die Dokumenteinstellungen der Toleranzgenauigkeit vorher und hinterher wieder zurück, das scheint zu funktionieren. Allerdings weiß ich noch nicht, wie ich die richtigen Toleranzwerte angezeigt bekomme. Er nimmt erstmal nur das, was im Code steht. Hier im Beispiel die "0". Hat jemand eine idee, wie ich das Ändere? Außerdem würde ich gerne noch die "H6" mit in die selbe Zeile stellen. Code:
Dim swApp As ObjectDim Part As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Sub main()
Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc Set swModelDocExt = swModel.Extension Set Part = swApp.ActiveDoc boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swDetailingLinearTolPrecision, swUserPreferenceOption_e.swDetailingDimension, 3) boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swDetailingAltLinearTolPrecision, swUserPreferenceOption_e.swDetailingDimension, 3) boolstatus = swModelDocExt.EditDimensionProperties(8, 0, 0, "H6", "", True, 2, 2, True, 1, 1, "", "", True, "", "", "", True, 2, "") boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swDetailingLinearTolPrecision, swUserPreferenceOption_e.swDetailingDimension, 2) boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swDetailingAltLinearTolPrecision, swUserPreferenceOption_e.swDetailingDimension, 2) Part.ClearSelection2 True End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
LeonardStark Mitglied
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für LeonardStark](/foren/ubb/pmimages/gbu.gif) Beiträge: 105 Registriert: 14.08.2018
|
erstellt am: 21. Okt. 2022 10:56 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
|
LeonardStark Mitglied
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für LeonardStark](/foren/ubb/pmimages/gbu.gif) Beiträge: 105 Registriert: 14.08.2018
|
erstellt am: 21. Okt. 2022 11:13 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
![](https://ww4.cad.de/books/view.php?what=zone:10021&n=s10021BB) |