setting the active class

[zero]

So, how do I change the active class.

I want to pick an existing object, get its class, and change the active class to the same.

Then I will turn off all classes except the active class and none.

I have become addicted to ArchiCAD's "quick-layer" pallette and will try and build the same for Vectorworks....

Thanks in advance!

[MullinRJ]

Hi Zero,

Try this to set the active class:

code:

---

procedure PickClass;

VAR

ObjH :Handle;

X, Y :Real;

BEGIN

GetPt(X, Y);

ObjH := PickObject(X, Y);

if (ObjH <> nil) then

NameClass(GetClass(ObjH));

END;

Run(PickClass);

[/code]

[Petri]

quote:

---

Originally posted by MullinRJ:

Hi Zero,

---

Posted by the Self-appointed Non-modal Editing Advocat:

You wanted to say

NameClass(GetClass(FSActLayer));

No variables, just one line of code, with object-verb syntax. Beeewdiful!

[ 02-28-2004, 05:32 AM: Message edited by: Petri ]

[zero]

ah indeed it does;

"Creates a new class in a VectorWorks document, which then become the active class.

If the specified class already exists, then it will become the active class of the document."

thanks people!

Mat

[matto]

now if only we could make that a button.