求助批量做曲线顶点到曲线垂线，并列表各垂线长度，以及垂足点在被交曲线上的距离

bszzl167 · 发表于 2020-5-16 06:11:33

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 bszzl167 于 2020-5-16 09:30 编辑

rt，批量做曲线顶点到曲线垂线，并列表各垂线长度，以及垂足点在被交曲线上的距离，先谢了！

Lispboy · 发表于 2020-5-17 01:39:19

先画个花垂线的，其他的你想怎么标注，请画个结果图，截图传上来
做垂线.gif

(defun c:tt ()
(if (and (setq
e1 (car
(xdrx-entsel "\n拾取多段线<退出>:" '((0 . "*polyline")))
)
)
(setq e2
(car
(xdrx-entsel "\n拾取投影到的曲线<退出>:" '((0 . "*line")))
)
)
)
(progn (setq verts (xdrx-getpropertyvalue e1 "vertices")
verts (xd::list:removedup verts)
)
(mapcar '(lambda (x)
(setq p1 (xdrx-getpropertyvalue e2 "getclosestpointto" x)
v (xdrx-getpropertyvalue e2 "firstderiv" p1)
)
(if (xdrx_vector_IsPerpendicular
(xdrx-vector-normalize (mapcar '- p1 x))
v
)
(xdrx-line-make x p1)
)
)
verts
)
)
)
(princ)
)

(defun c:tt () 
  (if (and (setq 
             e1        (car 
                  (xdrx-entsel "\n拾取多段线<退出>:" '((0 . "*polyline"))) 
                ) 
           ) 
           (setq e2 
                  (car 
                    (xdrx-entsel "\n拾取投影到的曲线<退出>:" '((0 . "*line"))) 
                  ) 
           ) 
      ) 
    (progn (setq verts (xdrx-getpropertyvalue e1 "vertices") 
                 verts (xd::list:removedup verts) 
           ) 
           (mapcar '(lambda (x) 
                      (setq p1 (xdrx-getpropertyvalue e2 "getclosestpointto" x) 
                            v  (xdrx-getpropertyvalue e2 "firstderiv" p1) 
                      ) 
                      (if (xdrx_vector_IsPerpendicular 
                            (xdrx-vector-normalize (mapcar '- p1 x)) 
                            v 
                          ) 
                        (xdrx-line-make x p1) 
                      ) 
                    ) 
                   verts 
           ) 
    ) 
  ) 
  (princ) 
)

bszzl167 · 发表于 2020-5-17 01:48:09

Lispboy 发表于 2020-5-17 01:39
先画个花垂线的，其他的你想怎么标注，请画个结果图，截图传上来

老师，选择了两曲线后没有反应！！

bszzl167 · 发表于 2020-5-17 02:17:10

本帖最后由 bszzl167 于 2020-5-17 02:18 编辑

Lispboy 发表于 2020-5-17 01:39
先画个花垂线的，其他的你想怎么标注，请画个结果图，截图传上来

其实是工程上边坡放样展开用的（忽略外围扇形变形）
图纸要求顺序列出下表：
1、垂足长度（坡脚、头长度）；
2、垂足间投影曲线的长度（里程）

XDSoft · 发表于 2020-5-17 02:21:37

bszzl167 发表于 2020-5-17 01:48
老师，选择了两曲线后没有反应！！

下载5月17日更新的 XDRX API 或晓东工具箱

bszzl167 · 发表于 2020-5-17 02:23:33

XDSoft 发表于 2020-5-17 02:21
下载5月17日更新的 XDRX API 或晓东工具箱

谢谢了！

XDSoft · 发表于 2020-5-17 02:25:54

bszzl167 发表于 2020-5-17 02:23
谢谢了！

你想列表格还是画在图上？

你工作没现成的图吗，压缩传上来下，同时截图片贴论坛

bszzl167 · 发表于 2020-5-17 03:06:35

本帖最后由 bszzl167 于 2020-5-17 03:11 编辑

达到的效果。当然，坡脚线也有凹凸曲线同时存在的，各位大佬帮处理一下，谢谢了！

请点击此处下载

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

您的用户组是：游客

文件名称:TZ.rar
下载次数:12 文件大小:135.48 KB
下载权限: 不限以上 [免费赚D豆]

bszzl167 · 发表于 2020-5-17 03:14:17

XDSoft 发表于 2020-5-17 02:25
你想列表格还是画在图上？

你工作没现成的图吗，压缩传上来下，同时截图片贴论坛

列表格吧，图上意义不大！文件及截图已发至论坛。谢谢管理员！

XDSoft · 发表于 2020-5-17 04:41:54

bszzl167 发表于 2020-5-17 03:14
列表格吧，图上意义不大！文件及截图已发至论坛。谢谢管理员！

看了你的图，你的表格在哪？

图上不标注出交点的编号，你在表格里面怎么对应知道哪个是哪个点的内容？

bszzl167 · 发表于 2020-5-17 06:02:37

XDSoft 发表于 2020-5-17 04:41
看了你的图，你的表格在哪？

图上不标注出交点的编号，你在表格里面怎么对应知道哪个是哪个点的内容？ ...

考虑不周，是应该标注交点编号。另附上表格，附注了些内容。谢谢管理员，百忙中连夜帮解决问题，感谢无以言表！！

请点击此处下载

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

您的用户组是：游客

文件名称:里程偏距数据表.rar
下载次数:5 文件大小:11.64 KB
下载权限: 不限以上 [免费赚D豆]

bszzl167 · 发表于 2020-5-18 16:26:02

XDSoft 发表于 2020-5-17 04:41
看了你的图，你的表格在哪？

图上不标注出交点的编号，你在表格里面怎么对应知道哪个是哪个点的内容？ ...

管理员你好，用了一下午时间，利用网络上和论坛的插件及一个表格做出了一个样板，过程繁琐（但批量处理坡头点较多的边坡，优势是显而易见的）。期待论坛各位大佬抽空帮忙，找到更好的解决办法，谢谢了。附图纸及表格

请点击此处下载

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

您的用户组是：游客

文件名称:结果样板.rar
下载次数:3 文件大小:30.76 KB
下载权限: 不限以上 [免费赚D豆]

shqvc · 发表于 2020-5-18 20:35:12

这个插件不是已经有了吗？

shqvc · 发表于 2020-5-18 20:36:37

示坡线插件已经有了我卖了几百元钱呢如果你需要我可以把买这个示坡线插件人的联系方式给你你自己去他那边去买

bszzl167 · 发表于 2020-5-18 20:42:38

shqvc 发表于 2020-5-18 20:36
示坡线插件已经有了我卖了几百元钱呢如果你需要我可以把买这个示坡线插件人的联系方式给你你自 ...

http://bbs.xdcad.net/data/attach ... g7u3hl0000067h0.gif

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

[编程申请] 求助批量做曲线顶点到曲线垂线，并列表各垂线长度，以及垂足点在被交曲线上的距离

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评