请教关于多段线其中的部分线段整体偏置出的问题

lite

如果是多段线，怎么把多段线其中的部分线段整体偏置出来（根据拾取指定两点，并指示要偏置的部分来实现偏置），如下图所示：
怎么用lisp实现多段线其中的部分线段整体偏置出来？

wjlaugh

liu22737 发表于 2014-4-23 08:41
大师们给你的只是一个思路，仅供参考，

这种小程序我帮你写了一个，

请问程序是否用到了QAFLAGS变量

bai2000

选择对象:
调用(*push-error-using-command*)前无法从 *error* 调用(command)。
建议将(command)调用转换为(command-s)。

lite

谁有这样的lisp，能否帮帮忙，经常要用，谢谢！！！

ll_j

没有这样的程序，早些年是有些局部偏移的程序，但都是仅一段，没有过这种两点之间的。
据我所知，这种程序使用纯ALisp还是比较麻烦的，判断一个点是否在多段线上，在哪一段都是很麻烦的，总之不容易。似乎Vlisp要容易一些，不过我不会。
最近好像G版露面也比较少了，如果他出手，应该不成问题。
我早已没精力写程序了，只能提一个思路，如果哪位有兴趣，不妨试试。
思路：选择多段线（点选，在要偏移区间内），设定区间首尾点，提取首尾点之间节段参数，在区间内构成临时多段线，偏移，删除临时多段线。

llsheng_73

可以把我发过的点表偏移拿去认真修改下，首先保证偏移不出问题，然后根据你需要偏移出去的点对应取得偏移后的点，把最终得到的点表用PL画出来

lite

感谢llsheng_73  ll_j 的热心回复，谢谢！！！

自贡黄明儒

下面我将部分多段线分离出

1. (defun c:fff (/ CMDECHO1 N OSMODE1 P2 PET SS SS1 SS2)
   
2.   (defun GetTwoPts (ss / XY)
   
3.     (setq xy (last (ssnamex ss 0)))
   
4.     (list (last (cadr xy)) (last (cadddr xy)))
   
5.   )
   
6.   (setq CMDECHO1 (getvar "CMDECHO"))
   
7.   (setq osmode1 (getvar "osmode"))
   
8.   (setq pet (getvar "PEDITACCEPT"))
   
9. 
   
10. 
    
11.   (Setvar "CMDECHO" 0)
    
12.   (Setvar "osmode" 0)
    
13.   (setvar "PEDITACCEPT" 1)
    
14. 
    
15.   (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
    
16.     (progn (setq p2 (GetTwoPts ss))
    
17.            (repeat (setq n (sslength ss))
    
18.              (vl-cmdf "_.explode" (ssname ss (setq n (1- n))))
    
19.              (setq ss1 (ssget "_P"))
    
20.              (setq ss2 (ssget "W" (car p2) (cadr p2)))
    
21.              (if (and ss1 ss2)
    
22.                (progn
    
23.                  (vl-cmdf "_.Select" ss1 "_Remove" ss2 "")
    
24.                  (setq ss1 (ssget "_P"))
    
25.                )
    
26.              )
    
27.              (if ss1
    
28.                (command "_pedit" "_M" ss1 "" "_j" "" "")
    
29.              )
    
30.              (if ss2
    
31.                (command "_pedit" "_M" ss2 "" "_j" "" "")
    
32.              )
    
33.            )
    
34.     )
    
35.   )
    
36.   (Setvar "CMDECHO" CMDECHO1)
    
37.   (Setvar "osmode" osmode1)
    
38.   (setvar "PEDITACCEPT" pet)
    
39.   (princ)
    
40. )
    
41. 
    

(defun c:fff (/ CMDECHO1 N OSMODE1 P2 PET SS SS1 SS2)<br />   (defun GetTwoPts (ss / XY)<br />     (setq xy (last (ssnamex ss 0)))<br />     (list (last (cadr xy)) (last (cadddr xy)))<br />   )<br />   (setq CMDECHO1 (getvar "CMDECHO"))<br />   (setq osmode1 (getvar "osmode"))<br />   (setq pet (getvar "PEDITACCEPT"))<br /> <br /> <br />   (Setvar "CMDECHO" 0)<br />   (Setvar "osmode" 0)<br />   (setvar "PEDITACCEPT" 1)<br /> <br />   (if (setq ss (ssget '((0 . "LWPOLYLINE"))))<br />     (progn (setq p2 (GetTwoPts ss))<br />            (repeat (setq n (sslength ss))<br />              (vl-cmdf "_.explode" (ssname ss (setq n (1- n))))<br />              (setq ss1 (ssget "_P"))<br />              (setq ss2 (ssget "W" (car p2) (cadr p2)))<br />              (if (and ss1 ss2)<br />                (progn<br />                  (vl-cmdf "_.Select" ss1 "_Remove" ss2 "")<br />                  (setq ss1 (ssget "_P"))<br />                )<br />              )<br />              (if ss1<br />                (command "_pedit" "_M" ss1 "" "_j" "" "")<br />              )<br />              (if ss2<br />                (command "_pedit" "_M" ss2 "" "_j" "" "")<br />              )<br />            )<br />     )<br />   )<br />   (Setvar "CMDECHO" CMDECHO1)<br />   (Setvar "osmode" osmode1)<br />   (setvar "PEDITACCEPT" pet)<br />   (princ)<br /> )<br /> <br />

稍改就可满足你的要求

ysq101

自贡黄明儒 发表于 2013-12-28 08:36
下面我将部分多段线分离出

稍改就可满足你的要求

黄大师。。。目测你对多线段很有研究啊。。。
请教个问题吧
关于你之前发的关于多线段的子函数我全部都看过了。。

就是没有可以返回多线段的第N段   子函数？？
这个功能可能实现吗？？
求指教

树櫴希德

看看黄大侠成就

lite

自贡黄明儒 发表于 2013-12-28 08:36
下面我将部分多段线分离出

稍改就可满足你的要求

长老你好，你的这个程序并不能做到我图中那样哦。

xyp1964

全自动有点麻烦：