Lisp question...where to add these lines

[d_m_hopper]

Here is what I want to add...will combine lines later

(progn (command "_.layer" "_t" "insert" "_s" "insert" "")
(progn (command "_.layer" "_t" "cpwp" "_s" "cpwp" "")  
(progn (command "_.layer" "_t" "cpdp" "_s" "cpdp" "")

I also want to freeze the layers not listed but I get tons of different ones from architects do I use "*" for that?

I want to add above text to this, at the end

(defun C:cpdp (/ entselection ;entity name of selection
int count ;iteration counter for selection set
objselection ;visual lisp activex object
ssSelections ;selection set of entities
)
  (setq old-Cmdecho (getvar "cmdecho"))
  (setvar "cmdecho" 0)
(vl-load-com)
(princ "nPick objects to be changed to layer cpdp: ")
(if (setq ssSelections (ssget))
(repeat (setq intcount (sslength ssSelections))
(setq intcount (- intcount 1)
entselection (ssname ssSelections intcount)
objselection (vlax-ename->vla-object entselection)
)
        (if (tblsearch "layer" "cpdp") ;; if layer is there then just put selected objects on that layer
	  (progn
          ;(command "-layer" "s" "0" "")
	  (vla-put-layer objselection "cpdp")
	  );; end of progn
          (progn
	  (command "-layer" "m" "cpdp" "c" "red" "cpdp" "p" "n" "cpdp" "");; if layer is not there make that layer and put selected objects on the layer
          ;(command "-layer" "s" "0" "")
	  (vla-put-layer objselection "cpdp")
          );; end of progn
        );;end of if
)
)
    (setvar "cmdecho" old-Cmdecho)
)

suggestions?

[rkmcswain]

You don't need the (progn) function.

I also condensed the three lines into one.

Starting near the end of your lisp file

	)
	;; end of progn
      )
      ;;end of if
    )
    (command "_.layer" "_t" "insert,cpwp,cpdp" "_s" "cpdp" "")
  )
  (setvar "cmdecho" old-Cmdecho)
)

As far as wildcards, yes * is the wildcard for everything. If you say freeze * , then you are trying to freeze every layer (which you cannot do - the current layer cannot be frozen).

But you can use wildcards to freeze groups of layers like *TOP* - which will freeze all layers that contain the string "top"

[d_m_hopper]

so I should then freeze the layers I need cpwp, insert and cpdp and erase what is left

then use my layer state 'thaw all layers' to show what i need to wblock

thanks for the help

[d_m_hopper]

so I added the layers to freeze and the layers to thaw, but the only thing that happens is the selected objects turn to layer cpdp like they should

no layers freeze or thaw afterwards, I don't know enough to find my mistake

(defun C:clean (/ entselection ;entity name of selection
int count ;iteration counter for selection set
objselection ;visual lisp activex object
ssSelections ;selection set of entities
)
  (setq old-Cmdecho (getvar "cmdecho"))
  (setvar "cmdecho" 0)
(vl-load-com)
(princ "nPick objects to be changed to layer cpdp: ")
(if (setq ssSelections (ssget))
(repeat (setq intcount (sslength ssSelections))
(setq intcount (- intcount 1)
entselection (ssname ssSelections intcount)
objselection (vlax-ename->vla-object entselection)
)
        (if (tblsearch "layer" "cpdp") ;; if layer is there then just put selected objects on that layer
	  (progn
          ;(command "-layer" "s" "0" "")
	  (vla-put-layer objselection "cpdp")
	  );; end of progn
          (progn
	  (command "-layer" "m" "cpdp" "c" "red" "cpdp" "p" "n" "cpdp" "");; if layer is not there make that layer and put selected objects on the layer
          ;(command "-layer" "s" "0" "")
	  (vla-put-layer objselection "cpdp")
          )
	;; end of progn
      )
      ;;end of if
    )
    (command "_.layer" "_f" "insert,cpwp,cpdp" "_s" "0,*1*,*2*,3sd,4ld,*8X11*,*AP*,ATLGC,AXTRC,*B*,*CH*,CLGHT,*CO*,*CPS*,CXTRC,*D*,*E*,*F*,*G*,IXTRC,*J*,*K*,*L*,*M*,*N*,*O*,*P*,*R*,*S*,*T*,VIEWPORT,*W*,*X*,ZXTRC" "")
  )
  (setvar "cmdecho" old-Cmdecho)
)

[kennet.sjoberg]

. . .no layers freeze or thaw afterwards, I don't know enough to find my mistake

If one layer doesn’t exist it will error out the layer freeze command.

: ) Happy Computing !

kennet