[求助]：多线段圆弧段参数

qiyu0588 · 发表于 2008-1-7 16:56:10

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

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

×

请问下
多线段(LWPOLYLINE)中圆弧段的参数怎么求得
如半径、圆心、转角等等

谢谢！

carrot1983 · 发表于 2008-1-8 08:44:10

我也想知道。。。

zxq0220 · 发表于 2008-1-8 09:32:24

在LWPOLYLINE中圆弧的表示为凸度（42组码）当圆弧为半圆时该值为1。弧段大于180度时该值小于零。

qiyu0588 · 发表于 2008-1-8 09:58:31

楼上的能说详细点不？3Q

zxq0220 · 发表于 2008-1-8 11:19:49

在LWPOLYLINE中圆弧的表示为凸度（42组码）当圆弧为半圆时该值为1。弧段大于180度时该值小于零。

zxq0220 · 发表于 2008-1-8 16:18:42

可以用勾股弦定理求半径。设两点坐标为P1，P2，凸度值为B：
则：
两点间距离dst=(distance p1 p2)
半径r=(sqrt (+ (* dst dst 0.25) (exp (* dst 0.5 (- 1 b)) 2)))  ; 0<b<1
      r=(sqrt (+ (* dst dst 0.25) (exp (* dst 0.5 (- (- b) 1)) 2))) ; b<0
圆心坐标=(polar (polar p1 (angle p1 p2) (* dst 0.5)) (+ (angle p1 p2) (* pi 0.5)) (* (- b 1) dst 0.5)) ; 0<b<1
            =(polar (polar p1 (angle p1 p2) (* dst 0.5)) (+ (angle p1 p2) (* pi 0.5)) (* (- (- b) 1) dst 0.5)) ;b<0

qiyu0588 · 发表于 2008-1-8 17:21:42

3Q！
我也学习了下
用下面的方法：

(defun c:tt()
(setq en (entsel));选择的位置选择再圆弧段
(setq endate (plxendate (cadr en) (car en)));取得圆弧段的对象列表
)
(defun plxendate(point ename);;取pl线某段的对象列表
   (setq pt (osnap point "nearest"))
   (command "explode" ename)
   (setq endate (entget (ssname (ssget pt) 0)))
   (command "u")
   endate
)

Underway · 发表于 2008-1-8 22:25:09

Ref Link:
Polyline Bulges
http://www.afralisp.net/lisp/Bulges1.htm

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

[求助] [求助]：多线段圆弧段参数

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

相关帖子