XDGE几何库应用 ---获取曲线重叠段

Lispboy · 发表于 2017-2-13 12:57:56

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

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

×

本帖最后由 Lispboy 于 2017-2-13 13:06 编辑

ARX功能强大，尤其是其中的AcGe几何库，最近研究了下，有些心得

下面探讨如何获得两条曲线重叠的部分

几何库里面有个类 AcGeCurveCurveInt3d，这个类就是处理两条相交曲线的各种位置关系的，其中
1、overlapCount 方法获取重叠段的数量
2、getOverLapRanges 获得指定索引（数量，基于0）的两条曲线上的重叠的范围的参数（AcGeInterval）

得到重叠的参数范围，就可以扣除局部的曲线了（使用通用函数库的xd::curve:getsub函数）

XDRX API 封装了ARX的几何库方法供LISP调用

重叠段演示.gif

下面是代码：

(defun c:tt ()
  (if (and (setq e1 (car (xdrx_entsel
                           "\n选取第一个多段线<退出>:"
                           '((0 . "LWPOLYLINE"))
                         )
                    )
           )
           (setq e2 (car (xdrx_entsel
                           "\n选取第二个多段线<退出>:"
                           '((0 . "LWPOLYLINE"))
                         )
                    )
           )
      )
    (progn
      (setq g1 (xdge::constructor e1) ;;构建第一条多段线的几何实体
            g2 (xdge::constructor e2)   ;;构建第二条多段线的几何实体
      )
      (if (setq gint (xdge::constructor "kCurveCurveInt3d" g1 g2)) ;;从两个几何实体构造AcGeCurveCurveInt3d对象
        (progn
          (setq num (xdge::getpropertyvalue gint "overlapcount")) ;;获取重叠段的数量
          (setq        i  -1
                ss (ssadd)
          )
          (repeat num
            (setq i        (1+ i)
                  g        (xdge::getpropertyvalue gint "getOverLapRanges" i) ;;获得第i段重叠的曲线范围参数
                  intv1        (car g) ;;获得第一条曲线的重叠部分的范围AcGeInterval对象
                  param        (xdge::getpropertyvalue intv1 "getbounds") ;;从AcGeInterval得到曲线参数上下范围
            )
            (setq e        (xd::curve:getsub e1 (car param) (cadr param) 0))  ;;调用通用LISP函数库函数扣取曲线部分实体（几何实体）
            (xdge::entity:make e) ;;生成数据库AcDbPolyline对象
            (xdrx_setpropertyvalue  ;;设置颜色6，常量宽度60
              (entlast)
              "color"
              6
              "constantwidth"
              60.0
            )
            (ssadd (entlast) ss)
          )
          (xdrx_prompt "\n发现了" num "个重叠段，品红色标记出.")
          (sssetfirst nil ss)
        )
      )      (xdge::free)
    )
  )
  (princ)
)

AcGeCurveCurveInt3d类，XDRXAPI 封装的方法

<kCurveCurveInt3d>:

Edit Functions:
 ├───set

Intersection Query Functions:
 ├───intPoint
 ├───intPoints
 ├───intPointTol
 ├───isTangential
 ├───isTransversal
 ├───numIntPoints
 ├───overlapCount
 ├───overlapDirection

Ordering Functions:
 ├───changeCurveOrder
 ├───orderWrt1
 ├───orderWrt12

Query Functions:
 ├───curve1
 ├───curve2
 ├───getIntParams
 ├───getIntRanges
 ├───getOverlapRanges
 ├───getPointOnCurve1
 ├───getPointOnCurve2
 ├───tolerance

<kEntity3d>:

Equality Checking Functions:
 ├───isEqualTo

Point Containment Functions:
 ├───isOn

Type Identification Functions:
 ├───isKindOf
 ├───type

开心68602 · 发表于 2021-10-21 08:30:42

谢谢老师分享

开心68602 · 发表于 2021-11-1 10:57:58

老师：我使用这个插件发现一个问题，对于二个封闭的图形生成的是选择的第一条曲线的非重叠段；
另一个问题：能不能框选生成多条曲线生成重叠段。

dyjwyqz5221 · 发表于 2022-7-18 18:09:24

我测试的结果也是有上述问题，应该是函数出问题了。估计是后面的函数有修改造成的。

LoveArx · 发表于 2023-11-15 06:15:26

开心68602 发表于 2021-11-1 10:57
老师：我使用这个插件发现一个问题，对于二个封闭的图形生成的是选择的第一条曲线的非重叠段；
另一个问题 ...

修改了下代码，试试下面的

微信截图_20231115061150.png

(defun c:tt ()
(if (and (setq e1 (car (xdrx_entsel
"\nSelect the first polyline<Exit>:"
'((0 . "LWPOLYLINE"))
)
)
)
(setq e2 (car (xdrx_entsel
"\nSelect second polyline <Exit>:"
'((0 . "LWPOLYLINE"))
)
)
)
)
(progn
(setq g1 (xdge::constructor e1)
;;Construct the geometric entity of the first polyline
g2 (xdge::constructor e2)
;;Construct the geometric entity of the second polyline
)
(if (setq gint (xdge::constructor "kCurveCurveInt3d" g1 g2))
;;Construct AcGeCurveCurveInt3d object from two geometric entities
(progn
(setq num (xdge::getpropertyvalue gint "overlapcount"))
;;Get the number of overlapping segments
(setq i -1
ss (ssadd)
)
(repeat num
(setq i (1+ i)
g (xdge::getpropertyvalue gint "getOverLapRanges" i)
;;Get the overlapping curve range parameters of the i-th segment
intv1 (car g)
;;Get the range AcGeInterval object of the overlapping part of the first curve
param (xdge::getpropertyvalue intv1 "getbounds")
;;Get the upper and lower range of curve parameters from AcGeInterval
)
;(setq e (xd::curve:getsub e1 (car param) (cadr param) 0))
(setq e (xdge::setpropertyvalue g1 "setinterval" (car param) (cadr param) ))
;;Call the general LISP function library function to deduct part of the curve entity (geometric entity)
(xdge::entity:make e)
;;Generate database AcDbPolyline object
(xdrx_setpropertyvalue
;;Set color 6, constant width 60
(entlast)
"color"
6
"constantwidth"
60.0
)
(ssadd (entlast) ss)
)
(xdrx_prompt
"\n"
num
"overlapping segments found, marked in magenta."
)
(sssetfirst nil ss)
)
)
(xdge::free)
)
)
(princ)
)

(defun c:tt () 
  (if (and (setq e1 (car (xdrx_entsel 
                           "\nSelect the first polyline<Exit>:" 
                           '((0 . "LWPOLYLINE")) 
                         ) 
                    ) 
           ) 
           (setq e2 (car (xdrx_entsel 
                           "\nSelect second polyline <Exit>:" 
                           '((0 . "LWPOLYLINE")) 
                         ) 
                    ) 
           ) 
      ) 
    (progn 
      (setq g1 (xdge::constructor e1) 
            ;;Construct the geometric entity of the first polyline 
            g2 (xdge::constructor e2) 
               ;;Construct the geometric entity of the second polyline 
      ) 
      (if (setq gint (xdge::constructor "kCurveCurveInt3d" g1 g2)) 
        ;;Construct AcGeCurveCurveInt3d object from two geometric entities 
        (progn 
          (setq num (xdge::getpropertyvalue gint "overlapcount")) 
          ;;Get the number of overlapping segments 
          (setq        i  -1 
                ss (ssadd) 
          ) 
          (repeat num 
            (setq i        (1+ i) 
                  g        (xdge::getpropertyvalue gint "getOverLapRanges" i) 
                  ;;Get the overlapping curve range parameters of the i-th segment 
                  intv1        (car g) 
                  ;;Get the range AcGeInterval object of the overlapping part of the first curve 
                  param        (xdge::getpropertyvalue intv1 "getbounds") 
                        ;;Get the upper and lower range of curve parameters from AcGeInterval 
            ) 
            ;(setq e (xd::curve:getsub e1 (car param) (cadr param) 0)) 
            (setq e (xdge::setpropertyvalue g1 "setinterval" (car param) (cadr param) )) 
            ;;Call the general LISP function library function to deduct part of the curve entity (geometric entity) 
            (xdge::entity:make e) 
            ;;Generate database AcDbPolyline object 
            (xdrx_setpropertyvalue 
              ;;Set color 6, constant width 60 
              (entlast) 
              "color" 
              6 
              "constantwidth" 
              60.0 
            ) 
            (ssadd (entlast) ss) 
          ) 
          (xdrx_prompt 
            "\n" 
            num 
            "overlapping segments found, marked in magenta." 
          ) 
          (sssetfirst nil ss) 
        ) 
      ) 
      (xdge::free) 
    ) 
  ) 
  (princ) 
)

开心68602 · 发表于 2024-1-1 21:49:36

LoveArx 发表于 2023-11-15 06:15
修改了下代码，试试下面的

今天刚看到，试了一下，能用了，非常感谢老师。

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

[研讨] XDGE几何库应用 ---获取曲线重叠段

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