功能强大的实体裁剪函数XDRX_Entity_Trim函数介绍
本帖最后由 Lispboy 于 2017-5-7 20:49 编辑新的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
都是高手啊 比我写的好多了,我那个效率太低。
;;;截去曲线在点表组成的多边形内部的部分
(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)
)
) liuyj 发表于 2017-5-7 22:01
代码写的很不错了。
根据lispboy长老的例子,第二种用法中的<封闭的曲线裁剪边界实体>参数应该也可以是点表,不过是能封闭起来的点表。 都是高手啊 本以为第一种用法可以取代XD::Curve:Trim,但使用效果不佳,有时截去的部分是指定侧的相反方向 liuyj 发表于 2017-5-8 10:29
把你的DWG压缩传上来,并截取个图片贴上来说明
还有,把你的代码也贴上来,供测试。
随便画了附图左边的四条直线,取了三个点。代码也非常简单。
(setq p1 (getpoint)
p2 (getpoint)
p3 (getpoint)
ss (ssget)
)
(XDRX_Entity_Trim ss (list p1 p2) p3)
首次执行四条线丢了两条,undo后再次执行,就出现附图中的错误。
{:1_1:}{:1_1:}{:1_1:}{:1_1:}{:1_1:}{:1_1:}
页:
[1]