[求助]求助一个根据距离提取坐标的程序

tianyuan · 发表于 2010-10-8 14:45:00

在绘图的时候常常会遇到将多条pl线合并成一条线，然后在根据一定的距离提取坐标（比如20米、30米、50米。。。。。。。等等），求助高人能不能编写一个根据所需求的距离对合并后的pl线进行提取坐标的程序？先谢谢了！

liminnet · 发表于 2010-10-8 14:52:00

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

Gu_xl · 发表于 2010-10-8 15:12:00

请使用vlax-curve-getPointAtDist函数

示例：计算多段线en 距离起点20米处的坐标：(vlax-curve-getPointAtDist en 20)

tianyuan · 发表于 2010-10-8 16:46:00

不会用啊！

Gu_xl · 发表于 2010-10-8 16:56:00

tianyuan发表于2010-10-8 16:46:00不会用啊！

晕！不会Lisp吗？给你个简单函数示例：

(defun c:tt()
(setq en (car(entsel "\n选择要计算的曲线：")))
(setq dist (getreal "\n距离起点的距离"))
(setq pt (vlax-curve-getPointAtDist en dist))
)

调用命令 tt

tianyuan · 发表于 2010-10-9 08:36:00

不行啊.命令行有如下提示：“; 错误: no function definition: VLAX-CURVE-GETPOINTATDIST”

Gu_xl · 发表于 2010-10-9 08:58:00

tianyuan发表于2010-10-9 8:36:00不行啊.命令行有如下提示：“; 错误: no function definition: VLAX-CURVE-GETPOINTATD

代码前添加如下语句：

(vl-load-com)

tianyuan · 发表于 2010-10-9 09:36:00

好像是单个的计算一个坐标点的距离，能不能一次性导出pl线上的所有距离为20/30/40等等距离点的坐标值呢？

Gu_xl · 发表于 2010-10-9 14:03:00

(defun c:tt(/ en d dist pt pts)
(vl-load-com)
(setq en (car(entsel "\n选择要计算的曲线：")))
(setq d (getreal "\n请输入间距："))
(setq CurveLength (vlax-curve-getDistAtParam en (vlax-curve-getEndParam en)))
(setq dist d)
(while (< dist CurveLength)
(setq pt (vlax-curve-getPointAtDist en dist))
(setq pts (cons pt pts))
(setq dist (+ dist d))
)
pts
)

tianyuan · 发表于 2010-10-9 14:50:00

非常感谢Gu_xl。谢谢！！！

能不能在解决2个难题？1 是求得的坐标值全都是“(3.95928e+007 4.14819e+006 0.0)”格式，能不能变成数字格式去掉坐标值两侧的“（）”且精度保留3位小数；第2个难题是能不能把坐标值全都存放到。 txt格式文件当中或xls格式文件当中，每一行只保留一个点的坐标值再次感谢！！！！

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

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2010-10-8 14:52:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

[基础] [求助]求助一个根据距离提取坐标的程序