[求助]如何不用偏移命令，来取得偏移后的图元的顶点表

carrot1983

如何不用偏移命令，来取得偏移后的图元的顶点表？

因为直接用偏移命令或vla-offset，对于数量比较多的实体。速度会很慢。

我现在要偏移的目的只是起辅助作用，最终目的是取得偏移后的图元的顶点表。

特此求助

carrot1983

曲线类型，如果能达到任意的当然好。。。

不行的话，能实现LINE,ARC,LWPOLYLINE也行

如果对弧段比较难，那就退而求其次，直线段能实现也可。

nonsmall

实现基本功能容易，实现全部的要麻烦很多

计算麻烦

尤其遇到一些偏移量过大、自相交的线等意外情况

需要大量的测试和判断

zdzdzdzd

用entget函数可以获得。

carrot1983

只支持LINE和LWPOLYLINE的直线段的情况呢。。。

LINE是最简单的

LWPOLYLINE的直线段偏移后的点位计算。

没找到好思路

nonsmall

那就简单多了

PL偏移一般可以按照相交两线（或圆弧）结合部分的切向角夹角的中心线为延伸方向

简单说：

两线夹角的一半作为偏移点的方向，距离应该是该角度的余弦值比偏移距离（自己再算算）

然后把所有的点按原有的PL重新连接成为新的PL即可

caoyin

用 vlax-curve-getFirstDeriv 求出各个点的法线角度，

然后再求交点

carrot1983

caoyin发表于2009-3-27 14:47:00用 vlax-curve-getFirstDeriv 求出各个点的法线角度，然后再求交点

--  作者：nonsmall --   那就简单多了 PL偏移一般可以按照相交两线（或圆弧）结合部分的切向角夹角的中心线为延伸方向 简单说： 两线夹角的一半作为偏移点的方向，距离应该是该角度的余弦值比偏移距离（自己再算算） 然后把所有的点按原有的PL重新连接成为新的PL即可

好主意，谢谢两位

caddog

这是我写的一个函数，还有不少的问题，而且没有处理闭合的多段线

3. ;;;--------------------------------------------------------
4. ;;;函数： hj:offsetPline #pts-offset dist-off  
5. ;;;--------------------------------------------------------
6. ;;;说明：求点列表偏移一个距离后的坐标表
7. ;;;备注：
8. ;;;--------------------------------------------------------
9. (defun hj:offsetPline (#pts-offset dist-off / #PTS-INTERS #PTS2 #PTS3 DIST-OFF RIANGLE X Y Z)
10.   ;;还无法达到像CAD一样的偏移效果，当偏出来的多段线自相交时，如何处理？
11. ;;;  (if (minusp dist-off)
12. ;;;    (setq riAngle (* -1 (/ pi 2)))
13. ;;;    (setq riAngle (/ pi 2))
14. ;;;    )
15.   (setq riAngle (/ pi 2))
16.   (setq z (length #pts-offset))  
17.   ;;将每一段偏移，求出段集合
18.   (setq #pts2 (HJ:LIST->EDGE #pts-offset nil))
19.   (setq #pts3(mapcar '(lambda(x) (list
20.        (polar (car x) (+ (angle (car x)(cadr x)) riAngle) dist-off)
21.        (polar (cadr x) (+ (angle (car x)(cadr x)) riAngle) dist-off)
22.        )
23.    )
24.        #pts2)
25. )
26.   ;;求各段之交点
27.   (setq #pts-inters
28.   (mapcar '(lambda(x y)(INTERS (car x)(cadr x)(car y)(cadr y) nil))
29.    (REVERSE (cdr (REVERSE #pts3)))
30.    (cdr #pts3)
31.    ))
32.   (setq #pts3 (vl-remove nil #pts3))
33.   (setq #pts-inters (append (list (caar #pts3)) #pts-inters (list (last (last #pts3)))))
34.   (vl-remove nil #pts-inters)
35.   )
36. ;;子函数
37. ;;;--------------------------------------------------------
38. ;;;函数： hj:list->edge e   
39. ;;;--------------------------------------------------------
40. ;;;说明：将点列表(point list)组合为分段集合.
41. ;;;备注：(1 2 3 4 5 6)==>((1 2)(2 3)(3 4)(4 5)(5 6))
42. ;;;--------------------------------------------------------
43. (defun hj:list->edge (#edge closed / edgeLst)
44.   (setq edgeLst (mapcar '(lambda( x y)(list x y)) #edge (append (cdr #edge) (list (car #edge)))))
45.   (if (not closed)
46.     (REVERSE(cdr (REVERSE edgeLst)))
47.     edgeLst
48.     )  
49.   
50.   )

;;;-------------------------------------------------------- ;;;函数： hj:offsetPline #pts-offset dist-off   ;;;-------------------------------------------------------- ;;;说明：求点列表偏移一个距离后的坐标表 ;;;备注： ;;;-------------------------------------------------------- (defun hj:offsetPline (#pts-offset dist-off / #PTS-INTERS #PTS2 #PTS3 DIST-OFF RIANGLE X Y Z)   ;;还无法达到像CAD一样的偏移效果，当偏出来的多段线自相交时，如何处理？ ;;;  (if (minusp dist-off) ;;;    (setq riAngle (* -1 (/ pi 2))) ;;;    (setq riAngle (/ pi 2)) ;;;    )   (setq riAngle (/ pi 2))   (setq z (length #pts-offset))     ;;将每一段偏移，求出段集合   (setq #pts2 (HJ:LIST->EDGE #pts-offset nil))   (setq #pts3(mapcar '(lambda(x) (list        (polar (car x) (+ (angle (car x)(cadr x)) riAngle) dist-off)        (polar (cadr x) (+ (angle (car x)(cadr x)) riAngle) dist-off)        )    )        #pts2) )   ;;求各段之交点   (setq #pts-inters   (mapcar '(lambda(x y)(INTERS (car x)(cadr x)(car y)(cadr y) nil))    (REVERSE (cdr (REVERSE #pts3)))    (cdr #pts3)    ))   (setq #pts3 (vl-remove nil #pts3))   (setq #pts-inters (append (list (caar #pts3)) #pts-inters (list (last (last #pts3)))))   (vl-remove nil #pts-inters)   ) ;;子函数 ;;;-------------------------------------------------------- ;;;函数： hj:list->edge e    ;;;-------------------------------------------------------- ;;;说明：将点列表(point list)组合为分段集合. ;;;备注：(1 2 3 4 5 6)==>((1 2)(2 3)(3 4)(4 5)(5 6)) ;;;-------------------------------------------------------- (defun hj:list->edge (#edge closed / edgeLst)   (setq edgeLst (mapcar '(lambda( x y)(list x y)) #edge (append (cdr #edge) (list (car #edge)))))   (if (not closed)     (REVERSE(cdr (REVERSE edgeLst)))     edgeLst     )        )

kry

caoyin能否写一下？我也遇到了这个 问题，但是对VLA又不怎么熟