加强版SSGET ENTSEL
本帖最后由 鱼与熊掌 于 2015-1-25 10:31 编辑飞总的SSGET给我很多启发,让我学到知识。
某天我整理函数的时候发现有一些美中不足,于是做了一些优化。
;《《《《《《《《《《《《《《《》》》》》》》》》》》》》》》
函数:;(cx-SsgetNum "测试选数字" nil "") 只选择数字的文本。
参数:msg提示字符串。
cps:pik选项可以用::s或者:e等关键字。
kwd :关键字选项,可以输入1 2 3 4 (initget)
;《《《《《《《《《《《《《《《》》》》》》》》》》》》》》》
函数:;;带关键字的ssget(cx-ssget "选择文字[(m)多选/(d)恢复/]<结束>" "m d"'((0 . "*text")))
说明:来自飞总的原来的函数。
;《《《《《《《《《《《《《《《》》》》》》》》》》》》》》》
;带过滤的超级单选。
;(cx-entsel "选择直线" "S 3" nil)
参数1:msg提示信息
参数2:关键字 S 或者3(initget)
参数3:过滤选项 如:'((0 . "LINE"))
;《《《《《《《《《《《《《《《》》》》》》》》》》》》》》》
;函数;(cx-SsgetSup "选择文字[(m)多选/(d)恢复/]<结束>" ":s""m d"nil)
;参数1:提示信息
;参数2 ::S :E 等CPS选项
;参数3:关键字
;参数4:过滤
;可以在函数的基础上拓展更多有趣的写法。这里不一一列举
最好举个例子,我这里运行也不通顺 谢谢楼主分享插眼 不错,可没币了。这日子过的 分享的都死好样的,学习下 加油加油~赞一个 分享的都死好样的,学习下 分享的都死好样的,学习下 感谢分享,受益匪浅 学习一下 谢谢分享,学习学习 真心不错的 学习,膜拜,顶
页:
[1]
2