自设ssget关键字提示函数356版--命令行/屏幕提示两个版本

wzg356

hubeiwdlue 发表于 2025-2-25 22:40
比如:S单次框选关键字，又希望带自定义关键字做设置选项。
论坛上的这类函数，好像中望一直不支持，2025 ...

：s意义就是只执行1次选择，自定义关键字执行1次——输入关键字或选择1次。

hubeiwdlue

wzg356 发表于 2025-2-25 22:55
：s意义就是只执行1次选择，自定义关键字执行1次——输入关键字或选择1次。

哦，我知道了，谢谢。

wzg356

ssgetsel修正点选过滤和输出遗漏，两个函数都可以在文字刷工具用。

emk

带提示的ssget比较实用，

wzg356

ssgetpro的3种主要的应用场景代码示例
运行：
(setq  sel '((97 "A")(65 "A")(115 "S")(83 "S")) ;关键字A S --- 查grread简表设置
        fls nil ;过滤表
        msg "选取对象(功能A/功能S)<>:" ;提示        
)
继续分别运行以下为3 种场景示例代码即可理解区别---均为执行1次 如要循环加while就行
返回关键字/选择集/nil
1.实现关键字A S+:S模式---拾取/框选 区分正/反框选
(ssgetpro sel fls msg)
(while (ssgetpro sel fls msg)) ;循环示例,右键/回车/空格结束,以下2例类似

2.实现关键字A S+:E:S模式---拾取
(if(= 'str(type (setq p(grKwordP sel msg 2))))
        p(if p(ssgetpro p fls msg))
)
3.实现关键字A S+1次框选模式---区分正/反框选
(if(= 'str(type (setq p(grKwordP sel msg 2))))
        p(if p(ssgetpro (list p) fls msg))
)
总结：利用grKwordP函数，可实现关键字+任何ssget 方法的组合