圆切断

正航

R14中，圆是不能被切断成弧的，除非删除其中的一段。有什么简单办法？即使当前的圆在外形上还是圆，实则由两端连接的弧组成？

6分钟

2. 
   
3. (defun C:CTP ( / en el et cp r enl )
   
4.    (while(not (eq(setq en(car(entsel)  )
   
5.                        el(entget en)
   
6.                        et(cdr (assoc 0 el)))
   
7.                  "CIRCLE")))
   
8.    (setq cp (cdr (assoc 10 el))
   
9.          r  (cdr (assoc 40 el))
   
10.          enl(cdr (assoc 8  el)))
    
11.    (entdel en)               
    
12.    (command "layer" "s" enl "")
    
13.    (command "_.donut"
    
14.             (* 2.0 (- r 0))
    
15.             (* 2.0 (+ r 0))
    
16.             cp
    
17.             ""))
    

<br /> (defun C:CTP ( / en el et cp r enl )<br />    (while(not (eq(setq en(car(entsel)  )<br />                        el(entget en)<br />                        et(cdr (assoc 0 el))) <br />                  "CIRCLE")))<br />    (setq cp (cdr (assoc 10 el))<br />          r  (cdr (assoc 40 el)) <br />          enl(cdr (assoc 8  el)))<br />    (entdel en)                <br />    (command "layer" "s" enl "")<br />    (command "_.donut"<br />             (* 2.0 (- r 0))<br />             (* 2.0 (+ r 0))<br />             cp<br />             ""))<br />

已收进：□-AutoLISP、VLISP、VBA、ARX 程序（函数）库论坛

正航

是把圆切为两端弧。我基本已有思路了。只要获取圆的半径、圆心坐标，加上切断点的坐标，ARC就可以出来了。

6分钟

圆环实际上就是两段宽度为零的pl弧线。

正航

完全明白了！