Jump to content

Stephan Sonnenschein

Member
  • Content Count

    2
  • Joined

  • Last visited

    Never

Community Reputation

0 Neutral

About Stephan Sonnenschein

  • Rank
    Greenhorn

Personal Information

  • Occupation
    VectorWorks Consultant
  • Location
    Germany Cologne
  1. Hello, has anybody an idea why this doesn't work? I want to replace a fixed Layer Criteria with a variable so this: SelectObj(L='Layer1'); works fine but something like: Var layerName : String; BEGIN layerName := GetLName(ActLayer); SelectObj(L=LayerName); END The VectorScript Language Guide says: "Layer (L) The layer attribute type will search for objects on the specified layer. The search value should be a STRING value which is up to 64 characters in length (literals and variables are supported)." so I wonder where my mistake is - or is this a bug? Stephan
  2. Starting with the location of one selected CustomObject I want to get a handle to another CustomObject which is close to this object and do something with that object. Imagine to a for instance a Pipe System where I bring to objects close to each other (via underlying grid). After they are positioned this way they should interact with their neighbour (change some RecordFields). I thought GetClosestPt() would be the right approach but when I tested the example from the function refence I didn't get any reaction when I clicked (=GetPt()) near a simple rect. Also the Debugger shows that no objhandle is identified. 1) Does anybody know how to use this function correctly? PROCEDURE GetClosestPtExample; VAR obj :HANDLE; ptX, ptY :REAL; index :INTEGER; containedObj :LONGINT; BEGIN {$Debug} GetPt(ptX, ptY); GetClosestPt(obj, ptX, ptY, index, containedObj); SetPenFore(obj, 65535, 0, 0); END; RUN(GetClosestPtExample); 2) If this function doesn't work. Has anybody an alternative solution for my problem?

 

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...