批量铁路轨道线，免币

xyccf · 发表于 2016-1-26 19:27

支持将spline，lwpolyline，line的线段批量转换成铁路轨道线型，效果如下图。两个月没碰代码，函数都记不住了，嘿嘿。大概花了4、5个小时，水平有限献丑了，欢迎指正。依旧是老规矩，源码奉上，不收币。

guosheyang · 发表于 2021-11-3 09:07

感谢共享  ！这个函数算样条线的中点是不对的
(defun xl-3p (ent / ps pe pm)
  (setq ps (vlax-curve-getstartparam ent)
      pe (vlax-curve-getendparam ent)
      pm (/ (- pe ps) 2))
  (mapcar 'vlax-curve-getpointatparam (list ent ent ent) (list ps pm pe))
)
要用这个 (vlax-curve-getpointAtdist ent(/(vlax-curve-getDistAtParam ent(vlax-curve-getEndParam ent))2))

lxdz443 · 发表于 2016-1-26 19:51

能不能把两线的间距设置为1.44，再就是能把两头都设置为填充的那种吗？

xyccf · 发表于 2016-1-27 21:41

lxdz443 发表于 2016-1-26 19:51
能不能把两线的间距设置为1.44，再就是能把两头都设置为填充的那种吗？

你确定要设置成绝对距离吗？已经给你改好了，要是觉得距离太小就该width那个变量，要是觉得黑白间隔不对就改dist(只要是奇数都是两端有填充)，我都在里面注释好了。

lxdz443 · 发表于 2016-1-28 06:59

好的，谢谢。

yoyoho · 发表于 2016-1-28 08:14

谢谢楼主分享!!!!!

我爱lisp · 发表于 2016-2-2 08:51

这么好的东西为啥没人顶，建议楼主公布一下思路，开发围墙，围栏、道路啥的

我爱lisp · 发表于 2016-2-2 08:54

经过测试了，不是按照多义线模式编制的，不方便修改，

ynhh · 发表于 2016-2-2 09:26

建议做成对话框的

可能更方便一些

xyccf · 发表于 2016-2-3 09:51

我爱lisp 发表于 2016-2-2 08:54
经过测试了，不是按照多义线模式编制的，不方便修改，

思路很简单，就是偏移，划线分区域，填充。不明白多义线模式什么意思

xyccf · 发表于 2016-2-3 09:53

ynhh 发表于 2016-2-2 09:26
建议做成对话框的
可能更方便一些

源码都给了，控件很简单的，随便改改咯

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

[源码] 批量铁路轨道线，免币

本帖子中包含更多资源

评分

本帖子中包含更多资源

点评