[LISP程序]：请帮忙看哪里有问题

redapple · 发表于 2003-8-25 21:41:56

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

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

×

(defun sspl ()
  (setq e (entsel "请选择一多段线"))
  (setq e1 (car e))
  (setq a (assoc 10 (entget e1)))
  (setq b (cdr a))
  (setq ss (ssget b))
  (setq c (sslength ss))
  )
求通过多段线起点所有实体的选择集
可是结果总是1个实体
我画的2个
是程序哪里错了吗？
谢谢了！

lijiao · 发表于 2003-8-26 08:25:18

可以将(setq ss (ssget b))改为(setq ss (ssget "c" b b))。

redapple · 发表于 2003-8-26 10:37:21

试过了，完全正确，太棒了！谢谢！
但是我的程序为什么不行呢？
能不能解答一下，谢谢？

lijiao · 发表于 2003-8-26 12:40:18

我也不知道其中的原因。
解决不了的问题，就绕过去吧，达到目的是原则。

eachy · 发表于 2003-8-26 12:44:02

最初由 redapple 发布
[B]试过了，完全正确，太棒了！谢谢！
但是我的程序为什么不行呢？
能不能解答一下，谢谢？ [/B]

点选只能选择一个实体，和命令中点取一样的。

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

[LISP程序]：请帮忙看哪里有问题

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

相关帖子

浏览过的版块