xdrx_initgetss用法

brainstorm

如下，当按下M键时应该回调函数setprecision,设b值为1000，可是查看后b仍为nil
是我的用法不对么

1. (defun c:tt ()
   
2.   (vl-acad-defun 'setprecision)
   
3.   (defun setprecision ()
   
4.     (setq b 1000)
   
5.     (princ "\nthis is test")
   
6.   )
   
7.   (xdrx_initget "m")
   
8.   (xdrx_initSSGet
   
9.     "选择曲线[改精度(s)]" "m" "remove object" "setprecision" "")
   
10.   (setq ss (xdrx_ssget))
    
11. )
    

(defun c:tt ()<br />   (vl-acad-defun 'setprecision)<br />   (defun setprecision ()<br />     (setq b 1000)<br />     (princ "\nthis is test")<br />   )<br />   (xdrx_initget "m")<br />   (xdrx_initSSGet<br />     "选择曲线[改精度(s)]" "m" "remove object" "setprecision" "")<br />   (setq ss (xdrx_ssget))<br /> )<br />

newer

SSGET保留的关键字是不能做 initssget的关键字的。

brainstorm

明白了
另外(xdrx_setsstodb (ssget) 0)后如何清空0重新设置

newer

brainstorm 发表于 2017-8-19 22:17

不用清，需要在用0就行，API自动释放之前的选择集

(xdrx_setsstodb ss 0)

pxt2015

SSGET保留的关键字，很多。这样initssget的关键字，可选择的字母，少了很多。有时候不方便记忆。例如：[全选（A）]，用A作为关键字比较方便，但是冲突了，实在可惜

newer

pxt2015 发表于 2017-8-25 00:21

这是符合逻辑的，不能让SSGET本身的关键字没用啊。

不过你说的，和这个无关， 一键回车和关键字不冲突，本来SSGET的A就是全选。

你想要的是一键回车吧？

你用 (xdrx_initget "A")

你用SSGET的时候，输入A时候就自动回车了。

newer

pxt2015 发表于 2017-8-25 00:21

你理会错了，SSGET自身的关键字不设也是一样保留用的。

xdrx_ssget就是ssget, 只不过可以处理额外的xdrx_initssget设置的关键字和修改提示选择对象的字符串，可以不再是默认的"选择对象:"

pxt2015

例如下面的代码，A L R三个关键字，方便记忆，但是不能用。很多情况下(例如下面这段代码)，ssget不需要用到“A L R三个关键字”呀
(defun c:t ()
  ;;============================== begin while is
  (setq is t)
  (while is
    (setq note (strcat
                 "\n图层上的对象[全部(A)/设置(S)/梁线(L)/人防(R)] <A>:,"
                 "测试关键字[关键字(A-Z)] <退出>:"
               )
    )
    ;;*******************************   
    ;;不能使用的关键字 A C F G L M P R U W
    (Xdrx_initget "A B C D E F G H I J K L M N O P Q R S T U V W X Y Z")
    (Xdrx_initssget Note "A B C D E F G H I J K L M N O P Q R S T U V W X Y Z" "" "" "")
    (Setq Ss (Xdrx_ssget))
    (if        (not ss)
      (SETQ is NIL)
    )
    (princ ss)
    ;;*******************************
    ;|
    (cond
      ((null ss) (SETQ is NIL))
      ((= "H" SS) (setq is_hx_t1 (not is_hx_t1)))
      (T
       (setq is nil)
       (progn
         (princ)
       )
      ) ;_T
    ) ;_COND
    ;;|;
  )
  ;;============================== end while is
)

newer

pxt2015 发表于 2017-8-25 13:51

A L R 怎么就不能用了？ 你设置不设置外部关键字，xdrx_ssget， A,L,R都正常用。

命令: tt
选择玩耍的伙伴[演示(Z)/抛弃(R)]:r
你要把我无情的抛弃吗？a
选择玩耍的伙伴[演示(Z)/抛弃(R)]:


你还是没有理解

比如R本身就是SSGET的关键字，你输入R，SSGET就问你 移除对象。不是关键字，就不会接受你输入R，你输入Z试试。

1. 
   
2. 命令: (ssget)
   
3. 选择对象: z
   
4. *无效选择*
   
5. 需要点或窗口(W)/上一个(L)/窗交(C)/框(BOX)/全部(ALL)/栏选(F)/圈围(WP)/圈交(CP)/编组(G)/添加(A)/删除(R)/多个(M
   
6. )/前一个(P)/放弃(U)/自动(AU)/单个(SI)
   
7. 
   

复制代码

Z不是关键字时候的提示。

1.
你把R写到提示符里面，只是告诉用户R的作用，和设不设R为关键字没关系。

1. (xdrx_initssget "\n选择要玩耍的对象[无情抛弃(R)]:")
   
2. (setq ss (xdrx_ssget))
   

(xdrx_initssget "\n选择要玩耍的对象[无情抛弃(R)]:")<br /> (setq ss (xdrx_ssget))<br />

上面没设关键字，但是R还是起作用，因为xdrx_ssget 调用的就是SSGET.

测试结果：

2. 
   
3. 命令: (xdrx_initssget "\n选择要玩耍的对象[无情抛弃(R)]:")
   
4. T
   
5. 
   
6. 命令: (setq ss (xdrx_ssget))
   
7. 选择要玩耍的对象[无情抛弃(R)]:指定对角点: 找到 2 个
   
8. 选择要玩耍的对象[无情抛弃(R)]:r
   
9. 移除对象: 找到 1 个，删除 1 个，总计 1 个
   
10. 移除对象: a
    
11. 选择要玩耍的对象[无情抛弃(R)]:
    
12. <Selection set: 92>
    
13. 
    

<br /> 命令: (xdrx_initssget "\n选择要玩耍的对象[无情抛弃(R)]:")<br /> T<br /> <br /> 命令: (setq ss (xdrx_ssget))<br /> 选择要玩耍的对象[无情抛弃(R)]:指定对角点: 找到 2 个<br /> 选择要玩耍的对象[无情抛弃(R)]:r<br /> 移除对象: 找到 1 个，删除 1 个，总计 1 个<br /> 移除对象: a<br /> 选择要玩耍的对象[无情抛弃(R)]:<br /> <Selection set: 92><br /> <br />

2. xdrx_initssget设置关键字（除去SSGET内部使用的）的目的，是让你比如输入Z，SSGET响应并去执行Z关键字对应的回调函数。
内部的关键字SSGET处理，外部的关键字，你的回调函数处理。


下面是测试代码，关键字里面并没有设置R，但是R还是一样起作用（它是内部关键字），Z是外部关键字

1. (defun c:tt ()
   
2.   (defun callback (key)
   
3.     (cond ((= key "Z")
   
4.            (princ "\n--->你输入了Z")
   
5.            (princ "\n你想让我为你做什么呢？")
   
6.            (princ "\n")
   
7.           )
   
8.           ((= key "A") (princ "\n能看到小A吗？")) ;;即使设置了A，也不会进到这里来
   
9.     )
   
10.     (princ)
    
11.   )
    
12.   (xdrx_initssget
    
13.     "选择玩耍的伙伴[演示(Z)/抛弃(R)]:"
    
14.     "Z A L"                         "你要把我无情的抛弃吗？"
    
15.     "callback"                         ""
    
16.    )
    
17.   (if (setq ss (xdrx_ssget))
    
18.     (progn (princ "\n执行了ssget"))
    
19.   )
    
20.   (princ)
    
21. )
    
22. 
    

(defun c:tt ()<br />   (defun callback (key)<br />     (cond ((= key "Z")<br />            (princ "\n--->你输入了Z")<br />            (princ "\n你想让我为你做什么呢？")<br />            (princ "\n")<br />           )<br />           ((= key "A") (princ "\n能看到小A吗？")) ;;即使设置了A，也不会进到这里来<br />     )<br />     (princ)<br />   )<br />   (xdrx_initssget<br />     "选择玩耍的伙伴[演示(Z)/抛弃(R)]:"<br />     "Z A L"                         "你要把我无情的抛弃吗？"<br />     "callback"                         ""<br />    )<br />   (if (setq ss (xdrx_ssget))<br />     (progn (princ "\n执行了ssget"))<br />   )<br />   (princ)<br /> )<br /> <br />

命令: tt
选择玩耍的伙伴[演示(Z)/抛弃(R)]:z

--->你输入了Z
你想让我为你做什么呢？

选择玩耍的伙伴[演示(Z)/抛弃(R)]:r

你要把我无情的抛弃吗？找到 1 个

你要把我无情的抛弃吗？找到 1 个，总计 0 个

你要把我无情的抛弃吗？

只有外部的关键字，回调函数才会得到并处理，内部的关键字你即使设置到xdrx_initssget里面，回调里面也不处理，ssget处理。你试试上面的代码，设置了关键字A，但是不会进到回调函数里面。SSGET自身去执行A的操作。

newer

pxt2015 发表于 2017-8-25 13:51

还有一个，SSGET 输入 A ,不是代表全部，是对应R，是添加，R是移除。
ALL才是全部。

你自己执行下 (ssget)，你看看输入a时候提示你是什么，（你要在输入R后，输入A才能看到效果）

所以你的代码，不能告诉用户输入 A是全部，应该是 ALL(全部）

pxt2015

版主讲得很透彻，学习了。

pxt2015

(DEFUN C:T ()
  ;;ssget内部关键字 A C F G L M P R U W
  (Xdrx_initssget
    "测试关键字，输入A-Z:"
    "A B C D E F G H I J K L M N O P Q R S T U V W X Y Z"
    ""
    ""
    ""
   )
  (Setq Ss (Xdrx_ssget '((0 . "Text"))))
)

Xdrx_initssget 能否临时借用下"ssget内部的关键字"，例如A C F G L M P R U W，让ss能够返回上述关键字？如果借用了，ssget临时不用“已经被借用的关键字”。况且也比较少用。