Jump to content

Julian Carr

  • Posts

  • Joined

  • Last visited

Everything posted by Julian Carr

  1. CONST kObjXPropShowPrefDialogWhen = 32; kCustomObjectPrefNever = 0; kCustomObjectPrefAlways = 1; kCustomObjectPrefNew = 2; blah blah blah... in event loop 5: gFlag := SetObjPropCharVS(kObjXPropShowPrefDialogWhen, Chr(kCustomObjectPrefNever));
  2. I'd probably use Pat's suggestion, but to answer your specific question, you would use HRotate() and HMove().
  3. Wall styles don't typically define wall heights. Rather they define what is used to control the wall or components heights (layer wall height, storey level, etc), as well as having an offset. And of course walls don't have to be level on the top or bottom, and can also be controlled by slabs and roofs, making the task even more fraught. But if you really want to delve into it, then look in the Function Reference in the Objects - Architectural section, for things like SetComponentWallTopOffset().
  4. It's conceivable but would be messy, and could also be problematic if there were so many hatches that the dialogue was too large to fit on the screen. Normally you would would use a list browser for something like this, which would see scroll bars appear if the list was longer than the size of the list browser.
  5. see http://developer.vectorworks.net/index.php/VS:SetWallOverallHeights FUNCTION SetWallOverallHeights( theWall :HANDLE; botBoundType :INTEGER; botBoundStory :INTEGER; botLayerLevelType :STRING; botOffset :REAL; topBoundType :INTEGER; topBoundStory :INTEGER; topLayerLevelType :STRING; topOffset :REAL) : BOOLEAN; Julian
  6. Is Mirror a function in Vectorscript? It's not on the Developer site...
  7. You must specify units when nominating a size in a script, so this line: RegularPolygon(Px,Py,12,6,1); should be something like: RegularPolygon(Px,Py,12",6,1); or RegularPolygon(Px,Py,12mm,6,1);
  8. A couple of things to note: 1. You need to set the 3 levels of detail for each object as there is no assumption that if an object is visible at one level, it will automatically be visible at another. 2. If the PIO contains groups, you need to set the detail level for each object within the group as setting it for the group itself will have no effect.
  9. This might be quicker. Convert a copy to nurbs then get its length using HLength(): Procedure T; VAR hTemp, h3DPoly : HANDLE; BEGIN h3DPoly := FSActLayer; hTemp := ConvertToNURBS(h3DPoly, True); Message('3D Poly Length: ', HLength(hTemp)); DelObject(hTemp); END; Run(T);
  10. Just wondering if anyone knows how to get a handle to a Plant object's style definition, from a given handle to a plant instance? GetPluginStyleSymbol() works with other styled PIOs, but not with Plant objects. Thanks.
  11. Then you have to consider how the symbols are constructed. Are there container objects within that you need to traverse such as Groups, or PIOs that are controlling fill attributes of objects within independently? Then you will also need to check whether any of the objects have their attributes being controlled by class and respond accordingly. So all in all, not a simple task.
  12. Don't think so. It could make drawing navigation very slow.
  13. I think this works: FlagTopPlan := GetProjection(ActLayer) = 6;
  14. Glad you got it working. Apart from copying and pasting between files, this functionality also ensures that the symbol is seen as being in-use by the Purge command, so won't get accidentally deleted.
  15. You need to add a symbol instance to the profile group of the PIO using SetCustomObjectProfileGroup(). Because this is persistent between regens, you need to delete the profile group on each regen then reinstate it. Something like this: Symbol('mysymbol', 0, 0, 0); h1 := LNewObject; h2 := GetCustomObjectProfileGroup(ghParm); IF h2 <> Nil THEN DelObject(h2); IF h1 = NIL THEN Flag := SetCustomObjectProfileGroup(ghParm, h2) You can always check the existence of the profile group by selecting your object then using the Edit Group command.
  16. Sorry you will need to put a minus in front of Name2Index, but also note that you may not see the line is dashed because the line from the adjoining component is solid, so you might need to do something like this: procedure test; var Response : boolean; begin Response := DeleteAllComponents (nil); Response := InsertNewComponentN (nil, 1, 5, 0, 10, 0, 0, 2); Response := InsertNewComponentN (nil, 2, 20, 0, 6, 10, -Name2Index('Dash Style-2'), 0); SetTool (13); end; Run (test);
  17. Try using Name2Index('Dash Style-2') in place of -2, as the number will vary depending on the order the dash styles were imported into the drawing. Obviously the dash style will already need to exist in the file for this to work.
  18. So what Josh is referring to is a structure like this, which is one of the most time saving scripts you can have because it can be adapted to do so many things:: Procedure TimeSaver; Procedure DoIt(h1 : HANDLE); BEGIN SetClass( h1, ‘Class Name’ ); END; BEGIN ForEachObject(DoIt, (Sel = True)); END; Run(TimeSaver);
  19. The Date() procedure has always used the system settings to determine what is displayed. On the odd machine it ignores the system settings, but this is very rare.
  20. Never mind, I got it working. Not really sure what I did however, but now it works.
  21. Is anyone using vsoStateGetParamChng() with n event enabled linear PIO? It works OK with a point object, but returns false for a linear object. Thanks.
  22. You might be able to do it in the reset evert (3) using this: Flag := vsoStateGetParamChng(ghParm, gOutWidgID, gn, gsOldParmValue); gOutWidgID is the widget ID of the param that has changed. gsOldParmValue is the previous parameter value. I've never used it with control points though, so good luck.
  23. Thanks Orso. Next question. How to get the tile fill name of a wall component. If I use GetComponentFill() then index2name() on the returned fill, it doesn't work. Thanks.
  24. Anyone have a code snippet for applying a Tile resource to a polygon? Not having much luck. TIA.
  25. Anyone have a code snippet for applying a Tile resource to a polygon? Not having much luck. TIA.
  • Create New...