cari

Rumah  >  Soal Jawab  >  teks badan

打开txt文件,c++提取开头为Set point的行,整行输出到新的txt文件中。

Language="VBSCRIPT"

Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set bodies1 = part1.Bodies

Set body1 = bodies1.Item("零件几何体")

Set sketches1 = body1.Sketches

Set originElements1 = part1.OriginElements

Set reference1 = originElements1.PlaneXY

Set sketch1 = sketches1.Add(reference1)

Dim arrayOfVariantOfDouble1(8)
arrayOfVariantOfDouble1(0) = 0.000000
arrayOfVariantOfDouble1(1) = 0.000000
arrayOfVariantOfDouble1(2) = 0.000000
arrayOfVariantOfDouble1(3) = 1.000000
arrayOfVariantOfDouble1(4) = 0.000000
arrayOfVariantOfDouble1(5) = 0.000000
arrayOfVariantOfDouble1(6) = 0.000000
arrayOfVariantOfDouble1(7) = 1.000000
arrayOfVariantOfDouble1(8) = 0.000000
sketch1.SetAbsoluteAxisData arrayOfVariantOfDouble1

part1.InWorkObject = sketch1

Set factory2D1 = sketch1.OpenEdition()

Set geometricElements1 = sketch1.GeometricElements

Set axis2D1 = geometricElements1.Item("绝对轴")

Set line2D1 = axis2D1.GetItem("横向")

line2D1.ReportName = 1

Set line2D2 = axis2D1.GetItem("纵向")

line2D2.ReportName = 2

Set point2D1 = factory2D1.CreatePoint(30.000000, 30.000000)

point2D1.ReportName = 3

Set point2D2 = factory2D1.CreatePoint(30.000000, -30.000000)

point2D2.ReportName = 4

Set line2D3 = factory2D1.CreateLine(30.000000, 30.000000, 30.000000, -30.000000)

line2D3.ReportName = 5

line2D3.StartPoint = point2D1

line2D3.EndPoint = point2D2

Set point2D3 = factory2D1.CreatePoint(-30.000000, -30.000000)

point2D3.ReportName = 6

Set line2D4 = factory2D1.CreateLine(30.000000, -30.000000, -30.000000, -30.000000)

line2D4.ReportName = 7

line2D4.StartPoint = point2D2

line2D4.EndPoint = point2D3

Set point2D4 = factory2D1.CreatePoint(-30.000000, 30.000000)

point2D4.ReportName = 8

Set line2D5 = factory2D1.CreateLine(-30.000000, -30.000000, -30.000000, 30.000000)

line2D5.ReportName = 9

line2D5.StartPoint = point2D3

line2D5.EndPoint = point2D4

Set line2D6 = factory2D1.CreateLine(-30.000000, 30.000000, 30.000000, 30.000000)

line2D6.ReportName = 10

line2D6.StartPoint = point2D4

line2D6.EndPoint = point2D1

Set constraints1 = sketch1.Constraints

Set reference2 = part1.CreateReferenceFromObject(line2D3)

Set reference3 = part1.CreateReferenceFromObject(line2D2)

Set constraint1 = constraints1.AddBiEltCst(catCstTypeVerticality, reference2, reference3)

constraint1.Mode = catCstModeDrivingDimension

Set reference4 = part1.CreateReferenceFromObject(line2D4)

Set reference5 = part1.CreateReferenceFromObject(line2D1)

Set constraint2 = constraints1.AddBiEltCst(catCstTypeHorizontality, reference4, reference5)

constraint2.Mode = catCstModeDrivingDimension

Set reference6 = part1.CreateReferenceFromObject(line2D5)

Set reference7 = part1.CreateReferenceFromObject(line2D2)

Set constraint3 = constraints1.AddBiEltCst(catCstTypeVerticality, reference6, reference7)

constraint3.Mode = catCstModeDrivingDimension

Set reference8 = part1.CreateReferenceFromObject(line2D6)

Set reference9 = part1.CreateReferenceFromObject(line2D1)

Set constraint4 = constraints1.AddBiEltCst(catCstTypeHorizontality, reference8, reference9)

constraint4.Mode = catCstModeDrivingDimension

Set reference10 = part1.CreateReferenceFromObject(line2D3)

Set reference11 = part1.CreateReferenceFromObject(line2D5)

Set point2D5 = axis2D1.GetItem("原点")

Set reference12 = part1.CreateReferenceFromObject(point2D5)

Set constraint5 = constraints1.AddTriEltCst(catCstTypeEquidistance, reference10, reference11, reference12)

constraint5.Mode = catCstModeDrivingDimension

Set reference13 = part1.CreateReferenceFromObject(line2D4)

Set reference14 = part1.CreateReferenceFromObject(line2D6)

Set reference15 = part1.CreateReferenceFromObject(point2D5)

Set constraint6 = constraints1.AddTriEltCst(catCstTypeEquidistance, reference13, reference14, reference15)

constraint6.Mode = catCstModeDrivingDimension

sketch1.CloseEdition

part1.InWorkObject = sketch1

part1.Update

Set shapeFactory1 = part1.ShapeFactory

Set pad1 = shapeFactory1.AddNewPad(sketch1, 20.000000)

part1.Update

End Sub

ringa_leeringa_lee2807 hari yang lalu727

membalas semua(1)saya akan balas

  • PHP中文网

    PHP中文网2017-04-17 15:07:51

    #include <fstream>
    #include <string>
    
    int main()
    {
        std::ifstream infile("in.txt");
        std::ofstream outfile("out.txt");
        std::string str;
        while (std::getline(infile, str)) {
            if (str.find("Set point") == 0)
                outfile << str << std::endl;
        }
        infile.close();
        outfile.close();
    }
    

    按照要更改的需求,可以做成下面这样,仅供参考:

    #include <fstream>
    #include <string>
    #include <list>
    #include <vector>
    
    void input_filter(const char *input_file, const char *output_file, const char *mode) {
        using namespace std;
        ifstream infile(input_file);
        ofstream outfile(output_file);
        string str;
        while (getline(infile, str)) {
            if (str.find(mode) == 0)
                outfile << str << endl;
        }
        infile.close();
        outfile.close();
    }
    
    int main()
    {
        input_filter("in.txt", "out_set_point.txt", "Set point");
        input_filter("in.txt", "out_set_reference.txt", "Set reference");
        input_filter("in.txt", "out_set_line.txt", "Set line");
        input_filter("in.txt", "out_point.txt", "point");
    }
    

    如果觉得还不够方便,可以把要提取的开头字符串也写入一个mode.txt中,分别读取in.txt和mode.txt,输出的文件名可以叫做out_**.txt。输出的文件名不能包含空格等非法字符,可以提前过滤掉。

    balas
    0
  • Batalbalas