Jump to content
Developer Wiki and Function Reference Links ×

VW2013 creating auto hybrid object from VectorScript


CodeGier

Recommended Posts

Hello,

my VectorScript abilities are a bit rusty since I didn't anything with it for over a year.

Testing the new VectorWorks a question comes up: How can I create the new auto hybrid object from vectorscript? Did'nt find anything about in in the 2013 function reference.

What do I oversee?

Thanks in advance

Josef

Link to comment
  • 1 year later...

OK, answering it myself. Should have done "Export Text" to have a look at it. Silly me ;-) :

procedure CreateAutoHybrid(aHandle: Handle);

var

tempHandle : Handle;

boolResult : Boolean;

begin

tempHandle := CreateCustomObject('Auto Hybrid',0.000000000000000,0.000000000000000,#0.0000000000000d);

boolResult := SetCustomObjectProfileGroup(tempHandle, aHandle);

if boolResult then

begin

Record(tempHandle,'Auto Hybrid');

Field(tempHandle,'Auto Hybrid','display','2DAnd3D');

Field(tempHandle,'Auto Hybrid','cutPlaneElevation','1500');

Field(tempHandle,'Auto Hybrid','cutPlaneBase','layerElevation');

Field(tempHandle,'Auto Hybrid','displayCutPlane','Wahr');

Field(tempHandle,'Auto Hybrid','cutPlaneClass','');

Field(tempHandle,'Auto Hybrid','cutPlaneFill','useClass2DAttributes');

Field(tempHandle,'Auto Hybrid','cutPlanePen','useClass2DAttributes');

Field(tempHandle,'Auto Hybrid','displayExtentsBelowCutPlane','Wahr');

Field(tempHandle,'Auto Hybrid','belowCutPlaneRange','infinite');

Field(tempHandle,'Auto Hybrid','belowCutPlaneFiniteDepth','4000');

Field(tempHandle,'Auto Hybrid','belowCutPlaneClass','');

Field(tempHandle,'Auto Hybrid','belowCutPlaneFill','use2DAttributesOfContainedObjects');

Field(tempHandle,'Auto Hybrid','belowCutPlanePen','use2DAttributesOfContainedObjects');

Field(tempHandle,'Auto Hybrid','displayExtentsAboveCutPlane','Falsch');

Field(tempHandle,'Auto Hybrid','aboveCutPlaneRange','infinite');

Field(tempHandle,'Auto Hybrid','aboveCutPlaneFiniteHeight','4000');

Field(tempHandle,'Auto Hybrid','aboveCutPlaneClass','');

Field(tempHandle,'Auto Hybrid','aboveCutPlaneFill','none');

Field(tempHandle,'Auto Hybrid','aboveCutPlanePen','use2DAttributesOfContainedObjects');

Field(tempHandle,'Auto Hybrid','showAsReflectedCeilingPlan','Falsch');

Field(tempHandle,'Auto Hybrid','3DConversionResolution','high');

Field(tempHandle,'Auto Hybrid','bcpDashedHiddenLine','Falsch');

Field(tempHandle,'Auto Hybrid','acpDashedHiddenLine','Falsch');

Field(tempHandle,'Auto Hybrid','smoothingAngle','1');

Field(tempHandle,'Auto Hybrid','generateIntersectingLines','Wahr');

Field(tempHandle,'Auto Hybrid','shadeFactorIndex','2');

end;

end;

Link to comment

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...