Jump to content

lucioing

Member
  • Content Count

    16
  • Joined

  • Last visited

Community Reputation

1 Neutral

About lucioing

  • Rank
    Greenhorn

Personal Information

  • Occupation
    civil engineer
  • Homepage
    www.archinglabs,com
  • Hobbies
    music, photo
  • Location
    Rome

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. lucioing

    ExtrudeAlongPath

    Thank you Josh! I've just try this and it does works. L. PROCEDURE Prova_Porta_01; CONST {capitalized to distinguish them from variables} LOCAL_GREETING_ENGLISH = 'Hello '; LOCAL_GREETING_FRENCH = 'Bonjour '; VAR s:STRING; i:INTEGER; sp:REAL; base:REAL; altezza:REAL; SectObjectHandle:Handle; PathObjectHandle:Handle; FrameObjectHandle:Handle; PROCEDURE DrawSection(s: REAL); BEGIN ClosePoly; Poly( 0,0, 0,3, 3,3, 3,s, { coordinate assolute } -6,s, -6,0 ); SectObjectHandle:=LNewObj; END; PROCEDURE DrawPath(b: REAL; h:REAL); BEGIN {Relative;} OpenPoly; BeginPoly3D; Add3DPt(3,3,0); Add3DPt(3,3,h); Add3DPt(3+b,3,h); Add3DPt(3+b,3,0); EndPoly3D; PathObjectHandle:=LNewObj; END; PROCEDURE MakeFrame(h1, h2: HANDLE); BEGIN FrameObjectHandle := CreateCustomObjectPath('Extrude Along Path', h1, h2); <<<-------------------- END; BEGIN sp:=Ps; base:=Pb; altezza:=Ph; DrawSection(sp); DrawPath(base, altezza); MakeFrame(PathObjectHandle, SectObjectHandle); END; Run(Prova_Porta_01);
  2. lucioing

    ExtrudeAlongPath

    Maybe, something's wrong. Of course the objects created (path & sect) works fine using them in main window... The handles works fine... Thank you L. Here's the simple code: PROCEDURE Prova_Porta_01; CONST {capitalized to distinguish them from variables} VAR s:STRING; i:INTEGER; sp:REAL; base:REAL; altezza:REAL; SectObjectHandle:Handle; PathObjectHandle:Handle; FrameObjectHandle:Handle; PROCEDURE DrawSection(s: REAL); BEGIN ClosePoly; Poly( 0,0, 0,3, 3,3, 3,s, { coordinate assolute } -6,s, -6,0 ); SectObjectHandle:=LNewObj; END; PROCEDURE DrawPath(b: REAL; h:REAL); BEGIN {Relative;} OpenPoly; BeginPoly3D; Add3DPt(3,3,0); Add3DPt(3,3,h); Add3DPt(3+b,3,h); Add3DPt(3+b,3,0); EndPoly3D; PathObjectHandle:=LNewObj; END; PROCEDURE MakeFrame(h1, h2: HANDLE); BEGIN FrameObjectHandle:=CreateExtrudeAlongPath(h1,h2); END; BEGIN sp:=Ps; base:=Pb; altezza:=Ph; DrawSection(sp); DrawPath(base, altezza); MakeFrame(PathObjectHandle, SectObjectHandle); {FrameObjectHandle:=ExtrudeAlongPath(PathObjectHandle, SectObjectHandle); } it doesn't works too {Move3DObj(SectObjectHandle, 50,0,0); moving does works fine, so it's mean that the handle works Move3DObj(PathObjectHandle, 50,0,50);} END; Run(Prova_Porta_01);
  3. lucioing

    PlatformFrame

    Great Alan!!! It does works! Thank you so much! L. PS I just checked the column 'Core' over the component 'PlatformFrame'...
  4. lucioing

    PlatformFrame

    Hi Alan... Thank you for your quick reply! What does '..set your core wall location...' mean? Anyway, I'll looking for 'core location'... Thank you again L.
  5. lucioing

    PlatformFrame

    Hello! I'm in trouble with wall style and wall framer. I did set a style of my wall (ParetePlatformFrame) and I'm unable to match the interior component (PlatformFrame) to a frame generated by Wall framer. The control offset is ok... It seems that the Wall framer start to the middle axes instead of the control line, as shown by the dashed red line... You could try by yourself, deleting my wall and drawing a new. Is there a way to do that? Here's the file... Thank you L. PS Of course, I could set a Wall, with a proper offset, just for structure, but it's not what I do expect in 2017... :-)) PlatformFrame.vwx
  6. lucioing

    How to set a NEW class

    Here's the code. Thank you again! L. Procedure MyRect; Var a:real; objectName : STRING; objectHand, recordHand, wallHand : HANDLE; b: BOOLEAN; Begin NameClass('MyClass'); Rect(0,0,100,100); b:=GetCustomObjectInfo(objectName,objectHand, recordHand, wallHand); SetClass(objectHand, 'MyObj'); End; Run (MyRect);
  7. lucioing

    How to set a NEW class

    Great jbenghiat! I never though to this! Thank you so much! L.
  8. lucioing

    How to set a NEW class

    I've tryied an old plugin I wrote some years ago... If I define it as 'Point tool', it doesn't works. I've also export an object created straight in VW (2017) and it is the same! Please, let me know about... L. MyHandMadeRect_01.zip
  9. lucioing

    How to set a NEW class

    Ok, got it! It depends on the 'type' of plugin. Here's a picture. It seems that 'point obj' doesn't works correctly, as shown... L.
  10. lucioing

    How to set a NEW class

    Ok, I'm getting crazy! New installation VW2017+SP1. Nothing, it doesn't works. Here's a screenshot L.
  11. lucioing

    How to set a NEW class

    OK. I'll try! Thank you again, Pat! See you soon L.
  12. lucioing

    How to set a NEW class

    I think it doesn't works on 2017 SP1, because this simple code runs under 2015 but doesn't under 2017 SP1 Procedure MyRect; VAR a:real; BEGIN NameClass('MyClass'); rect(0,0,100,100) END; RUN (MyRect); So, I'm unable to understand why! Anyway, Pat, thank you for your reply. Lucio
  13. lucioing

    How to set a NEW class

    Hello! I'm unable to set the proper class to a new obj. What's wrong with this? In my opinion, it a very, very simple script, but what I get is not what I need: create a closed parametric polygon (ok) to a class... Thank you L. VW 2017 SP1 Here's the script. PROCEDURE Poly_1; CONST {capitalized to distinguish them from variables} NOTHING=''; VAR s:STRING; i:INTEGER; layerHandle, objectHandle:handle; BEGIN PenSize(14); PenPat(2); FillPat(1); PenFore(0,0,0); PenBack(65535,65535,65535); FillFore(0,0,0); FillBack(52000,52000,52000); NameClass('MyObj'); ClosePoly; BeginPoly; Poly( 0,0, 0,pH1+pH2, pL1,pH1+pH2, pL1,pH1, pL1+pL2,pH1, pL1+pL2,0 ); EndPoly; {objectHandle := LNewObj; <-------- I've tried this way but it doesn't works too SetClass(objectHandle, 'MyObj');} END; Run(Poly_1);
  14. lucioing

    Structural member tool

    That's what I mean... L. Prova estrusi computo.vwx
  15. lucioing

    Structural member tool

    I strongly hope too! Anyway, using as always the framing tool (we have a lot of shape) I can now compute each member using the spreadsheet and the function "=LENTGH" that return the extrusion value. So I can compute the exact weight, total length and so on, of my structure. Of course, structural member tool, would be the best choice. Better than nothing... :-) L. PS does someone able to set in the spreadsheet, the break sum? I mean, the partial sum for each type, in my case 'class'

 

7150 Riverwood Drive, Columbia, Maryland 21046, USA   |   Contact Us:   410-290-5114

 

© 2018 Vectorworks, Inc. All Rights Reserved. Vectorworks, Inc. is part of the Nemetschek Group.

×