我来顶一个
学习下,
学习下,
学习,拜读
学习代码!!。。。
真是好东西呀
;; 亮显选择集或对象
(defun SsHighlight (ss)
(cond ((= (type ss) 'PICKSET)(sssetfirst nil ss))
((= (type ss) 'ENAME)(sssetfirst nil (ssadd ss (ssadd))))
((= (type ss) 'LIST)(foreach a ss (SsHighlight a)))
)
)
我来顶一个
谢谢楼主,新年好
看看黄工的新作。