[求助]：多义线方向问题

网络水手

有没有什么办法可以让多义线具有方向性, 并且可以改变多义线的方向! 谢谢!

xyp1964

最初由 网络水手 发布
[B]有没有什么办法可以让多义线具有方向性, 并且可以改变多义线的方向! 谢谢! [/B]

多义线本身就具有方向性。
不知要如何改变多义线的方向？
可以参考：
http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
之test065（多义线顶点序号及坐标）程序。

网络水手

不知要如何改变多义线的方向？
就是起点变终点,终点变起点!
因为我计划的程序是两条多义线的点对应问题! 要求两条多义线的点要一一对应!
谢谢xyp1964!
谢谢大家的关注!

maogx

何为方向???

网络水手

对于不闭合的多义线一般按顺时针方向自动设定起点和终点。

对于闭合的多义线起点却定不下来，当然方向也是顺时针方向。

如何才能更改为逆时针方向呢？闭合的多义线如何确定其起点呢？

hisum

把每个顶点坐标读出来，然后再画一条线，按倒序画就可以了。

oyxx_1023

最初由 网络水手 发布
[B]对于不闭合的多义线一般按顺时针方向自动设定起点和终点。

对于闭合的多义线起点却定不下来，当然方向也是顺时针方向。

如何才能更改为逆时针方向呢？闭合的多义线如何确定其起点呢？ [/B]

得到多义线的顶点列表,第一个坐标就是多义线的起点.
而且,闭合的多义线好象有一个DXF的值和不闭合的不一样的.

网络水手

最初由 oyxx_1023 发布
[B][QUOTE]最初由 网络水手 发布
[B]对于不闭合的多义线一般按顺时针方向自动设定起点和终点。

对于闭合的多义线起点却定不下来，当然方向也是顺时针方向。

如何才能更改为逆时针方向呢？闭合的多义线如?.. [/B]

我找找看! 先谢谢了!

xyp1964

方法一般：
功能：改变多义线方向(不支持非等宽、带圆弧的多义线)

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
    
12. 
    
13. ;;;改变多义线方向(不支持非等宽、带圆弧)
    
14. (defun c:test ()
    
15.   (CMDLASC0)
    
16.   (while (setq s1 (car (entsel "\n选择对象<退出> : ")))
    
17.     (if        (or (= (DXF 0 (entget s1)) "POLYLINE")
    
18.             (= (DXF 0 (entget s1)) "LWPOLYLINE")
    
19.         )
    
20.       (progn
    
21.         (setq e            (vlax-ename->vla-object s1)
    
22.               i            -1
    
23.               pw    (dxf 40 (entget s1))
    
24.               la    (dxf 8 (entget s1))
    
25.               ptlst '()
    
26.         )
    
27.         (while
    
28.           (setq pt0 (vlax-curve-getPointAtParam e (setq i (1+ i))))
    
29.            (princ)
    
30.         )
    
31.         (if (= (DXF 70 (entget s1)) 1)
    
32.           (setq n (- i 1))
    
33.           (setq n i)
    
34.         )
    
35.         (setq i -1)
    
36.         (repeat        n
    
37.           (setq        pt0   (vlax-curve-getPointAtParam e (setq i (1+ i)))
    
38.                 ptlst (cons pt0 ptlst)
    
39.           )
    
40. ;;;以下部分可检验方向的改变
    
41.           (MKLA "坐标编号" 1)
    
42.           (command "text"
    
43.                    "j"
    
44.                    "mr"
    
45.                    (polar pt0 (* pi 0.75) (* sc 200))
    
46.                    (* sc 400)
    
47.                    "0"
    
48.                    (rtos (+ 1 i) 2 0)
    
49.           )
    
50.         )
    
51. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
52.         (mkla1 la)
    
53.         (setvar "plinewid" pw)
    
54.         (command "pline")
    
55.         (while (setq pt (car ptlst))
    
56.           (setq ptlst (cdr ptlst))
    
57.           (command pt)
    
58.         )
    
59.         (if (= (DXF 70 (entget s1)) 1)
    
60.           (command "c")
    
61.           (command)
    
62.         )
    
63.         (vl-erase s1)
    
64.       )
    
65.     )
    
66.   )
    
67.   (CMDLA1)
    
68. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;<br /> <br /> ;;;改变多义线方向(不支持非等宽、带圆弧)<br /> (defun c:test ()<br />   (CMDLASC0)<br />   (while (setq s1 (car (entsel "\n选择对象<退出> : ")))<br />     (if        (or (= (DXF 0 (entget s1)) "POLYLINE")<br />             (= (DXF 0 (entget s1)) "LWPOLYLINE")<br />         )<br />       (progn<br />         (setq e            (vlax-ename->vla-object s1)<br />               i            -1<br />               pw    (dxf 40 (entget s1))<br />               la    (dxf 8 (entget s1))<br />               ptlst '()<br />         )<br />         (while<br />           (setq pt0 (vlax-curve-getPointAtParam e (setq i (1+ i))))<br />            (princ)<br />         )<br />         (if (= (DXF 70 (entget s1)) 1)<br />           (setq n (- i 1))<br />           (setq n i)<br />         )<br />         (setq i -1)<br />         (repeat        n<br />           (setq        pt0   (vlax-curve-getPointAtParam e (setq i (1+ i)))<br />                 ptlst (cons pt0 ptlst)<br />           )<br /> ;;;以下部分可检验方向的改变<br />           (MKLA "坐标编号" 1)<br />           (command "text"<br />                    "j"<br />                    "mr"<br />                    (polar pt0 (* pi 0.75) (* sc 200))<br />                    (* sc 400)<br />                    "0"<br />                    (rtos (+ 1 i) 2 0)<br />           )<br />         )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />         (mkla1 la)<br />         (setvar "plinewid" pw)<br />         (command "pline")<br />         (while (setq pt (car ptlst))<br />           (setq ptlst (cdr ptlst))<br />           (command pt)<br />         )<br />         (if (= (DXF 70 (entget s1)) 1)<br />           (command "c")<br />           (command)<br />         )<br />         (vl-erase s1)<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]

网络水手

(command "pline")
        (while (setq pt (car ptlst))
          (setq ptlst (cdr ptlst))
          (command pt)
        )
        (if (= (DXF 70 (entget s1)) 1)
          (command "c")
          (command)
        )
        (vl-erase s1)

反向画一条多义线, 然后删除前面的实体! ! OK!

陌生人

我也写过一个的，不过放在家里了。
现在在办公室

网络水手

最初由 陌生人 发布
[B]我也写过一个的，不过放在家里了。
现在在办公室 [/B]

帮忙发给我看看, 行吗?

email: ahxujian@126.com