求助：把一个图形沿它的几何中心（形心）方向偏移一定的距离d?? lisp 如何编程？？

Jully

比如如图所示的图形，图形已表示成一个统一的整体，做整体偏移。

该贴已经同步到 Jully的微博

mandala

如果你的偏移是指offset的话，那么比较直观的办法是将此线变成一条连续的多段线pl，再将其变成顺时针走向，最后（vla-offset plename d）。或者就是找出形心来offset，要么就干脆求最小包围圆的圆心来offset。

Jully

我想沿一定方向的偏移和offset是有区别的吧？我所要的偏移是：假如知道这个图形的极坐标方程ρ（θ），则所求的是ρ（θ）-d
注：图形形心坐标是可求的。

ZZXXQQ

楼主给出的图形的形心是一个点，根据标题要沿其几何中心方向偏移，那到底是哪个方向呢？

highflybird

楼主可能自己都还不清楚那样的效果是什么。
如果真的是沿着极心偏移，牵涉到极坐标变换，那样直线段会映射成曲线，弧形可能会映射成非圆曲线，这可是你要的效果？
如果你不清楚的话，可以在 CAD中画画，看是不是这样？

Jully

回复 highflybird 的帖子

对，会出现这种效果。请问你知道它的算法吗？

highflybird

如果真是那样的话，那只有分点，把边界线分成n个点，对每个点映射，（polar函数）然后由映射后的点表构成多段线。
以下代码仅供参考。

1. 
   
2. (defun c:test(/ DIS ENT I LST OBJ PNT PTS SEL X)
   
3.   (setq sel (ssget))
   
4.   (setq i 0)
   
5.   (setq pnt (getpoint "\n请输入形心:"))
   
6.   (setq pnt (trans pnt 1 0))
   
7.   (setq dis (getdist "\n请输入偏移距离:"))
   
8.   (repeat (sslength sel)
   
9.     (setq ent (ssname sel i))
   
10.     (setq obj (vlax-ename->vla-object ent))
    
11.     (setq lst (get-spline-vertexs ent 100))
    
12.     (setq pts (mapcar '(lambda (x) (polar pnt (angle pnt x) (- (distance pnt x) dis))) lst))
    
13.     (Make-Poly pts)
    
14.     (setq i (1+ i))
    
15.   )
    
16. )
    
17. ;;;取得曲线的点
    
18. (defun get-spline-vertexs (ent n / DIST ENDPAR I LEN OBJ PT PTS SEG)
    
19.   (setq obj (vlax-ename->vla-object ent))
    
20.   (setq endpar  (vlax-curve-getEndParam obj))
    
21.   (setq len (vlax-curve-getDistAtParam obj endpar))
    
22.   (setq seg (/ len n))
    
23.   (setq dist 0)
    
24.   (while (< dist len)   
    
25.     (setq pt (vlax-curve-getPointAtDist obj dist))
    
26.     (setq pts (cons pt pts))
    
27.     (setq dist (+ seg dist))   
    
28.   )
    
29.   (if (not (vlax-curve-isClosed obj))
    
30.     (setq pt (vlax-curve-getEndPoint obj)
    
31.    pts (cons pt pts)
    
32.     )
    
33.   )
    
34.   (reverse pts)
    
35. )
    
36. ;;;绘制多段线
    
37. (defun Make-Poly (pp / x)
    
38.   (entmakeX        ;画凸包
    
39.     (append
    
40.       '((0 . "LWPOLYLINE")
    
41. (100 . "AcDbEntity")
    
42. (100 . "AcDbPolyline")
    
43.        )
    
44.       (list (cons 90 (length pp)))     ;顶点个数
    
45.       (mapcar
    
46. (function (lambda (x) (cons 10 x)))
    
47. pp
    
48.       )         ;多段线顶点
    
49.       (list (cons 70 1))      ;闭合的
    
50.       (list (cons 62 1))      ;红色的
    
51.     )
    
52.   )
    
53. )
    
54. 
    

<br /> (defun c:test(/ DIS ENT I LST OBJ PNT PTS SEL X)<br />   (setq sel (ssget))<br />   (setq i 0)<br />   (setq pnt (getpoint "\n请输入形心:"))<br />   (setq pnt (trans pnt 1 0))<br />   (setq dis (getdist "\n请输入偏移距离:"))<br />   (repeat (sslength sel)<br />     (setq ent (ssname sel i))<br />     (setq obj (vlax-ename->vla-object ent))<br />     (setq lst (get-spline-vertexs ent 100))<br />     (setq pts (mapcar '(lambda (x) (polar pnt (angle pnt x) (- (distance pnt x) dis))) lst))<br />     (Make-Poly pts)<br />     (setq i (1+ i))<br />   )<br /> )<br /> ;;;取得曲线的点<br /> (defun get-spline-vertexs (ent n / DIST ENDPAR I LEN OBJ PT PTS SEG)<br />   (setq obj (vlax-ename->vla-object ent))<br />   (setq endpar  (vlax-curve-getEndParam obj))<br />   (setq len (vlax-curve-getDistAtParam obj endpar))<br />   (setq seg (/ len n))<br />   (setq dist 0)<br />   (while (< dist len)   <br />     (setq pt (vlax-curve-getPointAtDist obj dist))<br />     (setq pts (cons pt pts))<br />     (setq dist (+ seg dist))   <br />   )<br />   (if (not (vlax-curve-isClosed obj))<br />     (setq pt (vlax-curve-getEndPoint obj)<br />    pts (cons pt pts)<br />     )<br />   )<br />   (reverse pts)<br /> )<br /> ;;;绘制多段线<br /> (defun Make-Poly (pp / x)<br />   (entmakeX        ;画凸包<br />     (append<br />       '((0 . "LWPOLYLINE")<br /> (100 . "AcDbEntity")<br /> (100 . "AcDbPolyline")<br />        )<br />       (list (cons 90 (length pp)))     ;顶点个数<br />       (mapcar<br /> (function (lambda (x) (cons 10 x)))<br /> pp<br />       )         ;多段线顶点<br />       (list (cons 70 1))      ;闭合的<br />       (list (cons 62 1))      ;红色的<br />     )<br />   )<br /> )<br /> <br />

Jully

谢谢！

434939575

学习了。初学者。