[编程申请]：如何实现多段线的部分克隆？

yindb

最初的想法：想克隆从1->2->3的这一部分，但是法帖数天，无人问津。自己想了几个笨的法子.希望各位大侠不惜赐教。

有一多边形,我在上面选取三个点，并且通过measure取得图中的点（为了试验我把步长设为0.5），我想把1号点，2号点，3号点之间的点一次连起来，这样就可以实现这样就可以取得与多边形1－》3的近似曲线。请问怎么实现啊？给个例子提示一下，或者有什么好的想法，大家来讨论讨论。

如果此问题解决了，可以举一反三，扩展到曲线，弧。
哪位高人给个思路，或者给个例子，我在此空间上找了好久，没有类似的例子。 再或者哪位高人写个程序。
真心希望能够答复，共同探讨一下也是好的。期待着。。。

eachy

最初由 yindb 发布
[B]最初的想法：想克隆从1->2->3的这一部分，但是法帖数天，无人问津。自己想了几个笨的法子.希望各位大侠不惜赐教。

有一多边形,我在上面选取三个点，并且通过measure取得图中的点（为了试验我把步长设为0.5），我?.. [/B]

多义线局部复制的程序论坛早有讨论，在Lisp论坛找找，另外工具箱中有现成的。

lsjjm

1. 标题有误"线段"应为"多线段"
2. 下面是2000的程序, 我现在在2005运行了一下, 有点小BUG, 你再调试调试.
(defun c:test (/ p ent )
  (setvar "osmode" 0)
  (setq ent (entsel "\nPick Polyline:"))
  (setq   p (getpoint "\npick Reference point:"))
  (setq  p1 (getpoint "\nSecond point:"))
  (vl-cmdf "explode" ent "")
  (vl-cmdf "copy" (ssget "c" (polar p (/ pi 4) 0.01)(polar p (* 1.25 pi) 0.01))
                        "" p p1 "")
  (setq entl (entget (entlast)))
  (vl-cmdf "undo" 2 "")
  (entmake (cdr entl)))
)

陌生人

严格的说，炸开了，就不能算“克隆”了

lsjjm

最初由 陌生人 发布
[B]严格的说，炸开了，就不能算“克隆”了 [/B]

不能这么说吧?  况且炸开后复原了呀?!

ll_j

最初由 yindb 发布
[B]最初的想法：想克隆从1->2->3的这一部分，但是法帖数天，无人问津。自己想了几个笨的法子.希望各位大侠不惜赐教。

有一多边形,我在上面选取三个点，并且通过measure取得图中的点（为了试验我把步长设为0.5），我?.. [/B]

看看这里：http://xdcad.net/forum/showthrea ... d=285584#post285584的Pi.lsp是否适用？

yindb

看看这里：http://xdcad.net/forum/showthrea ... .lsp是否适用？

我用了一下您的这个程序，但是不是和我说的一样，你的方法是实现了顶点间的部分克隆，我想说的是任意两点间的克隆，第二个点就是起到定位的作用，定位是取哪个部分的多段线。

eachy

最初由 yindb 发布
[B]
我用了一下您的这个程序，但是不是和我说的一样，你的方法是实现了顶点间的部分克隆，我想说?.. [/B]

2. 
   
3. (defun c:XDTB_Curve_C2p        (/ e p1 p2 e1 p)
   
4.   (if (and (setq e (xdrx_entsel
   
5.                      "\n拾取曲线起点: "
   
6.                      '((0 . "*polyline,line,spline,arc"))
   
7.                    )
   
8.            )
   
9.            (setq p1 (cadr (xdrx_curve_ClosestPoint (car e) (last e))))
   
10.            (setq p2 (getpoint p1 "\n结束点: "))
    
11.            (setq p2 (cadr (xdrx_curve_ClosestPoint (car e) p2)))
    
12.       )
    
13.     (progn
    
14.       (xdrx_begin)
    
15.       (xdrx_entity_TransformedCopy (car e) (xdrx_matrix_identity 3))
    
16.       (xdrx_sysvar_push "osmode")
    
17.       (xdrx_setenttodb (car e))
    
18.       (setvar "osmode" 0)
    
19.       (command ".break" e "f" p1 p1)
    
20.       (xdrx_sysvar_pop)
    
21.       (xdrx_setenttodb (setq e1 (entlast)))
    
22.       (xdrx_sysvar_push "osmode")
    
23.       (setvar "osmode" 0)
    
24.       (if (xdrx_ison p2 (car e))
    
25.         (progn
    
26.           (entdel e1)
    
27.           (command ".break" e "f" p2 p2)
    
28.           (entdel (car e))
    
29.           (setq e1 (entlast))
    
30.         )
    
31.         (progn
    
32.           (entdel (car e))
    
33.           (command ".break" (list e1 p2) "f" p2 p2)
    
34.           (entdel (entlast))
    
35.         )
    
36.       )
    
37.       (if (setq p (getpoint p1 "\n目标点: "))
    
38.         (command ".move" (list e1 p1) "" p1 p)
    
39.       )
    
40.       (xdrx_sysvar_pop)
    
41.       (xdrx_end)
    
42.     )
    
43.   )
    
44.   (princ)
    
45. )

<br /> (defun c:XDTB_Curve_C2p        (/ e p1 p2 e1 p)<br />   (if (and (setq e (xdrx_entsel<br />                      "\n拾取曲线起点: "<br />                      '((0 . "*polyline,line,spline,arc"))<br />                    )<br />            )<br />            (setq p1 (cadr (xdrx_curve_ClosestPoint (car e) (last e))))<br />            (setq p2 (getpoint p1 "\n结束点: "))<br />            (setq p2 (cadr (xdrx_curve_ClosestPoint (car e) p2)))<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (xdrx_entity_TransformedCopy (car e) (xdrx_matrix_identity 3))<br />       (xdrx_sysvar_push "osmode")<br />       (xdrx_setenttodb (car e))<br />       (setvar "osmode" 0)<br />       (command ".break" e "f" p1 p1)<br />       (xdrx_sysvar_pop)<br />       (xdrx_setenttodb (setq e1 (entlast)))<br />       (xdrx_sysvar_push "osmode")<br />       (setvar "osmode" 0)<br />       (if (xdrx_ison p2 (car e))<br />         (progn<br />           (entdel e1)<br />           (command ".break" e "f" p2 p2)<br />           (entdel (car e))<br />           (setq e1 (entlast))<br />         )<br />         (progn<br />           (entdel (car e))<br />           (command ".break" (list e1 p2) "f" p2 p2)<br />           (entdel (entlast))<br />         )<br />       )<br />       (if (setq p (getpoint p1 "\n目标点: "))<br />         (command ".move" (list e1 p1) "" p1 p)<br />       )<br />       (xdrx_sysvar_pop)<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )

yindb

没用过lisp，这个怎么用啊？有arx的代码吗？看来真得看看lisp了，这里用lisp得人好多啊！

XDSoft

最初由 yindb 发布
[B]没用过lisp，这个怎么用啊？有arx的代码吗？看来真得看看lisp了，这里用lisp得人好多啊！ [/B]

ARX问题请发贴到ARX论坛。

如果用ARX，你可以用AcDbEntity::transformedCopy 拷贝源多段线生成新的多段线实体后，编辑顶点，用AcDbPolyline::removePointAt(...)把需要的子段外的顶点删除掉就可以了。