[讨论]：透明程序在透明调用时，如何向调用命令返回选择集

netbee

一快速选择的LISP程序，想作为透明程序，使用vlax-remove-cmd添加为透明命令后，在恢复原来的命令后选择集却丢失了。


设置透明命令：

1. 
   
2. (vlax-remove-cmd "QS")
   
3. (vlax-add-cmd "QS" 'C:NBTC_QS "QS" 5)
   

复制代码

程序最后返回选择集变量

2. 
   
3. (if (and (= 1 what_next)
   
4.            (/= "" (getvar "cmdnames"))
   
5.            (/= "QS" (getvar "cmdnames"))
   
6.            ss
   
7.       )                                ;and
   
8.       ss ;_透明调用状态下直接返回选择集变量
   
9.     (progn
   
10.       (if (and (equal (getvar "pickfirst") 1)
    
11.                ss
    
12.                (equal 'PICKSET (type ss))
    
13.           )                                ;and
    
14.         (sssetfirst ss ss)
    
15.       )                                        ;if
    
16.       (princ) ;;;shhhhh
    
17.     )                                        ;progn else
    
18.   )                                        ;if
    

<br /> (if (and (= 1 what_next)<br />            (/= "" (getvar "cmdnames"))<br />            (/= "QS" (getvar "cmdnames"))<br />            ss<br />       )                                ;and<br />       ss ;_透明调用状态下直接返回选择集变量<br />     (progn<br />       (if (and (equal (getvar "pickfirst") 1)<br />                ss<br />                (equal 'PICKSET (type ss))<br />           )                                ;and <br />         (sssetfirst ss ss)<br />       )                                        ;if<br />       (princ) ;;;shhhhh<br />     )                                        ;progn else<br />   )                                        ;if<br />

但到恢复执行原来命令时，选择集就丢失了。在CAD2004以上的'fi就不会出现这种情况：


选择易及其克隆版都不是透明命令。

透明命令中选择对象时有两个大于符，CAD2002 的filter也没有采用透明命令方式，但CAD2004以上的filter都是透明命令了。


运行比较：
我的程序：

1. 
   
2. 命令: m MOVE
   
3. 选择对象: 'qs
   
4. 使用过滤器：((8 . 0))
   
5. >>选择对象: >>指定对角点: 找到 2 个
   
6. 
   
7. >>选择对象:
   
8. 
   
9. 共选中了2个实体。
   
10. 正在恢复执行 MOVE 命令。
    
11. 
    
12. 选择对象:         [color=red][<-这里就为空了，而'fi则能先中2个。][/color]
    

复制代码

选择易：

1. 
   
2. 命令: m MOVE
   
3. 选择对象: 'ss
   
4. 回车两次进入设置~
   
5. 样板物体：
   
6. 选择对象:
   
7. 通过过滤器((-4 . <OR) (8 . 0) (-4 . OR>))选择物体
   
8. 选择对象: 指定对角点: 找到 4 个
   
9. 
   
10. 选择对象:
    
11. 选择到4个符合条件的实体.
    
12. 
    
13. 选择对象:
    

复制代码

系统filter

1. 
   
2. 命令:  MOVE
   
3. 选择对象: 'fi
   
4. 
   
5. >>选择对象: 将过滤器应用到选择。
   
6. >>选择对象: >>指定对角点: 找到 5 个
   
7. 已滤除 4 个。
   
8. 
   
9. >>选择对象:
   
10. 退出过滤出的选择。
    
11. 正在恢复执行 MOVE 命令。
    
12. 
    
13. 选择对象: 找到 1 个       [color=red][成功][/color]
    
14. 
    
15. 选择对象:
    
16. 指定基点或位移:
    

复制代码

小菜

我不大明白楼上的意思，试了一下，似乎没什么区别，测试过程如下：(用vlax-add-cmd 添加的命令似乎有问题，不能返回选择集)

Command: move

Select objects: 'filter

Select object:
Applying filter to selection.
Select objects: Specify opposite corner: 1 found

Select objects:

Exiting filtered selection.  <Selection set: 1b>
1 found

Select objects:
Specify base point or displacement: Specify second point of displacement or
<use first point as displacement>:
;;-------------------------------------------------------
;;-------------------------------------------------------
Command:
Command: move

Select objects: 'ss

请选择样板实体(N-关闭块属性显示,当前状态：打开):
使用过滤器：((-4 . <OR) (8 . _消防控制) (-4 . OR>) (-4 . <OR) (0 . LINE) (-4 .
OR>))
Select objects: Specify opposite corner: 1 found

Select objects:

共选中了1个实体。<Selection set: 1d>
1 found

Select objects:
Specify base point or displacement: Specify second point of displacement or
<use first point as displacement>:

aeo

命令中 比如move 不注册反而行

小菜

不知道select或者pselect命令有没有lisp写法，要是有个vla-add-activeselectionset之类的方法多好啊
要是能把ss选择集置为当前选择集，就搞定了

netbee

呵呵，就是。
直正添加为透明命令反而不能返回选择集了！
但'fi却能返回，真不知道它是如何实现的。

小菜

filter是内部命令，可能是ARX写的，学不来的