Complex linetypes

// 5 — Create complex linetypes (linetype.htm)
static void samp_linetype() {
    samp_clear();
    int lt;
    lt = CadAddLinetype(g_hDwg, "Gas", "3,-1.7,[arial.yucf,T=GAS,F=1,S=1,R=0.0,X=-1.4,Y=-.5],-1.7,1,-1.1,[Ltype,T=OK,F=1,S=1.0,R=0.0,X=-0.9,Y=-.5],-1.1", "-- GAS --- OK --- GAS --");
    CadSetCurLinetype(g_hDwg, lt); CadAddLine(g_hDwg, 0,0,0, 31,0,0);
    lt = CadAddLinetype(g_hDwg, "Face2", "1.5,-1,[arial.yucf,U=263a,F=1,S=2.0,X=-1.4,Y=-0.7],-1,0.5,-1,[Ltype,U=263b,F=1,R=45,S=2.0,X=-0.55,Y=-1.5],-1", "--F-F---F-F---F-F--");
    CadSetCurLinetype(g_hDwg, lt); CadAddLine(g_hDwg, 0,3.5,0, 31,3.5,0);
    lt = CadAddLinetype(g_hDwg, "Notes", "1,-1,[arial.yucf,U=266b,S=1.0,X=-0.5,Y=-0.5],-1", "-- note --- note --- note --");
    CadSetCurLinetype(g_hDwg, lt); CadAddLine(g_hDwg, 0,7,0, 31,7,0);
    CadRegen(g_hDwg); samp_zoom_ext();
    set_status(L"Sample 5: complex linetypes — compare to linetype.gif");
}

    5: begin
         CadPurge(FhDwg, CAD_CLEAR_ENTITIES);
         lt := CadAddLinetype(FhDwg, PAnsiChar(AnsiString('Gas')), PAnsiChar(AnsiString('3,-1.7,[arial.yucf,T=GAS,F=1,S=1,R=0.0,X=-1.4,Y=-.5],-1.7,1,-1.1,[Ltype,T=OK,F=1,S=1.0,R=0.0,X=-0.9,Y=-.5],-1.1')), PAnsiChar(AnsiString('-- GAS --- OK --- GAS --')));
         CadSetCurLinetype(FhDwg, lt); CadAddLine(FhDwg, 0,0,0, 31,0,0);
         lt := CadAddLinetype(FhDwg, PAnsiChar(AnsiString('Face2')), PAnsiChar(AnsiString('1.5,-1,[arial.yucf,U=263a,F=1,S=2.0,X=-1.4,Y=-0.7],-1,0.5,-1,[Ltype,U=263b,F=1,R=45,S=2.0,X=-0.55,Y=-1.5],-1')), PAnsiChar(AnsiString('--F-F---F-F---F-F--')));
         CadSetCurLinetype(FhDwg, lt); CadAddLine(FhDwg, 0,3.5,0, 31,3.5,0);
         lt := CadAddLinetype(FhDwg, PAnsiChar(AnsiString('Notes')), PAnsiChar(AnsiString('1,-1,[arial.yucf,U=266b,S=1.0,X=-0.5,Y=-0.5],-1')), PAnsiChar(AnsiString('-- note --- note --- note --')));
         CadSetCurLinetype(FhDwg, lt); CadAddLine(FhDwg, 0,7,0, 31,7,0);
         CadRegen(FhDwg); CadExecute(FhDwg, FCadHwnd, CAD_CMD_ZOOM_EXT);
         StatusBar.SimpleText := 'Sample 5: complex linetypes — compare to linetype.gif';
       end;
    6: begin
         CadPurge(FhDwg, CAD_CLEAR_ENTITIES);
         ee[0] := CadAddLine(FhDwg, 0,0,0, 0,1,0);         CadEntityPutColor(ee[0], CAD_COLOR_RED);
         ee[1] := CadAddLine(FhDwg, -0.866,-0.5,0, 0,0,0); CadEntityPutColor(ee[1], CAD_COLOR_GREEN);
         ee[2] := CadAddLine(FhDwg, 0.866,-0.5,0, 0,0,0);  CadEntityPutColor(ee[2], CAD_COLOR_BLUE);
         hBlock := CadAddBlock(FhDwg, PAnsiChar(AnsiString('3line')), 0,0,0);
         if hBlock <> 0 then
         begin
           CadBlockAddEntity(hBlock, ee[0]); CadBlockAddEntity(hBlock, ee[1]); CadBlockAddEntity(hBlock, ee[2]);
           id := CadBlockGetID(hBlock);
           CadAddInsBlock(FhDwg, id, 0,0,0, 1.0, 0);
           CadAddInsBlockM(FhDwg, id, 3,0,0, 1.0, 0, 8,3, 1.732, 3.0);
           CadAddInsBlockM(FhDwg, id, 3.866,1.5,0, 1.0, 0, 8,3, 1.732, 3.0);
           CadUpdate(FhDwg);
         end;

    private void SampleLinetype()
    {
        SampleClear();
        int lt;
        lt = YuCadApi.CadAddLinetype(_hDwg, "Gas", "3,-1.7,[arial.yucf,T=GAS,F=1,S=1,R=0.0,X=-1.4,Y=-.5],-1.7,1,-1.1,[Ltype,T=OK,F=1,S=1.0,R=0.0,X=-0.9,Y=-.5],-1.1", "-- GAS --- OK --- GAS --");
        YuCadApi.CadSetCurLinetype(_hDwg, lt); YuCadApi.CadAddLine(_hDwg, 0,0,0, 31,0,0);
        lt = YuCadApi.CadAddLinetype(_hDwg, "Face2", "1.5,-1,[arial.yucf,U=263a,F=1,S=2.0,X=-1.4,Y=-0.7],-1,0.5,-1,[Ltype,U=263b,F=1,R=45,S=2.0,X=-0.55,Y=-1.5],-1", "--F-F---F-F---F-F--");
        YuCadApi.CadSetCurLinetype(_hDwg, lt); YuCadApi.CadAddLine(_hDwg, 0,3.5,0, 31,3.5,0);
        lt = YuCadApi.CadAddLinetype(_hDwg, "Notes", "1,-1,[arial.yucf,U=266b,S=1.0,X=-0.5,Y=-0.5],-1", "-- note --- note --- note --");
        YuCadApi.CadSetCurLinetype(_hDwg, lt); YuCadApi.CadAddLine(_hDwg, 0,7,0, 31,7,0);
        YuCadApi.CadRegen(_hDwg); SampleZoomExt();
        SetStatus("Sample 5: complex linetypes — compare to linetype.gif");
    }