[求助]如何比较两点间的长度且保留较大边的坐标？

kgd4510

如何比较两点间的长度且保留较大边的坐标？ 具体要求祥见acdl图，数据格式如下： pt1,bm1001,-96.7239,101.1941,10.201
pt2,bm1001,-47.9817,135.3592,11.210
pt3,bm1001,6.6300,82.3268,14.210
pt4,bm1001,58.3896,121.6126,13.351
pt5,bm1001,69.4815,57.3913,16.352 谢谢各位！

meflying

2. (defun c:test( / f str pts pts2 ptm1 ptm2 ptc ang)
3.    (setq f (open "e:\\a.txt" "r"))
4.    (while (setq str (read-line f))
5.        (setq str (vl-string-translate "," " " str))
6.        (setq str (read (strcat "(" str ")")))
7.        (setq pts (append pts (list (cddr str))))
8.    )
9.    (close f)
10.    (setq pts2 (mapcar '(lambda(e1 e2) (list (distance e1 e2) e1 e2)) (reverse (cdr (reverse pts))) (cdr pts)))
11.    (setq pts2 (vl-sort pts2 '(lambda(e1 e2) (> (car e1) (car e2)))))
12.    (command "_.line")
13.    (mapcar 'command pts)
14.    (command "")
15.    (setq ptm1 (cadar pts2) ptm2 (caddar pts2))
16.    (setq ptc (mapcar '(lambda(e1 e2) (/ (+ e1 e2) 2)) ptm1 ptm2))
17.    (setq ang (angle ptm1 ptm2))
18.    (command "_.text" ptc "" (angtos ang) "bm1001")
19.    (princ)
20. )

(defun c:test( / f str pts pts2 ptm1 ptm2 ptc ang)    (setq f (open "e:\\a.txt" "r"))    (while (setq str (read-line f))        (setq str (vl-string-translate "," " " str))        (setq str (read (strcat "(" str ")")))        (setq pts (append pts (list (cddr str))))    )    (close f)    (setq pts2 (mapcar '(lambda(e1 e2) (list (distance e1 e2) e1 e2)) (reverse (cdr (reverse pts))) (cdr pts)))    (setq pts2 (vl-sort pts2 '(lambda(e1 e2) (> (car e1) (car e2)))))    (command "_.line")    (mapcar 'command pts)    (command "")    (setq ptm1 (cadar pts2) ptm2 (caddar pts2))    (setq ptc (mapcar '(lambda(e1 e2) (/ (+ e1 e2) 2)) ptm1 ptm2))    (setq ang (angle ptm1 ptm2))    (command "_.text" ptc "" (angtos ang) "bm1001")    (princ) )

kgd4510

谢谢，太感谢啦，我试试看。

xyp1964

适于pline线

kgd4510

meflying谢谢你，你的程序帮我解决问题啦，太厉害啦。真忙的谢谢你。


xyp1964,你的这个程序我不太会用，且好像也不是解决我的问题，再有就是保密性太好。呵呵~~~~~~~~`