批量铁路轨道线，免币

杜阳 · 发表于 2016-2-5 15:33:02

使用过程中偏移了没有填充

lhtfh · 发表于 2017-8-17 08:45:25

这可是个好东西

疯球 · 发表于 2018-5-28 21:38:56

谢谢楼主分享!!!!!

zhangcan0515 · 发表于 2018-5-28 21:54:05

学习了谢谢分享

jhzxj · 发表于 2021-11-2 23:43:57

非常好的，谢谢

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

感谢共享  ！这个函数算样条线的中点是不对的
(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))

p-3-ianlcc · 发表于 2021-11-3 12:52:53

谢谢你的分享！这个很好用
感恩…
不过有测试了一下，弧线似乎无法选取

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

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