CodeGier
Member-
Posts
21 -
Joined
-
Last visited
Reputation
0 NeutralPersonal Information
-
Location
Germany
Recent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
-
DoMenuTextByName('Export Image File',0); But you have to manually type the filename for every item in the Loop... Not the best solution.
-
Found a solution in the VectorScript mailing list. Thanks to Bill Wood: function checkstatus : BOOLEAN; Var objty : INTEGER; btest : BOOLEAN; begin locus(0,0); objty := gettype(getparent(Lnewobj)); delobject(Lnewobj); btest := (objty = 31); {Layer} if NOT btest then alrtdialog('Exit current editing mode first'); checkstatus := btest; end;
-
"convert to lines" does not work in PIOs. I recommend to use an Auto-hybrid. In the attached Record do: Set Field(tempHandle,'Auto Hybrid','display','2D'); So the Auto-Hybrid is only shown in 2D-view. This did the trick in my case. Bye CodeGier
-
Got reply of my distributor: They are sending me a DVD with the international DEMO-Version. I am impressed of this quick service!
-
Hello, I am having the following issue (VW 2014 SP4): When editing the path of an extrude-along-path object, the lines of the whole drawing are shown greyed (see attached screenshot). When editing the path of my 3D-Path-PIO only the path is shown. It's hard using the PIO because you don't see the rest of the drawing when editing the path. I tested with this small sample code, and theres the issue too. Tried different projections (2D or 3D, Requires 2D, Requires 3D) but it didn't help. What am I missing? PROCEDURE Test3DPath; VAR objName : STRING; pathHd, objHd, objrecHd, wHd : HANDLE; Procedure DrawTheTest(aPath : Handle); VAR i : integer; aV : Vector; Begin for i := 1 to GetVertNum(aPath) do begin GetPolyPt3D(aPath, i-1, aV.x, aV.y, aV.z); Locus3D(aV.x, aV.y, aV.z); end; End; Procedure DrawTest3DPath; VAR result : BOOLEAN; BEGIN result:= GetCustomObjectInfo(objName,objHd,objrecHd,wHd); IF result THEN BEGIN pathHd:= GetCustomObjectPath(objHd); IF pathHd <> NIL THEN BEGIN DrawTheTest(pathHd); END ELSE AlrtDialog('Error'); END; End; BEGIN SetPref(407,TRUE); DrawTest3DPath; END; Run(Test3DPath);
-
OK, I am asking my distributor. Thanks for replying. I fear he will say: "ask Nemetschek NA" ;-) Bye CodeGier
-
I am using VW 2014 german version. For scripting it would be much easier to have an english version. The translations of menu-commands etc. are not alway enlighting. Is a demo version available (without time restriction, no saving, no printing) where I can have a peek at the english commands? I only found a download for a 30 days Trial. With my installation DVD I can install a German Demo, but english? CodeGier
-
hello, my path-PIO throws errors when double-clicking it and editing the path. The error is thrown in the part of the code where the profile of the PIO is set: PROCEDURE SetProfile(aObjHand : HANDLE); VAR Ergebnis : Boolean; aHand : HANDLE; BEGIN Symbol(mySymbolName,0,0,0); aHand := LNewObj; Ergebnis := SetCustomObjectProfileGroup(aObjHand, aHand); IF not Ergebnis THEN AlrtDialog('Not able to set profile!'); END; Is it possible to check if in edit mode to avoid setting the profile in this case? CodeGier
-
VW2013 creating auto hybrid object from VectorScript
CodeGier replied to CodeGier's topic in Vectorscript
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; -
Hello, is it possible having a path-PIO acting like a wall? I want to insert doors an Windows and they should cut out their shape as they do in walls. Thanks in advance. CodeGier
-
Hello, is it possible to read the direction out of a NURBS curve? In VW you can Change the direction in the info-bar but I find no way doing it with VectorScript. Bye CodeGier
-
Hello, is there a possibility to save the Batch Rendering path in the vwx? Would be a nice feature. It's very boring to change this path every time I am rendering. Thank's for answering. CodeGier
-
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
-
Hello Miguel, I used SetPolyClosed(polyHandle:HANDLE; isClosed:BOOLEAN); and it worked. Didn't find that in the function reference. Is it undocumented or new in 2012 (or am I unable to find it)? Thanks for sharing that. Josef
-
Hello, I am working on the 2D look of a 3D path PIO using this function to convert a Nurbs into a polyline: FUNCTION Nurbs2Poly(aPathHD : HANDLE; aPos : REAL) : HANDLE; VAR h : Handle; BEGIN h := CreateOffsetNurbsObjectHandle(aPathHD, aPos); Nurbs2Poly := MakePolyline(h); DelObject(h); END; It works, but in VW2012 the polyline is closed. I do need an open one! Same behaviour with MakePoly the polygon is closed too. I tried to use OpenPoly with my code, but it didn't work either. Any idea how I get an open polyline (or polygon) out of my code? Thanks in advance. Josef