|
OneSpace Drafting : Probleme beim Spiralbohrer zeichnen
Blart am 28.06.2002 um 14:22 Uhr (0)
Ich würd´pauschal mal sagen, du solltest dir ein Macro dazu schreiben, welches in etwa so aussieht: DEFINE Bohrer_zeichnen LOCAL D {Durchmesser} LOCAL R {Radius} LOCAL Zähler LOCAL Steigung LOCAL Länge READ NUMBER ´Bitte Bohrerdurchmesser angeben´ D READ NUMBER ´Bitte Steigung des Bohrers angeben´ Steigung READ NUMBER ´Bitte Gesamtlänge der Wendel eingeben´ Länge LET Steigung (Steigung/36) LET Zähler (0) LET R (D/2) BSPLINE 0,0 LOOP LET Zähler (Zähler +10) PNT_XY ...
| | In das Form OneSpace Drafting wechseln |
|
OneSpace Drafting : Übereinanderliegende Maßlinien unterbrechen?
Blart am 01.07.2002 um 13:32 Uhr (0)
Hi Heiko, hier ein Macro, das ich mal aus genau dem Grund geschrieben habe. Das Problem ist, das es (bei schräger Bemaßung) zu Rundungsfehlern kommen kann. Hab´s aber vorhin ausprobiert, sollte nur selten vorkommen. DEFINE Mass_unterbrechen LOCAL Punkt1 LOCAL Punkt2 LOCAL Punkt3 LOCAL Vektor LOCAL Noch_ein_mass_da LOCAL Notausstieg DIM_CATCH_LINES ON READ PNT Punkt1 READ PNT Punkt2 LET Notausstieg (0) LET Vektor (Punkt2 - Punkt1) LET Vektor (Vektor/(LEN Vektor)/10) { DISPLAY_NO_WAIT ...
| | In das Form OneSpace Drafting wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |