剪切穿过圆的图元，如何判断剪切圆内还是圆外(已解决)

Andyhon

...为何此处非要执行两次...
是的,多年以来未见改善,就两次呗

xiaxiang

highflybir 发表于 2011-10-31 15:40
(polar cen  ang  (+ rad eps))
之类的可以让你直接取得圆内或者圆外的一点.

感谢高飞鸟！现上传非偏移方法的圆内外剪切程序，直接求点集的，这样速度比偏移快吗？可以批量处理的来测试一下。

2. 
   
3. (defun c:ctrim ( / circ_pts lst ang inc tmp seg pt ent el pt rad
   
4.                    ctrim_err x zmode adist f_pts svd_os svd_cmd svd_err)
   
5. 
   
6. (defun ctrim_err (s)
   
7.   (if(/= s "Function cancelled")
   
8.   (princ(strcat "\n\n" s))     )
   
9.   (setvar "cmdecho" svd_cmd)
   
10.   (setvar "osmode" svd_os)
    
11.   (setq *error* svd_err)
    
12. )
    
13. 
    
14. (defun circ_pts (cen rad segs / lst cnt)
    
15.   (setq cnt 0)
    
16.   (repeat segs
    
17.     (setq lst (cons (polar cen (+ 0 (* cnt (/ (* pi 2) segs))) rad)
    
18.     lst
    
19.       )
    
20.   cnt (1+ cnt)
    
21.     )
    
22.   )
    
23.   ;(setq lst (append lst (list (nth 0 lst))))
    
24.   (princ)
    
25. lst
    
26. )
    
27. (setq ent     (car(entsel "\nSelect circle: "))
    
28.        svd_err *error*
    
29.        *error* ctrim_err
    
30.        svd_os  (getvar "osmode")
    
31.        svd_cmd (getvar "cmdecho")
    
32. )
    
33. (setvar "cmdecho" 0)
    
34. (setvar "osmode" 0)
    
35.    (initget  128 "Z X")
    
36.   (setq zmode(getkword "\n输入选项 (Z内剪切/X外剪切)(默认Z内剪切): "))
    
37.   (if (null zmode) (setq zmode "Z"))
    
38.     (cond
    
39.      ((= zmode "Z") (setq adist -0.1))
    
40.      ((= zmode "X") (setq adist 0.1))
    
41.     )
    
42. (if(and ent
    
43.      (=(cdr(assoc 0(entget ent)))"CIRCLE")
    
44.     )
    
45.   (progn
    
46.    (setq el (entget ent))
    
47.    (setq pt (cdr (assoc 10 el)))
    
48.    (setq rad (cdr (assoc 40 el)))
    
49.    (setq f_pts(circ_pts pt (+ rad adist) 25))  
    
50.    (repeat 2   
    
51.    (command "trim" ent "" "f")   
    
52.    (foreach x f_pts(command x))  
    
53.    (command "" "")
    
54.    )
    
55.    (redraw)
    
56.   )
    
57. )
    
58. (setvar "cmdecho" svd_cmd)
    
59. (setvar "osmode" svd_os)
    
60. (setq *error* svd_err)
    
61. (princ)
    
62. )
    

<br /> (defun c:ctrim ( / circ_pts lst ang inc tmp seg pt ent el pt rad<br />                    ctrim_err x zmode adist f_pts svd_os svd_cmd svd_err) <br /> <br /> (defun ctrim_err (s) <br />   (if(/= s "Function cancelled") <br />   (princ(strcat "\n\n" s))     ) <br />   (setvar "cmdecho" svd_cmd) <br />   (setvar "osmode" svd_os) <br />   (setq *error* svd_err) <br /> ) <br /> <br /> (defun circ_pts (cen rad segs / lst cnt) <br />   (setq cnt 0)<br />   (repeat segs<br />     (setq lst (cons (polar cen (+ 0 (* cnt (/ (* pi 2) segs))) rad)<br />     lst<br />       )<br />   cnt (1+ cnt)<br />     )<br />   )<br />   ;(setq lst (append lst (list (nth 0 lst))))<br />   (princ) <br /> lst<br /> ) <br /> (setq ent     (car(entsel "\nSelect circle: ")) <br />        svd_err *error* <br />        *error* ctrim_err <br />        svd_os  (getvar "osmode") <br />        svd_cmd (getvar "cmdecho") <br /> ) <br /> (setvar "cmdecho" 0) <br /> (setvar "osmode" 0) <br />    (initget  128 "Z X")<br />   (setq zmode(getkword "\n输入选项 (Z内剪切/X外剪切)(默认Z内剪切): "))<br />   (if (null zmode) (setq zmode "Z"))<br />     (cond<br />      ((= zmode "Z") (setq adist -0.1))<br />      ((= zmode "X") (setq adist 0.1))<br />     )<br /> (if(and ent <br />      (=(cdr(assoc 0(entget ent)))"CIRCLE") <br />     ) <br />   (progn <br />    (setq el (entget ent))<br />    (setq pt (cdr (assoc 10 el)))<br />    (setq rad (cdr (assoc 40 el)))<br />    (setq f_pts(circ_pts pt (+ rad adist) 25))  <br />    (repeat 2   <br />    (command "trim" ent "" "f")   <br />    (foreach x f_pts(command x))  <br />    (command "" "") <br />    )<br />    (redraw)<br />   ) <br /> ) <br /> (setvar "cmdecho" svd_cmd) <br /> (setvar "osmode" svd_os) <br /> (setq *error* svd_err) <br /> (princ) <br /> ) <br />

zzl9105

为何不直接求出圆与直线的交点，直接进行裁剪呢？
楼主有没有考虑下，闭合多段线对与之相交的内部线的裁剪呀？

yjr111

xiaxiang这程序很不错，能不能不局限为圆，而是扩展到所有封闭曲线？

xiaxiang

yjr111 发表于 2011-11-6 15:23
xiaxiang这程序很不错，能不能不局限为圆，而是扩展到所有封闭曲线？

考虑到这一类程序太多，就不发上来献丑了。
关键问题是，像椭圆这一类图元还可以勉强求点集，
如果不规则多线，多义线，则除了偏移，似乎没有更好的办法。
飞诗那个方向剪切做得不错，也是点集栏选方式。也可以山寨一个。
至于延伸，无非就是在grread上做做文章，也没有什么技术含量

yjr111

xiaxiang 发表于 2011-11-6 17:56
考虑到这一类程序太多，就不发上来献丑了。
关键问题是，像椭圆这一类图元还可以勉强求点集，
如果不规 ...

从收集的源码里找到的，剪切矩形框内的线，和你这放一起。。。不知道谁写的。。。

2. (defun c:tt
   
3. (/ rect e0 e1 pt x ptx pty l1 i p1 p2 p1x p1y point count)
   
4. (setvar "osmode" 0)
   
5. (setq l1 nil)
   
6. (setq i 0)
   
7. (setq rect (car (entsel "\n请选择需剪切的矩形:")))
   
8. (setq e0 (entget rect))
   
9. (while (setq x (nth i e0))
   
10. (if (= (car x) 10)
    
11. (progn
    
12. (setq ptx (nth 1 x))
    
13. (setq pty (nth 2 x))
    
14. (setq x (list ptx pty))
    
15. (setq l1 (cons x l1))
    
16. )
    
17. )
    
18. (setq i (1+ i))
    
19. )
    
20. (reverse l1)
    
21. (setq p1 (car l1))
    
22. (setq p1x (nth 0 p1))
    
23. (setq p1y (nth 1 p1))
    
24. (setq count 0)
    
25. (repeat 3
    
26. (setq count (+ count 1))
    
27. (setq pt (nth count l1))
    
28. (setq ptx (nth 0 pt))
    
29. (setq pty (nth 1 pt))
    
30. (setq point (mapcar '+ p1 pt))
    
31. (setq point (mapcar '/ point '(2.0 2.0 2.0)))
    
32. (if
    
33. (and (/= (nth 0 point) p1x)
    
34. (/= (nth 0 point) ptx)
    
35. (/= (nth 1 point) p1y)
    
36. (/= (nth 1 point) pty)
    
37. )
    
38. (setq p point)
    
39. )
    
40. )
    
41. (setq l1 nil)
    
42. (command "offset" 5 rect p "")
    
43. (setq e0 (entlast))
    
44. (setq e1 (entget e0))
    
45. (princ e1)
    
46. (setq i 0)
    
47. (while (setq x (nth i e1))
    
48. (if (= (car x) 10)
    
49. (progn
    
50. (setq ptx (nth 1 x))
    
51. (setq pty (nth 2 x))
    
52. (setq x (list ptx pty))
    
53. (setq l1 (cons x l1))
    
54. )
    
55. )
    
56. (setq i (1+ i))
    
57. )
    
58. (reverse l1)
    
59. (setq p1 (car l1))
    
60. (setq p2 p1)
    
61. (command "erase" e0 "")
    
62. (setq count 0)
    
63. (repeat 3
    
64. (setq count (+ count 1))
    
65. (setq pt (nth count l1))
    
66. (command "trim" rect "" "f" p1 pt "" "")
    
67. (setq p1 pt)
    
68. )
    
69. (command "trim" rect "" "f" p1 p2 "" "")
    
70. (setvar "osmode" 687)
    
71. )
    

(defun c:tt<br /> (/ rect e0 e1 pt x ptx pty l1 i p1 p2 p1x p1y point count)<br /> (setvar "osmode" 0)<br /> (setq l1 nil)<br /> (setq i 0)<br /> (setq rect (car (entsel "\n请选择需剪切的矩形:")))<br /> (setq e0 (entget rect))<br /> (while (setq x (nth i e0))<br /> (if (= (car x) 10)<br /> (progn<br /> (setq ptx (nth 1 x))<br /> (setq pty (nth 2 x))<br /> (setq x (list ptx pty))<br /> (setq l1 (cons x l1))<br /> )<br /> )<br /> (setq i (1+ i))<br /> )<br /> (reverse l1)<br /> (setq p1 (car l1))<br /> (setq p1x (nth 0 p1))<br /> (setq p1y (nth 1 p1))<br /> (setq count 0)<br /> (repeat 3<br /> (setq count (+ count 1))<br /> (setq pt (nth count l1))<br /> (setq ptx (nth 0 pt))<br /> (setq pty (nth 1 pt))<br /> (setq point (mapcar '+ p1 pt))<br /> (setq point (mapcar '/ point '(2.0 2.0 2.0)))<br /> (if<br /> (and (/= (nth 0 point) p1x)<br /> (/= (nth 0 point) ptx)<br /> (/= (nth 1 point) p1y)<br /> (/= (nth 1 point) pty)<br /> )<br /> (setq p point)<br /> )<br /> )<br /> (setq l1 nil)<br /> (command "offset" 5 rect p "")<br /> (setq e0 (entlast))<br /> (setq e1 (entget e0))<br /> (princ e1)<br /> (setq i 0)<br /> (while (setq x (nth i e1))<br /> (if (= (car x) 10)<br /> (progn<br /> (setq ptx (nth 1 x))<br /> (setq pty (nth 2 x))<br /> (setq x (list ptx pty))<br /> (setq l1 (cons x l1))<br /> )<br /> )<br /> (setq i (1+ i))<br /> )<br /> (reverse l1)<br /> (setq p1 (car l1))<br /> (setq p2 p1)<br /> (command "erase" e0 "")<br /> (setq count 0)<br /> (repeat 3<br /> (setq count (+ count 1))<br /> (setq pt (nth count l1))<br /> (command "trim" rect "" "f" p1 pt "" "")<br /> (setq p1 pt)<br /> )<br /> (command "trim" rect "" "f" p1 p2 "" "")<br /> (setvar "osmode" 687)<br /> )<br />

zzl9105

yjr111 发表于 2011-11-6 19:18
从收集的源码里找到的，剪切矩形框内的线，和你这放一起。。。不知道谁写的。。。

对正方形，经测试，可以
这个似乎不能剪多段线的，比如下图

Qwer1243

yjr111 发表于 2011-11-6 19:18
从收集的源码里找到的，剪切矩形框内的线，和你这放一起。。。不知道谁写的。。。

感谢分享，很好用的代码