希望ARX高手把acedSSGet转成LISP函数

Gdlprfcu · 发表于 2013-5-5 09:42:08

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

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

×

LISP的SSGet实在太不爽了，连提示都不能自己定义，在此希望哪位高手能把ARX的acedSSGet函数转成lisp的函数，让LISP也能使用自定提示和关建字等功能，造福一下我们这些只懂LISP的菜鸟。最好还能再写一个能拖拉选集的JIG函数就更好了。{:soso_e102:}

Free-Lancer · 发表于 2013-5-5 10:05:41

这个函数库就有吧

Gdlprfcu · 发表于 2013-5-5 10:32:31

Free-Lancer 发表于 2013-5-5 10:05

登录/注册后可看大图

这个函数库就有吧

有吗，在哪下载？非常需要，谢谢

Free-Lancer · 发表于 2013-5-5 11:20:17

http://bbs.xdcad.net/forum.php?m ... 843&pid=3168934

Gdlprfcu · 发表于 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。

Free-Lancer · 发表于 2013-5-5 11:55:04

不知道acedSsget的方式，关键字只是传递选择方式吗

牢固 · 发表于 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]

Lispboy · 发表于 2013-5-5 12:18:58

加个提示还不容易，
[pcode=lisp,true]
(defun $MY_SSGET (ts filter)
  (prompt (strcat "\n" ts))
  (apply
'ssget
filter
  )
)
[/pcode]

Lispboy · 发表于 2013-5-5 12:21:36

Gdlprfcu 发表于 2013-5-5 11:29

登录/注册后可看大图

哦，原来是模仿，这个没用，Shift键不好处理，关键字就更加了，感觉不如用SSGET。

ARX的 ssget 有什么比 LISP 的ssget 好的地方，还请楼主明示。

Gdlprfcu · 发表于 2013-5-5 13:02:36

Lispboy 发表于 2013-5-5 12:21

登录/注册后可看大图

ARX的 ssget 有什么比 LISP 的ssget 好的地方，还请楼主明示。

能定义关键字，能定义提示。

Gdlprfcu · 发表于 2013-5-5 13:09:34

牢固发表于 2013-5-5 12:00

登录/注册后可看大图

试试这个:

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

这样不是连什么提示都没了吗！其实LISP模仿的SSGET我也有，就是觉得太不好用了，SHIFT键我也用API搞好了，但模仿的就是模仿的，怎么都不那么好用。

Free-Lancer · 发表于 2013-5-5 13:51:56

Gdlprfcu 发表于 2013-5-5 13:09

登录/注册后可看大图

这样不是连什么提示都没了吗！其实LISP模仿的SSGET我也有，就是觉得太不好用了，SHIFT键我也用API搞好了， ...

把你的贴上来看看，你说的功能要 Grread + SSget 组合？

Lispboy · 发表于 2013-5-5 15:43:43

Gdlprfcu 发表于 2013-5-5 13:09

登录/注册后可看大图

这样不是连什么提示都没了吗！其实LISP模仿的SSGET我也有，就是觉得太不好用了，SHIFT键我也用API搞好了， ...

你用的是什么API？希望看到楼主的源代码加SHIFT的。

Gdlprfcu · 发表于 2013-5-5 16:09:11

Lispboy 发表于 2013-5-5 15:43

登录/注册后可看大图

你用的是什么API？希望看到楼主的源代码加SHIFT的。

利用VBA调用API函数判断按键是按下还是弹起而已，具体什么函数我也忘了。

ll_j · 发表于 2013-5-9 20:57:05

贸然推荐一把飞诗版主的程序http://bbs.mjtd.com/forum.php?mod=viewthread&tid=71545，现在程序是在明经上的，晓东勿怪。

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

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

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

相关帖子