lijnen verzamelen naar pline

[Leon-LS]

Ik heb in een tekening steeds een layer met daarin, aaneengesloten getekend, meerdere lijnen. Nu wil ik deze lijnen tot 1 pline maken. Ik heb al diverse dingen geprobeerd, maar met join moet ik steeds één lijn selecteren dus dat is erg tijdrovend. Ik wil eigenlijk met één functie, bijvoorbeeld in autolisp, alle losse lijnen in één keer veranderen in één pline. Ik ben benieuwd naar jullie suggesties, bedankt alvast hiervoor.

Groet,
Leon

[Rudy]

Je kan de lijnen toch gewoon ineens selecteren met een window

[EddyBeerke]

Probeer eens deze stappen:

Command: PEDIT
Select polyline or [Multiple]: m
Select objects: Specify opposite corner: 5 found

Select objects:

Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype
gen/Reverse/Undo]: j
Join Type = Extend
Enter fuzz distance or [Jointype] <0.000>:

4 segments added to polyline

Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype
gen/Reverse/Undo]:

Command:

[Leon-LS]

klopt, dat lukt natuurlijk ook. Maar ik zou graag één lijn van deze layer selecteren zodat alle lijnen in één keer veranderen in een pline. Dit moet vervolgens meerdere keren herhaald worden voor diverse layers.
Ik zou het handig vinden als ik dat kon doen m.b.v. een "tool" in de vorm van een lisp of een script bijv.

[EddyBeerke]

Je bedoeld dat acad zelf de aaneengesloten lijnen vind?

[Leon-LS]

Nee, want de lijnen zijn in dit geval altijd aanéénsluitend. Ik zoek een handigheidje om alle elementen op deze ene layer te veranderen in een pline.

[EddyBeerke]

Als je mijn voorgestelde methode gebruikt dan ben je zo klaar.Moet je wel eerst even de laag isoleren met commando layiso, daarna weer layuniso gebruiken.

[AdenRob]

Hallo Leon_LS

Maak een macro aan;

^C^C_select;\pedit;m;p;;y;j;0;;

Deze doet precies wat jij wilt.
Ik werk er dagelijks mee en deze macro werkt perfect.

Groeten Ad

[Leon-LS]

Hallo Ad,

bedankt! Ik ga het uitproberen...

groet,
Leon

[AdenRob]

Graag gedaan Leon

Groeten Ad