Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Make PEDIT command with VBA

182 views
Skip to first unread message

Bachir

unread,
Dec 5, 2002, 8:25:49 AM12/5/02
to
HELLO

How can I make a "PEDIT" command with a VBA code.

The parameters of pedit are in VBA variables

Thanks for your help

Sean Bartleet

unread,
Dec 5, 2002, 11:37:04 AM12/5/02
to
Hi,

One way would be to get the user to select both polylines and then create a
new one using the coordinates of the two selected plines. You may want to
test for a common end point depending on what you want to do.

There may well be an better way, good luck.

Sean Bartleet


"Bachir" <bachir.el-...@cerene.fr> wrote in message
news:17372E797AEB2045...@in.WebX.maYIadrTaRb...
> Thanks
>
> But I want to joint a polyline

Bachir

unread,
Dec 5, 2002, 11:48:17 AM12/5/02
to
All polylines are in drawing, I want to make a batch for joint polyline.

Thanks for your attention

"Sean Bartleet" <sea...@yahoo.com> a écrit dans le message de news:
75411990A0045B64...@in.WebX.maYIadrTaRb...

TomD

unread,
Dec 5, 2002, 12:20:47 PM12/5/02
to
If you have the Bonus/ExpressTools, try using the SendCommand method with
appropriate text string calling PLJOIN

"Bachir" <bachir.el-...@cerene.fr> wrote in message

news:C6990C8190B187C9...@in.WebX.maYIadrTaRb...

Laurie Comerford

unread,
Dec 5, 2002, 2:34:44 PM12/5/02
to
Hi,

> But I want to joint a polyline !!!! Could you Hash it ?
>

--


Laurie Comerford
CADApps
www.cadapps.com.au

"Bachir" <bachir.el-...@cerene.fr> wrote in message

news:17372E797AEB2045...@in.WebX.maYIadrTaRb...
> Thanks
>
> "Mark_Abercrombie" <r23...@email.sps.mot.com> a écrit dans le message de
news: f129...@WebX.maYIadrTaRb...
> Get a reference to the polyline object then modify it's properties.
>
>
> Public Sub EditPolyline()
> Dim Entity As AcadEntity
> Dim PlineObj As AcadLWPolyline For Each Entity In
ThisDrawing.ModelSpace
> If TypeOf Entity Is AcadLWPolyline Then
> Set PlineObj = Entity
> PlineObj.ConstantWidth = 0.125
> PlineObj.Layer = "GEOMETRY"
> End If
> Next Entity
> End Sub
>


Aaron Rumple

unread,
Dec 5, 2002, 10:35:11 PM12/5/02
to
Express Tools? Why bother? This is a standard feature of the 2002 Pedit
command....
Pedit
Multiple
Select all...
No to lines, arc etc to pline.
Join
Fuzz Disance = 0"
Done

"TomD" <dcbne...@nospam.stargate.net> wrote in message
news:0D79F20030C41017...@in.WebX.maYIadrTaRb...

TomD

unread,
Dec 6, 2002, 9:27:25 AM12/6/02
to
Sorry..................using 2000i, here. I wasn't aware that Adesk
actually included functional improvements in 2K2. ;)

Thanks for setting me straight.

"Aaron Rumple" <aaron...@hotmail.com> wrote in message
news:E8613F768FB836E4...@in.WebX.maYIadrTaRb...

0 new messages