Results 1 to 2 of 2

Thread: LOOKING FOR A LISP ROUTINE

  1. #1
    Member
    Join Date
    2011-03
    Posts
    7


    Default LOOKING FOR A LISP ROUTINE

    Hi, so in a drawing where it shows you what color you are using along with linetype and weight. I am looking for a lisp or macro that would set them all back to "by layer" at one time.

    Thanks
    Tony

  2. #2
    AUGI Addict
    Join Date
    2015-10
    Location
    Tallahassee, FL
    Posts
    2,483


    Default Re: LOOKING FOR A LISP ROUTINE

    Why not use the SETBYLAYER command?

    - - - Updated - - -

    Old lisp by one of our more prominent AUGI members:
    Code:
    ; Written By: Peter Jamtgaard 2002; This program will prompt the user to ceate a selection set. 
    ; All objects in the selection set will have their color 
    ; and linetype properties set to bylayer.
    
    
    (defun C:ByLayer (/ CNT EOBJ SSET)
     (princ "Select Entities to change")
     (setq SSET (ssget)
           CNT  0
     )
     (repeat (sslength SSET)
      (setq ENAM (ssname SSET CNT)
            CNT  (1+ CNT)
            EOBJ (vlax-ename->vla-object ENAM)
      )
      (vl-catch-all-apply 
       'vla-put-color 
       (list EOBJ 256)
      )
      (vl-catch-all-apply
       'vla-put-linetype 
       (list EOBJ "Bylayer")
      )
      (vl-catch-all-apply
       'vla-put-Lineweight 
       (list EOBJ -1)
      )
      (vl-catch-all-apply
       'vla-put-PlotStyleName 
       (list EOBJ "Bylayer")
      )
     )
    )
    Tom Beauford P.S.M. - Civil 2018 on Windows 10 Enterprise
    Design Analysis - Leon County Public Works/Engineering
    2280 Miccosukee Rd. Tallahassee, FL 32308-5310
    Ph# (850)606-1516 Home Page

Similar Threads

  1. Calling up LISP routine from within another LISP
    By jimmy_goodall in forum AutoLISP
    Replies: 4
    Last Post: 2013-08-21, 05:56 AM
  2. NEED HELP WITH LISP ROUTINE - PURGE linetype lisp
    By ECASAOL350033 in forum AutoLISP
    Replies: 6
    Last Post: 2013-06-21, 01:13 AM
  3. Help with a lisp routine to add a 12" line to this routine
    By Orbytal.edge341183 in forum AutoLISP
    Replies: 3
    Last Post: 2012-11-14, 10:33 PM
  4. Combine three lisp routine into one routine.
    By BrianTFC in forum AutoLISP
    Replies: 1
    Last Post: 2012-02-08, 12:14 PM
  5. Replies: 9
    Last Post: 2012-01-21, 07:58 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •