home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / GR / GR505.ZIP / LSP.EXE / EXT-TR.LSP < prev    next >
Lisp/Scheme  |  1989-09-06  |  1KB  |  37 lines
  1. ;TRIM & EXTEND by X-ING (SIMULATED CROSSING)
  2. ;BY Michael Trojansky / MEDIFAC ARCHITECTS / 1988
  3.  
  4. ;ADD THIS ROUTINE TO YOUR ACAD.LSP FILE
  5. ;ADD " (X) " (no quotes) to EXTEND & TRIM SECTIONS
  6. ;of SCREEN MENU or reply (X) to "SELECT OBJECTS TO
  7. ;EXTEND (TRIM)" prompt in EXTEND & TRIM COMMANDS
  8.  
  9. ;KEEP CROSSING BOX NARROW 
  10.  
  11. (defun x (/ fc sc objlis cnt obj stp enp xp xlis)
  12. (prompt "\nSelect objectS by Xrossing...")
  13. (setq fc (getpoint "\nFirst corner :  ")
  14.       sc (getcorner fc "\nSecond corner :  ")
  15.       objlis (ssget "c" fc sc)
  16.       cnt -1
  17.       xlis nil)
  18.    (repeat (sslength objlis)
  19.      (setq obj (entget (ssname objlis (setq cnt (+ 1 cnt)))))
  20.      (setq tst (getp 0 obj))
  21.      (cond ((equal '"LINE" tst)
  22.         (setq stp (getp 10 obj)
  23.               enp (getp 11 obj)
  24.               xp (inters stp enp fc sc)
  25.               xlis (cons xp xlis))
  26.        )
  27.      )
  28.    )
  29.    (repeat (length xlis)
  30.       (setq mm (car xlis) xlis (cdr xlis))
  31.       (command mm)
  32.    )
  33. )
  34. (defun getp (p l)
  35.    (cdr (assoc p l))
  36. )
  37.