lambda 也可以这样子用!.LSP
(defun C:TT (/ SS) (princ "/nlambda 也可以这样子用!") (and (setq SS (ssget)) ((lambda (COUNT / E) (while (setq E (ssname SS (setq COUNT (1+ COUNT)))) (vla-put-color (vlax-ename->vla-object E) COUNT) ) ) -1 ) ) (princ) )
(defun C:TT (/ SS) (princ "/nlambda 也可以这样子用!") (and (setq SS (ssget)) ((lambda (COUNT / E) (while (setq E (ssname SS (setq COUNT (1+ COUNT)))) (vla-put-color (vlax-ename->vla-object E) COUNT) ) ) -1 ) ) (princ) )