CodeGier Posted December 5, 2012 Share Posted December 5, 2012 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 Quote Link to comment
CodeGier Posted July 31, 2014 Author Share Posted July 31, 2014 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; Quote Link to comment
Recommended Posts
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.