[Placing a 3D symbol]

Hi,

I wish to create a 3D symbol and place it at a selected location on my drawing.

I begin in Left Isometric view and I have picked a point (GetPt3D).

I then create a symbol (BeginSym ... EndSym).

After the symbol is created I retreive it with Symbol (SymName, 0, 0, 0); and then Move3D (pX, pY, xZ);

Move3D puts it in the right place but the Symbol procedure only works in 2D.

What should I be doing to get this to work?

[Refreshing dialog text]

I found it. I should be using SetField.

Regards

[Refreshing dialog text]

Hi,

I written a BeginDialog with some AddField text boxes and some AddButtons.

If I click button one I want the text cell to show 1 and if I click button two I want the text cell to show 2.

Is this the correct way of doing this:

if (ItemSel (1) = True) then

SetItemText (1, 8, '1');

else

SetItemText (1, 8, '2');

because it doesn't work. Do I need a refresh or something?

Note: this is still VW2010

[How to run script automaticly]

I've been asking for the same for a while now.

Just like Excel will run Private Sub Workbook_Open() I would like to do a bit of setup as the stationary sheet is opened.

[Set datum or smart point from script]

Are you refering to SetOrigin?

[How to get the length of the dash lines.]

Please tell us why do you need to know the pair lengths?

If your searching for a line style then maybe the following will help:

GetDashStyle or GetDashStyleIndex

[NO Snapping to extension lines]

This thread is quite extensive, if anyone can follow it, as to why it can't be done as I found out.

http://techboard.vectorworks.net/ubbthreads.php?ubb=showflat&Main=27613&Number=134495#Post134495

Regards

[VW 2010 CRASHING]

I didn't say that PC's don't crash islandmon, just that Macs are not stable.

However you are correct about the file. I have had files that incur errors and will not behave themselves. Cutting and pasting the drawing to another drawing usually solves the problem.

[Vectorworks application has stopped working]

Thanks Ray, I will check with my Acer laptop techs then.

[Can't toggle my open files...?]

When you use the Windows key you are using a Windows operation which is independent of VW.

[VW 2010 CRASHING]

Not to create a huge argument about Mac v PC but I've never know a stable Mac.

[Vectorworks application has stopped working]

Just checked Ray, everything is up to date.

[Vectorworks application has stopped working]

If the 3D file is rendered OpenGL then I can drag any file/stationary sheet into VW and it stops.

If the 3D file is wireframe then drag-n-drop does not stop VW.

I wanted to see if anyone else has a problem to find some similarities before reporting the problem.

[Suggestions for good VW import into AC 2010]

One of the major differences between VW and AC is that AC is imperial and VW is metric.

When I import from AC I often have to re-scale by x24.5 which is 24.5mm = 1"

I think that AC use to associate colour with line weight but in recent versions it has stopped that association. It now sounds like AC uses line weights per layer.

In VW you can use custom selection to select lines of specific sizes of objects of different types which can them be changed or moved as required. Will this help?

[Vectorworks application has stopped working]

I don't usually draw a lot of 3D but I recently had a need to do so.

I am finding that VW2010 on the Windows 7 platform often stops with the message:

"Vectorworks 2010 application has stopped working"

"A problem caused the program to stop working correctly"

"Windows will close the program and notify you if a solution is available."

There is no solution offered and since it didn't crash, there was no error report sent.

I removed VW2010 (inc. registry items) and re-installed. I tested sp0 and sp4 but I get the same result.

The stop usually occurs when I have a 3D drawing open (only tested with OpenGL rendering) and I drag-n-drop another file into Vectorworks.

Can anyone else verify or expand on this?

[Improving 3D pipe bends]

Thanks Guy, I have every other setting set to Very High.

[Improving 3D pipe bends]

A step forward Guy,

I have found that my OpenGL settings were set to low. Now my result is almost like yours although I am still getting the outside edge looking like it's several chords using a circle and Nurbs Circle unlike your smooth result.

It can't be the fact that I am using Fundamentals version can it?

[MakePolygon not working for groups]

Hi,

I want to find what objects are within a 2D polygon region.

Currently I pick a polygon and duplicate it with h2=MakePolygon(h) then name it with SetName(h2,'tmp').

After this I will:

ForEachObject (Check_for_X,((Loc = 'Tmp') & (T = X)));

if (h2 <> Nil) then DelObject(h2);

This works well but when I have two polygons grouped that represent the final product I can't use MakePolygon.

Any suggestions on how to create a tmp polygon profiling the perimeter of the final product?

[Improving 3D pipe bends]

Yes but I can see that you are getting a different result. I have repeated what I do on your Pipes.vwx drawing and I get what you get so there must be some settings retained by your drawing that I need to change.

I'll keep fiddling for a while.

[Improving 3D pipe bends]

I usually draw pipe with extruded circles and sweeps for corners but I thought I would try something different.

Simply, I used the 3D polygon tool to draw a right angle and the 2D fillet, set for 140R, to fillet the corner.

I tried both a 2D circle and Nurbs Circle and Extrude Along Path. I used a 21.2 radius.

The 2D circle makes the fillet corner into 3 segments and is not a smooth radius.

The Nurbs Circle does something weird at the corners.

Can anyone suggest another option to create a bent pipe using Extrude Along Path or do I have to use the manual method to get the best look?

[Changing view to an object face]

One small problem. This works when the object is extruded but doesn't work when the object is created using the 3D Polygon tool.

Lets say I have a similar angle problem as above but I only have angles either side and not the angle itself. The angles either side are also at different angles? so I was planning on filling in the back of the missing angle with a 3D Polygon and using bcd's method to set the working plan and then draw the 3D missing angle but the working plane tool does not pick the 3D Polygon.

You can see I don't do much more than simple 3D so this one is a challenge for me at the moment.

Any more suggestions?

[Changing view to an object face]

Fantastic bcd, Thanks

[Changing view to an object face]

I have created a 3D angle 125 high and 75 wide.

In top view I am looking at the top of the back of the 125 and I can see the 75 flange at the bottom.

I rotate the angle -43.4?

From the front view I rotate the angle 19?

Looking at the top view again you should see a leaning angle at -45? or 135? depending on your point of view.

Keeping in mind that I may not know the method above used to create the end result how do I set the working plane to be the angles back face?

[How do you free rotate an object with Vectorscript]

A little more help please.

I have replaced the first "repeat until" with a GetPt because I want to be able to pick an existing object to align this new object with.

The problem is that GetMouse turns off snapping opitons.

Is there another way to do the following?

procedure Get_Placement;

var

h1, h2 :Handle;

x1, y1, x2, y2 : real;

AngleOfPt2, LastPt2Ang : real;

V : vector;

begin

GetPt ( x1, y1);

moveto (x1, y1);

closepoly;

poly (60, #90, 580, #0, 60, #-90);

LastPt2Ang := 0;

repeat

GetMouse (x2, y2);

V.x := x2 - x1;

V.y := y2 - y1;

AngleOfPt2 := Vec2Ang (V);

RotatePoint (x1, y1, AngleOfPt2 - LastPt2Ang); { rotate by delta angle }

LastPt2Ang := AngleOfPt2;

Redraw;

until (MouseDown (x2, y2));

end;

run (Get_Placement);

[How do you free rotate an object with Vectorscript]

Thanks Raymond, I didn't know I was so close.

I've not used vectors before so I will have to study it more.

Love the first macro.

Regards