能否实现这样的功能：判断鼠标有无点中物体

mandala · 发表于 2012-11-8 16:34

本帖最后由 mandala 于 2012-11-8 16:37 编辑

请问能否实现这样一个功能：一个工具栏按钮，对应一段lisp，作用是：点中按钮之前，如果鼠标没有选中任何物体，则将当前层变为A层（即开始用A层作图）；如果鼠标已选中了某个（或某些）物体，则将这些物体转为A层。

ZZXXQQ · 发表于 2012-11-8 21:14

本帖最后由 ZZXXQQ 于 2012-11-8 21:16 编辑

就是说在程序运行时：如果先选择了物体就……否则就……
是这样吗？

mandala · 发表于 2012-11-9 08:52

ZZXXQQ 发表于 2012-11-8 21:14
就是说在程序运行时：如果先选择了物体就……否则就……
是这样吗？

是的，我就是这个意思，有办法吗Z版？

wowan1314 · 发表于 2012-11-9 10:11

(SETQ AA (caDr (ssgetfirst)))为空就。。。不为空就。。。。

mandala · 发表于 2012-11-9 20:37

本帖最后由 mandala 于 2012-11-13 20:30 编辑

wowan1314 发表于 2012-11-9 10:11
(SETQ AA (caDr (ssgetfirst)))为空就。。。不为空就。。。。

原来如此，谢谢，从没注意到过这个函数。
(defun c:aaa()
(if (cadr (ssgetfirst)) (command "change" (ssget) """p""la" "0""") (setvar "clayer" "0"))
)

feng582304 · 发表于 2012-11-10 00:26

其实ssget本身就是这样的吧，如果在执行命令前有选择的话，那就按照那个选择集继续执行，而没有对象时，就提示选择对象。根本不用去加判定的嘛。

辉/:) · 发表于 2012-11-10 01:16

留

个脚印

wau2000022 · 发表于 2012-11-12 10:21

可联系我QQ：496968041

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