(求助)请教一下各位大神<两曲线平行等分>能否可以实现

999999

1.选择需要均分的线（均分的线为当前图层）2.请输入均分的数量


各位路过的大神，有空的话，看看是否可以帮小弟实现这个功能

guohq

1. (defun c:T0406( / COUNT NUM S1 S2 OS1 OS2 Len1 Len2 PTS1  PTS2 I J P1 P2 REV)
   
2.   ;使用步骤：
   
3.   ;1.选择曲线1
   
4.   ;2.选择曲线2
   
5.   ;3.输入曲线1 与 曲线2之间的内插根数
   
6.   ;4.如果曲线1 与 曲线2的起点不在一起，提示是否反向时输入 y或Y ,否则输入N或n!!!
   
7.   ;注1：此工具对拆线支持的不太友好
   
8.   ;注2：为方便，此工具对不做过多的类型判断，使用时需要按提示输入
   
9. 
   
10.   (setvar "osmode" 0)
    
11.   (setq COUNT 100);等分数 如果觉得画得不够细腻，此值设大一点
    
12.   (setq S1 (car (entsel "\n选择曲线1:")))
    
13.   (setq S2 (car (entsel "\n选择曲线2:")))
    
14.   (setq NUM (getint "\n输入插入根数"))
    
15.   (setq REV (getstring "\n是否反向某一根线（Y/N）："))
    
16.   (setq OS1 (vlax-ename->vla-object S1))
    
17.   (setq OS2 (vlax-ename->vla-object S2))  
    
18.   (setq Len1 (/ (vlax-curve-getDistAtParam OS1 (vlax-curve-getEndParam OS1)) COUNT)) ;获取线1的每份长度
    
19.   (setq Len2 (/ (vlax-curve-getDistAtParam OS2 (vlax-curve-getEndParam OS2)) COUNT)) ;获取线2的每份长度
    
20.   (setq Index 1)
    
21.   (setq PTS1 (list (vlax-curve-getStartPoint OS1)))
    
22.   (setq PTS2 (list (vlax-curve-getStartPoint OS2)))
    
23.   (while (< Index COUNT)
    
24.     (setq PTS1 (append PTS1 (list (vlax-curve-getPointAtDist OS1 (* Index Len1)))))
    
25.     (setq PTS2 (append PTS2 (list (vlax-curve-getPointAtDist OS2 (* Index Len2)))))
    
26.     (setq Index (1+ Index))
    
27.     )
    
28.   (setq PTS1 (append PTS1 (list (vlax-curve-getEndPoint OS1))))
    
29.   (setq PTS2 (append PTS2 (list (vlax-curve-getEndPoint OS2))))
    
30.   (if (= "Y" (strcase REV))
    
31.     (setq PTS2 (reverse PTS2))
    
32.     )  
    
33.   (setq I 1  NUM(1+ NUM) COUNT (length PTS1))
    
34.   (while (< I NUM)
    
35.     (setq J 0)
    
36.     (command "SPLINE")
    
37.     (while (< J COUNT)
    
38.       (setq P1 (nth J PTS1) P2 (nth J PTS2))
    
39.       (command (polar P1 (angle P1 P2) (/ (* (distance P1 P2) I) NUM)))
    
40.       (setq J (1+ J))
    
41.       )
    
42.     (command "")(command "")(command "")   
    
43.     (setq I (1+ I))
    
44.     )
    
45.   )
    
46. 
    
47. 
    
48. 
    

(defun c:T0406( / COUNT NUM S1 S2 OS1 OS2 Len1 Len2 PTS1  PTS2 I J P1 P2 REV)<br />   ;使用步骤：<br />   ;1.选择曲线1<br />   ;2.选择曲线2<br />   ;3.输入曲线1 与 曲线2之间的内插根数<br />   ;4.如果曲线1 与 曲线2的起点不在一起，提示是否反向时输入 y或Y ,否则输入N或n!!!<br />   ;注1：此工具对拆线支持的不太友好<br />   ;注2：为方便，此工具对不做过多的类型判断，使用时需要按提示输入<br /> <br />   (setvar "osmode" 0)<br />   (setq COUNT 100);等分数 如果觉得画得不够细腻，此值设大一点<br />   (setq S1 (car (entsel "\n选择曲线1:")))<br />   (setq S2 (car (entsel "\n选择曲线2:")))<br />   (setq NUM (getint "\n输入插入根数"))<br />   (setq REV (getstring "\n是否反向某一根线（Y/N）："))<br />   (setq OS1 (vlax-ename->vla-object S1))<br />   (setq OS2 (vlax-ename->vla-object S2))  <br />   (setq Len1 (/ (vlax-curve-getDistAtParam OS1 (vlax-curve-getEndParam OS1)) COUNT)) ;获取线1的每份长度<br />   (setq Len2 (/ (vlax-curve-getDistAtParam OS2 (vlax-curve-getEndParam OS2)) COUNT)) ;获取线2的每份长度<br />   (setq Index 1)<br />   (setq PTS1 (list (vlax-curve-getStartPoint OS1)))<br />   (setq PTS2 (list (vlax-curve-getStartPoint OS2)))<br />   (while (< Index COUNT)<br />     (setq PTS1 (append PTS1 (list (vlax-curve-getPointAtDist OS1 (* Index Len1)))))<br />     (setq PTS2 (append PTS2 (list (vlax-curve-getPointAtDist OS2 (* Index Len2)))))<br />     (setq Index (1+ Index))<br />     )<br />   (setq PTS1 (append PTS1 (list (vlax-curve-getEndPoint OS1))))<br />   (setq PTS2 (append PTS2 (list (vlax-curve-getEndPoint OS2))))<br />   (if (= "Y" (strcase REV))<br />     (setq PTS2 (reverse PTS2))<br />     )  <br />   (setq I 1  NUM(1+ NUM) COUNT (length PTS1))<br />   (while (< I NUM)<br />     (setq J 0)<br />     (command "SPLINE")<br />     (while (< J COUNT)<br />       (setq P1 (nth J PTS1) P2 (nth J PTS2))<br />       (command (polar P1 (angle P1 P2) (/ (* (distance P1 P2) I) NUM)))<br />       (setq J (1+ J))<br />       )<br />     (command "")(command "")(command "")   <br />     (setq I (1+ I))<br />     )<br />   )<br /> <br /> <br /> <br />

bssurvey

感謝guohq分享

bai2000

真的，对折线支持不好，有弯曲，希望能改进

999999

guohq 发表于 2022-4-6 23:43

谢谢大神出手，非常好用呢，一开始我理解错了反向某根线是什么意思，然后就失败了，后来换一下，就可以用了，谢谢大神

liufii

guohq 发表于 2022-4-6 22:16

多谢分享，这个比之前用的两个要简洁一些，请问连接线能改成多段线连接吗？好了，把SPLINE改成PLINE就可以了。