（完成）[编程申请]：能否编程实现以鼠标的点击方向来确定多义线的连接顺序？

guxing129

多谢晓东等各位大侠赐教！再请教一下：在PEDIT指令中是以线段或圆弧选取的先后来确定多义线的连接顺序的，能否编程实现在弧线连接交点处单击鼠标，以鼠标的点击方向来确定多义线的连接顺序？谢谢！

eachy

最初由 guxing129 发布
[B]多谢晓东等各位大侠赐教！再请教一下：在PEDIT指令中是以线段或圆弧选取的先后来确定多义线的连接顺序的，能否编程实现在弧线连接交点处单击鼠标，以鼠标的点击方向来确定多义线的连接顺序？谢谢！ [/B]

程序写好了，顺便问个问题：什么情况需要这种反向JOIN？
拷贝至晓东工具箱 Lisp 目录下后加载即可。

2. 
   
3. ($xdrx_load "xdlsp.lsp")
   
4. (defun c:cu_reverse (/ e box tfz)
   
5.   (if (setq e (xdrx_entsel
   
6.                 "\n请点取曲线<退出>:"
   
7.                 '((0 . "LINE,*POLYLINE,ARC,CIRCLE,ELLIPSE,SPLINE"))
   
8.               )
   
9.       )
   
10.     (progn
    
11.       (setq e (car e))
    
12.       (xdrx_begin
    
13.         '("cmdecho" 0 "blipmode" 0 "osmode" 0
    
14.          )
    
15.       )
    
16.       (if (setq        tfz (apply
    
17.                       'xdrx_isptoffscr
    
18.                       (setq box (xdrx_entity_box e))
    
19.                     )
    
20.           )
    
21.         (progn
    
22.           (xdrx_drawing_viewsave)
    
23.           (xdrx_drawing_zoomw (cadr box) (last box) t)
    
24.         )
    
25.       )
    
26.       (#xd_grdraw (car (xdrx_curve_getpoint e)))
    
27.       (IF (= (setq key (xdrx_yesorno "\是否转向<是>: ")) 1)
    
28.         (progn (xdrx_curve_reverse E)
    
29.                (#xd_grdraw (last (xdrx_curve_getpoint e)))
    
30.                (PRINC "\n\t成功反向...")
    
31.         )
    
32.       )
    
33.       (if tfz
    
34.         (xdrx_drawing_viewres)
    
35.       )
    
36. 
    
37.       (xdrx_end)
    
38.     )
    
39.   )
    
40.   (princ)
    
41. )
    

<br /> ($xdrx_load "xdlsp.lsp")<br /> (defun c:cu_reverse (/ e box tfz)<br />   (if (setq e (xdrx_entsel<br />                 "\n请点取曲线<退出>:"<br />                 '((0 . "LINE,*POLYLINE,ARC,CIRCLE,ELLIPSE,SPLINE"))<br />               )<br />       )<br />     (progn<br />       (setq e (car e))<br />       (xdrx_begin<br />         '("cmdecho" 0 "blipmode" 0 "osmode" 0<br />          )<br />       )<br />       (if (setq        tfz (apply<br />                       'xdrx_isptoffscr<br />                       (setq box (xdrx_entity_box e))<br />                     )<br />           )<br />         (progn<br />           (xdrx_drawing_viewsave)<br />           (xdrx_drawing_zoomw (cadr box) (last box) t)<br />         )<br />       )<br />       (#xd_grdraw (car (xdrx_curve_getpoint e)))<br />       (IF (= (setq key (xdrx_yesorno "\是否转向<是>: ")) 1)<br />         (progn (xdrx_curve_reverse E)<br />                (#xd_grdraw (last (xdrx_curve_getpoint e)))<br />                (PRINC "\n\t成功反向...")<br />         )<br />       )<br />       (if tfz<br />         (xdrx_drawing_viewres)<br />       )<br /> <br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br />