拟合直线

aimisiyou · 发表于 2016-4-13 20:28:04

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

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

×

(defun c:tt()
  (setq sn (ssget ":N" '((0 . "point"))))
  (setq i 0 n (sslength sn) plist nil)
  (while (< i n)
      (setq plist (cons (cdr (assoc 10 (entget (ssname sn i)))) plist))
      (setq i (+ i 1))
)

  (setq xlist (mapcar '(lambda (x) (car x)) plist))
  (setq ylist (mapcar '(lambda (y) (cadr y)) plist))
  (setq xmin (apply 'min xlist))
  (setq xmax (apply 'max xlist))
  (setq x_av (/ (apply '+ xlist) (float n)))
  (setq y_av (/ (apply '+ ylist) (float n)))
  (setq xy_av (/ (apply '+ (mapcar '(lambda (xy) (* (car xy) (cadr xy))) plist)) (float n)) )
  (setq xx_av (/ (apply '+ (mapcar '(lambda (xx) (* (car xx) (car xx))) plist)) (float n)) )
  (setq B (/ (- (* x_av y_av) xy_av) (- (* x_av x_av) xx_av)))
  (setq A (- y_av (* B x_av)))
  (command "line" (list xmin (+ A (* B xmin))) (list xmax (+ A (* B xmax))) "")
)

XDSoft · 发表于 2016-4-13 21:39:04

楼主能否和大家说说你的程序如何操作，和你对拟合直线的想法啊？

aimisiyou · 发表于 2016-4-13 23:10:42

算法就是按最小二乘法的结果输出，显示该拟合直线而已。直观上来说，拟合直线"附近"区域点分布密集些，远离拟合直线区域点分布稀疏些。

HLCAD · 发表于 2016-4-14 07:48:32

楼主，这是个好程序，再盼望你能开发一种拟合为圆弧的程序。谢谢！

CSharpBoy · 发表于 2016-4-14 08:32:22

试了下楼主的程序，如图，黄*色线是程序生成的，矩形框是点集的最小矩形框，请问下楼主，你的算法生成的直线和最小矩形框有什么关系？
搜狗截图20160414082631.png

aimisiyou · 发表于 2016-4-14 20:01:55

CSharpBoy 发表于 2016-4-14 08:32
试了下楼主的程序，如图，黄*色线是程序生成的，矩形框是点集的最小矩形框，请问下楼主，你的算法生成的直 ...

没有任何关系.

WhoCanSay · 发表于 2016-6-7 16:44:24

首先我要点赞，最新进展如何？

aimisiyou · 发表于 2016-6-7 22:32:19

WhoCanSay 发表于 2016-6-7 16:44
首先我要点赞，最新进展如何？

什么最新进展？

WhoCanSay · 发表于 2016-6-8 08:16:54

aimisiyou 发表于 2016-6-7 22:32
什么最新进展？

pdf的直线，如果是斜的，转成dwg就是很多短直线，如何框选转成直线？进入这一实用步骤没有？

newer · 发表于 2016-6-8 09:12:10

WhoCanSay 发表于 2016-6-8 08:16
pdf的直线，如果是斜的，转成dwg就是很多短直线，如何框选转成直线？进入这一实用步骤没有？

试试插件论坛的支持容差的批量融合线段插件。

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

[研讨] 拟合直线

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

点评

点评

点评

点评