[求助]：求闭合多义线不同段有不同偏移值的更好的方法！

黄卫文 · 发表于 2002-11-5 13:30:28

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

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

×

我自己做了一个，但在方法不太好，不是直接纯计算点表来做的，最后还是用了CAD中的BO命令。谁有比较好的算法！教教我？

szkevin · 发表于 2002-11-5 13:38:53

能不能把你的代码贴出来让大家看看有改进的方法?

XDSoft · 发表于 2002-11-5 13:45:51

最初由黄卫文发布
[B]我自己做了一个，但在方法不太好，不是直接纯计算点表来做的，最后还是用了CAD中的BO命令。谁有比较好的算法！教教我？ [/B]

卫文，贴个图吧，什么叫不同的不同偏移？贴个图看看效果。

黄卫文 · 发表于 2002-11-5 13:59:57

就是闭合多义线往内或外OFFSET，对闭合线每一段能用不同的偏移值！
可用在规划地块的退红线上。我的方法是：
1、先求Lw的端点表。如果是顺时针就把它改不逆时针（用了你的面积正负来判断）
2、用退线数与线段的点组表。
3、通过偏移和求线段的交点形成新的点表。
4、通过选择新的点表生成的PL和原PL的质心点用BO命令生成完整的PL线

XDSoft · 发表于 2002-11-5 14:04:52

最初由黄卫文发布
[B]就是闭合多义线往内或外OFFSET，对闭合线每一段能用不同的偏移值！
可用在规划地块的退红线上。我的方法是：
1、先求Lw的端点表。如果是顺时针就把它改不逆时针（用了你的面积正负来判断）
2、用退线数与线段的点... [/B]

那偏移后，每段就是单独的线了吧？你还是截个图上来吧。

多个段，怎么交互输入，分别指定具体的偏移值？

黄卫文 · 发表于 2002-11-5 14:11:05

ptlist是原PL线的顶点表下面一段是：2、用退线数与线段的点组表。

(repeat (length ptlist)
(if (/= (- (length ptlist) 1) j)
(grdraw (nth j ptlist) (nth (1+ j) ptlist) 3 1)
(grdraw (nth j ptlist) (nth 0 ptlist) 3 1)
)
(while
(not (setq tx_dist (getreal "\n请给出该段线段的退线距离:")))
)
(if (/= (- (length ptlist) 1) j)
(progn (setq tx_ptlist
(cons
(list (nth j ptlist) (nth (1+ j) ptlist) tx_dist)
tx_ptlist
)
)
(grdraw (nth j ptlist) (nth (1+ j) ptlist) 1 1)
)
(progn (setq tx_ptlist
(cons (list (nth j ptlist) (nth 0 ptlist) tx_dist)
tx_ptlist
)
)
(grdraw (nth j ptlist) (nth 0 ptlist) 1 1)
)
)
(setq j (1+ j))
)

(repeat (length ptlist) 
      (if (/= (- (length ptlist) 1) j) 
        (grdraw (nth j ptlist) (nth (1+ j) ptlist) 3 1) 
        (grdraw (nth j ptlist) (nth 0 ptlist) 3 1) 
      ) 
      (while 
        (not (setq tx_dist (getreal "\n请给出该段线段的退线距离:"))) 
      ) 
      (if (/= (- (length ptlist) 1) j) 
        (progn (setq tx_ptlist 
                      (cons 
                        (list (nth j ptlist) (nth (1+ j) ptlist) tx_dist) 
                        tx_ptlist 
                      ) 
               ) 
               (grdraw (nth j ptlist) (nth (1+ j) ptlist) 1 1) 
        ) 
        (progn (setq tx_ptlist 
                      (cons (list (nth j ptlist) (nth 0 ptlist) tx_dist) 
                            tx_ptlist 
                      ) 
               ) 
               (grdraw (nth j ptlist) (nth 0 ptlist) 1 1) 
        ) 
      ) 
      (setq j (1+ j)) 
    )

黄卫文 · 发表于 2002-11-5 14:11:57

下面的一段是：3、通过偏移和求线段的交点形成新的点表。

(if tx_ptlist
(progn
(setq tx_ptlist (reverse tx_ptlist)
new_ptlist nil
)
(foreach pt_list tx_ptlist
(if (not new_ptlist)
(setq pt1 (polar (nth 0 pt_list)
(+ (* 0.5 pi)
(angle (nth 0 pt_list) (nth 1 pt_list))
)
(nth 2 pt_list)
)
pt2 (polar (nth 1 pt_list)
(+ (* 0.5 pi)
(angle (nth 0 pt_list) (nth 1 pt_list))
)
(nth 2 pt_list)
)
new_ptlist (list pt2 pt1)
)
(setq pt1 (polar (nth 0 pt_list)
(+ (* 0.5 pi)
(angle (nth 0 pt_list) (nth 1 pt_list))
)
(nth 2 pt_list)
)
pt2 (polar (nth 1 pt_list)
(+ (* 0.5 pi)
(angle (nth 0 pt_list) (nth 1 pt_list))
)
(nth 2 pt_list)
)
pt1 (inters pt1 pt2 (nth 1 new_ptlist)(nth 0 new_ptlist) nil)
new_ptlist (cdr new_ptlist)
new_ptlist (cons pt1 new_ptlist)
new_ptlist (cons pt2 new_ptlist)
)
)
);for
(setq pt1 (inters (nth (1- (length new_ptlist)) new_ptlist)
(nth (- (length new_ptlist) 2) new_ptlist)
(nth 1 new_ptlist)
(nth 0 new_ptlist)
nil
)
new_ptlist (cdr new_ptlist)
new_ptlist (cdr (reverse new_ptlist))
new_ptlist (cons pt1 new_ptlist)
)
)
)

(if        tx_ptlist 
      (progn 
        (setq tx_ptlist         (reverse tx_ptlist) 
              new_ptlist nil 
        ) 
        (foreach pt_list tx_ptlist 
          (if (not new_ptlist) 
            (setq pt1             (polar (nth 0 pt_list) 
                                    (+ (* 0.5 pi) 
                                       (angle (nth 0 pt_list) (nth 1 pt_list)) 
                                    ) 
                                    (nth 2 pt_list) 
                             ) 
                  pt2             (polar (nth 1 pt_list) 
                                    (+ (* 0.5 pi) 
                                       (angle (nth 0 pt_list) (nth 1 pt_list)) 
                                    ) 
                                    (nth 2 pt_list) 
                             ) 
                  new_ptlist (list pt2 pt1)                  
            ) 
            (setq pt1             (polar (nth 0 pt_list) 
                                    (+ (* 0.5 pi) 
                                       (angle (nth 0 pt_list) (nth 1 pt_list)) 
                                    ) 
                                    (nth 2 pt_list) 
                             ) 
                  pt2             (polar (nth 1 pt_list) 
                                    (+ (* 0.5 pi) 
                                       (angle (nth 0 pt_list) (nth 1 pt_list)) 
                                    ) 
                                    (nth 2 pt_list) 
                             ) 
                  pt1 (inters pt1 pt2 (nth 1 new_ptlist)(nth 0 new_ptlist) nil) 
                  new_ptlist (cdr new_ptlist) 
                  new_ptlist (cons pt1 new_ptlist) 
                  new_ptlist (cons pt2 new_ptlist) 
            ) 
          ) 
        );for 
        (setq pt1 (inters (nth (1- (length new_ptlist)) new_ptlist) 
                          (nth (- (length new_ptlist) 2) new_ptlist) 
                          (nth 1 new_ptlist) 
                          (nth 0 new_ptlist) 
                          nil 
                  ) 
              new_ptlist (cdr new_ptlist) 
              new_ptlist (cdr (reverse new_ptlist)) 
              new_ptlist (cons pt1 new_ptlist) 
        ) 
        
      ) 
    )

XDSoft · 发表于 2002-11-5 14:13:55

最初由黄卫文发布
[B]ptlist是原PL线的顶点表下面一段是：2、用退线数与线段的点组表。

(repeat (length ptlist)
(if (/= (- (length ptlist) 1) j)
(grdraw (nth j ptlist) (nth (1+ j) ptlist) 3 1)
(grdraw (nth j ptli... [/B]

还是需要你贴个图上来

黄卫文 · 发表于 2002-11-5 14:42:17

就这图

XDSoft · 发表于 2002-11-5 14:49:02

最初由黄卫文发布
[B]就这图 [/B]

如何和用户交互，指定哪段偏移多少？

黄卫文 · 发表于 2002-11-5 15:10:16

我在第6帖中有一这过程。只是我的方法自己感觉不是太好。想知道更好算法！象上图中如果
偏移值大的话在CAD中就会生成两个物体。而我自己的只能适用于退线较小的情况。当然在实际运用中通常不会出现我说的那特殊情况。如果出现只能没有办法！：）

XDSoft · 发表于 2002-11-5 15:16:35

最初由黄卫文发布
[B]我在第6帖中有一这过程。只是我的方法自己感觉不是太好。想知道更好算法！象上图中如果
偏移值大的话在CAD中就会生成两个物体。而我自己的只能适用于退线较小的情况。当然在实际运用中通常不会出现我说的那特殊情况... [/B]

卫文，我再问，你如何得到那些用户输入的不同段的偏移值，是让用户一个段一个段的输入吗？你回答这个先。

外偏没有问题，内偏，如果上面的偏移后在下面的偏移的内部，那肯定要不正确的。想让程序完美话，判断下吧。

黄卫文 · 发表于 2002-11-5 15:34:21

最初由 XDSoft 发布
[B][QUOTE]最初由黄卫文发布
[B]我在第6帖中有一这过程。只是我的方法自己感觉不是太好。想知道更好算法！象上图中如果
偏移值大的话在CAD中就会生成两个物体。而我自己的只能适用于退线较小的情况。当然在?.. [/B]

对，在程序中加亮一段给出一段。我只考虑往里面偏的情况。我用在规划退红线上。

XDSoft · 发表于 2002-11-5 16:41:09

最初由黄卫文发布
[B][QUOTE]最初由 XDSoft 发布
[B][QUOTE]最初由黄卫文发布
[B]我在第6帖中有一这过程。只是我的方法自己感觉不是太好。想知道更好算法！象上图中如果
偏移值大的话在CAD中就会生成两个物体。而我自... [/B]

有好办法啊，你在ACAD手工交互，怎么做？程序模拟出STRETCH就可以了。

另外，可以自己求出那些点，然后自己生成一个POLYLINE。

这几天写了一个工具，看看下面演示：

下载地址：http://www.xdcad.net/tech/segoffset.swf

<embed src=http://www.xdcad.net/tech/segoffset.swf quality=high width=512 height=482 loop=true type="application/x-shockwave-flash">
</embed>

下面是LISP程序，主要算法的代码不多。

XDSoft · 发表于 2002-11-8 15:08:14

上面LISP的主要算法：

[FONT=courier new]
1、用户交互，获得每段偏移值到表：((段1 偏移值)....(段N 偏移值))
2、根据总段数，循环处理，按照该段的偏移值得到偏移后的该段的起点、终点，到表 ((段1 起点终点)...(段N 起点终点))
3、循环处理2的表，把得到前后相邻的两个段的交点，得到新的顶点，结果：(点1....点n)
4、根据3结果，绘制PL线
[/FONT]

复制代码

程序的核心函数是：xdrx_curve_offset 该函数可以偏移一个曲线（不生成新实体）得到偏移后的顶点表。

[FONT=courier new]
XDRX_CURVE_OFFSET
功能：获得AcDbCurve 曲线(line,polyline,lwpolyline,arc,circle,ellipse,spline)
OFFSET给定距离后的，曲线点表，可以控制模拟后曲线的精度。
或者返回给定参考点到OFFSET曲线后，曲线实体上的最近点。
调用格式：1.(xdrx_getoffsetcurve <AcDbCurve实体名> <偏移距离> [控制精度])
2.(xdrx_getoffsetcurve <AcDbCurve实体名> <偏移距离> [参考点] [控制精度])
返回值：1. LISP表，实体偏移后的曲线的模拟顶点表，顶点见距离由控制精度决定。
2. 返回点。
说明：参数[控制精度]对曲线有效，单位是距离。对于曲线上的直线段不起作用，
每个直线段返回两个顶点。
例如：对于POLYLINE和LWPOLYLINE,由LINE和ARC组成，控制精度(距离)对模拟的ARC有效。
直线段不需要模拟。
参数[控制精度]若不提供，系统默认使用当前绘图屏幕的viewsize变量的1/15处理。
[/FONT]

复制代码

另外，用户交互时候，可以变色显示选定段，使用了用XDRX_API定义的通用LISP函数：$XDLSP_PolyLine_getSegAt

[FONT=courier new]
;|
用法：($XDLSP_PolyLine_getSegAt <多义线实体名> <测试点>)
获得一个*POLYLINE线上指定一点处的“段”的信息。
对于直线段返回：(顶点索引 "kLine" 起点终点)
对于弧线段返回：(顶点索引 "kArc" 起点凸度终点)
所有返回点在UCS下。
|;
[/FONT]

复制代码

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

[求助]：求闭合多义线不同段有不同偏移值的更好的方法！

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

相关帖子

Re: [求助]：求闭合多义线不同段有不同偏移值的更好的方法！