求助两线截交并分解成线段

yangist

截交即圆角或倒角为0,
直线或多段线截交后分解成线段,最好可框选,
本人研究很久都没有进展,特来求助,
恳请各位大神指点...

llsheng_73

1. (defun c:tt(/ ss e p p1 p2)
   
2.   (while(setq ss(ssget":S"'((0 . "line,*polyline"))))
   
3.     (sssetfirst nil ss)
   
4.     (princ"\n点选与已选线段求交点的直线或者多线段")
   
5.     (while(<(sslength ss)2)
   
6.       (if(member(cdr(assoc 0(entget(setq e(car(entsel))))))'("LINE""LWPOLYLINE""POLYLINE"))
   
7.         (setq ss(ssadd e ss))))
   
8.     (sssetfirst nil ss)
   
9.     (setq p(vlax-safearray->list(vlax-variant-value(vla-IntersectWith(vlax-ename->vla-object(ssname ss 0))(vlax-ename->vla-object(ssname ss 1))3)))
   
10.           p1(cdar(vl-sort(mapcar'(lambda(x)(cons(distance x p)x))(list(vlax-curve-getstartpoint(ssname ss 0))(vlax-curve-getendpoint(ssname ss 0))))
    
11.                          '(lambda(x y)(>(car x)(car y)))))
    
12.           p2(cdar(vl-sort(mapcar'(lambda(x)(cons(distance x p)x))(list(vlax-curve-getstartpoint(ssname ss 1))(vlax-curve-getendpoint(ssname ss 1))))
    
13.                          '(lambda(x y)(>(car x)(car y))))))
    
14.     (entdel(ssname ss 0))
    
15.     (entdel(ssname ss 1))
    
16.     (entmakex(list'(0 . "line")(cons 10 p1)(cons 11 p)))
    
17.     (entmakex(list'(0 . "line")(cons 10 p2)(cons 11 p)))
    
18.     )
    
19.   (princ))

(defun c:tt(/ ss e p p1 p2)<br />   (while(setq ss(ssget":S"'((0 . "line,*polyline"))))<br />     (sssetfirst nil ss)<br />     (princ"\n点选与已选线段求交点的直线或者多线段")<br />     (while(<(sslength ss)2)<br />       (if(member(cdr(assoc 0(entget(setq e(car(entsel))))))'("LINE""LWPOLYLINE""POLYLINE"))<br />         (setq ss(ssadd e ss))))<br />     (sssetfirst nil ss)<br />     (setq p(vlax-safearray->list(vlax-variant-value(vla-IntersectWith(vlax-ename->vla-object(ssname ss 0))(vlax-ename->vla-object(ssname ss 1))3)))<br />           p1(cdar(vl-sort(mapcar'(lambda(x)(cons(distance x p)x))(list(vlax-curve-getstartpoint(ssname ss 0))(vlax-curve-getendpoint(ssname ss 0))))<br />                          '(lambda(x y)(>(car x)(car y)))))<br />           p2(cdar(vl-sort(mapcar'(lambda(x)(cons(distance x p)x))(list(vlax-curve-getstartpoint(ssname ss 1))(vlax-curve-getendpoint(ssname ss 1))))<br />                          '(lambda(x y)(>(car x)(car y))))))<br />     (entdel(ssname ss 0))<br />     (entdel(ssname ss 1))<br />     (entmakex(list'(0 . "line")(cons 10 p1)(cons 11 p)))<br />     (entmakex(list'(0 . "line")(cons 10 p2)(cons 11 p)))<br />     )<br />   (princ))

sicky111

为什么不贴个图加以说明？

yangist

sicky111 发表于 2015-2-2 11:04
为什么不贴个图加以说明？

好的,就是想截交后的线直接为line,不要变成pline

自贡黄明儒

倒角输入R=0就可以了

Andyhon

选集先转化成 Lwpolyline

then ---> 示例--->

Command: pedit
Select polyline or [Multiple]: m

Select objects: Specify opposite corner: 2 found

Select objects:

Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype gen/Undo]: j

Join Type = Extend
Enter fuzz distance or [Jointype] <0.0000>: 10

1 segments added to polyline

Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype gen/Undo]:

<---

then explode

e2002

最近几个版本只要你在fillet时按住Ctrl键，就会临时变成filletrad=0.且不会改变原有的 rad

e2002

你最后 explode一下不就得了

yangist

e2002 发表于 2015-2-2 16:49
你最后 explode一下不就得了

分解时的选择集不好写 我研究E很久也搞不出来,才来求助的呢~~~

Andyhon

Ref:
http://bbs.mjtd.com/thread-112117-2-1.html