Topic: Locked layer causes interface IAcadSelectionSet error

[sovby]

I have a routine that changes some colors on some entities and wblocks them out using a window selection. I found out that if there is a locked layer in the selection set i get this message.

** Error: Automation Error. Calling method Clear of interface IAcadSelectionSet failed **
Cannot invoke (command) from *error* without prior call to (*push-error-using-command*).
Converting (command) calls to (command-s) is recommended.

Has anyone had anything similar to this? If i unlock the layer everything is fine so it has something to do with the locked layer as far as i can tell

[jtoverka]

What method are you using to change the colors?
Commands?
entmod?
vl-put-?

[sovby]

Code - Auto/Visual Lisp: [Select]

1. (cond (ss
2.             (setq ass (vla-get-activeselectionset cdoc)
3.                   dfile (strcat (getvar 'dwgprefix) dnme ".dwg")
4.             );end_setq
5.             (vlax-for itm ass (vlax-put itm 'color 7))
6.             (vlax-invoke cdoc 'wblock dfile ass)
7.             (setq dcnt (1+ dcnt) dnme (strcat dnme (itoa dcnt)))
8.           )
9.           (t (alert "Nothing Selected"))
10.     )

EDIT (John): Added code tags.

[jtoverka]

So I tried this with entmod and no errors are thrown, however, locked layers cannot be modified by any means AFAIK. You will have to unlock the layer within your code prior to modifying it.

Code: [Select]

((lambda ( / ss count i ent et)
  (if (setq ss (cadr (ssgetfirst)))
    (progn
      (setq count (sslength ss))
      (setq i 0)
      (while (< i count)
        (setq ent (ssname ss i))
        (setq et (entget ent))
        (entmod
          (subst
            '(62 . 7)
            (assoc 62 et)
            et
          )
        )
        (entupd ent)
        (setq i (1+ i))
      )
    )
  )
  (princ)
))