Topic: SSGET modifies the color of the primitives in the group

[well20152016]

SSGET modifies the color of the primitives in the group

[well20152016]

This is the wrong answer.

(DEFUN C:TT()
  (SETQ SS (SSGET) N 0)
    (repeat (sslength ss)
     (setq e (ssname ss n)
            n  (1+ n))
      (setq en (vlax-ename->vla-object e))
(vla-put-Color EN 6)  ))

[ronjonp]

Maybe the correct answer?

Code - Auto/Visual Lisp: [Select]

1. (defun c:tt (/ e en n ss)
2.   (setvar 'pickstyle 0)
3.   (setq ss (ssget)
4.         n  0
5.   )
6.   (repeat (sslength ss)
7.     (setq e (vlax-ename->vla-object (ssname ss n))
8.           n (1+ n)
9.     )
10.     (vla-put-color e 6)
11.   )
12.   (setvar 'pickstyle 1)
13. )

[well20152016]

ronjonp,thank!

[ronjonp]

You're welcome