| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Creo |
| |
| Webcast: PTC | Creo+, ein Webinar am 29.11.2024
|
Autor
|
Thema: Bemassung Zoll (1550 mal gelesen)
|
Markus-Erben Mitglied Selbständig
Beiträge: 1 Registriert: 12.06.2006
|
erstellt am: 12. Jun. 2006 08:36 <-- editieren / zitieren --> Unities abgeben:
Hallo ME10 Gemeinde! Ich hab die Bemassung auf Zoll umgestellt. Zwischen den Texten ist leider ein Leerzeichen (Beispiel 0’ – 8''). Kann man dies nicht Voreinstellen das die Leereichen weg sind? (Beispiel 0’-8'')? Kann mir da jemand weiterhelfen??? Grüße Markus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
H.annes Mitglied CAD-Pfriemler
Beiträge: 482 Registriert: 02.07.2001 ME10 8.7 - PTC DirectDrafting 19.00; OSM 15.xx - PTC DM 19.xx
|
erstellt am: 13. Jun. 2006 13:07 <-- editieren / zitieren --> Unities abgeben: Nur für Markus-Erben
|
Gerhard Deeg Ehrenmitglied V.I.P. h.c. i.R. Konstrukteur aus Leidenschaft
Beiträge: 2643 Registriert: 17.12.2000 CREO - OSD - OSM HP XW4400 - XW4600 Dell Inspiron 17E NVIDIA QUADRO FX1500 NVIDIA Quadro FX1800 HP Mini 210 2002sg WIN 7 Ultimate 32/64
|
erstellt am: 13. Jun. 2006 15:17 <-- editieren / zitieren --> Unities abgeben: Nur für Markus-Erben
Hallo Markus, um Zoll-Gewinde zu bemaßen hatte ich mir ein kleines Makro geschrieben um dann entweder horizontal oder vertikal zu Bemaßen. Alles was mit spi anfängt ist firmenintern und kann auf die schnelle nicht geändert werden. Doch es sollte ein Anreiz sein. Gruß aus Berlin Gerhard DEFINE Form_gewinde_bemass_liste Me1 {Menueaufruf} IF (Spi_menu_version = 1) MENU Spi_menu_col (Spi_string_ausmitten 'Draufs. KÏhlung' 15) 1 3 ELSE MENU Spi_menu_col (Spi_string_ausmitten 'Draufsicht KÏhlung' 21) 1 1 END_IF MENU spi_menu_col ' Bemassung' '' 2 1 MENU spi_menu_col ' ' '' 2 2 MENU Spi_menu_col 'zurÏck' 'kuehlung_allgemein' 25 5 MENU 'G 1/8 ' ' ' 6 1 MENU 'G 1/4' ' ' 7 1 MENU 'G 3/8' ' ' 8 1 MENU 'G 1/2' ' ' 9 1 MENU 'M 8 x .75 ' ' ' 6 2 MENU 'M 10 x 1 ' ' ' 7 2 MENU 'M 14 x 1.5' ' ' 8 2 MENU 'M 16 x 1.5' ' ' 9 2 menu 'Es kÎnnen ' '' 11 1 menu 'nur die Ge' '' 11 2 menu 'winde bema' '' 12 1 menu 'Þt werden,' '' 12 2 menu 'die in die' '' 13 1 menu 'ser Liste ' '' 13 2 menu 'vorhanden ' '' 14 1 menu 'sind ' '' 14 2 END_DEFINE { ***** } DEFINE form_gewinde_bemassung_vertical LOCAL M LOCAL P2 LOCAL P3 LOCAL P4 Form_gewinde_bemass_liste Farbe_stift {aktuelle Farbe und Stift merken} IF (Spi_menu_version = 1) MENU Spi_menu_col (Spi_string_ausmitten 'Vertik. KÏhlung' 15) 1 3 ELSE MENU Spi_menu_col (Spi_string_ausmitten 'Vertikal KÏhlung' 21) 1 1 END_IF LOOP color farbe linepattern Stift CATCH ALL READ PNT 'BEZUGSPUNKT unten = ?' P2 READ PNT 'BEZUGSPUNKT oben = ?' RUBBER_LINE P2 P3 READ PNT 'BEZUGSPUNKT MaÞpunkt = ?' RUBBER_LINE P3 P4 LET M (ABS ((Y_OF P2) - (Y_OF P3))) DIM_CURSOR_POSITION TEXT_POS LINE CENTER_DASH_DASH Form_stift0 end POINT P2 P3 IF ((M>=9.95) AND (M<=10.05)) DIM_LINE VERTICAL P2 P3 P4 EDIT_DIM_TEXT P4 'M10x1' ELSE_IF ((M>=26.3) AND (M<=26.55)) DIM_LINE VERTICAL P2 P3 P4 EDIT_DIM_TEXT P4 'G 3/4' ELSE_IF ((M>=7.95) AND (M<=8.05)) DIM_TEXT_SIZE 2 DIM_LINE VERTICAL P2 P3 P4 EDIT_DIM_TEXT P4 'M8x.75' ELSE_IF ((M>=13.95) AND (M<=14.05)) DIM_LINE VERTICAL P2 P3 P4 EDIT_DIM_TEXT P4 'M14x1.5' ELSE_IF ((M>=15.95) AND (M<=16.05)) DIM_LINE VERTICAL P2 P3 P4 EDIT_DIM_TEXT P4 'M16x1.5' ELSE_IF ((M>=9.628) AND (M<=9.8)) DIM_TEXT_SIZE 2 DIM_LINE VERTICAL P2 P3 P4 EDIT_DIM_TEXT P4 'G 1/8' ELSE_IF ((M>=13.057) AND (M<=13.215)) DIM_LINE VERTICAL P2 P3 P4 EDIT_DIM_TEXT P4 'G 1/4' ELSE_IF ((M>=16.5) AND (M<=16.8)) DIM_LINE VERTICAL P2 P3 P4 EDIT_DIM_TEXT P4 'G 3/8' ELSE_IF ((M>=20.855) AND (M<=21.05)) DIM_LINE VERTICAL P2 P3 P4 EDIT_DIM_TEXT P4 'G 1/2' ELSE DISPLAY 'Es kann sein, daÞ dies kein KÏhlungsgewinde ist, von unten noch einmal versuchen !' END_IF DIM_CURSOR_POSITION LINE_POS DIM_TEXT_SIZE 3 END END_LOOP END_DEFINE Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
H.annes Mitglied CAD-Pfriemler
Beiträge: 482 Registriert: 02.07.2001 ME10 8.7 - PTC DirectDrafting 19.00; OSM 15.xx - PTC DM 19.xx
|
erstellt am: 13. Jun. 2006 15:47 <-- editieren / zitieren --> Unities abgeben: Nur für Markus-Erben
Hallo Gerhard, mit "Bemassung editieren" geht's natürlich - das ist aber i.a. nicht unbedingt sinnvoll, weil ja die Assoziativität verlorengeht. Dazu gleich noch eine Anregung; in den "neueren" OSDD-Versionen kann man bestehende Bemassungen elegant mit INQ_ELEM / (INQ 306) / (INQ 3) ... abfragen. Hannes ------------------ . owa ned jedn dog . Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Gerhard Deeg Ehrenmitglied V.I.P. h.c. i.R. Konstrukteur aus Leidenschaft
Beiträge: 2643 Registriert: 17.12.2000 CREO - OSD - OSM HP XW4400 - XW4600 Dell Inspiron 17E NVIDIA QUADRO FX1500 NVIDIA Quadro FX1800 HP Mini 210 2002sg WIN 7 Ultimate 32/64
|
erstellt am: 14. Jun. 2006 10:04 <-- editieren / zitieren --> Unities abgeben: Nur für Markus-Erben
Hallo Hannes, danke für Deine Nachricht, aber das Problem mit der Assoziativität kommt bei mir nicht vor, denn wenn ich eine 2D-Zeichnung abgeliefert hatte, dann wurden ohne Bohrungen für CAM weiter verwendet. Jetzt da ich ab 1. Sept. 2006 Rentner bin werde ich nicht mehr viel bezüglich Programmierung machen (Zeitmangel). Nochmal danke für Deinen Tip und ich werde das auch mal probieren. Gruß aus Berlin Gerhard Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |