Jump to content

Dieter @ DWorks

Member
  • Posts

    2,825
  • Joined

  • Last visited

Posts posted by Dieter @ DWorks

  1. Ok, i think i get it, you first set the view in a design layer, then you make the viewport and it automaticly set at the same view. thx, but i think it i s not that good, because everytime you want a certain view,you must delete the old viewport, set the view and make a new viewport, but it will do, thx

  2. The problem is that it is a viewport and it is used to be part of what i want to print. set 3d view and those renderworks camera doesn't create a viewport, so you can't use them for that, only for viewing on the screen. and the viewport can not be streched.

  3. When I set my view at an isometric view and then set it to perspective (instead of orthogonal), it shows nothing and the view window is set very small. Can someone help me? (I had the same problem in 11.5 but i thought it would be over in 12)

  4. I managed to put a window in a roof, but when i render the image, there is only a hole in the roof. The window is gone when rendering, Can someone explain to me what's happening here?

    thx

  5. I made an object myself for creating an opening:

    code:

    PROCEDURE Gevelopening;

    VAR

    breedte, hoogte :REAL;

    rood, groen, blauw :LONGINT;

    {$INCLUDE D - Klassen.vss}

    BEGIN

    Maak_Klassen;

    breedte :=PBREEDTE;

    hoogte :=PHOOGTE;

    {-2D-}

    NameClass('Loci - 2D');

    Locus(-breedte/2,0);

    Locus( breedte/2,0);

    NameClass('Geen');

    ColorIndexToRGB(0,rood,groen,blauw);

    FillBack(rood,groen,blauw);

    FillFore(rood,groen,blauw);

    FillPat(1);

    ColorIndexToRGB(0,rood,groen,blauw);

    PenBack(rood,groen,blauw);

    PenFore(rood,groen,blauw);

    PenPat(0);

    PenSize(0);

    BeginPoly;

    AddPoint((-breedte/2-5), 10);

    AddPoint(( breedte/2+5), 10);

    AddPoint(( breedte/2+5), 5);

    AddPoint( breedte/2 , 5);

    AddPoint( breedte/2 ,- 5);

    AddPoint(( breedte/2+5),- 5);

    AddPoint(( breedte/2+5),-10);

    AddPoint((-breedte/2-5),-10);

    AddPoint((-breedte/2-5),- 5);

    AddPoint( -breedte/2 ,- 5);

    AddPoint( -breedte/2 , 5);

    AddPoint((-breedte/2-5), 5);

    AddPoint((-breedte/2-5), 10);

    EndPoly;

    NameClass('Metselwerk - Gevel');

    MoveTo((-breedte/2-5),5);

    Line( 5, 0);

    Line( 0,-10);

    Line(-5, 0);

    MoveTo((breedte/2+5),5);

    Line(-5, 0);

    Line( 0,-10);

    Line( 5, 0);

    NameClass('Metselwerk - Onzichtbaar');

    MoveTo(-breedte/2,-5);

    Line(breedte,0);

    NameClass('Metselwerk - Zichtbaar');

    MoveTo((-breedte/2-5),-5);

    Line( 0,-5);

    Line((breedte+10), 0);

    Line( 0, 5);

    {-3D-}

    NameClass('Loci - 3D');

    Locus3D(-breedte/2,0,230);

    Locus3D( breedte/2,0,230);

    Locus3D(-breedte/2,0,(205-hoogte));

    Locus3D( breedte/2,0,(205-hoogte));

    NameClass('Metselwerk - Gevel');

    BeginXtrd(210,230);

    Rect(-breedte/2,5,breedte/2,-5);

    EndXtrd;

    NameClass('Gesteenten - Arduin');

    BeginXtrd((205-hoogte),(210-hoogte));

    Rect((-breedte/2-5),10,(breedte/2+5),-10);

    EndXtrd;

    END;

    run(Gevelopening);
    [/code]

    Now I want to use the parameters for the object to count how much meters there are, so I need the width

    code:

    PROCEDURE Bereken_Prijs;

    VAR

    h_rollaag :REAL;

    laag_naam :STRING;

    laag_handle :HANDLE;

    object_handle :HANDLE;

    {$INCLUDE D - Lagen.vss}

    {$INCLUDE D - Klassen.vss}

    FUNCTION Prijs_Ruwbouwwerken:REAL;

    BEGIN

    Prijs_Ruwbouwwerken:=

    + 9.92*1.27*h_rollaag {Rollagen boven gevelopeningen};

    END;

    BEGIN

    Maak_Lagen;

    Maak_Klassen;

    h_rollaag :=0;

    laag_handle:=FLayer;

    WHILE laag_handle<>NIL DO BEGIN

    laag_naam:=GetLName(laag_handle);

    Layer(laag_naam);

    DSelectAll;

    SelectObj(C='Schrijnwerk - Opening');

    object_handle:=FSObject(laag_handle);

    WHILE object_handle<>NIL DO BEGIN

    h_rollaag:=h_rollaag+Str2Num(GetRField(object_handle,'D - Gevelopening','Breedte'));

    object_handle:=NextSObj(object_handle);

    END;

    laag_handle:=NextLayer(laag_handle);

    END;

    END;

    run(Bereken_Prijs);
    [/code]

  6. That I already knew, the problem is for calling a SUBROUTINE.

    you can make tools, commands, objects and subroutines, and vw says that these subroutines can be used by different tools and commands etc. so how can you call a subroutine from a tool?

  7. I just saw that the image is mirrored in pieces of 4, so the first 4 columns are mirrored, then the next 4,

    so when you want your image to display more correctly, you must mirror the image every 4 columns.

    but then the image is stil not good, the colors are faded and so

×
×
  • Create New...