🚀 go-pugleaf

or you can use fence.

after you have selected the cutting adge and are about to select the objects
that are to be trimmed, type f and return.  you will enter the fence
command.  then select two points that will have a line through all of the
parts of the vectors to be trimmed.

have fun
chris




David R wrote in message ...
>Try this:
>
>(DEFUN C:TRC (/ BE SS LS NO P1 P1)
> (setvar "CMDECHO" 0)
> (prompt "Select boundary edge(s)...")
> (terpri)
> (setq BE (ssget))
> (terpri)
> (prompt "Select objects to trim via crossing window...")
> (terpri)
> (setq P1 (getpoint "1st Point:"))
> (terpri)
> (setq P2 (getcorner P1 "2nd Point:"))
> (terpri)
> (setq SS (ssget "C" P1 P2)
>       LS (sslength SS)
>       NO -1
> )
> (COMMAND "TRIM" BE "")
> (repeat LS
>  (setq NO (1+ NO))
>  (COMMAND (list (ssname SS NO) P2))
> )
> (COMMAND "")
> (setvar "CMDECHO" 1)
> (PRINC)
>)
>
>To extend the same way, try this:
>
>(DEFUN C:EXC (/ BE SS LS NO P1 P1)
> (setvar "CMDECHO" 0)
> (prompt "Select boundary edge(s)...")
> (terpri)
> (setq BE (ssget))
> (terpri)
> (prompt "Select objects to extend via crossing window...")
> (terpri)
> (setq P1 (getpoint "1st Point:"))
> (terpri)
> (setq P2 (getcorner P1 "2nd Point:"))
> (terpri)
> (setq SS (ssget "C" P1 P2)
>       LS (sslength SS)
>       NO -1
> )
> (COMMAND "EXTEND" BE "")
> (repeat LS
>  (setq NO (1+ NO))
>  (COMMAND (list (ssname SS NO) P2))
> )
> (COMMAND "")
> (setvar "CMDECHO" 1)
> (PRINC)
>)
>
>On Sat, 24 Jan 1998 00:45:37, Sanju Abraham <sanju@myself.com> wrote:
>
>> Does anyone know of anyway that I can select multiple lines to be
>> trimmed against one cutting edge. For example if there were 50 lines
>> running horizontally  and one line bisecting them vertically and I
>> wanted to trim the 50 lines using the vertical line as a cutting edge,
>> is there any way to select all 50 lines at once. I am using AutoCAD v14
>> VBA version.
>>
>> Thanks for your help.
>> Sanju Abraham
>> sanju@myself.com
>>
>
>To E-Mail me, Ix-nay on the o-nay am-spay