Bohrung Sackloch mit Senkung (Autodesk/Inventor VBA)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

Autor

Thema: Bohrung Sackloch mit Senkung (2345 mal gelesen)

habkon
Mitglied
Holztechniker

Senden Sie eine Private Message an habkon

Schreiben Sie einen Gästebucheintrag für habkon

Beiträge: 55
Registriert: 11.04.2002

Workstation 3,2 GH; 1MB RAM;
CADMAN;ATI 9600 128MB; INV9 SP2

erstellt am: 09. Nov. 2003 13:57

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Hallo Forum,
wir sind am Anfang von VBA, nun habe ich zufällig ein Makro auf der
Hilfeseite gefunden (Pisarz),
gibt es die Möglichkeit auch den Bohrgrund einer Bohrung auf Stumpf
mit dem Makro voreinzustellen ??
Dies währe für uns eine große Erleichterung.

MAKRO Pisarz:

Wie kann man den voreingestellten Senkungswinkel von 82° bei Kegelsenkungen ändern? [02.09.2003]
Dieser Winkel ist Fix und kann nicht geändert werden.

Hier ein Programm von Pisarz (MANY THANKS!), das alle Senkungswinkel in einem Bauteil auf 90° ändert.

Sub MachMalNeunzig()
If ThisApplication.ActiveDocumentType = kPartDocumentObject Then

Dim oHF As HoleFeature
For Each oHF In ThisApplication.ActiveDocument.ComponentDefinition.Features.HoleFeatures

If oHF.HoleType = kCounterSinkHole Then
If Abs(oHF.CSinkAngle.ModelValue - 1.43116999) < 0.000001 Then
oHF.CSinkAngle.Value = 1.5707963267949
End If
End If
Next
End If
ThisApplication.ActiveDocument.Update
End Sub

------------------
Gruß Matthias,:-)habkon

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

waldi
Mitglied
Softwerker

Senden Sie eine Private Message an waldi

Schreiben Sie einen Gästebucheintrag für waldi

Beiträge: 272
Registriert: 07.08.2001

erstellt am: 10. Nov. 2003 08:02

<-- editieren / zitieren -->

Unities abgeben:

Nur für habkon

Hi,

da gibt es auf dem HoleFeature erst mal die Property "FlatBottom". Wenn die "False" liefert, kannst du mit der Property "BottomTipAngle", Den Parameter auslesen und den Wert ändern. Sieht fast genauso aus, wie das Makro, das du schon hast. Standard ist glaube ich 118 Grad.

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

Vermessungstechniker:in im Innendienst (m/w/d)
Bei STRABAG bauen rund 86.000 Menschen an 2.400 Standorten weltweit am Fortschritt. Einzigartigkeit und individuelle Stärken kennzeichnen dabei nicht nur unsere Projekte, sondern auch jede:n Einzelne:n von uns. Ob im Hoch- und Ingenieurbau, Straßen- und Tiefbau, Brücken- und Tunnelbau, in der Projektentwicklung, Baustoffproduktion oder im Gebäudemanagement ? wir denken Bauen weiter, um der innovativste und nachhaltigste Bautechnologiekonzern Europas zu werden....
*Anzeige ansehen*	Elektrotechnik, Elektronik

Charly Setter
Ehrenmitglied V.I.P. h.c.

Senden Sie eine Private Message an Charly Setter

Schreiben Sie einen Gästebucheintrag für Charly Setter

Beiträge: 11977
Registriert: 28.05.2002

Trau keiner Diva unter SP2....

erstellt am: 02. Dez. 2003 20:27

<-- editieren / zitieren -->

Unities abgeben:

Nur für habkon

Und wenn Du den Bohgrund stumpf haben willst, setzt Du die Eigenschaft einfach auf TRUE

Gruß Mathias

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

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)