本帖最后由 xiaocainiao 于 2025-12-31 23:02 编辑




今天用源泉的FX命令、突然发现既能框选、又能通过关键字调用设置、
框选时指定第一点后、会在命令行提示选择对象、还会返回一个坐标、
不知道是怎么实现的、特来求教论坛的各位大神




网友答: 是不是这样的
(initget 2 "s")
(setq pt1         (getpoint (strcat "\n按<S>设置:")))
(cond
    ((= pt1 "s")
     (print "°&#180;&#193;&#203;S")
     )

    ((= (type pt1) 'list)
     (print pt1)
     )
    )

网友答: 本帖最后由 pxt2001 于 2026-1-1 06:36 编辑

在lisp板块，很多人尝试过解决带关键字的ssget，之前飞诗寻梦做了一个，但命令行带提示，不能达到类似玩游戏摁键盘的效果_一键回车，这里涉及到键盘监视，lisp搞不定。只有隔壁论坛晓东API真正完美搞定了，他用arx提供了lisp函数来解决，目前仅此一家，虽然明经论坛也有很多熟练arx的大神，也有可能没有放出来，仅自用。天正建筑是有类似功能，但仅限于天正自己提供的命令，用户自定义lisp就不行了。

网友答: 本帖最后由 pxt2001 于 2026-1-1 08:59 编辑

lisp自带函数getpoint，entsel等可以组合initget，达到输入关键字修改参数效果，再用while循环返回主程序。但这种场景下的一键回车做不到。
楼主动画显示的就是(带关键字的ssget)飞诗寻梦原创的lisp解决方案
[原创]带关键字的ssget
http://bbs.mjtd.com/forum.php?mo ... &fromuid=288402
，命令行出现多余提示。只有晓东API是完美解决了，不管是单选还是多选带关键字，还有一键回车。




网友答: 你进源泉群问问水哥就好了

网友答: 框选首先要点一个点，所以可以先getpoint时来支持切换，如果有点了，再getcorner。

网友答:
我有源泉群、但是水哥在群里好像不说话了

网友答:
源泉那个FX应该不是用的getpoint、他执行命令以后光标是拾取对象的状态、点完以后会在命令行提示选择对象+一个坐标、getpoint这种的搞不出这种效果、Lisp里面支持关键字的函数我试了一个遍、好像都不行

网友答:
不是的、肯定没有用getpoint、你看我发的动画演示、执行命令以后、光标是拾取对象的状态、点完以后变成框选、getpoint这种的函数、执行后是拾取点的状态、不太一样

网友答:
源泉那个不像是直接执行的ssget、感觉是先执行了其他拾取对象函数、然后获取一个坐标、再去框选的样子