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

[求助] lisp如何获得command之后的图元选择集（已解决）
www.dimcax.com
[求助] lisp如何获得command之后的图元选择集（已解决）
(setq ss (ssget))
(command "pedit" "m" "p" "" "" "j" "" "")
例如：上图是被分解了的，共有21条线。当用pedit命---按m---选择全部---确定----按j---确定，就可以连接成4条多义线了。请问，在lisp里怎样得到这4个多义线的选择集？我用entlast只能得到一个。
谢谢各位！！！！
d
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27;;____________________________________________________________________________________________________
;; ▓ (lt:ss-entnext en)
;; [功能] 获取在图元 en 之后产生的图元的选择集
;; [参数] en----图元名
;; [返回] 选择集
;; [测试]1.( en ())
;; 执行创建图元的命令，如 line,boundary
;; ( ss (lt:ss-entnext en))
;; 2.( ss (lt:ss-entnext ((entsel))))
( lt:ss-entnext (en / ss)
( en
(
( ss ())
( ( en ( en))
( ( ( ( ( 0 ( en)))
'("attrib" "vertex" "seqend")
)
)
( en ss)
)
)
( ( ( ss)) ( ss nil))
ss
)
( "_x")
)
)
【送花】好程序 现在才发现caoyin版主这个程序很好用，完全解决我的问题，谢谢啦。 鲜花+1 [jh1005 |
d
感谢caoyin大哥。
我明天上班再试试。
d
问题已解决，而且程序很好用，再次谢谢caoyin版主。
d
谢谢版主分享！
d