[求助]：如何使选集S1，单击左键时，不被退出？

andyhua5240 · 发表于 2007-6-19 08:44:23

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

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

×

[FONT=courier new]
(defun c:w ()
(princ "\n*** 图元改层◆|颜色→Bylayer| ***")
(setq cm (getvar "cmdecho"))
(setq *error* cd_err)
(setvar "cmdecho" 1)
(princ "\n选择要更改图层的图元 <退出>:")
(setq ss (ssget))
(if ss
(progn
(if (setq s1 (car (entsel "\n拾取目标图层上的图元或, <当前图层>:")))
(command ".laymch" ss "" s1)
(command ".laymch" ss "" "" "y") ;;;也可用(command ".laycur" ss "")
)
(while (/= 0 (getvar "cmdactive")) (command pause))
(setvar "cmdecho" 0)
(command ".chprop" ss "" "c" "bylayer" "")
)
)
(setvar "cmdecho" cm)
(princ)
)
(defun cd_err (s)
(setvar "cmdecho" cm)
(command "_.undo" "_e")
)
[/FONT]

如何使上面的代码中的选集S1，在用户选择对象单击左键没有选择到对象时，不退出，而继续的提示点选对象。单击右键可以退出。

我是LISP肓，请求们可以看看如何做？谢谢！

雨箭风刀 · 发表于 2007-6-19 12:13:55

用刷子不行么？

andyhua5240 · 发表于 2007-6-19 12:22:11

用刷子当然能行。但是我还是想，用程序如何来解决？
这个程序可以将对象改在目标图层或者是当前图层上，但是刷子没有这个灵活？
而且laymch，在2007中已经集成到CAD中去了。所以想如何更能灵活的运用此命令？
救命呀！长老！
谢谢！

carrot1983 · 发表于 2007-6-19 13:56:37

1.laymch这个命令没有！我是2004的！
2.其实只要改组码8，就可以单独匹配图层了！
3.“如何使选集S1，单击左键时，不被退出？ ”可以使用条件或循环语句！
比如：

(setq s1 (car (entsel "\n拾取目标图层上的图元或, <当前图层>:")))
(if (null s1) (setq s1 (car (entsel "\n拾取目标图层上的图元或, <当前图层>:"))))
或者把if改while

andyhua5240 · 发表于 2007-6-19 14:51:45

楼主，如楼主所修改，不行呀？

zxq0220 · 发表于 2007-6-19 16:46:27

这样试试:
[php]
(defun c:w ()
  (princ "\n*** 图元改层◆|颜色→Bylayer| ***")
  (setq cm (getvar "cmdecho"))
  (setq *error* cd_err)
  (setvar "cmdecho" 1)
  (princ "\n选择要更改图层的图元 <退出>:")
  (setq ss (ssget))
  (if ss (progn
(PRINC "\n拾取目标图层上的图元或, <当前图层>:"
(if (setq s1 (SSGET))
(command ".laymch" ss "" (SSNAME s1 0))
(command ".laymch" ss "" "" "y")          ;;;也可用(command ".laycur" ss "")
)
(while (/= 0 (getvar "cmdactive")) (command pause))
(setvar "cmdecho" 0)
(command ".chprop" ss "" "c" "bylayer" "")
  ))
  (setvar "cmdecho" cm)
  (princ)
)

(defun cd_err (s)
  (setvar "cmdecho" cm)
  (command "_.undo" "_e")
)
[/php]

zxq0220 · 发表于 2007-6-19 16:53:22

这样试试:
[php]
(defun c:w ()
  (princ "\n*** 图元改层◆|颜色→Bylayer| ***")
  (setq cm (getvar "cmdecho"))
  (setq *error* cd_err)
  (setvar "cmdecho" 1)
  (princ "\n选择要更改图层的图元 <退出>:")
  (setq ss (ssget))
  (if ss (progn
(PRINC "\n拾取目标图层上的图元或, <当前图层>:"
(if (setq s1 (SSGET))
(command ".laymch" ss "" (SSNAME s1 0))
(command ".laymch" ss "" "" "y")          ;;;也可用(command ".laycur" ss "")
)
(while (/= 0 (getvar "cmdactive")) (command pause))
(setvar "cmdecho" 0)
(command ".chprop" ss "" "c" "bylayer" "")
  ))
  (setvar "cmdecho" cm)
  (princ)
)

(defun cd_err (s)
  (setvar "cmdecho" cm)
  (command "_.undo" "_e")
)
[/php]

andyhua5240 · 发表于 2007-6-19 17:17:21

楼主的代码还是不行，程序要求是，左键如果没有点选到图元的话，断续的提示点选图元。
而现在楼主的程序是，左键如果没有点选到图元的话，就会把已经选择的对象放到当前层。

正确的程序应该是，左键提示点选图元，如果没有点选到图元的话，循环的提示选择对象。只有点右键或者空格时，就略过左键点选图元这一步，直接把已经选择的对象放到当前层上。也就是要求程序能自己识别鼠标左、右键。

谢谢楼主！

andyhua5240 · 发表于 2007-6-19 17:31:07

楼主的代码还是不行，程序要求是，左键如果没有点选到图元的话，断续的提示点选图元。
而现在楼主的程序是，左键如果没有点选到图元的话，就会把已经选择的对象放到当前层。

正确的程序应该是，左键提示点选图元，如果没有点选到图元的话，循环的提示选择对象。只有点右键或者空格时，就略过左键点选图元这一步，直接把已经选择的对象放到当前层上。也就是要求程序能自己识别鼠标左、右键。

谢谢楼主！

zxq0220 · 发表于 2007-6-19 21:12:48

可上面的程序是左键如果选不到图元可以继续选择图元直到用右键或空格结束选择，已经接近目标了。

雨箭风刀 · 发表于 2007-6-19 23:31:12

看楼主问题提的挺诚恳的，路过，顺便
[php]
(defun c:tt ()
  (while
(if (not (setq a (entsel)))
   (/= 52 (getvar "errno"))
)
  )
  a
)[/php]

Free-Lancer · 发表于 2007-6-20 08:05:13

狠一点 (while (not (setq e (entsel))))

雨箭风刀 · 发表于 2007-6-20 14:18:38

(while (not (setq e (entsel)))) 　不能区分左键空选和回车

carrot1983 · 发表于 2007-6-20 14:43:31

最初由雨箭风刀发布
[B]看楼主问题提的挺诚恳的，路过，顺便
[php]
(defun c:tt ()
  (while
(if (not (setq a (entsel)))
   (/= 52 (getvar "errno"))
)
  )
  a
)[/php] [/B]

这个我喜欢，非常棒!
原来有错误（类型）的变量！厉害啊。

原先不懂，特此修正：
errno表示当 AutoCAD 探测出一个 AutoLISP 函数访问导致的错误时，显示其适当的错误编号。
错误编号52代表的意思： Entity selection: null response

andyhua5240 · 发表于 2007-6-21 08:57:21

真是惭愧，梁兄提供的代码不会运用呀！
梁兄能否直接帮忙更改一下程序？
谢谢！

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

[求助] [求助]：如何使选集S1，单击左键时，不被退出？

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

相关帖子