关于面域局部边界偏移思路

taner · 发表于 2018-7-25 16:30:57

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

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

×

如附件所述,求编程思路,谢谢!

q3_2006 · 发表于 2018-7-25 19:10:58

你说明就是思路呀..写出来就行了..

Lispboy · 发表于 2018-7-25 20:07:47

本帖最后由 Lispboy 于 2018-7-25 20:10 编辑

注释都帮你写了,生成的蓝色线是你说的相贴的，根据它上线偏移。

(defun c:tt ()
(if (and (setq dist (getreal "\n偏移距离:"))
(setq e1 (car (xdrx_entsel "\n第一个REGION<退出>:" '((0 . "REGION")))))
(setq e2 (car (xdrx_entsel "\n第一个REGION<退出>:" '((0 . "REGION")))))
)
(progn (xdrx_begin)
(xdrx_setvar "retentlist" 1) ;;设置API变量，生成实体函数返回实体表而非选择集
(setq r1 (xdrx_entity_copy e1);;复制两个REGION
r1 (entlast)
r2 (xdrx_entity_copy e2)
r2 (entlast)
)
(setq ss (xdrx_get_subtract r1 r2));;面域R1减去R2
(setq crvs (xdrx_region->curve ss 0));;得到的REGION转曲线表，参数0，返回到最简单曲线，本例是LINE
(setq crvs-2 (xdrx_region->curve e2 t);; REGION 2 曲线表（没参数0-2返回LWPOLYLINE)，参数T，表示复制生成，不删除原REGION
el nil
)
;;下面MAPCAR循环，判断新生成的LINE哪些和两个LWPOLYLINE有重叠部分，不重叠的删除，留下重叠部分。
(mapcar '(lambda (x)
(setq g1 (xdge::constructor x))
(setq ents nil)
(mapcar '(lambda (y)
(setq g2 (xdge::constructor y)
crv-crv-int3d (xdge::constructor "kCurveCurveint3d" g2 g1);;构建AcGeCurveCurveInt3d曲线求交对象
)
(if (> (xdge::getpropertyvalue crv-crv-int3d "numoverlaps") 0);;如果重叠部分大于0，保存到表中，GE实体。
(setq el (cons g2 el))
)
)
crvs
)
)
crvs-2
)
(xdrx_entity_delete crvs-2 crvs);;删除生成的多段线
(setq ss (xdge::entity:make el));;重叠部分GE实体生成数据库实体曲线
(xdrx_entity_setproperty ss "color" 5) ;;重叠部分颜色设置成蓝色，如果不需要，可以删除SS
(setq xdir (cadr (xdrx_entity_getecs (car ss)));;得到重叠部分曲线的X方向向量，从第一个得到
box (xdrx_entity_box ss xdir);;求X方向上的BOX盒子
ss (mapcar '(lambda (x)
(setq pts (xdrx_getpropertyvalue x "vertices");;遍历，LINE顶点表
dist1 (abs (xdrx_point_dist2line (car box) (car pts) (cadr pts)));;求盒子左下点到该直线距离
)
(if (equal dist1 0.0 1e-5)
(setq dist1 0.0)
)
(list dist1 x)
)
ss
)
ss (xd::list:groupbyindex ss 0.1);;根据距离分组曲线
ss (vl-sort ss '(lambda (x y) (< (car x) (car y))));;排序，从下到上的LINE对
ss (mapcar 'cdr ss);;去掉距离，返回LINE对表
)
(setq i 0);;下面循环，偶数下偏移，奇数上偏移
(foreach n ss
(if (= (rem i 2) 0)
(setq dist1 (- dist))
(setq dist1 dist)
)
(setq ss1 (xdrx_curve_offset n dist1))
(xdrx_entity_setproperty ss1 "color" 7)
(setq i (1+ i))
)
(xdrx_end)
)
)
(princ)
)

(defun c:tt () 
  (if (and (setq dist (getreal "\n偏移距离:")) 
           (setq e1 (car (xdrx_entsel "\n第一个REGION<退出>:" '((0 . "REGION"))))) 
           (setq e2 (car (xdrx_entsel "\n第一个REGION<退出>:" '((0 . "REGION"))))) 
      ) 
    (progn (xdrx_begin) 
           (xdrx_setvar "retentlist" 1) ;;设置API变量，生成实体函数返回实体表而非选择集 
           (setq r1 (xdrx_entity_copy e1);;复制两个REGION 
                 r1 (entlast) 
                 r2 (xdrx_entity_copy e2) 
                 r2 (entlast) 
           ) 
           (setq ss (xdrx_get_subtract r1 r2));;面域R1减去R2 
           (setq crvs (xdrx_region->curve ss 0));;得到的REGION转曲线表，参数0，返回到最简单曲线，本例是LINE 
           (setq crvs-2 (xdrx_region->curve e2 t);; REGION 2 曲线表（没参数0-2返回LWPOLYLINE)，参数T，表示复制生成，不删除原REGION 
                 el     nil 
           ) 
      ;;下面MAPCAR循环，判断新生成的LINE哪些和两个LWPOLYLINE有重叠部分，不重叠的删除，留下重叠部分。 
           (mapcar '(lambda (x) 
                      (setq g1 (xdge::constructor x)) 
                      (setq ents nil) 
                      (mapcar '(lambda (y) 
                                 (setq g2            (xdge::constructor y) 
                                       crv-crv-int3d (xdge::constructor "kCurveCurveint3d" g2 g1);;构建AcGeCurveCurveInt3d曲线求交对象 
                                 ) 
                                 (if (> (xdge::getpropertyvalue crv-crv-int3d "numoverlaps") 0);;如果重叠部分大于0，保存到表中，GE实体。 
                                   (setq el (cons g2 el)) 
                                 ) 
                               ) 
                              crvs 
                      ) 
                    ) 
                   crvs-2 
           ) 
           (xdrx_entity_delete crvs-2 crvs);;删除生成的多段线 
           (setq ss (xdge::entity:make el));;重叠部分GE实体生成数据库实体曲线 
           (xdrx_entity_setproperty ss "color" 5)  ;;重叠部分颜色设置成蓝色，如果不需要，可以删除SS 
           (setq xdir (cadr (xdrx_entity_getecs (car ss)));;得到重叠部分曲线的X方向向量，从第一个得到 
                 box  (xdrx_entity_box ss xdir);;求X方向上的BOX盒子 
                 ss   (mapcar '(lambda (x) 
                                 (setq pts   (xdrx_getpropertyvalue x "vertices");;遍历，LINE顶点表 
                                       dist1 (abs (xdrx_point_dist2line (car box) (car pts) (cadr pts)));;求盒子左下点到该直线距离 
                                 ) 
                                 (if (equal dist1 0.0 1e-5) 
                                   (setq dist1 0.0) 
                                 ) 
                                 (list dist1 x) 
                               ) 
                              ss 
                      ) 
                 ss   (xd::list:groupbyindex ss 0.1);;根据距离分组曲线 
                 ss   (vl-sort ss '(lambda (x y) (< (car x) (car y))));;排序，从下到上的LINE对 
                 ss   (mapcar 'cdr ss);;去掉距离，返回LINE对表 
           ) 
           (setq i 0);;下面循环，偶数下偏移，奇数上偏移 
           (foreach n ss 
             (if (= (rem i 2) 0) 
               (setq dist1 (- dist)) 
               (setq dist1 dist) 
             ) 
             (setq ss1 (xdrx_curve_offset n dist1)) 
             (xdrx_entity_setproperty ss1 "color" 7) 
             (setq i (1+ i)) 
           ) 
           (xdrx_end) 
    ) 
  ) 
  (princ) 
)

hejiho · 发表于 2018-7-26 00:27:35

这个很新颖，能详细介绍一下用法、用处和适用性吗，谢谢

王子 · 发表于 2018-7-26 07:00:36

面域还是个新方面，我还没编过。

taner · 发表于 2018-7-26 10:52:42

Lispboy 发表于 2018-7-25 20:07
注释都帮你写了,生成的蓝色线是你说的相贴的，根据它上线偏移。

谢谢!API的,需要时间消化!

当面域有圆时,偏移的方向有点乱!另外,图三才是所要的结果,只是偏移还不够!

newer · 发表于 2018-7-26 11:45:54

taner 发表于 2018-7-26 10:52
谢谢!API的,需要时间消化!

当面域有圆时,偏移的方向有点乱!另外,图三才是所要的结果,只是偏移还不够!

你要的图三，不就是求差后的面域边界直接OFFSET吗，如果那样就更简单了，代码会更短

Lispboy · 发表于 2018-7-26 13:19:33

taner 发表于 2018-7-26 10:52
谢谢!API的,需要时间消化!

当面域有圆时,偏移的方向有点乱!另外,图三才是所要的结果,只是偏移还不够!

你要想得到偏移后那个小矩形，就不用找相贴的了

直接把求差后得到的多段线，从下往上排序。然后根据奇数，修改相贴那边的两个顶点，可以修改顶点，也可以用xdrx_entity_movestretchpoint 拉伸那两个顶点。

newer · 发表于 2018-7-26 14:06:43

taner 发表于 2018-7-26 10:52
谢谢!API的,需要时间消化!

当面域有圆时,偏移的方向有点乱!另外,图三才是所要的结果,只是偏移还不够!

还有圆的？
把可能有的组合，都贴下图，和发的DWG吧。

API的OFFSET，方向是固定的，
1、对封闭的曲线，正值永远往面积大的方向偏移，负值往偏移小的方向偏移。
2、对不封闭的曲线，正值永远往Y变大的方向（左上）偏移，负值往Y变小（右下）的方向偏移。

taner · 发表于 2018-7-26 14:40:51

本帖最后由 taner 于 2018-7-26 14:51 编辑

请点击此处下载
查看状态：需购买或无权限

您的用户组是：游客

文件名称:Drawing2.zip
下载次数:3 文件大小:20.79 KB
下载权限: 不限以上 [免费赚D豆]

Lispboy 发表于 2018-7-26 13:19
你要想得到偏移后那个小矩形，就不用找相贴的了

直接把求差后得到的多段线，从下往上排序。然后根据 ...

换了一个稍复杂的图,实际情况比这复杂得多!

newer · 发表于 2018-7-26 16:36:22

taner 发表于 2018-7-26 14:40
换了一个稍复杂的图,实际情况比这复杂得多!

问题让你弄复杂了，

你直接把第二个REGION往大了偏移，偏移后的和第一个差就是你要的结果了。

以前你想的打散了后，找到贴和的，就不好找往大往小了。
搜狗截图20180726163507.png

taner · 发表于 2018-7-26 17:11:40

第二个region有圈套圈的情形,内圈要向小的方向偏,处理起来还是蛮复杂的

来自: 微社区

newer · 发表于 2018-7-26 17:37:03

taner 发表于 2018-7-26 17:11
第二个region有圈套圈的情形,内圈要向小的方向偏,处理起来还是蛮复杂的

API的REGION是有完备的拓扑关系处理的，可以方便求出每个圈的关系，哪个外圈，哪个奇数圈，哪个偶数圈....

去看下下面这个帖子： http://bbs.xdcad.net/thread-715868-1-1.html

就是让REGION，奇数和偶数偏移的方向不一样。
下面偏移曲线，偶数层外偏，奇数层内偏

登录/注册后可看大图

taner · 发表于 2018-7-26 23:26:11

(defun test1 (ss dst / e e1 ge inx laste layer lst mps n sset topo)
(setq laste (th-get-laste))
(setq mps (xdrx_mpolygon_make ss))
(setq topo (xdrx_get_topology mps t))
(setq lst (xd::list:flat-point topo))
(foreach n lst
(setq layer (car n)
inx (cadr n)
ge (xdrx_getpropertyvalue mps "getloopat" inx)
e (xdge::entity:make ge)
e1 (if (= (rem layer 2) 0)
(xdrx_curve_getoffsetcurves e dst)
(xdrx_curve_getoffsetcurves e (- dst))
)
)
(xdge::free ge)
(xdrx_entity_delete e)
)
(xdrx_entity_delete mps)
(setq sset (th-ss-aftere laste))
(setq mps (xdrx_mpolygon_make sset))
(xdrx_mpolygon->region mps)
)

在LISPBOY的基础上改了一下,基本能满足我的要求了.另外,用了两个自定义函数,API有没有对应的?

newer · 发表于 2018-7-27 00:54:42

taner 发表于 2018-7-26 23:26
在LISPBOY的基础上改了一下,基本能满足我的要求了.另外,用了两个自定义函数,API有没有对应的?

哪两个自定义函数？他们做什么的？不说出来，怎么知道有没有对应的呢？

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

[求助] 关于面域局部边界偏移思路

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

点评

点评

点评

点评

点评

点评