求在圆心点打断直线

xskfq

圆心好落在直线上，于圆心处打断直线。
要求框选，打断点比较多，速度快一点，
只有4个币了，倾囊相求，谢谢！

xyp1964

flyfox1047 发表于 2013-11-25 22:09
测试了下，是不行，（CAD版本2007） 如下：

2. ;; 圆心点打段线
   
3. (defun c:tt ()
   
4.   (if (and (princ "\n选择圆: ")
   
5.            (setq ss (ssget '((0 . "circle")))
   
6.                  i  -1
   
7.            )
   
8.       )
   
9.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
10.       (setq pc (cdr (assoc 10 (entget s1)))
    
11.             j  -1
    
12.       )
    
13.       (if (setq ss1 (ssget "c" pc pc '((0 . "*line"))))
    
14.         (while (setq s2 (ssname ss1 (setq j (1+ j))))
    
15.           (command "break" (list s2 pc) "f" pc pc)
    
16.         )
    
17.       )
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )

;; 圆心点打段线<br /> (defun c:tt ()<br />   (if (and (princ "\n选择圆: ")<br />            (setq ss (ssget '((0 . "circle")))<br />                  i  -1<br />            )<br />       )<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq pc (cdr (assoc 10 (entget s1)))<br />             j  -1<br />       )<br />       (if (setq ss1 (ssget "c" pc pc '((0 . "*line"))))<br />         (while (setq s2 (ssname ss1 (setq j (1+ j))))<br />           (command "break" (list s2 pc) "f" pc pc)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

xskfq

效果如下图，，

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

flyfox1047

ZZXXQQ 发表于 2013-11-25 20:42
[/post]

Z版有求必应啊，好心人

xskfq

测试一下，貌似不行，麻烦版主再帮看看。。

xskfq

打断于圆心点。

flyfox1047

测试了下，是不行，（CAD版本2007） 如下：

flyfox1047

你的另一个主题http://bbs.mjtd.com/thread-108478-1-1.html   
G版不是帮你解决了吗？

貌似G版的好像也不行

ll_j

多点“打断”有一个次序问题，必须从直线的尾部向首部顺序打断，否则打断过程中选择的直线会发生变化。