XDGE几何库应用(14)--曲线Offset及点集Offset

st788796

在编程过程中有时会遇到一系列的点要进行偏移一个距离，在 A/VLisp 中通常要构造一个 Pline，通过这个 Pline 线 Offset 后获取新线的节点，然后删除这个线，直接计算这些点是没有办法做到的（可以看演示图片，中间有点的退化）

通过 Ge 库，我们可以这样完成

getTrimmedOffset 类型

  enum OffsetCrvExtType {
    kFillet,
    kChamfer,
    kExtend
  };

1. (defun Pnts:Offset (pts dis / gel gpl ngp ngpl gcl)
   
2.   (setq        gel  (mapcar '(lambda (x y)
   
3.                         (xdge::constructor "kLineSeg3d" x y)
   
4.                       )
   
5.                      pts
   
6.                      (cdr pts)
   
7.              );_构造线段表，首尾相接
   
8.         gpl  (xdge::constructor "kCompositeCrv3d" gel);_构造一个连续线
   
9.         ngpl (xdge::getpropertyvalue
   
10.                gpl "getTrimmedOffset" dis '(0. 0. 1.) 2);_extend模式
    
11.   )
    
12.   (xdge::entity:make ngpl)
    
13.   (xdrx_entity_setcolor (entlast) 1)
    
14.   (setq gcl (xdge::getpropertyvalue ngpl "getCurveList"));_获取offset 后的曲线列表
    
15.   (reverse
    
16.     (cons (xdge::getpropertyvalue (last gcl) "endPoint");_端点单独取出
    
17.           (reverse (mapcar '(lambda (x)
    
18.                               (xdge::getpropertyvalue x "startPoint")
    
19.                             )
    
20.                            gcl
    
21.                    );_只取每段的起点
    
22.           )
    
23.     )
    
24.   ) ;_取出顶点
    
25. )
    
26. (defun c:tt (/ e d i pts)
    
27.   (if (and (setq e (entsel))
    
28.            (setq d (getdist (cadr e) "\nDist: "))
    
29.       )
    
30.     (progn
    
31.       (princ
    
32.         (pnts:offset (xdrx_getpropertyvalue (car e) "vertices") d)
    
33.       )
    
34.     )
    
35.   )
    
36.   (princ)
    
37. )

(defun Pnts:Offset (pts dis / gel gpl ngp ngpl gcl)<br />   (setq        gel  (mapcar '(lambda (x y)<br />                         (xdge::constructor "kLineSeg3d" x y)<br />                       )<br />                      pts<br />                      (cdr pts)<br />              );_构造线段表，首尾相接<br />         gpl  (xdge::constructor "kCompositeCrv3d" gel);_构造一个连续线<br />         ngpl (xdge::getpropertyvalue<br />                gpl "getTrimmedOffset" dis '(0. 0. 1.) 2);_extend模式<br />   )<br />   (xdge::entity:make ngpl)<br />   (xdrx_entity_setcolor (entlast) 1)<br />   (setq gcl (xdge::getpropertyvalue ngpl "getCurveList"));_获取offset 后的曲线列表<br />   (reverse<br />     (cons (xdge::getpropertyvalue (last gcl) "endPoint");_端点单独取出<br />           (reverse (mapcar '(lambda (x)<br />                               (xdge::getpropertyvalue x "startPoint")<br />                             )<br />                            gcl<br />                    );_只取每段的起点<br />           )<br />     )<br />   ) ;_取出顶点<br /> )<br /> (defun c:tt (/ e d i pts)<br />   (if (and (setq e (entsel))<br />            (setq d (getdist (cadr e) "\nDist: "))<br />       )<br />     (progn<br />       (princ<br />         (pnts:offset (xdrx_getpropertyvalue (car e) "vertices") d)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

st788796

enum 枚举类型，默认第一个是 0 ，依次 + 1 ，如果后面指定了数值就按指定