想不明白，只好求助了，，如何创建，按指定顺序的选择集

邹锋

目标：
1，在图中上面三个图里，分别手动选择点A到点B的直线，再捕捉点B到点C的直线，确定方向去选择图形，创建个选择集，最后
    (command "pedit" "m" ss "" "y"  "j" "j"  ""  0.1 "");;;ss是选择集名称     ，变成了如图中下面三个图形中的多段线

004

690994 发表于 2012-7-19 10:23
线割编程我们一般用MASTERCAD，软件本身有串接功能，在众多CAD软件中，唯有AUTOCAD没这个功能，
我给一 ...

果真是参考代码啊,

690994

LZ是用作线割路径吧，
简单一点的话，选择时先选AB再选DC后全选，连接时将ABC两实体连成多义线再与其他的连接
复杂一点，选AB后判断在B点连结的两段线，作出方向提示选择，下去直到结束

革天明

留下来听讲座

preone

690994 发表于 2012-7-16 23:15
LZ是用作线割路径吧，
简单一点的话，选择时先选AB再选DC后全选，连接时将ABC两实体连成多义线再与其他的连 ...

方向提示 应该怎么做呢？不会~

690994

preone 发表于 2012-7-17 19:12
方向提示 应该怎么做呢？不会~

就你提供的图档而言，只有B点才有三个端点在一起，通过判断出两个方向，再选择你想要的方向即可。

preone

690994 发表于 2012-7-17 21:06
就你提供的图档而言，只有B点才有三个端点在一起，通过判断出两个方向，再选择你想要的方向即可。

恩  具体操作 代码 能具体写几行么~~

690994

preone 发表于 2012-7-18 18:25
恩  具体操作 代码 能具体写几行么~~

线割编程我们一般用MASTERCAD，软件本身有串接功能，在众多CAD软件中，唯有AUTOCAD没这个功能，
我给一段代码你参考，返回结果是一个表"tem"，连续起点/终点/实体句柄的表，
有三个自定函数你可自己写或论坛里百度一下。
后面几行是测试用的,方向不对你可将表反转即可。

(defun c:te( / ang bu ent i len lst r ss ss_op tem)
  
  (setq tem '()
         ss_op(ssget)
  )
          (if (>(sslength ss_op)0);判别开口实体是否有组成闭合环
                  (progn
                  (setq i 0        lst '()        ss '())
                  (repeat (sslength ss_op)
                          (setq ent (ssname ss_op i)
                                        i (1+ i)
                                        tem(sam_smel ent);(起点，中点，末点，长度）表
                                        lst (append lst(list(list
                                                                   (reverse(cdr(reverse(nth 0 tem))))
                                                                   (reverse(cdr(reverse(nth 2 tem))))
                                                                   (list(sam_dxf ent 5)))))        ;取句柄
                           )
                   )
                  (setq tem '()
                                    ss lst                                
                  )
                  (while ss
                         (setq r (car ss)                                       
                                   lst ss
                                   bu ss                                       
                         )
                         (while r
                           (setq len r)
                           (foreach itm lst
                                        (cond
                                          ((and(=(last r)(last itm))
                                                   (=(length r)(length itm))
                                           )
                                           (setq ss(cdr ss))
                                          );only 1
                                          ((equal (nth 0 r)(nth 0 itm) 0.001);头头相连
                                                (setq r(append (list(nth 1 itm)(nth 1 r))(list(nth 2 itm))(cddr r))        
                                                          ang (member itm ss)
                                                          ss(sam_subst_n (-(length ss)(length ang)) nil ss);将第N个表元素换成NIL
                                                          ss (vl-remove nil ss)
                                                          ang (member itm bu)
                                                          bu(sam_subst_n (-(length bu)(length ang)) nil bu)                                                                  
                                                )
                                          )
                                          ((equal (nth 1 r)(nth 1 itm) 0.001);尾尾相连
                                                (setq r(append (list(nth 0 r)(nth 0 itm))(cddr r)(list(nth 2 itm)))                                                              
                                                          ang (member itm ss)
                                                          ss(sam_subst_n (-(length ss)(length ang)) nil ss)
                                                          ss (vl-remove nil ss)
                                                          ang (member itm bu)
                                                          bu(sam_subst_n (-(length bu)(length ang)) nil bu)
                                                )
                                          )
                                          ((equal (nth 0 r)(nth 1 itm)0.001);头尾相连
                                                (setq r(append (list(nth 0 itm)(nth 1 r))(list(nth 2 itm))(cddr r))
                                                          ang (member itm ss)
                                                          ss(sam_subst_n (-(length ss)(length ang)) nil ss)
                                                          ss (vl-remove nil ss)
                                                          ang (member itm bu)
                                                          bu(sam_subst_n (-(length bu)(length ang)) nil bu)
                                                )
                                          )
                                          ((equal (nth 1 r)(nth 0 itm)0.001);尾头相连
                                                (setq r(append (list(nth 0 r)(nth 1 itm))(cddr r)(list(nth 2 itm)))
                                                          ang (member itm ss)
                                                          ss(sam_subst_n (-(length ss)(length ang)) nil ss)
                                                          ss (vl-remove nil ss)
                                                          ang (member itm bu)
                                                          bu(sam_subst_n (-(length bu)(length ang)) nil bu)
                                                )
                                          )
                                          (t (princ))
                                        )
                          );foreach
                          (setq lst (vl-remove nil bu))
                          (if (or(null lst)
                                             (equal (nth 0 r)(nth 1 r)0.001)
                                             (equal len r 0.001)
                                  )
                                  (setq tem(append tem (list r))
                                                    r nil
                                  )
                         )                                       
                  );wh
                  (if(=(length ss)1)(setq ss nil))
                 );while
                );progn
          );if  ;判别开口实体是否有组成闭合环
         
         
(princ "\n             tem = ") (princ tem);Erase_DV
(getstring "\nPress Enter to continue...");Erase_DV
          (setq r 0
                tem (cddar tem)
           )
(princ "\n             tem = ") (princ tem);Erase_DV
(getstring "\nPress Enter to continue...");Erase_DV
           
          (repeat (length tem)
                                                                    (command "text""mc" (cadr(sam_smel (handent (car(nth r tem))))) 3 0 (itoa(setq r (1+ r))))
          )
)

preone

690994 发表于 2012-7-19 10:23
线割编程我们一般用MASTERCAD，软件本身有串接功能，在众多CAD软件中，唯有AUTOCAD没这个功能，
我给一 ...

恩 谢谢你  好好学习下~~