XDGE几何库应用(17)--AcGeCurve3d类方法介绍

st788796 · 发表于 2014-9-27 07:04:32

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 st788796 于 2014-11-1 08:07 编辑

(setq ge (xdge::constructor (car (entsel))))构造一个 AcGeCurve3d

一、 boundBlock 返回 AcGeBoundBlock3d 边界体

1 无参数时整根曲线
_$ (setq bd (xdge::getpropertyvalue ge "boundBlock"))
<图元名: 904a410>
_$ (xdge::getpropertyvalue bd "getMinMaxPoints")
((1319.45 225.837 -1.0e-008) (2650.51 1318.85 1.0e-008))

2 加入参数 Interval 可以返回区间内曲线的 boundBlock
_$ (setq in (xdge::constructor "AcGeInterval" 0.0 100.))
<图元名: 1d74da8>
_$ (xdge::getpropertyvalue ge "boundBlock" in)
<图元名: 1d74dc8>

二、closestPointTo 最近点

1 两曲线间最近点
(xdge::getpropertyvalue thisCrv3d "closestPointTo" ortherCrv3d)

2 曲线外点在曲线上的最近点(对于 Db 的 vlax-curve-getclosestpointto)
(xdge::getpropertyvalue thisCrv3d "closestPointTo" pnt)

三、distanceTo 两曲线间最近距离或点到曲线上最近点间距离

1 两曲线间最近距离
(xdge::getpropertyvalue thisCrv3d "distanceTo" ortherCrv3d)

2 点到曲线最小距离
(xdge::getpropertyvalue crv3d "distanceTo" pnt)
对应vlax-curve 方法 (distance pnt (vlax-curve-getclosestpointto cv pnt))

四、evalPoint 指定参数出点

1 指定参数处点
(xdge::getpropertyvalue crv3d "evalPoint" param)

2

五、getClosestPointTo 最近点

1 两曲线间最近点，同 closestPointTo 方法1，返回值为表 AcGePointOnCurve3d
(xdge::getpropertyvalue thisCrv3d "getClosestPointTo" ortherCrv3d)

2 返回与输入点对应的曲线上点，同 closetPointTo 方法2 ，返回值为 AcGePointOnCurve3d
(xdge::getpropertyvalue crv3d "getClosestPointTo" pnt)

六、getInterval 获取曲线的区间
(xdge::getpropertyvalue ge "getInterval")
返回值表：(AcGeInrervar startpoint endpoint)
_$ (xdge::getpropertyvalue ge "getInterval")
(<图元名: 909ab30> (2650.51 954.588 0.0) (1563.71 225.837 0.0))

七、getLocalClosestPoints

(待续)

st788796 · 发表于 2014-9-27 08:03:08

本帖最后由 st788796 于 2014-9-27 08:06 编辑

判断类

一、isClosed 判断曲线起点和端点是否相等，这个和 vlax-curve-isclosed 不同，
(xdge::getpropertyvalue ge "isClosed")

二、hasStartPoint 如果有起点返回起点(vlax-curve-getstartpoint)，没有返回 nil
(xdge::getpropertyvalue ge "hasStartPoint")
_$ (xdge::getpropertyvalue ge "hasStartPoint")
(2650.51 954.588 0.0)

三、hasEndPoint 如果有端点返回端点(vlax-curve-getendpoint)，没有返回nil
(xdge::getpropertyvalue ge "hasEndPoint")
_$ (xdge::getpropertyvalue ge "hasendPoint")
(1563.71 225.837 0.0)

四、reverseParam 反转曲线(对 arc ellispse circle 反转无效)
(xdge::setpropertyvalue ge "reverseParam")

五、length 指定参数间曲线长度
(xdge::getpropertyvalue ge from to)
_$ (xdge::getpropertyvalue ge "length" 0.0 100.)
4068.52
整线长度
_$ (xdge::getpropertyvalue ge "length" 0.0 (xdge::getpropertyvalue ge "paramOf" (xdge::getpropertyvalue ge"hasendpoint")))
2364.18

六、paramOf 指定点的参数值（注意点必须位于曲线上，求参数前对点进行 closestPointTo )
(xdge::getpropertyvalue ge "paramOf" pnt)
_$ (xdge::getpropertyvalue ge "paramOf" (getpoint))
2.57533

七、area 获取指定参数间面积
(xdge::getpropertyvalue ge "area" from to)

st788796 · 发表于 2014-9-28 00:30:37

测试下一阶导数

(defun c:tt (/ e ge p pam ss vec)
(if (and (setq e (car (entsel)))
(setq ge (xdge::constructor e))
)
(progn
(setq ss (ssadd))
(sssetfirst nil (ssadd e ss))
(while (setq p (getpoint "\ntest point: "))
(setq p (xdge::getpropertyvalue ge "closestPointTo" p)
pam (xdge::getpropertyvalue ge "paramOf" p)
)
(princ "\n")
(princ pam)
(princ "\n")
(princ
(setq vec (xdge::getpropertyvalue ge "evalPoint" pam 1)) ;_一阶导数
)
(princ "\n")
(princ p)
(if vec
(progn
(pnt:drawarrow (car vec) (caadr vec) 1)
(pnt:drawarrow
(car vec)
(xdrx_vector_perpvector (caadr vec))
2
)
)
)
)
)
)
(xdge::free)
(princ)
)
(defun Pnt:DrawArrow (p v col / an p1 p2 p3)
(setq an (angle '(0. 0. 0.) v)
p1 (polar p an (* 0.25 (getvar "viewsize")))
p2 (polar p1 (+ an (* 0.833333 pi)) (/ (distance p p1) 6.))
p3 (polar p1 (- an (* 0.833333 pi)) (/ (distance p p1) 6.))
)
(grvecs (list col p p1 col p1 p2 col p1 p3))
t
)

(defun c:tt (/ e ge p pam ss vec) 
  (if (and (setq e (car (entsel))) 
           (setq ge (xdge::constructor e)) 
      ) 
    (progn 
      (setq ss (ssadd)) 
      (sssetfirst nil (ssadd e ss)) 
      (while (setq p (getpoint "\ntest point: ")) 
        (setq p          (xdge::getpropertyvalue ge "closestPointTo" p) 
              pam (xdge::getpropertyvalue ge "paramOf" p) 
        ) 
        (princ "\n") 
        (princ pam) 
        (princ "\n") 
        (princ 
          (setq vec (xdge::getpropertyvalue ge "evalPoint" pam 1)) ;_一阶导数 
        ) 
        (princ "\n") 
        (princ p) 
        (if vec 
          (progn 
            (pnt:drawarrow (car vec) (caadr vec) 1) 
            (pnt:drawarrow 
              (car vec) 
              (xdrx_vector_perpvector (caadr vec)) 
              2 
            ) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (xdge::free) 
  (princ) 
) 
(defun Pnt:DrawArrow (p v col / an p1 p2 p3) 
  (setq        an (angle '(0. 0. 0.) v) 
        p1 (polar p an (* 0.25 (getvar "viewsize"))) 
        p2 (polar p1 (+ an (* 0.833333 pi)) (/ (distance p p1) 6.)) 
        p3 (polar p1 (- an (* 0.833333 pi)) (/ (distance p p1) 6.)) 
  ) 
  (grvecs (list col p p1 col p1 p2 col p1 p3)) 
  t 
)

st788796 · 发表于 2014-9-28 02:07:44

getLocalClosestPointTo 的一个测试，由指定的两点做参考，在指定区间内查找两曲线上最近距离的点对，参数 interval 为可选，如果不给区间的 lower 是0.0， upperBound 是点的位置

这个函数在指定范围内求最近距离会更加方便

(defun c:tt (/ e1 e2 gel gp1 gp2 l in1 in2 low1 low2)
(if (and (setq e1 (entsel));_选择曲线1
(setq e2 (entsel));_选择曲线2
(setq gel (xdge::constructor (car e1) (car e2)));_构造 Ge 曲线
(setq gel (mapcar 'xdge::entity:3d->2d gel));_用 2d 测试，3d 一样
(setq gp1 (xdge::constructor
"kPointOnCurve2d"
(car gel)
(setq low1 (xdge::getpropertyvalue
(car gel)
"paramOf"
(xdge::getpropertyvalue
(car gel)
"closestPointTo"
(cadr e1)
);_构造 thisPointOnThisCurve
);_构造第一个测试区间 lowerBound
)
)
gp2 (xdge::constructor
"kPointOnCurve2d"
(cadr gel)
(setq low2 (xdge::getpropertyvalue
(cadr gel)
"paramOf"
(xdge::getpropertyvalue
(cadr gel)
"closestPointTo"
(cadr e2)
);_构造 ortherPointOnOrtherCurve
);_构造第二个测试区间 lowerBound
)
)
)
(xd::pnt:mark
(xd::pnt:setz (xdge::getpropertyvalue gp1 "Point") 0.)
1
)
(xd::pnt:mark
(xd::pnt:setz (xdge::getpropertyvalue gp2 "Point") 0.)
2
)
)
(progn
(setq in1 (car (xdge::getpropertyvalue (car gel) "getInterval"))
in2 (car (xdge::getpropertyvalue (cadr gel) "getInterval"))
)
(xdge::setpropertyvalue in1 "setLower" low1);_设置区间下限
(xdge::setpropertyvalue in2 "setLower" low2);_设置区间下限
(setq l (xdge::getpropertyvalue
(car gel)
"getLocalClosestPoints"
(cadr gel)
gp1
gp2
in1
in2
)
);_以指定的两点为参考在指定区间内查找两曲线间最近距离对应点
(xdrx_line_make
(xdge::getpropertyvalue (car l) "Point")
(xdge::getpropertyvalue (cadr l) "Point")
)
)
)
(xdge::free)
(princ)
)

(defun c:tt (/ e1 e2 gel gp1 gp2 l in1 in2 low1 low2) 
  (if (and (setq e1 (entsel));_选择曲线1 
           (setq e2 (entsel));_选择曲线2 
           (setq gel (xdge::constructor (car e1) (car e2)));_构造 Ge 曲线 
           (setq gel (mapcar 'xdge::entity:3d->2d gel));_用 2d 测试，3d 一样 
           (setq gp1 (xdge::constructor 
                       "kPointOnCurve2d" 
                       (car gel) 
                       (setq low1 (xdge::getpropertyvalue 
                                    (car gel) 
                                    "paramOf" 
                                    (xdge::getpropertyvalue 
                                      (car gel) 
                                      "closestPointTo" 
                                      (cadr e1) 
                                    );_构造 thisPointOnThisCurve 
                                  );_构造第一个测试区间 lowerBound 
                       ) 
                     ) 
 
                 gp2 (xdge::constructor 
                       "kPointOnCurve2d" 
                       (cadr gel) 
                       (setq low2 (xdge::getpropertyvalue 
                                    (cadr gel) 
                                    "paramOf" 
                                    (xdge::getpropertyvalue 
                                      (cadr gel) 
                                      "closestPointTo" 
                                      (cadr e2) 
                                    );_构造 ortherPointOnOrtherCurve 
                                  );_构造第二个测试区间 lowerBound 
                       ) 
                     ) 
           ) 
           (xd::pnt:mark 
             (xd::pnt:setz (xdge::getpropertyvalue gp1 "Point") 0.) 
             1 
           ) 
           (xd::pnt:mark 
             (xd::pnt:setz (xdge::getpropertyvalue gp2 "Point") 0.) 
             2 
           ) 
      ) 
    (progn 
      (setq in1        (car (xdge::getpropertyvalue (car gel) "getInterval")) 
            in2        (car (xdge::getpropertyvalue (cadr gel) "getInterval")) 
      ) 
      (xdge::setpropertyvalue in1 "setLower" low1);_设置区间下限 
      (xdge::setpropertyvalue in2 "setLower" low2);_设置区间下限 
      (setq l (xdge::getpropertyvalue 
                (car gel) 
                "getLocalClosestPoints" 
                (cadr gel) 
                gp1 
                gp2 
                in1 
                in2 
              ) 
      );_以指定的两点为参考在指定区间内查找两曲线间最近距离对应点 
      (xdrx_line_make 
        (xdge::getpropertyvalue (car l) "Point") 
        (xdge::getpropertyvalue (cadr l) "Point") 
      ) 
    ) 
  ) 
  (xdge::free) 
  (princ) 
)

st788796 · 发表于 2014-10-2 18:51:46

一个关于 reverseParam 的测试，对非闭合线好理解，闭合线是如何呢？
在 AcDb 中用 C 闭合的 Pline 反转时起点是在最后一段两端来回变化，在 Ge 中不是这样的，起点是不变的，反转后生成的 Pline，起点还是在原来位置，只是增加了一个终点，spline 使用 splinedit 反转后起点不变化

(defun c:tt (/ _makepoints e ge pts)
(defun _makePoints (pts / i)
(setq i 0)
(mapcar '(lambda (x)
(xdrx_entity_setcolor (xdrx_point_make x) (setq i (1+ i)))
)
pts
)
)
(if (setq e (xdrx_entsel
"\nPick closed pine: "
'((0 . "lwpolyline") (-4 . "&=") (70 . 0))
)
)
(progn
(setq pts (xdrx_getpropertyvalue (car e) "vertices"))
(_makepoints pts)
(princ (strcat "\nnumVerts = " (itoa (length pts))))
(setq ge (xdge::constructor (car e)))
(xdge::getpropertyvalue ge "reverseParam")
(xdge::entity:make ge)
(xdge::free)
(vl-cmdf ".move" "L" "" (cadr e))
(while (/= (getvar "cmdactive") 0)
(command pause)
)
(setq pts (xdrx_getpropertyvalue (entlast) "vertices"))
(_makepoints (xdrx_getpropertyvalue (entlast) "vertices"))
(princ (strcat "\nnumVerts = " (itoa (length pts))))
)
)
(princ)
)
(defun c:tt1 (/ _makepoints e ge pts)
(defun _makePoints (pts / i)
(setq i 0)
(mapcar '(lambda (x)
(xdrx_entity_setcolor (xdrx_point_make x) (setq i (1+ i)))
)
pts
)
)
(if (setq e (xdrx_entsel
"\nPick closed pine: "
'((0 . "spline"))
)
)
(progn
(xdrx_point_make (xdrx_curve_getstartpoint (car e)))
(setq ge (xdge::constructor (car e)))
(xdge::getpropertyvalue ge "reverseParam")
(xdge::entity:make ge)
(xdge::free)
(vl-cmdf ".move" "L" "" (cadr e))
(while (/= (getvar "cmdactive") 0)
(command pause)
)
(xdrx_point_make (xdrx_curve_getstartpoint (entlast)))
)
)
(princ)
)

(defun c:tt (/ _makepoints e ge pts) 
  (defun _makePoints (pts / i) 
    (setq i 0) 
    (mapcar '(lambda (x) 
               (xdrx_entity_setcolor (xdrx_point_make x) (setq i (1+ i))) 
             ) 
            pts 
    ) 
  ) 
  (if (setq e (xdrx_entsel 
                "\nPick closed pine: " 
                '((0 . "lwpolyline") (-4 . "&=") (70 . 0)) 
              ) 
      ) 
    (progn 
      (setq pts (xdrx_getpropertyvalue (car e) "vertices")) 
      (_makepoints pts) 
      (princ (strcat "\nnumVerts = " (itoa (length pts)))) 
      (setq ge (xdge::constructor (car e))) 
      (xdge::getpropertyvalue ge "reverseParam") 
      (xdge::entity:make ge) 
      (xdge::free) 
      (vl-cmdf ".move" "L" "" (cadr e)) 
      (while (/= (getvar "cmdactive") 0) 
        (command pause) 
      ) 
      (setq pts (xdrx_getpropertyvalue (entlast) "vertices")) 
      (_makepoints (xdrx_getpropertyvalue (entlast) "vertices")) 
      (princ (strcat "\nnumVerts = " (itoa (length pts)))) 
    ) 
  ) 
  (princ) 
) 
(defun c:tt1 (/ _makepoints e ge pts) 
  (defun _makePoints (pts / i) 
    (setq i 0) 
    (mapcar '(lambda (x) 
               (xdrx_entity_setcolor (xdrx_point_make x) (setq i (1+ i))) 
             ) 
            pts 
    ) 
  ) 
  (if (setq e (xdrx_entsel 
                "\nPick closed pine: " 
                '((0 . "spline")) 
              ) 
      ) 
    (progn       
      (xdrx_point_make (xdrx_curve_getstartpoint (car e))) 
      (setq ge (xdge::constructor (car e))) 
      (xdge::getpropertyvalue ge "reverseParam") 
      (xdge::entity:make ge) 
      (xdge::free) 
      (vl-cmdf ".move" "L" "" (cadr e)) 
      (while (/= (getvar "cmdactive") 0) 
        (command pause) 
      )       
      (xdrx_point_make (xdrx_curve_getstartpoint (entlast))) 
    ) 
  ) 
  (princ) 
)

账号		自动登录	找回密码
密码			立即注册

[教学] XDGE几何库应用(17)--AcGeCurve3d类方法介绍

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

本帖被以下淘专辑推荐: