取得PEDIT后的选择集

rjtiantian

创建这个由直线。圆弧和圆组成的图元的选择集，
对这个选择集进行PEDIT，
要把这个新生成的多段线和圆添加到新的选择集要怎么写呀？
感谢了。。{:soso_e183:}

在论坛的朋友的帮助下，总算搞好了，{:soso_e113:}

1. (defun c:tt ()
   
2.   (setq ss (ssget))
   
3.   (setq bj (entlast))
   
4.   (command "_pedit" "m" ss "" "j" "0.1" "")
   
5.   (setq sss (XD::SS:EntNextALL bj))
   
6.   (setq i -1)
   
7.   (while
   
8.     (setq s1 (ssname ss (setq i (1+ i))))
   
9.     (IF (and (= "CIRCLE" (cdr (assoc 0 (entget s1))))
   
10.              (< 100 (cdr (assoc 40 (entget s1))))
    
11.         )
    
12.        (setq sss (ssadd s1 sss))
    
13.     )
    
14.   )
    
15.   (sssetfirst nil sss)
    
16. )

(defun c:tt ()<br />   (setq ss (ssget))<br />   (setq bj (entlast))<br />   (command "_pedit" "m" ss "" "j" "0.1" "")<br />   (setq sss (XD::SS:EntNextALL bj))<br />   (setq i -1)<br />   (while<br />     (setq s1 (ssname ss (setq i (1+ i))))<br />     (IF (and (= "CIRCLE" (cdr (assoc 0 (entget s1))))<br />              (< 100 (cdr (assoc 40 (entget s1))))<br />         )<br />        (setq sss (ssadd s1 sss))<br />     )<br />   )<br />   (sssetfirst nil sss)<br /> )

函数(XD::SS:EntNextALL）请看2楼LispHK发帖，再次感谢各位大侠。{:soso_e183:}

Lisphk

PEDIT前，保存ENTLAST，之后，一直ENTNEXT不可以吗？

看看 http://www.xdcad.net/forum/thread-668669-1-1.html 这个帖子，能有帮助不。

rjtiantian

Lisphk 发表于 2013-6-10 20:27
PEDIT前，保存ENTLAST，之后，一直ENTNEXT不可以吗？

看看 http://www.xdcad.net/forum/thread-668669-1 ...

(defun c:tt ()
  (setq ss (ssget))
  (command "_pedit" "m" ss "" "j" "0.1" "")
)

这里也不能一直entnext吧？

牢固

rjtiantian 发表于 2013-6-10 20:36
(defun c:tt ()
  (setq ss (ssget))
  (command "_pedit" "m" ss "" "j" "0.1" "")

(Ssget "_p")

Lispboy

rjtiantian 发表于 2013-6-10 20:36
(defun c:tt ()
  (setq ss (ssget))
  (command "_pedit" "m" ss "" "j" "0.1" "")

在你执行command 前，加上 (setq bj (entlast)),command后加上 (setq ss ((XD::SS:EntNextALL bj))

rjtiantian

牢固 发表于 2013-6-10 20:41
(Ssget "_p")

(defun c:tt ()
  (setq ss (ssget))
  (command "_pedit" "m" ss "" "j" "0.1" "")
  (setq sss (ssget "_p"))
  (sssetfirst nil sss)
)

sss 为nil

rjtiantian

Lispboy 发表于 2013-6-10 20:41
在你执行command 前，加上 (setq bj (entlast)),command后加上 (setq ss ((XD::SS:EntNextALL bj))

(defun c:tt ()
  (setq ss (ssget))
  (setq bj (entlast))
  (command "_pedit" "m" ss "" "j" "0.1" "")
  (setq sss (XD::SS:EntNextALL bj))
  (sssetfirst nil sss)
)

不好意思，
:lol还是有个问题，PE不处理圆，所以圆就漏掉了，还得要把ss里的圆加到sss里才行，我再改改就行了，
非常多谢哈，{:soso_e183:}

Lispboy

rjtiantian 发表于 2013-6-10 20:51
(defun c:tt ()
  (setq ss (ssget))
  (setq bj (entlast))

改好了，别忘记把代码贴到论坛来啊。