Export DWG for illustrator

[amogle]

Here is a little script I wrote a while ago to export a DWG for Illustrator. What it does is group everything by class to make things easier to manage in illustrator.

Any comments welcome.

Script:

{Export DWG with Grouped Classes for Illustrator}

PROCEDURE Expill;

VAR

noofcls, classno : LONGINT;

ClassH, noOfCl: STRING;

BEGIN

noofcls:= ClassNum; classno:=1;

WHILE classno <= noofcls DO

BEGIN

ClassH:= ClassList(classno);

SelectObj((C= ClassH));

Group; DSelectAll;

classno := classno + 1;

END;

DoMenuTextByName( 'Export DXF/DWG', 0 );

SelectAll; ungroup; DSelectAll;

END;

Run(Expill);