XDGE几何库应用(九) ---抠出曲线内的部分

XDSoft

ARX函数原型

AcGeNurbCurve3d::hardTrimByParams Function

AcGeNurbCurve3d &

hardTrimByParams(

double newStartParam,

double newEndParam);

newStartParam	输入样条曲线起点的新参数
newEndParam	输入样条曲线终点的新参数

使用新的起点和终点参数裁剪样条曲线。这通过添加和删除控制点和节点,而不是重设定义样条曲线的间距来实现。

AcGeCurve3d::setInterval Function

Adesk::Boolean

setInterval(

const AcGeInterval& intrvl);

主要函数：

(xdge::setpropertyvalue ge "hardTrimByParams" from to)

(xdge::setpropertyvalue ge "setInterval" in)

1. (defun c:tt (/ e ge p1 p2 pam1 pam2 in typ from to)
   
2.   (if
   
3.     (and (setq
   
4.      e (xdrx_entsel
   
5.          "\nPick Curve: "
   
6.          '((0 . "LWPOLYLINE,ARC,LINE,ELLIPSE,CIRCLE,SPLINE"))
   
7.        )
   
8.    )
   
9.    (setq ge (xdge::constructor (car e)))
   
10.    (setq p1 (cadr e))
    
11.    (setq p2 (getpoint p1 "\nSecond Point: "))
    
12.    (setq pam1 (xdge::getpropertyvalue
    
13.           ge
    
14.           "paramOf"
    
15.           (xdge::getpropertyvalue ge "closestPointTo" p1)
    
16.         )
    
17.          pam2 (xdge::getpropertyvalue
    
18.           ge
    
19.           "paramOf"
    
20.           (xdge::getpropertyvalue ge "closestPointTo" p2)
    
21.         )
    
22.    )
    
23.    (setq typ (xdge::type ge))
    
24.     )
    
25.      (progn
    
26.        (if (= typ "kNurbCurve3d")
    
27.    (progn
    
28.      (mapcar 'set '(from to) (vl-sort (list pam1 pam2) '<))
    
29.      (xdge::setpropertyvalue ge "hardTrimByParams" from to)
    
30.      (xdge::entity:make ge)
    
31.      (xdrx_entity_setcolor (entlast) 1)
    
32.    )
    
33.    (progn
    
34.      ;;(mapcar 'set '(from to) (vl-sort (list pam1 pam2) '<))
    
35.      (setq in (xdge::constructor "AcGeInterval" pam1 pam2))
    
36.      (xdge::setpropertyvalue ge "setInterval" in)
    
37.      (xdge::entity:make ge)
    
38.      (xdrx_entity_setcolor (entlast) 1)
    
39.    )
    
40.        )
    
41.        (vl-cmdf ".move" "l" "" p1)
    
42.      )
    
43.      (xdge::free)
    
44.   )
    
45.   (princ)
    
46. )

(defun c:tt (/ e ge p1 p2 pam1 pam2 in typ from to)<br />   (if<br />     (and (setq<br />      e (xdrx_entsel<br />          "\nPick Curve: "<br />          '((0 . "LWPOLYLINE,ARC,LINE,ELLIPSE,CIRCLE,SPLINE"))<br />        )<br />    )<br />    (setq ge (xdge::constructor (car e)))<br />    (setq p1 (cadr e))<br />    (setq p2 (getpoint p1 "\nSecond Point: "))<br />    (setq pam1 (xdge::getpropertyvalue<br />           ge<br />           "paramOf"<br />           (xdge::getpropertyvalue ge "closestPointTo" p1)<br />         )<br />          pam2 (xdge::getpropertyvalue<br />           ge<br />           "paramOf"<br />           (xdge::getpropertyvalue ge "closestPointTo" p2)<br />         )<br />    )<br />    (setq typ (xdge::type ge))<br />     )<br />      (progn<br />        (if (= typ "kNurbCurve3d")<br />    (progn<br />      (mapcar 'set '(from to) (vl-sort (list pam1 pam2) '<))<br />      (xdge::setpropertyvalue ge "hardTrimByParams" from to)<br />      (xdge::entity:make ge)<br />      (xdrx_entity_setcolor (entlast) 1)<br />    )<br />    (progn<br />      ;;(mapcar 'set '(from to) (vl-sort (list pam1 pam2) '<))<br />      (setq in (xdge::constructor "AcGeInterval" pam1 pam2))<br />      (xdge::setpropertyvalue ge "setInterval" in)<br />      (xdge::entity:make ge)<br />      (xdrx_entity_setcolor (entlast) 1)<br />    )<br />        )<br />        (vl-cmdf ".move" "l" "" p1)<br />      )<br />      (xdge::free)<br />   )<br />   (princ)<br /> )

XDSoft

请下载最新的 XDRX_API 0919以上版本测试上面代码。

csharp

这个对参数排序了，闭合线就不能抠出跨越起点的线段

yangpeng0718

样条线也能弄啊  帅啊

XDSoft

csharp 发表于 2014-9-19 12:37
这个对参数排序了，闭合线就不能抠出跨越起点的线段

闭合曲线可以扣除两部分，然后用 xdrx_curve_join