谁愿意编个反向剪切程序？

小妹丁

因为要剪除的线很短，总要放大来剪，反向就好方便，平时反过来用也不错。

sdwy196912

好象是个好主意

无痕

以楼主的能力，应该可以自己编写的吧？：）

小妹丁

无痕发表于2005-8-5 2:14:00以楼主的能力，应该可以自己编写的吧？：）

1. 我编的好样衰，没学到几多东西，睇来方法有问题！

复制代码

1. 你和meflying、龙龙仔几个版主写的程序就好比是标准答案，改一下就会出错了。

复制代码

复制代码

无痕

对操作步骤有什么要求？

比如：１先选边界线。２选要剪切的实体（或默认所有可以剪切的曲线）３点击要保留的方向

ZZXXQQ

以前龙版主写的：

 

小妹丁

无痕发表于2005-8-7 2:11:00 对操作步骤有什么要求？ 比如：１先选边界线。２选要剪切的实体（或默认所有可以剪切的曲线）３点击要保留的方向

按标准TRIM方式，同你的1、3，只要支持CIRCLE、ARC、LINE等就好好用的。

多谢楼上提供龙头的程序！

小妹丁

龙头的程序没选择剪切边，不好用。

龙龙仔

无痕早就有一个不错的,赶快跟他要!

小妹丁

龙龙仔发表于2005-8-8 17:14:00无痕早就有一个不错的,赶快跟他要!

看到他的反剪程序，都是没选剪切边。

自己写的只对LINE有效。

(defun c:newtrim (/ data pt_nea endata pt_in pt_temp)
  (princ "仅支持LINE线型")
  (setq data (entget (car (nentsel "\n剪切线:")))
  )
  (while (setq en (nentsel "\n保留段:"))
    (setq pt_nea (osnap (cadr en) "nea"))
    (setq endata (entget (car en)))
    (cond
      ((= (cdr (assoc 0 endata)) "LINE")
       (setq pt_in (inters (cdr (assoc 10 data))
   (cdr (assoc 11 data))
   (cdr (assoc 10 endata))
   (cdr (assoc 11 endata))
   nil
  )
       )
       (if
  (> (distance (cdr (assoc 10 endata)) pt_in)
     (distance (cdr (assoc 10 endata)) pt_nea)
  )
   (setq pt_temp (cdr (assoc 10 endata)))
   (setq pt_temp (cdr (assoc 11 endata)))
       )
       (command "erase" en "")
       (entmake (list '(0 . "line")
        '(100 . "acdbentity")
        '(100 . "acdbline")
        (cons 10 pt_temp)
        (cons 11 pt_in)
  )
       )
      )
      (t (alert "对不起，暂未支持该实体类型。"))
    )
  )
  (princ)
)
(princ "***newtrim*** 小妹丁")