求一次性输入多条多线的等分点坐标

清风明月10 · 发表于 2014-1-11 21:04:11

本帖最后由清风明月10 于 2014-1-11 21:05 编辑

请高手帮助写一个代码。
我希望一次性取得这些多线的等分点坐标，等分距为固定的0.1m。输入到CSV格式文件中，每条多线编号,例如L1、L2、L3....Ln。输出格式为：线的编号占一列，X占一列，Y占一列。用晓东函数库或学院派函数库均可。
那些多段线是不能打断的，只是提取等分点坐标。
下面是DWG文件，内中有数条多线，以测试代码。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:求多条等分线等分的代码.rar
下载次数:10 文件大小:60.19 KB
下载权限: 不限以上 [免费赚D豆]

llsheng_73 · 发表于 2014-1-11 21:04:12

本帖最后由 llsheng_73 于 2014-1-11 22:32 编辑

我感觉楼主有能力自己完成这个，每条线按给定间距进行getpointatdist

有了一条线的处理办法，一次选几根和几十根没本质区别

如何在曲线上将定数等分的点或者定距等分的点找出来
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=108865&fromuid=202795

newer · 发表于 2014-1-11 21:13:10

最好直接把图截取贴上来，看图直观，免得还下载。

st788796 · 发表于 2014-1-12 17:26:36

单根线的等距点，末尾点不足等距时进行了补充，楼主没有说明这个情况

(defun Polyline:DivPnts (e / dis lst pts tf)
(setq dis (cadr (xdrx_getarea e))
dis1 (XD::Math:Round dis 0.1)
tf (equal dis dis1 1e-6)
lst (XD::Geom:NumDiv dis 0. (fix (/ dis 0.1)))
)
(setq pts (mapcar '(lambda (x)
(xdrx_curve_getpointatdist e x)
)
lst
)
)
(if (not tf)
(reverse (cons (xdrx_curve_getendpoint e) (reverse pts)))
pts
)
)

清风明月10 · 发表于 2014-1-13 09:04:18

本帖最后由清风明月10 于 2014-1-13 09:05 编辑

st788796 发表于 2014-1-12 17:26
单根线的等距点，末尾点不足等距时进行了补充，楼主没有说明这个情况

代码里面有一个“0.”，是不是少了一个“1”字？
再者，建议老师写一个完整可操作的，这只是自定义函数，别人不好用。

st788796 · 发表于 2014-1-13 09:44:45

本帖最后由 st788796 于 2014-1-13 09:54 编辑

清风明月10 发表于 2014-1-13 09:04
代码里面有一个“0.”，是不是少了一个“1”字？
再者，建议老师写一个完整可操作的，这只是自定义函数 ...

还需要麻烦呀!?
贴个输出的样例吧, 如果末尾端点不足等距时如果处理

清风明月10 · 发表于 2014-1-13 10:10:44

一楼有试验的样本啊

st788796 · 发表于 2014-1-13 10:27:59

清风明月10 发表于 2014-1-13 10:10
一楼有试验的样本啊

输出文件啥样子，截个图贴上来

清风明月10 · 发表于 2014-1-13 17:50:44

D:\Backup\我的文档\QQ截图20121026175049.jpg

st788796 · 发表于 2014-1-13 21:27:09

(defun Polyline:DivByDist (e dis / Len lst pts n tf)
(setq Len (cadr (xdrx_getarea e))
n (/ Len dis)
lst (XD::Geom:NumDiv Len 0. (fix n))
tf (eq n (fix n))
pts (mapcar '(lambda (x)
(XD::Pnt:CutZ (xdrx_curve_getpointatdist e x))
)
lst
)
)
(if tf
pts
(reverse (cons (XD::Pnt:CutZ (xdrx_curve_getendpoint e))
(reverse pts)
)
)
)
)
(defun c:tt (/ ss dis i pts fl)
(if (and (setq ss (ssget '((0 . "*Polyline"))))
(setq dis (getdist "\n等分距离: "))
)
(progn
(setq i 0
pts (mapcar
'(lambda (x)
(setq i (1+ i))
(mapcar
'(lambda (a)
(xdrx_string_join
(cons (strcat "L" (itoa i))
(mapcar '(lambda (b) (rtos b 2 3)) a)
)
"\t"
)
)
(Polyline:DivByDist x dis)
)
)
(xdrx_pickset->ents ss)
)
)
(setq fl (open "d:\\test.csv" "w"))
(write-line "多线编号\tX坐标\tY坐标" fl)
(mapcar '(lambda (x)
(write-line (xdrx_string_join x "\t") fl)
)
(apply 'append pts)
)
(close fl)
(princ "\nD:\\test.csv is Ok!")
)
)
(princ)
)

(defun Polyline:DivByDist (e dis / Len lst pts n tf) 
  (setq        Len (cadr (xdrx_getarea e)) 
        n   (/ Len dis) 
        lst (XD::Geom:NumDiv Len 0. (fix n)) 
        tf  (eq n (fix n)) 
        pts (mapcar '(lambda (x) 
                       (XD::Pnt:CutZ (xdrx_curve_getpointatdist e x)) 
                     ) 
                    lst 
            ) 
  ) 
  (if tf 
    pts 
    (reverse (cons (XD::Pnt:CutZ (xdrx_curve_getendpoint e)) 
                   (reverse pts) 
             ) 
    ) 
  ) 
) 
(defun c:tt (/ ss dis i pts fl) 
  (if (and (setq ss (ssget '((0 . "*Polyline")))) 
           (setq dis (getdist "\n等分距离: ")) 
      ) 
    (progn 
      (setq i        0 
            pts        (mapcar 
                  '(lambda (x) 
                     (setq i (1+ i)) 
                     (mapcar 
                       '(lambda        (a) 
                          (xdrx_string_join 
                            (cons (strcat "L" (itoa i)) 
                                  (mapcar '(lambda (b) (rtos b 2 3)) a) 
                            ) 
                            "\t" 
                          ) 
                        ) 
                       (Polyline:DivByDist x dis) 
                     ) 
                   ) 
                  (xdrx_pickset->ents ss) 
                ) 
      ) 
      (setq fl (open "d:\\test.csv" "w")) 
      (write-line "多线编号\tX坐标\tY坐标" fl) 
      (mapcar '(lambda (x) 
                 (write-line (xdrx_string_join x "\t") fl) 
               ) 
              (apply 'append pts) 
      ) 
      (close fl) 
      (princ "\nD:\\test.csv is Ok!") 
    ) 
  ) 
  (princ) 
)

st788796 · 发表于 2014-1-14 09:21:09

本帖最后由 st788796 于 2014-1-14 09:23 编辑

什么是CSV？
CSV（逗号分隔值）格式是最常见的数据库和电子表格导入和导出格式。

什么是Excel？
微软Excel是由微软开发的用于电子表格处理的应用程序，XLS文件是Excel的文件存储格式。我们通常说Excel格式指的就是XLS格式。

CSV格式比Excel格式具备的优势：

1）CSV是纯文本文件，支持追加模式写入，节省内存。Excel是结构复杂的二进制文件，只支持一次性写入，较费内存。
2）CSV的文件行数没有限制，在实际项目中我们已输出过上千万行的CSV文件；32位系统下Excel单个Sheet最多支持65535行。
3）CSV是纯文本文件，可以使用任何文本编辑器进行编辑，因此可以在Linux终端下对其进行修改。Excel是二进制文件，目前已知的编辑工具有Office，OpenOffice，WPS，都为GUI工具，不支持在终端下编辑。

excel 2003 =2^16 = 65 536
excel 2007 = 2^20 = 1048576

其实没有csv最大行数的限制，只是说excel打开的话，只能显示如上数据，多了就不显示。

EXCEL 2003 最大列数是 256列（IV列）最大行数为65536行
EXCEL 2007 最大列数是16384列最大行数为1048576行

csv文件，你可以使用记事本或者editplus或者notepad++打开，数据还是有的。csv文件就是一批字符串加上换行符做成的。

Љ

zxwzxw001 · 发表于 2015-3-10 11:40:53

将线段按照你的需要等分后，然后通过多线段将刚才等分的各点连起来，使用list命令—回车，即可显示等分点坐标。

孝诚达爱 · 发表于 2015-3-27 19:34:42

来看一看，学习一下，，，#在这里快速回复#

edxwn · 发表于 2015-10-17 09:49:26

提示: 作者被禁止或删除内容自动屏蔽

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

edxwn edxwn 当前离线 UID 753642 积分 53 精华贡献威望活跃度 D豆在线时间小时注册时间 2015-10-12 最后登录 1970-1-1 窥视卡雷达卡	发表于 2015-10-17 09:49:26 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复使用道具举报

[已解决] 求一次性输入多条多线的等分点坐标

最佳答案

相关帖子

点评

评分

点评

评分

评分