闭合PL线内、外修剪

xyp1964

2. 
   
3. ;; 闭合PL线内、外修剪
   
4. ;; 需要e派工具箱的支持 [url=http://xyp1964.ys168.com]http://xyp1964.ys168.com[/url]
   
5. (defun c:tt (/ s1 p0 p1 dd s2 ptn pt)
   
6.   (CMDLA0)
   
7.   (if (and (setq s1 (car (entsel "\n选择<退出>: ")))
   
8.     (= (xyp-get-dxf 0 s1) "LWPOLYLINE")
   
9.     (= (xyp-get-dxf 70 s1) 1)
   
10.     (XYP-CURVE-CLOSE s1)
    
11.     (setq p0 (xyp-get-CurveMidPoint s1))
    
12.     (setq p1 (getpoint p0 "\n方向位置点<退出>: "))
    
13.       )
    
14.     (progn
    
15.       (setq dd (distance (vlax-curve-getclosestpointto s1 p1) p1))
    
16.       (command "offset" dd s1 p1 "")
    
17.       (setq s2 (entlast)
    
18.      ptn (xyp-get-Vertexs s2 0)
    
19.      ptn (cons (last ptn) ptn)
    
20.       )
    
21.       (xyp-erase s2)
    
22.       (repeat 10
    
23. (command "_.trim" s1 "" "f")
    
24. (foreach pt ptn
    
25.    (command pt)
    
26. )
    
27. (command "" "")
    
28.       )
    
29.     )
    
30.   )
    
31.   (CMDLA1)
    
32. )
    

<br /> ;; 闭合PL线内、外修剪<br /> ;; 需要e派<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a>箱的支持 [url=http://xyp1964.ys168.com]http://xyp1964.ys168.com[/url]<br /> (defun c:tt (/ s1 p0 p1 dd s2 ptn pt)<br />   (CMDLA0)<br />   (if (and (setq s1 (car (entsel "\n选择<退出>: ")))<br />     (= (xyp-get-dxf 0 s1) "LWPOLYLINE")<br />     (= (xyp-get-dxf 70 s1) 1)<br />     (XYP-CURVE-CLOSE s1)<br />     (setq p0 (xyp-get-CurveMidPoint s1))<br />     (setq p1 (getpoint p0 "\n方向位置点<退出>: "))<br />       )<br />     (progn<br />       (setq dd (distance (vlax-curve-getclosestpointto s1 p1) p1))<br />       (command "offset" dd s1 p1 "")<br />       (setq s2 (entlast)<br />      ptn (xyp-get-Vertexs s2 0)<br />      ptn (cons (last ptn) ptn)<br />       )<br />       (xyp-erase s2)<br />       (repeat 10<br /> (command "_.trim" s1 "" "f")<br /> (foreach pt ptn<br />    (command pt)<br /> )<br /> (command "" "")<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )<br />

‘

npcer

好像挺有意思的这个

lijunfa12345

谢谢，很适用。。。。。

yk1216

谢谢分享了

z073445

怎么显示函数错误

cnks

动画里面好像顶上一条短线没有修剪掉

xyp1964

cnks 发表于 2011-8-17 22:24
动画里面好像顶上一条短线没有修剪掉

顶上的一条短线与剪切线无关

xiaxiang

院长如果能适当放出些通用函数就好了

gbhsu

放出些通用函数就好了 放

cnks

xyp1964 发表于 2011-8-17 22:42
顶上的一条短线与剪切线无关

是么？第一次剪切留下外部，内部有一个短线没剪掉，第二次剪切留下内部，外部的全部被剪掉了，好像不合理

xyp1964

cnks 发表于 2011-8-18 14:53
是么？第一次剪切留下外部，内部有一个短线没剪掉，第二次剪切留下内部，外部的全部被剪掉了，好像不合理 ...

第一次剪切留下外部，内部有一个短线没剪掉——那是可控、故意的