亮显对象或选择集

自贡黄明儒

今天就写了这点代码，奉献给明经。
还是干活挣钱要紧。
如果觉得缺少了函数，不要发问，谢谢啊！

2. 
   
3. ;; 亮显选择集或对象(夹点不显示) 函数
   
4. (defun ayEntSSHighLight        (SSorEntName / oldGrips)
   
5.   (setq oldGrips (getvar "Grips"))
   
6.   (setvar "Grips" 0)
   
7.   (cond        ((= (type SSorEntName) 'PICKSET)                              
   
8.          (sssetfirst nil SSorEntName)
   
9.         )                                                            
   
10.         ((= (type SSorEntName) 'ENAME)                                    
    
11.          (sssetfirst nil (ssadd SSorEntName (ssadd)))
    
12.         )                                                              
    
13.   )                                                                     
    
14.   (setvar "Grips" oldGrips)
    
15. )
    

<br /> ;; 亮显选择集或对象(夹点不显示) 函数<br /> (defun ayEntSSHighLight        (SSorEntName / oldGrips)<br />   (setq oldGrips (getvar "Grips"))<br />   (setvar "Grips" 0)<br />   (cond        ((= (type SSorEntName) 'PICKSET)                              <br />          (sssetfirst nil SSorEntName)<br />         )                                                             <br />         ((= (type SSorEntName) 'ENAME)                                     <br />          (sssetfirst nil (ssadd SSorEntName (ssadd)))<br />         )                                                              <br />   )                                                                      <br />   (setvar "Grips" oldGrips)<br /> )<br />

(defun HH:ayEntSSHighLight (SSorEntName / oldGrips)
  (defun EntHighLight (e / PTS)
    (setq pts (HH:Ent4pt e T))
    (grvecs (list 1
                  (car pts)
                  (cadr pts)
                  1
                  (cadr pts)
                  (caddr pts)
                  1
                  (caddr pts)
                  (cadddr pts)
                  1
                  (cadddr pts)
                  (car pts)
            )
    )
  )
  (cond        ((= (type SSorEntName) 'PICKSET)
         (repeat (setq n (sslength SSorEntName))
           (EntHighLight (ssname SSorEntName (setq n (1- n))))
         )
        )
        ((= (type SSorEntName) 'ENAME)
         (EntHighLight SSorEntName)
        )
  )
)
;; 亮显选择集或对象(夹点不显示) 函数

zzyong00

回复看看隐藏了什么

zmzk

请问下，这函数怎么用啊？有实例么？？

FANGZHENG158

学习一下            

杜阳

拜读了    支持

sachindkini

dear sir,

cooollllllllllllllllllllll

hao3ren

黄总要学会不干活还能挣钱

sqqr

我来顶一个

天青色

学习下，

自贡黄明儒

hao3ren 发表于 2014-2-14 18:08
黄总要学会不干活还能挣钱

什么时候我给你打工呀？

zmx6189

学习一下