+ Reply to Thread
Results 1 to 1 of 1
  1. #1
    Forum Newbie subdVision's Avatar
    Computer Details
    subdVision's Computer Details
    Operating System:
    Windows 7
    subdVision's Discipline Details
    CAD Technologist, I maintain a map product of existing natural gas systems.
    Map 3D 2015
    Join Date
    Sep 2017

    Question LISP modification request...

    Registered forum members do not see this ad.

    Hi all,

    I came across a LISP routine that freezes the layer of any selected object. It works great but I want it to viewport freeze layers, not freeze for the entire drawing.

    This is where I found it:

    and this is the code I'd like to have modified: (the code wrap button doesn't seem to work)

    (defun c:LFR (/ CLayer$ EntList@ EntName^ Layer$)
    (setq CLayer$ (getvar "CLAYER"))
    (princ "\nSelect object on layer to freeze")
    (if (setq EntName^ (car (entsel)))
    (setq EntList@ (entget EntName^))
    (setq Layer$ (cdr (assoc 8 EntList@)))
    (if (and (= Layer$ CLayer$)(/= Layer$ "0"))
    (command ".LAYER" "T" "0" "U" "0" "ON" "0" "S" "0" "")
    (if (= Layer$ "0")
    (princ "\nCannot freeze layer 0.")
    (command ".LAYER" "F" Layer$ "")
    );defun c:LFR

    I also attached the actual .LSP file to make it easier.
    Attached Files

Similar Threads

  1. Little modification to this Lisp.
    By Saqib_theleo in forum AutoLISP, Visual LISP & DCL
    Replies: 4
    Last Post: 21st Nov 2012, 04:49 pm
  2. add dimensions modification request
    By stlo in forum AutoLISP, Visual LISP & DCL
    Replies: 6
    Last Post: 9th Mar 2012, 06:20 pm
  3. modification of a lisp
    By monk in forum AutoLISP, Visual LISP & DCL
    Replies: 0
    Last Post: 26th Sep 2010, 05:05 pm
  4. lisp modification
    By chelsea1307 in forum AutoLISP, Visual LISP & DCL
    Replies: 6
    Last Post: 24th Apr 2010, 12:50 am

Tags for this Thread


Posting Permissions

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