亮显对象或选择集

zhl0123321

我来顶一个

成仔

学习下，

成仔

学习下，

cxs259

学习，拜读

qyming

学习代码！！。。。

梦回唐朝

真是好东西呀

xyp1964

2. ;; 亮显选择集或对象
   
3. (defun SsHighlight (ss)
   
4.   (cond ((= (type ss) 'PICKSET)(sssetfirst nil ss))
   
5.         ((= (type ss) 'ENAME)(sssetfirst nil (ssadd ss (ssadd))))
   
6.         ((= (type ss) 'LIST)(foreach a ss (SsHighlight a)))
   
7.   )
   
8. )

;; 亮显选择集或对象<br /> (defun SsHighlight (ss)<br />   (cond ((= (type ss) 'PICKSET)(sssetfirst nil ss))<br />         ((= (type ss) 'ENAME)(sssetfirst nil (ssadd ss (ssadd))))<br />         ((= (type ss) 'LIST)(foreach a ss (SsHighlight a)))<br />   )<br /> )

pimgu

我来顶一个

friendship

谢谢楼主，新年好

机械工程师

看看黄工的新作。