XDGE几何库应用(二)---曲线相关

st788796 · 发表于 2014-9-14 17:15:58

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

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

×

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

直线关系判断

(defun ln2ln (p1 p2 p11 p22 / ge1 ge2 mod)
(setq ge1 (xdge::constructor "kLineSeg3d" p1 p2)
ge2 (xdge::constructor "kLineSeg3d" p11 p22)
)
(setq mod (cond
((xdge::getpropertyvalue ge1 "IsEqualTo" ge2)
0 ;_same
)
((xdge::getpropertyvalue ge1 "isPerpendicularTo" ge2)
1 ;_垂直
)
((xdge::getpropertyvalue ge1 "isColinearTo" ge2)
2 ;_共线
)
((xdge::getpropertyvalue ge1 "isParallelTo" ge2)
3 ;_平行
)
((xdge::getpropertyvalue ge1 "intersectWith" ge2) ;_(inters p1 p2 p11 p12)
4 ;_相交
)
(t 5)
)
)
(xdge::free)
mod
)

st788796 · 发表于 2014-9-14 18:23:01

两个曲线是否完全重合

(defun iseq (e1 e2 / tf ge1 ge2)
(setq ge1 (xdge::constructor e1)
ge2 (xdge::constructor e2)
tf (or (xdge::getpropertyvalue ge1 "IsEqualTo" ge2)
(progn
(xdge::setpropertyvalue ge2 "reverseParam")
(xdge::getpropertyvalue ge1 "IsEqualTo" ge2)
)
)
)
(xdge::free)
tf
)

st788796 · 发表于 2014-9-14 18:31:56

inters 源形，Lisp 没有函数重构，只能定义两个

;;不延伸构造线段
(defun ginters (p1 p2 p3 p4 / ge1 ge2 p)
(setq ge1 (xdge::constructor "kLineSeg3d" p1 p2)
ge2 (xdge::constructor "kLineSeg3d" p3 p4)
p (xdge::getpropertyvalue ge1 "intersectWith" ge2)
)
(xdge::free)
p
)
;;延伸交点就构造 xline
(defun ginters1 (p1 p2 p3 p4 mod / ge1 ge2 p)
(setq ge1 (xdge::constructor "kLine3d" p1 p2)
ge2 (xdge::constructor "kLine3d" p3 p4)
p (xdge::getpropertyvalue ge1 "intersectWith" ge2)
)
(xdge::free)
p
)

st788796 · 发表于 2014-9-14 23:55:09

构造连续曲线，构造这个曲线后就可以使用相关的属性和方法了

(defun c:tt (/ p pts gel gpl)
(while (setq p (getpoint "\nPoint: "))
(setq pts (cons p pts))
)
(if pts
(progn
(setq gel (mapcar '(lambda (x y)
(xdge::constructor "kLineSeg3d" x y)
)
pts
(cdr pts)
);_构造每段
gpl (xdge::constructor "kCompositeCrv3d" gel);_构造一个连续曲线，构造前保证首尾相接
)
(xdge::entity:make gpl);_验证下是否构造
(xdge::free)
)
)
(princ)
)

st788796 · 发表于 2014-9-15 00:01:56

Ge 方法的 Pline 自相交判断

(defun c:tt (/ e gpl pcc)
(if (setq
e (car (xdrx_entsel "\nSelect Pline: " '((0 . "LWPOLYLINE"))))
)
(progn
(setq gpl (xdge::constructor e)
gcc (xdge::constructor "kCurveCurveInt3d" gpl gpl)
)
(princ (xdge::getpropertyvalue gcc "numIntPoints"))
(xdge::free)
)
)
(princ)
)

XDSoft · 发表于 2014-9-15 00:29:09

这个库可以改变Lisper的编程思维的。慢慢就都是对象的想法了。

st788796 · 发表于 2014-9-15 00:31:19

查找 Pline 自相交点

(defun c:tt (/ e gpl gcc num i pts)
(if (setq
e (car (xdrx_entsel "\nSelect Pline: " '((0 . "LWPOLYLINE"))))
)
(progn
(setq gpl (xdge::constructor e);_构造 kCompositeCrv3d
gcc (xdge::constructor "kCurveCurveInt3d" gpl gpl);_构造俩个 Curve3d 相交模型
num (xdge::getpropertyvalue gcc "numIntPoints");_交点数量
)
(if (> num 0);_如果有交点
(progn
(setq i 0)
(repeat num
(setq pts (cons (xdge::getpropertyvalue gcc "intPoint" i)
pts
)
i (1+ i)
)
)
(mapcar
'(lambda (x)
(xdrx_circle_make x 10.)
)
pts
)
)
)
(xdge::free)
)
)
(princ)
)

(defun c:tt (/ e gpl gcc num i pts) 
  (if (setq 
        e (car (xdrx_entsel "\nSelect Pline: " '((0 . "LWPOLYLINE")))) 
      ) 
    (progn 
      (setq gpl        (xdge::constructor e);_构造 kCompositeCrv3d 
            gcc        (xdge::constructor "kCurveCurveInt3d" gpl gpl);_构造俩个 Curve3d 相交模型 
            num        (xdge::getpropertyvalue gcc "numIntPoints");_交点 数量 
      ) 
      (if (> num 0);_如果有交点 
        (progn 
          (setq i 0) 
          (repeat num 
            (setq pts (cons (xdge::getpropertyvalue gcc "intPoint" i) 
                            pts 
                      ) 
                  i   (1+ i) 
            ) 
          ) 
          (mapcar 
            '(lambda (x) 
               (xdrx_circle_make x 10.) 
             ) 
            pts 
          ) 
        ) 
      ) 
      (xdge::free) 
    ) 
  ) 
  (princ) 
)

st788796 · 发表于 2014-9-15 00:39:46

XDSoft 发表于 2014-9-15 00:29
这个库可以改变Lisper的编程思维的。慢慢就都是对象的想法了。

Autolisp 也可以说是面向对象啊，看 CLisp 发展历程，对象概念在 CLisp 之处就有这个影子，只不过被别人发扬了

st788796 · 发表于 2014-9-15 01:00:47

XDSoft 发表于 2014-9-15 00:29
这个库可以改变Lisper的编程思维的。慢慢就都是对象的想法了。

AcGeIntertal怎么构造？试了几个方法均nil

XDSoft · 发表于 2014-9-15 01:17:20

st788796 发表于 2014-9-15 01:00
AcGeIntertal怎么构造？试了几个方法均nil

(XdGe::Constructor "AcGeInterval" .......................)

因为AcGeInterval 不是 AcGeEntity 的子类，所以没那些 AcGe::EntityId , 如 kCurve3d....

另外一个不是用 k开头构造的是 AcGeKnotVector,方法同AcGeInterval一样构造。

st788796 · 发表于 2014-9-15 01:26:36

XDSoft 发表于 2014-9-15 01:17
(XdGe::Constructor "AcGeInterval" .......................)

因为AcGeInterval 不是 AcGeEntity 的 ...

后面用什么参数？ double double tol返回nil

newer · 发表于 2014-9-15 10:15:20

终于出来了，研究中....

newer · 发表于 2014-9-15 10:15:26

终于出来了，研究中....

aeo · 发表于 2017-1-4 23:31:33

曲线自相交，十几年前论坛就讨论过。
就是vla方法，自己和自己求交点

newer · 发表于 2017-1-4 23:45:18

aeo 发表于 2017-1-4 23:31

使用GE库，是透过VLA，直接操作底层的几何库，VLA关于曲线的函数最终也是要用几何库的函数运算的。

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

[教学] XDGE几何库应用(二)---曲线相关

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

本帖被以下淘专辑推荐:

点评