亮显选择集

/db_自贡黄明儒_

以往我常使用如下程序来亮显选择集，看起来程序也没白毛病，今天费了好大劲才发现在其它程序中调用它出现的问题。是时候抛弃它了，

2. (defun ayEntSSHighLight        (SSorEntName / oldGrips)
   
3.   (setq oldGrips (getvar "Grips"))
   
4.   (setvar "Grips" 0)
   
5.   (cond        ((= (type SSorEntName) 'PICKSET)                    ; 选择集.
   
6.          (sssetfirst nil SSorEntName)
   
7.         )                                                    ; end_switch
   
8.         ((= (type SSorEntName) 'ENAME)                            ; 单一实体.
   
9.          (sssetfirst nil (ssadd SSorEntName (ssadd)))
   
10.         )                                                    ; end_switch
    
11.   )                                                            ; end_cond
    
12.   (setvar "Grips" oldGrips)
    
13. )

(defun ayEntSSHighLight        (SSorEntName / oldGrips)<br />   (setq oldGrips (getvar "Grips"))<br />   (setvar "Grips" 0)<br />   (cond        ((= (type SSorEntName) 'PICKSET)                    ; 选择集.<br />          (sssetfirst nil SSorEntName)<br />         )                                                    ; end_switch<br />         ((= (type SSorEntName) 'ENAME)                            ; 单一实体.<br />          (sssetfirst nil (ssadd SSorEntName (ssadd)))<br />         )                                                    ; end_switch<br />   )                                                            ; end_cond<br />   (setvar "Grips" oldGrips)<br /> )

wxb19880825

自己开发的吗？这是有多难受直接放弃

newer

出现什么问题了？

/db_自贡黄明儒_

newer 发表于 2020-7-17 09:40
出现什么问题了？

用了它，程序就不能正常运行。

845245015

遇见大神麻烦问一下，如何通过点选把通过直线或Pline线连起来的块构成选择集

/db_自贡黄明儒_

845245015 发表于 2020-7-17 12:48
遇见大神麻烦问一下，如何通过点选把通过直线或Pline线连起来的块构成选择集

找找我的贴子吧，这个问题我也问过，G版回答得最好。

845245015

/db_自贡黄明儒_ 发表于 2020-7-17 14:06
找找我的贴子吧，这个问题我也问过，G版回答得最好。

找不到，您的帖子都是空的

huangpc27

还没用过呢，就抛弃了。

tzfcn

为什么要刷新一下才能看到内容？