[求助]：能否编写一个遇到圆直线就自动剪切？

wedg

在市政给排水设计中常用圆或圆内加十字来表示检查井，在管线的地方都要把圆内的管线剪切掉，可否编写一个自动剪切圆内直线的程序？此时，圆内加十字可能是块；管线可能是pline。我的设想如下：
第一种情况：假设管线或用pline线表示的管线已经存在，在管线上定好点后，拷贝圆或圆内加十字的块时，自动剪切掉圆或块内管线
第二种情况：假设圆或圆内加十字的块已经存在，在用管线或用pline线表示的管线连接这些圆时，可自动断开！

njyulei

你可以看看这个，我想应能满足你了！！！
http://www.xdcad.net/forum/showthread.php?s=&threadid=431700

wedg

这个程序根本就无法满足我的要求，而且对圆的支持很差！我希望能出现一个自动剪切的程序！就是说直线只要碰到指定层的圆就能自动剪切！
大家帮帮忙阿，急用阿！
既然没人帮忙，我粘贴一个程序，但是我觉得不是很完善，对块、矩形以及批量的支持不是很好，请那位好心人帮忙修改修改！
(DEFUN C:CE(/ SS SL SN PC R N EN LN)
(SETvar "BLIPMODE" 0)
(SETvar "CMDECHO" 0)
(SETQ OLDOS (GETvar "OSMODE"))
(SETvar "OSMODE" 0)
(IF (SETQ EN (CAR (ENTSEL "\nSelect a Object 选择一个目标 : "))) (PROGN
  (SETQ LN (CDR (ASSOC 8 (ENTGET EN))))
  (IF (SETQ SS (SSGET "X" (LIST (CONS 0 "CIRCLE") (CONS 8 LN)))) (PROGN
   (SETQ SL (SSLENGTH SS) I 0)
   (REPEAT SL
    (SETQ SN (SSNAME SS I) I (1+ I)
          PC (CDR (ASSOC 10 (ENTGET SN)))
          R  (CDR (ASSOC 40 (ENTGET SN)))
          N 0
    )
    (COMMAND "ZOOM" "C" PC (* 3 R))
    (COMMAND "TRIM" SN "" "F")
    (REPEAT 180
     (COMMAND (POLAR PC (/ (* 2 N PI) 180) (* R 0.9)))
     (setq N (1+ N))
    )
    (COMMAND "" "")
    (SETQ N 0)
    (COMMAND "ERASE" "WP")
    (REPEAT 180
     (COMMAND (POLAR PC (/ (* 2 N PI) 180) (* R 0.9)))
     (setq N (1+ N))
    )
    (COMMAND "" "" "ZOOM" "P")
   )
  ))
))
(SETvar "OSMODE" OLDOS)
(SETvar "BLIPMODE" 1)
(SETvar "CMDECHO" 1)
(PRINC)
)