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

/db_自贡黄明儒_ · 发表于 2013-10-26 16:24:34

Lispboy 发表于 2013-10-26 16:22
1楼的帖子，你说的条件约束不了红色的线，曲率不变，长度不变，线有N个，另外一个约束条件什么？

我传个示例

/db_自贡黄明儒_ · 发表于 2013-10-26 16:27:35

Lispboy 发表于 2013-10-26 16:14
你的图画的不准，应该是上面图吧，长度没变

条件：起点没变，长度没变，相当于白色的弧绕着起点 ...

还有一个条件就是弧长不变

st788796 · 发表于 2013-10-26 16:30:05

圆心角变化了, 凸度也要变化

st788796 · 发表于 2013-10-26 16:37:33

这样就对了

(defun c:tt (/ e1 e2 pam1 bulge l1 l2 d arcL scl)
(if
(and (setq
e1 (xdrx_entsel "\n选择源Pline弧段: " '((0 . "lwpolyline")))
)
(setq
e2 (xdrx_entsel "\n点选目标Pline弧段: " '((0 . "lwpolyline")))
)
)
(progn
(setq pam1 (fix (apply 'xdrx_curve_getparamatpoint e1))
bugle (xdrx_polyline_getbulgeat e1 pam)
l1 (cadr (xdrx_getarea (car e1)))
l2 (cadr (xdrx_getarea (car e2)))
d (- l2 l1)
arcL (xdrx_curve_getdistatpoint
(car e2)
(xdrx_curve_getpointatparam (car e2) pam1)
(xdrx_curve_getendpoint (car e2))
)
scl (1- (/ d arcL))
)
(xdrx_polyline_setpointat
(car e2)
(fix (xdrx_curve_getendparam (car e2)))
(xdrx_curve_getpointatdist (car e2) l1)
)
(xdrx_polyline_setbulgeat (car e2) pam (* scl bulge))
)
)
(princ)
)

(defun c:tt (/ e1 e2 pam1 bulge l1 l2 d arcL scl) 
  (if 
    (and (setq 
    e1 (xdrx_entsel "\n选择源Pline弧段: " '((0 . "lwpolyline"))) 
  ) 
  (setq 
    e2 (xdrx_entsel "\n点选目标Pline弧段: " '((0 . "lwpolyline"))) 
  ) 
    ) 
     (progn 
       (setq pam1  (fix (apply 'xdrx_curve_getparamatpoint e1)) 
      bugle (xdrx_polyline_getbulgeat e1 pam) 
      l1    (cadr (xdrx_getarea (car e1))) 
      l2    (cadr (xdrx_getarea (car e2))) 
      d    (- l2 l1) 
      arcL  (xdrx_curve_getdistatpoint 
       (car e2) 
       (xdrx_curve_getpointatparam (car e2) pam1) 
       (xdrx_curve_getendpoint (car e2)) 
     ) 
      scl   (1- (/ d arcL)) 
       ) 
       (xdrx_polyline_setpointat 
  (car e2) 
  (fix (xdrx_curve_getendparam (car e2))) 
  (xdrx_curve_getpointatdist (car e2) l1) 
       ) 
       (xdrx_polyline_setbulgeat (car e2) pam (* scl bulge)) 
     ) 
  ) 
  (princ) 
)

Lispboy · 发表于 2013-10-26 16:37:37

/db_自贡黄明儒_ 发表于 2013-10-26 16:27
还有一个条件就是弧长不变

上面已经说了啊，条件现在有2个了，曲率不变，长度不变，还缺一个，你这个红线怎么最终定位？只上面两个条件不够。

/db_自贡黄明儒_ · 发表于 2013-10-26 16:39:45

本帖最后由 /db_自贡黄明儒_ 于 2013-10-26 16:41 编辑

Lispboy 发表于 2013-10-26 16:37
上面已经说了啊，条件现在有2个了，曲率不变，长度不变，还缺一个，你这个红线怎么最终定位？只上面 ...

这个红线放在什么地方都可以,但最好起点与offset后的相同

st788796 · 发表于 2013-10-26 16:40:56

更简单方法
更简单方法，不过 Getsplitcurve 还是不稳定

(defun c:tt (/ e1 e2 l pam)
(if
(and (setq
e1 (xdrx_entsel "\n选择源Pline弧段: " '((0 . "lwpolyline")))
)
(setq
e2 (xdrx_entsel "\n点选目标Pline弧段: " '((0 . "lwpolyline")))
)
)
(progn
(setq L (cadr (xdrx_getarea (car e1)))
pam (xdrx_curve_getparamatdist (car e2) l)
)
(xdrx_curve_getsplitcurves (car e2) pam)
)
)
(princ)
)

Lispboy · 发表于 2013-10-26 16:41:57

st788796 发表于 2013-10-26 16:37
这样就对了

这个结果也不是他要的，黄色线是你程序生成的。他要的是红线。

QQ截图20131026164111.png

st788796 · 发表于 2013-10-26 16:43:17

Lispboy 发表于 2013-10-26 16:41
这个结果也不是他要的，黄色线是你程序生成的。他要的是红线。

Offset 后按原长度取 Splitcurve

Lispboy · 发表于 2013-10-26 16:44:38

本帖最后由 Lispboy 于 2013-10-26 16:47 编辑

/db_自贡黄明儒_ 发表于 2013-10-26 16:39
这个红线放在什么地方都可以,但最好起点与offset后的相同

放什么地方都可以？圆心随便往上抬一点，已知：圆心，弧长，凸度，随弧线的终点

st788796 · 发表于 2013-10-26 16:48:09

本帖最后由 st788796 于 2013-10-26 16:50 编辑

Lispboy 发表于 2013-10-26 16:44
放什么地方都可以？圆心随便往上抬一点，已知：圆心，弧长，凸度，随弧线的终点

就是把红线段剪掉, 还可以用 Break 于点, 然后判断删除哪根即可

st788796 · 发表于 2013-10-26 17:00:40

用 Break 命令

(defun c:tt (/ e1 e2 p lastent)
(if (and (setq e1 (car (entsel "\nFirse Pline: ")))
(setq e2 (car (entsel "\nSecond Pline: ")))
(equal (distance (vlax-curve-getstartpoint e1)
(vlax-curve-getstartpoint e2)
)
(distance (vlax-curve-getendpoint e1)
(vlax-curve-getendpoint e2)
)
0.001
)
)
(progn
(setq
p (vlax-curve-getpointatdist
e2
(vlax-curve-getdistatparam e1 (vlax-curve-getendparam e1))
)
)
(setq lastent (entlast))
(vl-cmdf ".break" (list e2 p) p "@")
(if (equal (entlast) e2)
(entdel (entnext lastent))
(entdel (entlast))
)
)
)
(princ)
)

st788796 · 发表于 2013-10-26 17:05:51

上面的几个程序要保证是整根偏移的情况下，如果 Offset 的线长变了，程序应该只计算原 ARC 部分的长度，然后在要修剪的对应弧段用长度计算点，至于用 Break 还是 SplitCurves 都可以

Lispboy · 发表于 2013-10-26 17:30:36

本帖最后由 Lispboy 于 2013-10-26 17:32 编辑

下面这段代码，帮你在每个弧段处，生成个圆弧，弧长，起点不变，绕起点旋转18度。

(defun c:tt()
(if (and (setq e (car (xdrx_entsel "\n拾取多段线<退出>:" '((0 . "LWPOLYLINE")))))
(not (xdrx_polyline_isOnlyLines e)) ;;多段线是否有弧段
)
(progn
(setq num (xdrx_polyline_numverts e));;多段线顶点数
(setq i 0)
(repeat num
(setq tf (xdrx_polyline_segtype e i)) ;;顶点类型是否是kArc
(if (= "kArc" tf)
(progn
(setq bulge (xdrx_polyline_getBulgeAt e i) ;; 顶点I的凸度
spt (xdrx_polyline_getPointAt e i) ;; 起始点
ept (xdrx_polyline_getPointAt e (+ i 1)) ;; 端点
arcinfo (xdrx_geom_poly2arc spt bulge ept) ;;弧段信息 (逆顺时针弧心半径弧起始角弧终止角)
)
(apply 'xdrx_arc_make (cdr arcinfo)) ;; 创建圆弧
(xdrx_setpropertyvalue (entlast) "color" 1)
(setq mat (xdrx_matrix_setrotation (xdrx_matrix_identity 3) (/ pi 10) '(0 0 1) spt)) ;; 绕起点旋转18度变换矩阵
(xdrx_entity_transform (entlast) mat)
)
)
(setq i (1+ i))
)
)
)
(princ)
)

(defun c:tt() 
   (if (and (setq e (car (xdrx_entsel "\n拾取多段线<退出>:" '((0 . "LWPOLYLINE"))))) 
            (not (xdrx_polyline_isOnlyLines e)) ;;多段线是否有弧段 
       ) 
     (progn 
        (setq num (xdrx_polyline_numverts e));;多段线顶点数 
        (setq i 0) 
         (repeat num 
           (setq tf (xdrx_polyline_segtype e i)) ;;顶点类型是否是kArc 
           (if (= "kArc" tf) 
              (progn 
                 (setq bulge (xdrx_polyline_getBulgeAt e i)  ;;  顶点I的凸度 
                       spt (xdrx_polyline_getPointAt e i)  ;;   起始点 
                       ept (xdrx_polyline_getPointAt e (+ i 1)) ;;   端点 
                       arcinfo (xdrx_geom_poly2arc spt bulge ept) ;;弧段信息 (逆顺时针 弧心 半径 弧起始角 弧终止角) 
                 ) 
                 (apply 'xdrx_arc_make (cdr arcinfo)) ;;  创建圆弧 
                 (xdrx_setpropertyvalue (entlast) "color" 1) 
                 (setq mat (xdrx_matrix_setrotation (xdrx_matrix_identity 3) (/ pi 10) '(0 0 1) spt))  ;;   绕起点旋转18度变换矩阵 
                 (xdrx_entity_transform (entlast) mat) 
              ) 
           ) 
           (setq i (1+ i)) 
        ) 
     ) 
   ) 
   (princ) 
)

Lispboy · 发表于 2013-10-26 17:35:33

st788796 发表于 2013-10-26 17:05
上面的几个程序要保证是整根偏移的情况下，如果 Offset 的线长变了，程序应该只计算原 ARC 部分的长度，然 ...

直接使用 xdrx_geom_arc2poly xdrx_geom_poly2arc 数学方法计算弧线信息，然后设置顶点即可。

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

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

点评

点评

点评

点评

点评

点评

点评

点评

点评