🚀 go-pugleaf

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