Units(1[mm]); Stifta = Parameter("Stiftbreite",0.16, LINEAR, Set(0.16,0.25,0.35,0.5,0.7,1)); Stiftb = Stifta/25.4 fnt1size = Parameter("Schriftgröße [pt]", 10, TEXT, Set(10,12,14,16,18)); fnt1clr = Parameter("Symbolfarbe", 0xFF0000, COLOR); // 0x (blau, grün, rot) fnt1 = "ISOCPEUR"; //fnt1color = Text(fnt1clr, TextFont(0,fnt1size/2.834467,0, fnt1), TextStyle(RIGHT, MIDDLE, ITALIC)); //Output(Parameter("Stiftfarbe",0x, COLOR)); fnt2size = Parameter("Schriftgröße SHX [pt]", 10, LINEAR, Set(10,12,14,16,18)); fnt2clr = 0x000000; fnt2 = "GDT"; SS = fnt1size/10; klli = Parameter("Klammern",0,CHECKBOX); klre = klli; klHoch = Parameter("Große Klammern",0,CHECKBOX); abt = Parameter("materialabtrennend",1,CHECKBOX); spl = Parameter("spanlose Bearbeitung",0,CHECKBOX); alle = Parameter("alle Flächen",0,CHECKBOX); //FertVer = Parameter("Oberflächenbehandlung", "", TEXT); FertVer = Parameter("Oberflächenbehandlung", "", TEXT, Set("","gefräst","gedreht","geschliffen","gehohnt","glasgeperlt","gewalzt","poliert")); FertVer0 = Text(FertVer, TextFont(0,fnt1size/2.834467,0, fnt1), TextStyle(LEFT, BOTTOM, ITALIC)); FertVer1 = SetProperties(FertVer0, "PenColor" = fnt1clr); FertVer2 = Move(FertVer1,SS*tan(30)*11+1.5,SS*12); RWoben = Parameter("(oberer) Rauheitswert [µm]", "Rz=6,3", TEXT); RWoben0 = Text(RWoben, TextFont(0,fnt1size/2.834467,0, fnt1), TextStyle(LEFT, TOP, ITALIC)); RWoben1 = SetProperties(RWoben0, "PenColor" = fnt1clr); RWoben2 = Move(RWoben1,SS*tan(30)*11+1.5,SS*10); RWunten = Parameter("unterer Rauheitswert [µm]", "", TEXT); RWunten0 = Text(RWunten, TextFont(0,fnt1size/2.834467,0, fnt1), TextStyle(LEFT, TOP, ITALIC)); RWunten1 = SetProperties(RWunten0, "PenColor" = fnt1clr); RWunten2 = Move(RWunten1,SS*tan(30)*11+1.5,SS*6); Rtg = Parameter("Bearbeitungsrichtung", "keine", TEXT, Set("keine","parallel zur Projektionsebene","senkrecht zur Projektionsebene","gekreuzt","viele Richtungen","zentrisch zum Mittelpunkt","radial zum Mittelpunkt","keine Rillenrichtung")); Rtgk1 = " "; Rtgk2 = "="; Rtgk3 = "b"; Rtgk4 = "X"; Rtgk5 = "M"; Rtgk6 = "C"; Rtgk7 = "R"; Rtgk8 = "P"; Rtgk0 = IF(Rtg == "keine", Rtgk1, IF(Rtg == "parallel zur Projektionsebene",Rtgk2,IF(Rtg == "senkrecht zur Projektionsebene",Rtgk3,IF(Rtg == "gekreuzt",Rtgk4,IF(Rtg == "viele Richtungen",Rtgk5,IF(Rtg == "zentrisch zum Mittelpunkt",Rtgk6,IF(Rtg == "radial zum Mittelpunkt",Rtgk7,IF(Rtg == "keine Rillenrichtung",Rtgk8,Rtgk1)))))))); //Rtg_1 = If(Rtg=="keine",Rtg_1=" ",Rtg_1=" "); Rtg0 = Text(Rtgk0, TextFont(0,fnt1size/2.834467,0, fnt1), TextStyle(LEFT, MIDDLE, ITALIC)); Rtg1 = SetProperties(Rtg0, "PenColor" = fnt1clr); Rtg2 = Move(Rtg1,SS*tan(30)*5,SS*5/2); Bz = Parameter("Bearbeitungszugabe [mm]", "", TEXT); Bz0 = Text(Bz, TextFont(0,fnt1size/2.834467,0, fnt1), TextStyle(RIGHT, MIDDLE, ITALIC)); Bz1 = SetProperties(Bz0, "PenColor" = fnt1clr); Bz2 = Move(Bz1,SS*tan(30)*-5,SS*5/2); h1 = SS*5 h2 = SS*7 Nix = Text("", TextFont(0,fnt1size/2.834467*5,0, fnt1), TextStyle(RIGHT, MIDDLE, ITALIC)); Nix1 = SetProperties(Nix, "PenColor" = fnt1clr); Klali = Text("(", TextFont(0,fnt1size/2.834467*IF(klHoch,h2,h1),0, fnt1), TextStyle(RIGHT, MIDDLE, ITALIC)); Klaml = Move(Klali,SS*len4-2,SS*IF(klHoch,11+fnt1size/2.834467,11)/2); Klamli = SetProperties(Klaml, "PenColor" = fnt1clr); KlamliNone = Move(Nix1,SS*len4-2,SS*IF(klHoch,11+fnt1size/2.834467,11)/2); Klare = Text(")", TextFont(0,fnt1size/2.834467*IF(klHoch,h2,h1),0, fnt1), TextStyle(LEFT, MIDDLE, ITALIC)); Klamr = Move(Klare,SS*l0+6,SS*IF(klHoch,11+fnt1size/2.834467,11)/2); Klamre = SetProperties(Klamr, "PenColor" = fnt1clr); KlamreNone = Move(Nix1,SS*l0+6,SS*IF(klHoch,11+fnt1size/2.834467,11)/2); Output(FertVer2,RWoben2,RWunten2,Rtg2,Bz2); Output(IF(klli,Klamli,KlamliNone)); Output(IF(klre,Klamre,KlamreNone)); // Symbol len1 = ExtentsX2(FertVer2)-ExtentsX1(FertVer2)+1.5; len2 = ExtentsX2(RWoben2)-ExtentsX1(RWoben2)+1.5; len3 = ExtentsX2(RWunten2)-ExtentsX1(RWunten2)+1.5; len4 = ExtentsX1(Bz2)-ExtentsX2(Bz2)+0; l0 = max(SS*4,len1,len2,len3); l1 = SetProperties(Polyline(Point(SS*tan(30)*-5,SS*0),Point(SS*tan(30)*5,SS*0)),"PenColor"= fnt1clr,"PenWidth" = Stiftb); l2 = SetProperties(Polyline(Point(SS*tan(30)*-5,SS*5),Point(SS*0,SS*0)),"PenColor"= fnt1clr,"PenWidth" = Stiftb); l3 = SetProperties(Polyline(Point(SS*tan(30)*11,SS*11),Point(SS*0,SS*0)),"PenColor"= fnt1clr,"PenWidth" = Stiftb); l4 = SetProperties(Polyline(Point(SS*tan(30)*11,SS*11),Point(SS*tan(30)*11+l0,SS*11)),"PenColor"= fnt1clr,"PenWidth" = Stiftb); l5 = SetProperties(Polyline(Point(SS*tan(30)*-5,SS*5),Point(SS*tan(30)*5,SS*5)),"PenColor"= fnt1clr,"PenWidth" = Stiftb); l51 = SetProperties(Polyline(Point(SS*tan(30)*5,SS*5),Point(SS*tan(30)*5,SS*5)),"PenColor"= fnt1clr,"PenWidth" = Stiftb); k1 = SetProperties(Circle(SS*1,SS*tan(30)*11,SS*11),"PenColor"= fnt1clr,"PenWidth" = Stiftb); k11 = SetProperties(Circle(0,SS*tan(30)*11,SS*11),"PenColor"= fnt1clr,"PenWidth" = Stiftb); k2 = SetProperties(Circle(SS*2,SS*0,SS*2/sin(30)),"PenColor"= fnt1clr,"PenWidth" = Stiftb); k21 = SetProperties(Circle(0,SS*0,SS*0),"PenColor"= fnt1clr,"PenWidth" = Stiftb); Null = RefPoint(0,0,0); Output(l1,l2,l3,l4); Output(IF(abt,l5,l51)); Output(IF(alle,k1,k11)); Output(IF(spl,k2,Null));