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

xiaxiang

如图，很简单，一根line穿过了circle。
我现在想执行剪切命令，通过偏移，栏选，剪切的永远是圆内的线。
如果我要剪圆外的线，应该如何操作？
当然，办法有很多。内外剪切的程序也有很多。只是想知道最直接，简练的一种，我不用判断图元与圆的关系，更不用去打断。我只要偏移，栏选。可能吗？
纠结了一上午？多谢施与援手。
2011.10.31 下午17:00
问题已解决，剪切边界的问题，低级错误！居然把边界搞错了。
用点集解决问题的方法请见12#。
剪切必须执行两次的bug,看来还是Autodesk的问题。
再次谢谢大家！

Qwer1243

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

感谢分享，很好用的代码

Andyhon

单依此例
线两端各点选一次即得

xiaxiang

举一个简单例子，我通过下面程序可以实现圆内剪切。我能通过修改实现圆外剪切吗？
原理是圆上做点，栏选剪切，比较简单。
欢迎指点。

2. 
   
3. (defun c:ctrim ( / circ_pts lst ang inc tmp seg pt ent
   
4.                    ctrim_err x 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 (enm)
    
15.   (setq lst    (entget enm)
    
16.         ang    (* pi 2)
    
17.         inc    (/ ang 64)
    
18.         tmp    '()
    
19.         seg    65
    
20.   )
    
21.   (repeat seg
    
22.    (setq pt (polar(cdr(assoc 10 lst))ang
    
23.             (-(cdr(assoc 40 lst))0.01))
    
24.         ang (+ inc ang)
    
25.    )
    
26.    (setq tmp(cons pt tmp))
    
27.   )
    
28.   tmp
    
29. )
    
30. 
    
31. (setq ent     (car(entsel "\nSelect circle: "))
    
32.        svd_err *error*
    
33.        *error* ctrim_err
    
34.        svd_os  (getvar "osmode")
    
35.        svd_cmd (getvar "cmdecho")
    
36. )
    
37. (setvar "cmdecho" 0)
    
38. (setvar "osmode" 0)
    
39. (if(and ent
    
40.      (=(cdr(assoc 0(entget ent)))"CIRCLE")
    
41.     )
    
42.   (progn
    
43.    (setq f_pts(circ_pts ent))
    
44.    (command "trim" ent "" "f")   
    
45.    (foreach x f_pts(command x))  
    
46.    (command "" "")
    
47.   )
    
48. )
    
49. (setvar "cmdecho" svd_cmd)
    
50. (setvar "osmode" svd_os)
    
51. (setq *error* svd_err)
    
52. (princ)
    
53. )
    

<br /> (defun c:ctrim ( / circ_pts lst ang inc tmp seg pt ent <br />                    ctrim_err x 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 (enm) <br />   (setq lst    (entget enm) <br />         ang    (* pi 2) <br />         inc    (/ ang 64) <br />         tmp    '() <br />         seg    65 <br />   ) <br />   (repeat seg <br />    (setq pt (polar(cdr(assoc 10 lst))ang <br />             (-(cdr(assoc 40 lst))0.01)) <br />         ang (+ inc ang) <br />    ) <br />    (setq tmp(cons pt tmp)) <br />   ) <br />   tmp <br /> ) <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 /> (if(and ent <br />      (=(cdr(assoc 0(entget ent)))"CIRCLE") <br />     ) <br />   (progn <br />    (setq f_pts(circ_pts ent)) <br />    (command "trim" ent "" "f")   <br />    (foreach x f_pts(command x))  <br />    (command "" "") <br />   ) <br /> ) <br /> (setvar "cmdecho" svd_cmd) <br /> (setvar "osmode" svd_os) <br /> (setq *error* svd_err) <br /> (princ) <br /> ) <br />

xiaxiang

Andyhon 发表于 2011-10-31 10:53
单依此例
线两端各点选一次即得

谢谢Andyhon ，但我只想要单选一次圆就能得到正确结果

Andyhon

重新定义 circ_pts 即可
让点集砌成外切多边形

xiaxiang

Andyhon 发表于 2011-10-31 12:15
重新定义 circ_pts 即可
让点集砌成外切多边形

没搞明白，这样剪切还是剪的外切多边形内部的线？
我用圆分别做内偏移和外偏移来剪切，得出的结果都是只剪切内部的线。
最奇怪的是曾经得出过正确的结果。不可能受系统变量的影响嘛。

yjr111

这种曲线事情直接找highflybir，问我浪费时间

Andyhon

...都是只剪切内部的线...
请上传更新后的代码+调试用的文件(*.Dwg)

highflybir

(polar cen  ang  (+ rad eps))
之类的可以让你直接取得圆内或者圆外的一点.

xiaxiang

Andyhon 发表于 2011-10-31 14:56
...都是只剪切内部的线...
请上传更新后的代码+调试用的文件(*.Dwg)

感谢Andyhon。犯了低级错误，用偏移后的圆作为边界，肯定会得到错误的结果。上传单向偏移的代码，可以剪切圆外部

2. (defun c:ctrim ( / circ_pts lst ang inc tmp seg pt ent
   
3.                    ctrim_err x f_pts svd_os svd_cmd svd_err)
   
4. 
   
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. 
    
15. (defun circ_pts (enm)
    
16.   (setq lst    (entget enm)
    
17.         ang    (* pi 2)
    
18.         inc    (/ ang 64)
    
19.         tmp    '()
    
20.         seg    65
    
21.   )
    
22.   (repeat seg
    
23.    (setq pt (polar(cdr(assoc 10 lst))ang
    
24.             (-(cdr(assoc 40 lst))0.01))
    
25.         ang (+ inc ang)
    
26.    )
    
27.    (setq tmp(cons pt tmp))
    
28.   )
    
29.   tmp
    
30. )
    
31. 
    
32. (defun meoffset (obj dst / tmplst)
    
33.   (if (not (vl-catch-all-error-p (setq tmplst (vl-catch-all-apply 'vlax-invoke (list obj 'offset dst)))))
    
34.     tmplst
    
35.   )
    
36. )
    
37. 
    
38. (setq ent     (car(entsel "\nSelect circle: "))
    
39.        svd_err *error*
    
40.        *error* ctrim_err
    
41.        svd_os  (getvar "osmode")
    
42.        svd_cmd (getvar "cmdecho")
    
43. )
    
44. (setvar "cmdecho" 0)
    
45. (setvar "osmode" 0)
    
46. (if(and ent
    
47.      (=(cdr(assoc 0(entget ent)))"CIRCLE")
    
48.     )
    
49.   (progn
    
50.    (meoffset (vlax-ename->vla-object ent) 0.1)   
    
51.    (setq f_pts(circ_pts (entlast)))  
    
52.    (repeat 2   
    
53.    (command "trim" ent "" "f")   
    
54.    (foreach x f_pts(command x))  
    
55.    (command "" "")
    
56.    )
    
57.    (command "erase" (entlast) "")
    
58.   )
    
59. )
    
60. (setvar "cmdecho" svd_cmd)
    
61. (setvar "osmode" svd_os)
    
62. (setq *error* svd_err)
    
63. (princ)
    
64. )
    
65. 
    

(defun c:ctrim ( / circ_pts lst ang inc tmp seg pt ent <br />                    ctrim_err x f_pts svd_os svd_cmd svd_err) <br /> <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 /> <br /> (defun circ_pts (enm) <br />   (setq lst    (entget enm) <br />         ang    (* pi 2) <br />         inc    (/ ang 64) <br />         tmp    '() <br />         seg    65 <br />   ) <br />   (repeat seg <br />    (setq pt (polar(cdr(assoc 10 lst))ang <br />             (-(cdr(assoc 40 lst))0.01)) <br />         ang (+ inc ang) <br />    ) <br />    (setq tmp(cons pt tmp)) <br />   ) <br />   tmp <br /> ) <br /> <br /> (defun meoffset (obj dst / tmplst)<br />   (if (not (vl-catch-all-error-p (setq tmplst (vl-catch-all-apply 'vlax-invoke (list obj 'offset dst)))))<br />     tmplst<br />   )<br /> )<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 /> (if(and ent <br />      (=(cdr(assoc 0(entget ent)))"CIRCLE") <br />     ) <br />   (progn <br />    (meoffset (vlax-ename->vla-object ent) 0.1)   <br />    (setq f_pts(circ_pts (entlast)))  <br />    (repeat 2   <br />    (command "trim" ent "" "f")   <br />    (foreach x f_pts(command x))  <br />    (command "" "") <br />    )<br />    (command "erase" (entlast) "")<br />   ) <br /> ) <br /> (setvar "cmdecho" svd_cmd) <br /> (setvar "osmode" svd_os) <br /> (setq *error* svd_err) <br /> (princ) <br /> ) <br /> <br />

但是又有新的问题。为何此处非要执行两次？一次只能剪切一边，奇哉怪也。有兴趣的帮忙测试一下啊。谢谢

2.    (repeat 2   
   
3.    (command "trim" ent "" "f")   
   
4.    (foreach x f_pts(command x))  
   
5.    (command "" "")
   
6.    )

   (repeat 2   <br />    (command "trim" ent "" "f")   <br />    (foreach x f_pts(command x))  <br />    (command "" "") <br />    )