[求助] lisp如何获得command之后的图元选择集（已解决）

jh1005 · 发表于 2009-1-4 23:34

本帖最后由作者于 2009-2-26 22:36:43 编辑

(setq ss (ssget))

(command "PEDIT" "m" "P" "" "" "j" "" "")

例如：上图是被分解了的，共有21条线。当用pedit命---按m---选择全部---确定----按J---确定，就可以连接成4条多义线了。请问，在lisp里怎样得到这4个多义线的选择集？我用entlast只能得到一个。

谢谢各位！！！！

caoyin · 发表于 2009-1-5 12:58

;;____________________________________________________________________________________________________
;; ▓ (lt:ss-entnext en)
;; [功能] 获取在图元 en 之后产生的图元的选择集
;; [参数] en----图元名
;; [返回] 选择集
;; [测试]1.(setq en (entlast))
;; 执行创建图元的命令，如 LINE,BOUNDARY
;; (setq ss (lt:ss-entnext en))
;; 2.(setq ss (lt:ss-entnext (car(entsel))))
(defun lt:ss-entnext (en / ss)
(if en
(progn
(setq ss (ssadd))
(while (setq en (entnext en))
(if (not (member (cdr (assoc 0 (entget en)))
'("ATTRIB" "VERTEX" "SEQEND")
)
)
(ssadd en ss)
)
)
(if (zerop (sslength ss)) (setq ss nil))
ss
)
(ssget "_x")
)
)

jh1005 · 发表于 2009-1-5 23:29

感谢caoyin大哥。

我明天上班再试试。

jh1005 · 发表于 2009-2-26 22:32

问题已解决，而且程序很好用，再次谢谢caoyin版主。

zctao1966 · 发表于 2009-3-3 22:36

谢谢版主分享！

hbllw · 发表于 2009-10-31 23:22

被我看到了，收藏了，谢谢版主分享

xhq1954425 · 发表于 2009-11-1 05:43

也被我看到了，我也收藏了，我也谢谢版主分享

ghgh0130 · 发表于 2009-12-2 08:57

谢谢版主分享！

faradayzq · 发表于 2009-12-4 00:34

谢谢分享

飞的妖儿 · 发表于 2010-6-5 15:02

8错8错

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