曲线交点间隔打断

xyp1964

2. 
   
3. ;; 交点间隔打断
   
4. (defun c:tt ()
   
5.   (CMDLA0)
   
6.   (while (setq s1 (car (entsel "\n选择: ")))
   
7.     (setq ptn (XYP-GET-CURVEINTERSLENG s1 1)
   
8.   ptn (xyp-Curve-PtsLengSort s1 ptn t)
   
9.   i   0
   
10.     )
    
11.     (while (and (setq p1 (nth i ptn))
    
12. (setq p2 (nth (+ i 1) ptn))
    
13.    )
    
14.       (xyp-BreakE s1 p2 p1)
    
15.       (setq i (+ i 2))
    
16.     )
    
17.   )
    
18.   (CMDLA1)
    
19. )
    

<br /> ;; 交点间隔打断<br /> (defun c:tt ()<br />   (CMDLA0)<br />   (while (setq s1 (car (entsel "\n选择: ")))<br />     (setq ptn (XYP-GET-CURVEINTERSLENG s1 1)<br />   ptn (xyp-Curve-PtsLengSort s1 ptn t)<br />   i   0<br />     )<br />     (while (and (setq p1 (nth i ptn))<br /> (setq p2 (nth (+ i 1) ptn))<br />    )<br />       (xyp-BreakE s1 p2 p1)<br />       (setq i (+ i 2))<br />     )<br />   )<br />   (CMDLA1)<br /> )<br />

xiao88gang

你的这个能改为把一条曲线按指定的个数和指定宽度打断吗？

jkop

收藏！！
虽然不常用，但还是有机会用到，谢谢分享！

bai2000

不错，哪位能做个山寨版么？

smartstar

院长又出手了，占个沙发。

preone

排队学习~~

sachindkini

DEAR SIR, U R GENIUS   

仲文玉

院长神人也

longer1000

排队学习~~

陈亚娣

排队学习

墨者

谢谢楼主分享

LIULISHENG

还能这样玩