本段程序可将选中的圆一次性裁剪掉圆中（经过圆心的）的线段

huangyusen2000

;本段程序可将选中的圆一次性裁剪掉圆中（经过圆心的）的线段。
(Defun c:tc (/ ucsfl fil len n m e ed pt0 pt pbx)
(command "redraw")
(command "undo" "begin")
(setq pbx (getvar "pickbox"))
(setvar "pickbox" 3)
(setq ucsfl (getvar "ucsfollow"))
(setvar "ucsfollow" 0)
(command "ucs" "world")                        ;转到世界坐标系
(setq fil (ssget))                        ；选择圆
(setq len (sslength fil))                ；确定选中圆的个数
(setq n 0)
(while (<= n (- len 1))
   (setq e (ssname fil n))
   (setq ed (entget e))
   (if (/= "CIRCLE" (cdr (assoc 0 ed)))
    (setq n (+ 1 n))
    (progn
     (setq pt0 (cdr (assoc 10 ed)))        ;old circle's center
(command "zoom" "c" pt0 "80")                ;可调整该数字以适应不同半径的圆
      (setq pt (osnap pt0 "nea"))
       (setq m 1)
      (while (and (/= nil pt) (< m 10)) ;在一个圆内裁剪不超过10次，以防止死循环
          (command "trim" e "" pt "")
          (setq pt (osnap pt0 "nea"))
          (setq m (+ 1 m))
      )
      (setq n (+ 1 n))
(command "zoom" "p")       
    )
   )
  )
(command "ucs" "p")                        ;返回用户坐标系
(setvar "ucsfollow" ucsfl)
(setvar "pickbox" pbx)
(command "undo" "end")
(princ)      
)
(princ "\n\n\t\ttcpiao\t\t\t裁剪圆内通过圆心的直线\t\t  tc")