设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃资源交流 › 技术问答【悬赏求助】 › 如何批量提取三维多段线的节点坐标和高程？ ...
返回列表 发新帖
查看: 933|回复: 9

[求助] 如何批量提取三维多段线的节点坐标和高程？

[复制链接]
wxn80

已领礼包: 11个

财富等级: 恭喜发财
发表于 2021-6-15 18:39:58 | 显示全部楼层 |阅读模式
悬赏40D豆未解决
本帖最后由 wxn80 于 2021-6-15 18:41 编辑

各位老师，在CAD中如何批量提取三维多段线的节点坐标和高程？
如果可以在三维多段线节点上直接显示相应的高程点更好。
或者把三维多段线节点坐标和高程导出成txt文件也可以。

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

yangjian001

已领礼包: 3904个

财富等级: 富可敌国
发表于 2021-6-15 19:10:49 | 显示全部楼层
做一个热心并受欢迎的人
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

hh_lj007

已领礼包: 756个

财富等级: 财运亨通
发表于 2021-6-15 20:20:27 | 显示全部楼层

做一个热心并受欢迎的人
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

yangjian001

已领礼包: 3904个

财富等级: 富可敌国
发表于 2021-6-16 09:01:02 | 显示全部楼层
空压、冷冻机房
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

qqqincccken

已领礼包: 6471个

财富等级: 富甲天下
发表于 2021-6-16 20:34:00 | 显示全部楼层
如何批量提取三维多段线的节点坐标和高程？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

xk15c

已领礼包: 914个

财富等级: 财运亨通
发表于 2021-6-17 07:02:31 | 显示全部楼层
好像有个命令来着，不太用忘记了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

wxn80

已领礼包: 11个

财富等级: 恭喜发财
 楼主| 发表于 2021-6-21 10:29:53 | 显示全部楼层
哪位老师知道有什么插件可以实现三维多段线的节点坐标和高程批量提取吗？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

dnbcgrass

已领礼包: 3720个

财富等级: 富可敌国
发表于 2021-7-1 09:59:20 | 显示全部楼层
本帖最后由 dnbcgrass 于 2021-7-1 10:19 编辑

;提取单条三维多段线节点坐标数据存盘
(defun c:swddxjdzb()
    (vl-load-com)
    (if (setq ent (car (entsel "\n选取三维多段线:")))
        (progn
            (setq vob (vlax-ename->vla-object ent))
            (setq name (vlax-get-property vob "ObjectName"))
            (setq path (getvar "dwgprefix"))
            (If (= name  "AcDb3dPolyline")
                (if (setq wjm (getfiled "请指定提取结果存盘文件" path "txt" 1))
                    (progn
                        (setq ptb (vlax-safearray->list
                                            (vlax-variant-value
                                                  (vlax-get-property vob "Coordinates")
                                            )
                                  )
                        )
                        (setq fff (open wjm "w"))
                        (setq i 1)
                        (while ptb
                            (setq x (car   ptb))
                            (setq y (cadr  ptb))
                            (setq z (caddr ptb))
                            (setq ptb (cdr (cdr (cdr ptb))))
                            (write-line (strcat (itoa i) ","     ;节点编号
                                                (rtos x 2 3) "," ;X坐标保留3位小数
                                                (rtos y 2 3) "," ;Y坐标保留3位小数
                                                (rtos z 2 3)     ;高程保留3位小数
                                        )
                                        fff
                            )
                            (setq i (1+ i))
                        )
                        (close fff)
                        (alert (strcat "三维多段线节点坐标已保存到\"" wjm "\"文件中!"))
                    )
                )

                (alert (strcat "所选取的不是三维多段线(AcDb3dPolyline), 是" name "!"))
             )
        )
    )
    (princ)
)

评分

参与人数 1D豆 +10 收起 理由
wxn80 + 10 很给力!经验；技术要点；资料分享奖！

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

dnbcgrass

已领礼包: 3720个

财富等级: 富可敌国
发表于 2021-7-1 10:22:22 | 显示全部楼层

;提取多条三维多段线节点坐标数据存盘
(defun c:swddxjdzb2()
    (vl-load-com)
    (if (progn
            (princ "\n选取三维多段线:")
            (setq ssa (ssget '((0 . "POLYLINE"))))
        )
        (progn
            (setq j 0)
            (setq n (sslength ssa))
            (setq pts nil)
            (repeat n
                (setq ent (ssname ssa j))
                (setq vob (vlax-ename->vla-object ent))
                (setq name (vlax-get-property vob "ObjectName"))
                (If (= name  "AcDb3dPolyline")
                    (progn
                        (setq ptb (vlax-safearray->list
                                            (vlax-variant-value
                                                  (vlax-get-property vob "Coordinates")
                                            )
                                  )
                        )
                        (setq i 1)
                        (while ptb
                            (setq pts (cons (strcat (itoa (1+ j)) "-" (itoa i) ","
                                                    (rtos (car   ptb) 2 3) ","
                                                    (rtos (cadr  ptb) 2 3) ","
                                                    (rtos (caddr ptb) 2 3) ","
                                            )
                                            pts
                                      )
                            )
                            (setq ptb (cdddr ptb))
                            (setq i (1+ i))
                        )
                    )
                )
                (setq j (1+ j))
            )
          
            (setq path (getvar "dwgprefix"))
            (If pts
                (if (setq wjm (getfiled "请指定提取结果存盘文件" path "txt" 1))
                    (progn
                        (setq pts (reverse pts))
                        (setq fff (open wjm "w"))
                        (foreach pt pts
                            (write-line pt fff)
                        )
                        (close fff)
                        (alert (strcat (itoa n) "条三维多段线共计" (itoa (length pts)) "个的节点坐标已保存到\"" wjm "\"文件中!"))
                    )
                )
             )
        )
    )       
    (princ)
)

评分

参与人数 1D豆 +5 收起 理由
wxn80 + 5 很给力!经验；技术要点；资料分享奖！

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

yangjian001

已领礼包: 3904个

财富等级: 富可敌国
发表于 2021-7-1 18:19:09 | 显示全部楼层
做一个热心并受欢迎的人
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-4-20 18:19 , Processed in 0.263990 second(s), 49 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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