多段线偏移，弧曲率不变，弧长为offset下的长度

/db_自贡黄明儒_

多段线偏移，弧曲率不变，弧长为offset下的长度
请各位高手帮帮忙

ysq101

这个对于我等新手来说。。。有点难度哦。。。。
支持一下。。等高手来吧

Lispboy

凸度已知了，你修改下BULGE就行了。

/db_自贡黄明儒_

Lispboy 发表于 2013-10-26 14:50
凸度已知了，你修改下BULGE就行了。

首先谢谢你的回复
就这么简单，我简直不敢相信。如果弧后面还有直线、弧线。。。仅修改offset后多段线的bulge就行了?

st788796

给你个参考, 距离输入负值向内, 正值向外, xdrx_arc_make没有测试成功，用 Vla 方法
如果你用纯Lisp，最简单的就是计算三个点，用 command 三点绘制圆弧，然后 offset entlast

1. (defun c:tt (/ e pam karc p0 d arc)
   
2.   (if (and (setq e (xdrx_entsel
   
3.        "\nPick Point on Arc of Pline: "
   
4.        '((0 . "*polyline"))
   
5.      )
   
6.     )
   
7.     (setq pam (fix (apply 'xdrx_curve_getparamatpoint e)))
   
8.     (setq p0 (apply 'xdrx_curve_getclosestpoint e))
   
9.     (setq e (car e))
   
10.     (not (zerop (xdrx_polyline_getbulgeat e pam)))
    
11.     (setq d (getreal "\nOffset dist: "))
    
12.       )
    
13.     (progn
    
14.       (setq karc (xdrx_polyline_getarcsegat e pam))
    
15.       (if (car karc)
    
16. (vla-addarc
    
17.    (vla-get-modelspace
    
18.      (vla-get-activedocument (vlax-get-acad-object))
    
19.    )
    
20.    (vlax-3d-point (cadr karc))
    
21.    (+ (caddr karc) d)
    
22.    (cadddr karc)
    
23.    (last karc)
    
24. )
    
25. (vla-addarc
    
26.    (vla-get-modelspace
    
27.      (vla-get-activedocument (vlax-get-acad-object))
    
28.    )
    
29.    (vlax-3d-point (cadr karc))
    
30.    (+ (caddr karc) d)
    
31.    
    
32.    (last karc)(cadddr karc)
    
33. )
    
34.       )
    
35.       (xdrx_entity_setPropertiesFrom (entlast) e)
    
36.     )
    
37.     (princ "\nNot arc seg on pline!")
    
38.   )
    
39.   (princ)
    
40. )

(defun c:tt (/ e pam karc p0 d arc)<br />   (if (and (setq e (xdrx_entsel<br />        "\nPick Point on Arc of Pline: "<br />        '((0 . "*polyline"))<br />      )<br />     )<br />     (setq pam (fix (apply 'xdrx_curve_getparamatpoint e)))<br />     (setq p0 (apply 'xdrx_curve_getclosestpoint e))<br />     (setq e (car e))<br />     (not (zerop (xdrx_polyline_getbulgeat e pam)))<br />     (setq d (getreal "\nOffset dist: "))<br />       )<br />     (progn<br />       (setq karc (xdrx_polyline_getarcsegat e pam))<br />       (if (car karc)<br /> (vla-addarc<br />    (vla-get-modelspace<br />      (vla-get-activedocument (vlax-get-acad-object))<br />    )<br />    (vlax-3d-point (cadr karc))<br />    (+ (caddr karc) d)<br />    (cadddr karc)<br />    (last karc)<br /> )<br /> (vla-addarc<br />    (vla-get-modelspace<br />      (vla-get-activedocument (vlax-get-acad-object))<br />    )<br />    (vlax-3d-point (cadr karc))<br />    (+ (caddr karc) d)<br />    <br />    (last karc)(cadddr karc)<br /> )<br />       )<br />       (xdrx_entity_setPropertiesFrom (entlast) e)<br />     )<br />     (princ "\nNot arc seg on pline!")<br />   )<br />   (princ)<br /> )

st788796

Pline Offset 后还是平行的啊，仅修改凸度不行，还要改端点的！
不过你怎么 Offset 成不同心的？

/db_自贡黄明儒_

st788796 发表于 2013-10-26 15:11
Pline Offset 后还是平行的啊，仅修改凸度不行，还要改端点的！
不过你怎么 Offset 成不同心的？

就是要呀，改端点，怎么改。可能还要判断弧是旋转方向？
不同心没有关系。
如果能offset后修改各个端点就好，关键是怎么计算这些端点

st788796

/db_自贡黄明儒_ 发表于 2013-10-26 15:24
就是要呀，改端点，怎么改。可能还要判断弧是旋转方向？
不同心没有关系。
如果能offset后修改各个端 ...

你怎么 Offset 出来不平行的?

/db_自贡黄明儒_

st788796 发表于 2013-10-26 15:36
你怎么 Offset 出来不平行的?

我是想用cad命令offset，生成对象后修改它。
关键是怎么计算各点
上面图片中的红线，我是拷贝出来，然后延长弧得到的

st788796

/db_自贡黄明儒_ 发表于 2013-10-26 15:52
我是想用cad命令offset，生成对象后修改它。
关键是怎么计算各点

你要把  ARC 局部偏移出来?
用 XDRX_Polyline_GetArcSegAt 就可以取得 ARC 信息

/db_自贡黄明儒_

st788796 发表于 2013-10-26 15:55
你要把  ARC 局部偏移出来?
用 XDRX_Polyline_GetArcSegAt 就可以取得 ARC 信息

我希望多段线偏移后仍是多段线，弧半径不变，但弧的长度要等于在offset下的长度

Lispboy

/db_自贡黄明儒_ 发表于 2013-10-26 15:58
我希望多段线偏移后仍是多段线，弧半径不变，但弧的长度要等于在offset下的长度

从你的图看， 曲线的曲率肯定不一样了啊，你需要算出新的凸度去修改它。

st788796

/db_自贡黄明儒_ 发表于 2013-10-26 15:58
我希望多段线偏移后仍是多段线，弧半径不变，但弧的长度要等于在offset下的长度

这就明白了, Offset 后只要修改顶点就可以, 计算一下弧长, vlax-curve 等几个函数的组合应用而已

Lispboy

你的图画的不准，应该是上面图吧，长度没变

条件： 起点没变，长度没变，相当于白色的弧绕着起点往里面转个角度吧？ 还有什么不变？ 曲率不变，那就是凸度也不变，那变化的就是圆心了，那还需要个参数确定那个转角，转角你怎么定的？ 你算出圆心，修改多段线弧段数据。

Lispboy

1楼的帖子，你说的条件约束不了红色的线，曲率不变，长度不变，线有N个，另外一个约束条件什么？