[求助]：一条线在某点切断后怎样获得新的图元名

wangwangnn

如果一条线被切断，想以断点为中心，在线的左右各找距断点一定距离的两个点（比如距断点2cm)，应该怎么实现呀？
我想用vlax-curve-getPointAtDist   可是新形成的两段线的端点怎么找？新形成的两段线的图元名怎么找？

841594

断开后的两个实体，一般说来一个是原来的实体，另一个是最后一个实体，用（entlast）可得到。
端点可在断开之前确定。

WHGF

好像不一定是这样，如果在编辑过程中有删除的实体，则系统内有实体名称是不连续的。新建成的实体名可不是位于最后。

狂刀

楼上的你试过没有阿？！

wangwangnn

二楼的,怎么知道用entlast得到的实体是哪一个?断开后原来的实体的端点就变化了,实际上已经不是原来的实体,只是名称还是原来的,是这样理解吗?

xyp1964

也许这样：
带相同起点的是原来的；
带相同终点的是后生成的。

进一步探讨对于trim后的结果：
是原实体还是新生成的？

cy956

你可以先记下entlast，再entnext下一个实体，就是新生成的。
(Defun get-ss( e / ss ep) ;;;╚í╘┌╩╡╠σe║≤╔·│╔╡─╦∙╙╨╩╡╠σ╤í╘±╝»
  (setq ss (ssadd) ep e)
  (if (not ep) (setq ep (entnext)))
  (while (/= (setq ep (entnext ep)) nil)
    (ssadd ep ss)
  )
  ss
)

狂刀

2. 
   
3. (progn
   
4. (setq bkss (ssadd)
   
5.          elast (entlast))
   
6. (command ".break" (e pt) pt)
   
7. (if (eq elast(entlast))
   
8.     nil
   
9.    (ssadd (entlast) bkss))
   
10. )
    
11. (sssetfirst bkss bkss)
    
12. )
    

<br /> (progn<br /> (setq bkss (ssadd)<br />          elast (entlast))<br /> (command ".break" (e pt) pt)<br /> (if (eq elast(entlast))<br />     nil<br />    (ssadd (entlast) bkss))<br /> )<br /> (sssetfirst bkss bkss)<br /> )<br />

eachy

(/= (setq ep (entnext ep)) nil)
不能进到 Vertex SEQEND ... ，wkai 贴过一个函数的

wangwangnn

不太明白，其实我想实现如下功能：在pt1处打断，使用vlax-curve-getPointAtDist  确定pt2 pt3点，断开后用(entlast) 可找到pt3 ，但pt2怎么找？还请各位大哥帮我编一个程序实现！

cy956

最初由 eachy 发布
[B](/= (setq ep (entnext ep)) nil)
不能进到 Vertex SEQEND ... ，wkai 贴过一个函数的 [/B]

知道你想说的是

2. 
   
3. (Defun get-ss1( e / ss ep en ty) ;;;取在实体e后生成的所有实体选择集, nil=全选,不包括子实体;;
   
4.   (setq ss (ssadd) ep e)
   
5.   (if (not ep) (setq ep (entnext)))
   
6.   (while (/= (setq ep (entnext ep)) nil)
   
7.     (setq en(entget ep)ty(dxf 0 en))
   
8.     (if (not (member TY '("VERTEX" "SEQEND")))
   
9.       (ssadd ep ss)
   
10.     )
    
11.   )
    
12.   ss
    
13. )
    

<br /> (Defun get-ss1( e / ss ep en ty) ;;;取在实体e后生成的所有实体选择集, nil=全选,不包括子实体;;<br />   (setq ss (ssadd) ep e)<br />   (if (not ep) (setq ep (entnext)))<br />   (while (/= (setq ep (entnext ep)) nil)<br />     (setq en(entget ep)ty(dxf 0 en))<br />     (if (not (member TY '("VERTEX" "SEQEND")))<br />       (ssadd ep ss)<br />     )<br />   )<br />   ss<br /> )<br />

其实对本贴的上面的够用。

Underway

这样可行吗 ?
Copy 原实体 e1
(setq e2 (entlast))
再Change point 到 pt2 pt3

狂刀

设普通pt1 pt2之间距离为d

2. 
   
3. (defun c:tt()
   
4. (if(and
   
5.   (setq el (entsel))
   
6.   (setq e (car el)
   
7.            pt1(cadr el)
   
8.            d1 (vlax-curve-getdistatpoint e pt1))
   
9.   (setq pt2 (vlax-curve-getpointatdist e (- d1 d)))
   
10.   (setq  pt3 (valx-curve-getpointatdist e (+ d1 d)))
    
11.   )
    
12. (progn
    
13.   (command ".break" (list e pt2) pt3)
    
14.   (list e (entlast))
    
15. )
    
16. )

<br /> (defun c:tt()<br /> (if(and<br />   (setq el (entsel))<br />   (setq e (car el)<br />            pt1(cadr el)<br />            d1 (vlax-curve-getdistatpoint e pt1))<br />   (setq pt2 (vlax-curve-getpointatdist e (- d1 d)))<br />   (setq  pt3 (valx-curve-getpointatdist e (+ d1 d)))<br />   )<br /> (progn<br />   (command ".break" (list e pt2) pt3)<br />   (list e (entlast))<br /> )<br /> )

;;以上完成打断并返回打断后的实体2个列表.

841594

最初由 WHGF 发布
[B]好像不一定是这样，如果在编辑过程中有删除的实体，则系统内有实体名称是不连续的。新建成的实体名可不是位于最后。 [/B]

你可以用"select" "l"试试，看是不是在最后。
先找点，后断开，这问题就变得根简单。楼上狂刀的程序已经解决问题了。

wangwangnn

是的，解决了，换一个思路就好了，先找点，后断开