明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1980|回复: 5

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

[复制链接]
发表于 2014-1-11 21:05 | 显示全部楼层 |阅读模式
10明经币
请高手帮助写一个代码。
我希望一次性取得这些多线的等分点坐标,等分距为固定的0.1m。输入到CSV格式文件中,每条多线编号,例如L1、L2、L3....Ln。输出格式为:线的编号占一列,X占一列,Y占一列。用晓东函数库或学院派函数库均可。
那些多段线是不能打断的,只是提取等分点坐标。

附件: 您需要 登录 才可以下载或查看,没有账号?注册
发表于 2014-1-11 21:05 | 显示全部楼层
  1. (defun c:tt ( / e ff file i j lst lst0 lsta plst pt pts ss)
  2.         (setq ss (ssget '((0 . "*POLYLINE"))) i -1 j 1 lst0 '("编号" "X坐标" "Y坐标"))
  3.         (while (setq e (ssname ss (setq i (1+ i))))
  4.                 (setq pts (xyp-Get-CurveDivEqualDist e 0.1)
  5.                         lst (mapcar '(lambda(pt) (setq plst (list (strcat "L" (itoa j)) (rtos (car pt) 2 3) (rtos (cadr pt) 2 3)))) pts)
  6.                         lsta (append lst lsta)
  7.                         j (1+ j)
  8.                 )
  9.         )
  10.         (setq lsta (append (list lst0) (reverse lsta));;因为cvs对行数是有限制的,所以改存TXT文件,你也可以改成*.CVS
  11.                 file "d:\\多段线定距等分点.txt"
  12.                 ff (open file "a")
  13.                 )
  14.         (mapcar '(lambda(pt) (write-line (strcat (car pt) "," (cadr pt) "," (caddr pt)) ff)) lsta)
  15.         (close ff)
  16.         )

点评

好像不能使啊  发表于 2014-2-27 15:30
回复

使用道具 举报

发表于 2014-1-12 06:54 | 显示全部楼层
E派导入表格函数我总是不能正确使用...多了几句费话....因为cvs对行数是有限制的,所以改存TXT文件,你也可以改成*.CVS
你分段太密集,超过CVS行数限制了.....用TXT没有....

评分

参与人数 1明经币 +1 收起 理由
清风明月名字 + 1 赞一个!告诉了用户CSV的限制

查看全部评分

回复

使用道具 举报

发表于 2014-2-27 15:31 | 显示全部楼层
需要E派支持....
回复

使用道具 举报

发表于 2016-10-20 09:04 | 显示全部楼层
这个程序很好,正需要啊。谢谢楼主分享。
回复

使用道具 举报

发表于 2016-10-26 13:47 | 显示全部楼层
不错的资料, 谢谢楼主分享啊。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-28 18:48 , Processed in 0.276009 second(s), 32 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表