找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 3823|回复: 19

[编程申请] 希望ARX高手把acedSSGet转成LISP函数

[复制链接]
发表于 2013-5-5 09:42:08 | 显示全部楼层 |阅读模式

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

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

×
LISP的SSGet实在太不爽了,连提示都不能自己定义,在此希望哪位高手能把ARX的acedSSGet函数转成lisp的函数,让LISP也能使用自定提示和关建字等功能,造福一下我们这些只懂LISP的菜鸟。最好还能再写一个能拖拉选集的JIG函数就更好了。{:soso_e102:}
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2013-5-5 10:05:41 | 显示全部楼层
这个函数库就有吧
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-5-5 10:32:31 | 显示全部楼层
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-5-5 11:20:17 | 显示全部楼层
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-5-5 11:29:03 | 显示全部楼层
Free-Lancer 发表于 2013-5-5 11:20
http://bbs.xdcad.net/forum.php?mod=redirect&goto=findpost&ptid=623843&pid=3168934

哦,原来是模仿,这个没用,Shift键不好处理,关键字就更加了,感觉不如用SSGET。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-5-5 11:55:04 | 显示全部楼层
不知道acedSsget的方式,关键字只是传递选择方式吗
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 344个

财富等级: 日进斗金

发表于 2013-5-5 12:00:07 | 显示全部楼层
试试这个:
[pcode=lisp,true]
;;参数 $prompt = 提示字串 pars = ssget的组合参数列表
(defun Myssget ($prompt pars / nomutt ss)
(setq nomutt (getvar 'nomutt))
(setvar 'nomutt 0)
(princ $prompt)
(setq ss (apply 'ssget pars))
(setvar 'nomutt 'nomutt)
ss
  )[/pcode]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 51个

财富等级: 招财进宝

发表于 2013-5-5 12:18:58 | 显示全部楼层
加个提示还不容易,
[pcode=lisp,true]
(defun $MY_SSGET (ts filter)
  (prompt (strcat "\n" ts))
  (apply
    'ssget
    filter
  )
)
[/pcode]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 51个

财富等级: 招财进宝

发表于 2013-5-5 12:21:36 | 显示全部楼层
Gdlprfcu 发表于 2013-5-5 11:29
哦,原来是模仿,这个没用,Shift键不好处理,关键字就更加了,感觉不如用SSGET。

ARX的 ssget 有什么比 LISP 的ssget 好的地方,还请楼主明示。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-5-5 13:02:36 | 显示全部楼层
Lispboy 发表于 2013-5-5 12:21
ARX的 ssget 有什么比 LISP 的ssget 好的地方,还请楼主明示。

能定义关键字,能定义提示。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-5-5 13:09:34 | 显示全部楼层
牢固 发表于 2013-5-5 12:00
试试这个:

;;参数 $prompt = 提示字串 pars = ssget的组合参数列表

这样不是连什么提示都没了吗!其实LISP模仿的SSGET我也有,就是觉得太不好用了,SHIFT键我也用API搞好了,但模仿的就是模仿的,怎么都不那么好用。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-5-5 13:51:56 | 显示全部楼层
Gdlprfcu 发表于 2013-5-5 13:09
这样不是连什么提示都没了吗!其实LISP模仿的SSGET我也有,就是觉得太不好用了,SHIFT键我也用API搞好了, ...

把你的贴上来看看,你说的功能要 Grread + SSget 组合?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 51个

财富等级: 招财进宝

发表于 2013-5-5 15:43:43 | 显示全部楼层
Gdlprfcu 发表于 2013-5-5 13:09
这样不是连什么提示都没了吗!其实LISP模仿的SSGET我也有,就是觉得太不好用了,SHIFT键我也用API搞好了, ...

你用的是什么API? 希望看到楼主的源代码加SHIFT的。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-5-5 16:09:11 | 显示全部楼层
Lispboy 发表于 2013-5-5 15:43
你用的是什么API? 希望看到楼主的源代码加SHIFT的。

利用VBA调用API函数判断按键是按下还是弹起而已,具体什么函数我也忘了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6530个

财富等级: 富甲天下

发表于 2013-5-9 20:57:05 | 显示全部楼层
贸然推荐一把飞诗版主的程序http://bbs.mjtd.com/forum.php?mod=viewthread&tid=71545,现在程序是在明经上的,晓东勿怪。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 21:47 , Processed in 0.629088 second(s), 60 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表