功能强大的实体裁剪函数XDRX_Entity_Trim函数介绍

Lispboy

新的API提供了一个实体裁剪函数 xdrx_entity_trim ，对应于曲线裁剪函数 xdrx_curve_trim ，为什么叫实体裁剪函数呢？ 因为它不仅仅支持曲线，还支持对填充、块等实体的裁剪，而且填充裁剪后还是填充，图块裁剪后还是图块。

看看

1、不封闭的曲线做裁剪边界


   (xdrx_entity_trim <选择集 or 实体 or 实体表> <不封闭的曲线裁剪边界实体点表> <裁剪方向 点>)




2、封闭的曲线做裁剪边界


   (xdrx_entity_trim <选择集 or 实体 or 实体表> <封闭的曲线裁剪边界实体> <T or NIL>)


T ---  裁剪外部



NIL-- 裁剪内部




具体的应用，裁剪圆内曲线，代码见：http://bbs.xdcad.net/forum.php?m ... 24221&fromuid=49855

ShaoRui

都是高手啊

liuyj

比我写的好多了，我那个效率太低。
;;;截去曲线在点表组成的多边形内部的部分
(defun XD::Curve:TrimIN (ss pts / _isin ss1 ptl)
  (defun _isin (e1 pts / mp mtf)
    (setq mp (xdrx_getpropertyvalue e1 "midpoint"))
    (setq mtf (xdrx_point_isinside mp pts))
    mtf
  )
  (xdrx_setmark)
  (mapcar '(lambda (x / ptl pams)
             (setq ptl        (xdrx_curve_getinters pts x 0)
                   pams        (mapcar        '(lambda (a) (xdrx_curve_getparamatpoint x a))
                                ptl
                        )
                   pams        (vl-sort pams '<)
             )
             (apply 'xdrx_curve_getsplitcurves (cons x pams))
           )
          (xdrx_pickset->ents ss)
  )
  (setq ss1 (xdrx_pickset_union ss (xdrx_getss)))
  (mapcar '(lambda (x)
             (if (_isin x pts)
               (xdrx_entity_delete x)
             )
           )
          (xdrx_pickset->ents ss1)
  )
)

newer

liuyj 发表于 2017-5-7 22:01

代码写的很不错了。

liuyj

根据lispboy长老的例子，第二种用法中的<封闭的曲线裁剪边界实体>参数应该也可以是点表，不过是能封闭起来的点表。

longer1000

都是高手啊

liuyj

本以为第一种用法可以取代XD::Curve:Trim，但使用效果不佳，有时截去的部分是指定侧的相反方向

newer

liuyj 发表于 2017-5-8 10:29

把你的DWG压缩传上来，并截取个图片贴上来说明

还有，把你的代码也贴上来，供测试。

liuyj

随便画了附图左边的四条直线，取了三个点。代码也非常简单。
(setq p1 (getpoint)
         p2 (getpoint)
         p3 (getpoint)
         ss (ssget)
)
(XDRX_Entity_Trim ss (list p1 p2) p3)
首次执行四条线丢了两条，undo后再次执行，就出现附图中的错误。

yzhyxh