带关键字的SSGET终极解决方案

newer · 发表于 2016-9-24 01:48:25

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

2016.0923版本的API终于对带关键字的SSGET提供了“终极”的解决方案。

带关键字的SSGET一直是LISPER想要的东西，但受限于LISP的功能，不管LISP哪种解决方案，都不能把SSGET的选择和GETXXX类的关键字完美的结合。
API由于依托ARX，因此把ARX的acedSSGetKwordPtr()等功能和LISP的使用习惯结合封装起来，带来了API函数 xdrx_initSSGet和xdrx_ssget函数。

如对于GETXXX类的关键字设置需要函数initget一样，xdrx_ssget需要xdrx_initssget 函数预设关键字和其他信息

一、xdrx_initssget函数用法：

(xdrx_initSSGet <"选择对象提示字符串"> ["关键字"] ["移除对象提示字符串"] ["关键字回调函数"] ["非关键字输入回调函数"])
<>之间参数是必选项，[]之间是可选参数。

1、选择对象提示字符串：让SSGET再也不是看着一成不变的 “选择对象：”提示字符串了，可以定制自己的提示字符串。2、关键字：输入的关键字之间空格隔开，不要和SSGET自己的“固定”的关键字冲突，比如W,C,WP,CP等等。
3、移除对象提示字符串：定制自己的在SSGET输入R时候的提示字符串。
4、关键字回调函数：在输入关键字后，激活调用的处理关键字的函数（可选）
5、非关键字回调函数：输入非关键字时候，调用的处理函数（可选）

API有两套方案处理关键字：

1、给回调函数参数：
特点，不中断SSGET的情况下，回调函数处理关键字后需要处理的函数完成需要的工作。回调函数执行完，继续SSGET的进程。
2、不给回调函数：
特点，如同我们习惯的GETXXX类函数的关键字处理方式，在给关键字参数情况下，如果不给回调函数参数或者回调函数给“”，那么在输入关键字的时候，结束SSGET，返回字符串给LISP。

二、选择集函数xdrx_ssget,参数如同普通的SSGET函数参数一样。

下面给两套处理关键字的示例程序：

1、xdrx_initSSGet里面，给关键字和回调函数参数，不中断SSGET的情况下，处理关键字，输入偏移多段线的距离。

(defun c:tt()
(xdrx_begin)
(if (not #wid)
(setq #wid 10)
)
(xdrx_initssget "选取要偏移的曲线[设置(XL)]<退出>:" ;;选取对象提示字符串
"XL" ;;关键字
"" ;;移除对象提示字符串
"_callback" ;;关键字回调函数
"_callback1" ;;非关键字回调函数
)
(defun _callback(kword)
(princ (strcat "\n选择了关键字: " kword))
(if (= kword "XL")
(if (setq wid (getreal (xdrx_prompt "\n请输入偏移距离<" #wid ">:" t)))
(setq #wid wid)
)
)
(princ)
)
(defun _callback1(kword)
(princ)
)
(if (setq ss (xdrx_ssget '((0 . "LWPOLYLINE")(-4 . "&=")(70 . 1))))
(progn
(xdrx_curve_getoffsetcurves ss #wid)
)
)
(xdrx_end)
(princ)
)

2、同普通GETXXX类函数处理关键字一样的代码结构，根据返回的关键字进行处理（期间中断SSGET）

(defun c:tt ()
(xdrx_begin)
(if (not #wid)
(setq #wid 10)
)
(setq tf t)
(while (and
tf
(xdrx_initssget "选取要偏移的曲线[设置(XL)]<退出>:" "XL" "" "" "")
(setq ss (xdrx_ssget))
)
(setq tf1 (type ss))
(cond
((= tf1 'STR)
(if (= ss "XL")
(if (setq wid (getreal (xdrx_prompt "\n请输入偏移距离<" #wid
">:" t
)
)
)
(setq #wid wid)
)
)
)
((= tf1 'PICKSET)
(xdrx_curve_getoffsetcurves ss #wid)
(setq tf nil)
)
)
)
(xdrx_end)
(princ)
)

带关键字的SSGET终极解决方案

xdrx_ssget把关键字处理和SSGET操作完美的结合起来，处理关键字的基础上，完全的实现了SSGET的功能。

newer · 发表于 2016-9-24 17:00:15

本帖最后由 newer 于 2016-9-24 17:03 编辑

liuyj 发表于 2016-9-24 16:20

其实，把上面第二种方案改写成这样：

(defun c:tt ()
(defun _getdist ()
(if (setq wid (getreal (xdrx_prompt
"\n请输入偏移距离<"
#wid
">:"
t
)
)
)
(setq #wid wid)
)
)
(xdrx_begin)
(if (not #wid)
(setq #wid 10)
)
(setq tf t)
(while (and
tf
(xdrx_initssget
"选取要偏移的曲线[设置(XL)]<退出>:"
"XL" ""
"" ""
)
(setq ss (xdrx_ssget))
)
(setq tf1 (type ss))
(cond
((= tf1 'STR)
(if (= ss "XL")
(_getdist)
;; 调用函数（是不是就相当于第一种方案的回调函数了？）
)
)
((= tf1 'PICKSET)
(xdrx_curve_getoffsetcurves ss #wid)
(setq tf nil)
)
)
)
(xdrx_end)
(princ)
)

(defun c:tt () 
  (defun _getdist () 
    (if        (setq wid (getreal (xdrx_prompt 
                             "\n请输入偏移距离<" 
                             #wid 
                             ">:" 
                             t 
                           ) 
                  ) 
        ) 
      (setq #wid wid) 
    ) 
  ) 
  (xdrx_begin) 
  (if (not #wid) 
    (setq #wid 10) 
  ) 
  (setq tf t) 
  (while (and 
           tf 
           (xdrx_initssget 
             "选取要偏移的曲线[设置(XL)]<退出>:" 
             "XL"                     "" 
             ""                             "" 
            ) 
           (setq ss (xdrx_ssget)) 
         ) 
    (setq tf1 (type ss)) 
    (cond 
      ((= tf1 'STR) 
       (if (= ss "XL") 
         (_getdist) 
         ;; 调用函数（是不是就相当于第一种方案的回调函数了？） 
       ) 
      ) 
      ((= tf1 'PICKSET) 
       (xdrx_curve_getoffsetcurves ss #wid) 
       (setq tf nil) 
      ) 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

再和第一种方案比较，第一种方案就是把函数 _getdist() 放入 xdrx_initssget里面声明了，判断是否输入关键字和处理都在xdrx_ssget内部处理了，不中断ssget的过程，代码更简短（没有WHILE循环和COND判断关键字），效率也更高了。

可以省去上面代码：

(cond
((= tf1 'STR)
(if (= ss "XL")
(_getdist)
;; 调用函数（是不是就相当于第一种方案的回调函数了？）
)
)
((= tf1 'PICKSET)
(xdrx_curve_getoffsetcurves ss #wid)
(setq tf nil)
)
)

的部分。

(if (setq ss (xdrx_ssget '((0 . "LWPOLYLINE")(-4 . "&=")(70 . 1))))
(progn
(xdrx_curve_getoffsetcurves ss #wid)
)
)

相当于

(while (and
tf
(xdrx_initssget
"选取要偏移的曲线[设置(XL)]<退出>:"
"XL" ""
"" ""
)
(setq ss (xdrx_ssget))
)
(setq tf1 (type ss))
(cond
((= tf1 'STR)
(if (= ss "XL")
(_getdist)
;; 调用函数（是不是就相当于第一种方案的回调函数了？）
)
)
((= tf1 'PICKSET)
(xdrx_curve_getoffsetcurves ss #wid)
(setq tf nil)
)
)
)

liuyj · 发表于 2016-9-24 16:20:38

我还是喜欢第二种，回调的用法怎么也不习惯

liuyj · 发表于 2016-9-24 20:13:28

多谢N版，这说明够细致的，我好好看看。

liuyj · 发表于 2016-9-24 20:17:21

如果设置了关键字回调函数，是不是必须写非关键字回调函数？哪怕不需要做任何事，也不能像第二种写法一样只给个""？

newer · 发表于 2016-9-24 20:28:34

liuyj 发表于 2016-9-24 20:17

1、只有选择提示字符串是必须有的，其他都可选
2、如果给了关键字，也给了回调函数，那么就是第一种方案
3、如果给了关键字，不给关键字回调函数，是第二种方案，
4、非关键字回调函数无关紧要，给不给都不影响。这个是为了适合ARX功能的扩展，目前永远不给或者给"" 都行。

褪去的记忆 · 发表于 2016-9-25 10:32:58

熟悉的配方

守仁格竹GM · 发表于 2016-9-26 08:38:36

liuyj · 发表于 2016-9-26 16:50:06

用了一下，对关键字有限制，如"A" "W" "R"等，都不可作为关键字，initget没有这个限制

newer · 发表于 2016-9-26 16:54:16

liuyj 发表于 2016-9-26 16:50

SSGET 自己的那些关键字，你是不能和他们冲突的，不能改变他们，他们是保留的关键字，如果 A,R,ALL,C，CP,W,WP,F .......
initget之所以可以，是因为这些关键字在那个场合没用到。

newer · 发表于 2016-9-26 16:55:22

liuyj 发表于 2016-9-26 16:50

把你写的测试的代码贴论坛来吧。

liuyj · 发表于 2016-9-26 17:08:45

还有"L""C""P"，基本上预设的关键字都不行

liuyj · 发表于 2016-9-26 17:11:26

(xdrx_initget "K H R Z A")
   (xdrx_initssget
"\n{K}风量复制 / {H}最大高度 / {R}宽高比 / {Z}风量逐段求和 / {A}自动计算 / 选择要计算尺寸的风管管段:"
"K H R Z A" "" "" "")
   (setq ss
      (xdrx_ssget ":L" (list (cons 0 "LINE,ARC") (cons 8 fg_lst)))
   )

lisp_beginner · 发表于 2016-9-26 17:20:41

liuyj 发表于 2016-9-26 17:11

总看到有人用 :L ,这个是什么作用呢？

liuyj · 发表于 2016-9-26 20:05:35

能不能加个强制返回任何键的开关？有时候用预设的关键字好记

账号		自动登录	找回密码
密码			立即注册

[教学] 带关键字的SSGET终极解决方案

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。