Jump to content

alberto72

Member
  • Content Count

    6
  • Joined

  • Last visited

Community Reputation

0 Neutral

About alberto72

  • Rank
    Greenhorn

Personal Information

  • Location
    Italy
  1. It works as I expected ! Thanks !
  2. Why import vs number = "123" vs.Message("Type=", type (number) ) returns : "Types =" instead of "Types =int" ? Thanks
  3. In my Plug-in manager it is seen as a Text file but, I suppose, that is a 2D Path Object. Could you post the parameter list ? Thanks for your sharing...... AB.
  4. Which parameter of Page/Printer setup are you focus on ? Number o pages, printable area ?
  5. This is my answer. I create a new command called "Join Linear PIOs", placed under "Edit" menù and this is its code: Procedure JoinTwoSelectedLinearPios; VAR h1,h2:HANDLE; P1,P2,P3,P4:POINT; P:POINT; parallel :BOOLEAN; intOnLines :BOOLEAN; d1,d2,d3,d4:REAL; BEGIN h1:=FSActLayer; h2:=NextSObj(h1); GetSegPt1(h1,P1.x,P1.y); GetSegPt2(h1,P2.x,P2.y); GetSegPt1(h2,P3.x,P3.y); GetSegPt2(h2,P4.x,P4.y); LineLineIntersection(P1,P2,P3,P4,parallel,intOnlines,P); {====gather P1,P2,P3,P4 distances from P========} IF (parallel=FALSE) THEN BEGIN d1:=Distance(P1.x,P1.y,P.x,P.y); d2:=Distance(P2.x,P2.y,P.x,P.y); d3:=Distance(P3.x,P3.y,P.x,P.y); d4:=Distance(P4.x,P4.y,P.x,P.y); { ===== join PIOs trimming the shortest side...=====} IF d1<d2 THEN SetSegPt1(h1,P.x,p.y) ELSE SetSegPt2(h1,P.x,p.y); IF d3<d4 THEN SetSegPt1(h2,P.x,p.y) ELSE SetSegPt2(h2,P.x,p.y); END; END; RUN(JoinTwoSelectedLinearPios); Well, it doesn't check if h1 and h2 are linear PIO's or other objects, but it works with 2d Lines too. Hope to be useful....
  6. Hi everybody! Who does know the way to make a linear PIO responsive to Join command ? Thanks.

 

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.

×
×
  • Create New...