MullinRJ

portamigra, ???You need to end your extrude before you start moving it about. As follows: BeginXtrd(0,a1);???????????{ RUNGS } ???Oval(0,0,1,1); EndXtrd; Rotate3D(90,0,0);????????{ Rotate about x-axis } Move3D(d1,a1/2,0.5);??{ Move for spacing } Duplicate(d1,0);???????????{ 2nd rung } The same applies to your third extrude: BeginXtrd(0,b1);??????????{ RAIL 2 } ???Rect(0,0,c1,1); EndXtrd; Move3D(0,a1-1,0); HTH, Raymond

I'm not sure how you want your script to run, interactively or not, but it's not hard to cobble one together. The VS procedure Layer() will create a new design layer. Layer('New Layer Name'); The VS function CreateLayer() will create a new layer and returns a handle to the new layer, which can be ignored if you only want to create them. LayerHandle := Layer('Another Layer Name', 1);?????????{ 1 = Design Layer / 2 = Sheet Layer } Each new layer you create will be on top of all other layers visually, so you may want to create new layers in the reverse order you want them displayed in the layer pop-up menu. Raymond

AndiCAD, yes, it's a menu plugin for VW. Bruce, it does work with VW 2009, and I'm working on a preliminary release that should be ready after this weekend. I'm also working on some updates that will take a bit longer. For those that update or purchase Reshaper for VW 2009 the next upgrade will be free. Anyone who's interested can contact me at info@siriussolutions.net Raymond

AndiACD, Have you tried Reshaper? It will give you access to this and MUCH more. If you'd like to try a full demo FREE for 30 days, email me at info@siriussolutions.net Raymond

Has anyone else noticed that SP3 is on the NNA site? Where's the fanfare? It's listed as having been posted on the 27th (2 days ago). Surely I can't be the only one who's found it. Raymond (T -1) macMINI 1.83 GHz / 2GB RAM / OSX 10.4.11 VW 2008 D/RW SP3 (88670)

On the newer Mac OS's, I have not gotten the good olde fashioned PostScript fonts to be seen by the software. I have had to translate all my favorites to TrueType format. It's a PITA, but it works. Raymond-2

My pleasure, Peter. Glad I could help. Raymond-3

Hi Peter, ???You are calling Draw3DGlass twice when OpaqueGlass is TRUE, and once when it is FALSE. This is because your ELSE clause did not have a BEGIN and END encompassing the following 2 statements and only the next statement was included in your ELSE clause. The second Draw3DGlass was getting executed every time, even when OpaqueGlass was TRUE. Try this for your main body: BEGIN {Main} Width := PWIDTH_OF_WINDOW; Height := PHEIGHT_OF_WINDOW; HeadHeight := PHEAD_HEIGHT; OpaqueGlass := POPAQUE_GLASS; {Set attributes} PushAttrs; FillFore(0,0,0); FillBack(65535, 65535, 65535); PenFore(0,0,0); PenBack(65535, 65535, 65535); PenPat(2); PenSize(1); IF OpaqueGlass THEN { is the same as: IF (OpaqueGlass=True) THEN } FillPat(1) ELSE FillPat(0); Draw3DGlass; { Only call this once } PopAttrs; END; RUN(Glass); HTH, Raymond

No, not a bad idea and no offense taken. Silly me, I was being overly paranoid. Web crawlers are not avoidable so no harm has been done. I already get daily updates on ways to increase my manhood and places to buy name brand software for pennies on the dollar, and this month's special seems to be a run on luxury watches. At the moment I'm only getting a few a day, but last year it was dozens a day. While you're here, wanna try some free software? Raymond

Not exactly. You can have the record with the field, but something has to stuff the data for you. The fields do not hold formulae, they are just containers to hold data. Actually, it's all STRING data, but the strings are formatted according to the defined type of the field. You will need to run a procedure in some way to identify the object(s) with the attached record and fill your field(s) accordingly - VectorScript, Menu Command, PIO. Now, if you design a custom tool to change the Line, it can stuff the data for you. HTH, Raymond

FWIW, you can achieve positive numbers with the absolute value function ABS(), too. Cell A1 =ABS(A2-B2) (=700) Cell A4 =ABS(A5-B5) (=600) Raymond

Well, so much for keeping the address away from the spam bots. I guess it doesn't really matter, but I'll know in a little while.

Hi sketcher, Yes, the link is "siriussolutions DoT net" but change the "space DoT space" to a period "." and it should work. To try the demo, use the "info" email address on the website and send me the last 6 digits of your VW serial # and I'll email you the software and a DEMO KEY. The demo is free for 30 days. Thanks, Raymond

Hi BLINK, Interesting problem. Were you starting from a scan or winging it freehand? I took the liberty to copy your picture into a VW file and trace over it. Though you can get the arcs to line up in theory, I agree it is a difficult task with the stock tools at hand. If you would like to try a DEMO of Reshaper I think you will find this is an easy task, though still tedious. Ask and you shall receive. Reshaper gives you the ability to anchor either endpoint while you edit an Arc's Sweep and/or Radius. If you draw an arc and one point is snapped to the previous object, you can edit the Arc repeatedly with Reshaper and Reshaper will leave that point fixed on the drawing so you will not have problems composing your 2D objects into a PolyLine. I was able to compose 83 Arcs & 5 lines all at once. The file and a screen shot are attached. Raymond

OK, I'll try that. back later.....

Again, I was not able to reproduce your results, but I do see what you are talking about. Can you outline in more detail how you create the broken shape? More detail is better. Out of curiosity, why do you section your solids with NURBS surfaces? I have no idea if it is causing your problem, but I used a 45? Line and extruded it to a plane to make the cut. Try cutting your Angle with an Extruded Line and see if you get the same results. Raymond

Hi Conrad, ???The Poly inside the Extrude matches the 5.00mm and 4.98mm measurements you noted. Could you submit a file with two objects, one Angle before and another Angle after your Extrude Operation? I'd like to try it and see it change. Please specify how you are duplicating it, modifying the Extr length, and what view(s) you are in. ???I tried duplicating it with an Option-Click, Cmd-D, Mirror Tool, and Menu Duplicate; then changed the Extr length with the OIP and with Reshaper 13. I even changed the Extr length in ISO views. No problems here. Either the object was off to begin with, or you are doing something I didn't guess. Thanks, Raymond VW 2008 (SP2) R1 (build 82613) D/RW MACmini, OSX 10.4.11. 2GB RAM

I believe it is because your object (solid section) is rotated -7.6? in the Y-axis to show the cross section orthogonally in a side view. Snapping works best when your view is orthogonal to the object. You are orthogonal to an arbitrary face of your object, but VW still sees it as rotated -7.6?. I think you found a limitation of the software, but not a true bug. Raymond

To the best of my knowledge, there are no calls that yield the LxW dimensions for new rotated objects when they are, or the plan is, rotated. I believe this to be true for VS and WkSheets. In VS, it is possible to dissect the objects to get the values, but that is a tedious and error prone task. In WkSheets I think you'll have to wait until the powers-that-be provide for the masses. The new functions let you set, but not retrieve values. Raymond

To those that are waiting and to all other potentially interested parties, ???Reshaper 13 is now ready for prime time. My website design is now seriously lagging, but the software is ready. ???Reshaper 13 is almost completely rewritten to take advantage of the new features of VectorWorks 2008 - New rotated objects (Rectangle, Oval and Rounded Rectangle), and the New Rotated Plan view. ???Reshaper 13 works with the following objects and all of the 2D objects can be modified in Rotated Views, both on Design Layers and inside Symbol Definitions. 2D objects: 2D Locus, Line, Rectangle, Rounded Rectangle, Oval, Rotated Rectangle, Rotated Rounded Rectangle, Rotated Oval, ????????????????????Arc, Circle, Polygon, Polyline, Group, Text, 2D Symbol, Imported Images (JPEG, PNG & PICT), Wall, 2D PIO. ???????????Also, Rotated Rectangular Polygon and Regular Polygon (not unique object types, but Reshaper 13 treats them like they are). 3D objects: 3D Locus, 3D Poly, Mesh, Extrude, Multiple Extrude, CSG Solid, 3D Symbol, Group of 3D objects and 3D & Hybrid PIOs. ??????????Also, 3D Line (a 2-vertex 3D-Polygon that Reshaper 13 treats as a unique object type). ???To buy or try Reshaper 13 (try = Fully functional Demo FREE for 30 days) please contact me off line at my pseudo address "info AT siriussolutions DOT net". Thank you all for your patience, Raymond Mullin Sirius Solution

Arctan(0.707106781...) = 35.26438968...? { arctan ≠ 1/tan, 1/tan = cotan } 1/Sqrt(2) or 1/√2 = 0.707106781... { your sqr2 looks like 2 squared - may be confusing to some } also cos(45?) = sin(45?) = 0.707106781... so Arctan(cos(45?)) = Arctan(1/√2) = 35.26438968...? etc. The devil is in the details. Raymond

Ben, ???I believe you can structure your event loop the way you want, but to see any changes on screen you will have to issue a Redraw or RedrawAll command after you gather data and apply the changes. I do something similar in my Reshaper code. CASE item OF ???kPiece1 : BEGIN ??????{-- gather relevant info on piece 1 and apply changes to it, without closing the dialog --} ??????Redraw; ???END; ???kPiece2 : BEGIN ??????{-- gather relevant info on piece 2 and apply changes to it, without closing the dialog --} ??????Redraw; ???END; HTH, Raymond

In the upper right hand corner of the drawing window, second little black triangle down from the top, select the option that says "Use floating data bar only when tab key is pressed" or one of the next two selections. Welcome to VectorWorks Land. Raymond

Pat, that is only true if the parameters are all the same type and declared in the same parameter group. eg. procedure XYZ(var A, B, C :Integer);?????{ all are VARs } eg. procedure XYZ(var A :Integer; B, C :Integer);?????{ only A is a VAR } but I do it as you do with the VARs at the end, as a convention. eg. procedure XYZ(B, C :Integer; var A :Integer);?????{ input in the front, answers in the back } I think it looks better. It is only required if you want the function/procedure to return any modifications it made to your variable. Miguel is right, you cannot pass a constant value to a VAR parameter. The procedure has nowhere to put the new value on return. One other pitfall that I often run into and is somewhat tricky to catch, but I'm getting faster with repeat infractions... When you write two functions/procedures and one calls the other, if the other one returns a VAR parameter then it MUST be a VAR in the first. eg. ???procedure XYZ(var A :Integer); ... ???procedure ABC(B :Integer); ???Begin ??????XYZ (B);?????{ will not work as B is not a VAR parameter and XYZ is expecting one } ???End; { ABC } rather write: ???procedure ABC(var B :Integer);?????{ needs to be a VAR if it will be passed to another procedure } ???Begin ??????XYZ (B);?????{ now it will not work } ???End;???{ ABC } If you write enough code, you will be cursed with the same message you got earlier, but it will be a little harder to track down. Hopefully you'll not spend as much time as I have in the past looking for the cause. Raymond

Hi Bruce, I was able to compose the 4 objects in place if I select 2 at a time. Compose did join the wrong end of the line to the arc, so I undid the operation, flipped the line, and composed again. I ended up flipping both lines and composing 2 objects at a time. I am sending you the file off line. Raymond