| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Senkbohrung erstellen (1316 mal gelesen)
|
Denk75 Mitglied Konstrukteur
Beiträge: 66 Registriert: 05.04.2005 IV 2022
|
erstellt am: 18. Nov. 2015 07:23 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich benutze schon länger VBA um Standartbohrungen zu erstellen und wollte nun einen Bohrdialog für unsere Zwecke nachbauen. Nun habe ich Schwierigkeiten eine Senkung zu erstellen sei es zylindrisch oder keglig. Habs mit folgender Zeile versucht aber das geht nicht. If dd = "Km2" Then Call oCompDef.Features.HoleFeatures.AddCBoreByThroughAllExtent(oHoleCenters, "Km2", kPositiveExtentDirection, "10 mm", "10 mm") Kann mir jemand auf die Sprünge helfen? Gruß Jürgen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
fadeaway Mitglied Konstrukteur
Beiträge: 46 Registriert: 20.07.2005 Win10 Pro 64bit/32GB IV 2021.4.4
|
erstellt am: 18. Nov. 2015 14:45 <-- editieren / zitieren --> Unities abgeben: Nur für Denk75
|
Denk75 Mitglied Konstrukteur
Beiträge: 66 Registriert: 05.04.2005 IV 2022
|
erstellt am: 18. Nov. 2015 16:27 <-- editieren / zitieren --> Unities abgeben:
Hallo Andreas, hat mir schon mal weiter geholfen und das funktioniert auch siehe Bild "Bohrdialog". Ich möchte nun aber eine Senkung nach Norm verwenden wie auf Bild "Bohrdialog_1". Hast du da auch eine Idee dazu? Gruß Jürgen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
fadeaway Mitglied Konstrukteur
Beiträge: 46 Registriert: 20.07.2005 Win10 Pro 64bit/32GB IV 2021.4.4
|
erstellt am: 19. Nov. 2015 13:27 <-- editieren / zitieren --> Unities abgeben: Nur für Denk75
Hallo Jürgen, ich habe eine Combobox zur Auswahl bei der wirden je nach Auswahl die Werte in die Variablen geschrieben. In deinem Fall... Code: ... If comboZylindersenkung.Text = "Km2" Then sDurchgangsbohrung = "2.4" sZylinderdurchmesser = "4.4" sZylindersenktiefe = "2.4" Else If comboZylindersenkung.Text = "Km3" Then usw. ... ... Call oCompDef.Features.HoleFeatures.AddCBoreByThroughAllExtent(oHolecenters, sDurchgangsbohrung, kPositiveExtentDirection, sZylinderdurchmesser, sZylindersenktiefe)
Entsprechend habe ich es für die "anderen" Km-Senkungen auch angelegt. Bei den Kegelsenkungen gehe ich ebenso vor. Gruß Andreas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Denk75 Mitglied Konstrukteur
Beiträge: 66 Registriert: 05.04.2005 IV 2022
|
erstellt am: 19. Nov. 2015 15:11 <-- editieren / zitieren --> Unities abgeben:
Hallo Andreas, das habe ich soweit schon verstanden. Es ist nur so das auf der Zeichnung mit Bohrungsinfo oder Bohrtabelle gearbeitet wird und dort soll Km2 erscheinen. Wenn die option wie auf Bild "Bohrdialog_1.jpg" angehagt ist geht das. Aber ich finde keine Möglichkeit diese Option zu schalten. Gruß Jürgen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Denk75 Mitglied Konstrukteur
Beiträge: 66 Registriert: 05.04.2005 IV 2022
|
erstellt am: 18. Dez. 2015 08:43 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich habe nun mit Transcripting eine Aufzeichnung zum erstellen von Senkung gemacht um den Unterschied zwischen Standardbohrung und Normbohrung raus zu finden. Die Aufzeichnung siehe Bild "Senkung". Der Unterschied der Aufzeichnung besteht in folgender Zeile: Standardbohrung: Fastener Info Present=0 Normbohrung: Fastener Info Present=1;Tab Name Ex=DIN;Fastener Type=Inbusschraube DIN 912;Fastener Size=Km2;Fit Type=1 Jetzt stellt sich mir die Frage wie kann ich das nutzen? Hilfe hab ich schon durch und auch den Objektbrowser in VBA. Bing weiß auch nichts darüber. Habt ihr eine Idee wie ich weiter machen kann? Gruß Jürgen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |