找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1146|回复: 19

[编程申请] 如何在别人提供的cad横断面设计图中提取横断面地面线数据

[复制链接]

已领礼包: 77个

财富等级: 招财进宝

发表于 2017-8-18 16:41:21 | 显示全部楼层 |阅读模式

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

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

×
如何在别人提供的cad横断面设计图中提取横断面地面线数据
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-8-18 16:52:40 | 显示全部楼层
上传DWG压缩附件,
截取屏幕说明详细要做什么。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 77个

财富等级: 招财进宝

 楼主| 发表于 2017-8-18 17:06:04 | 显示全部楼层

非常感谢。就是将已经绘制好的地面线的水平距离和对应的高差提取到txt,希望实现以下功能:1、当为多个断面是可以提取到一个txt中。2、提取起点又2个选项(1、最左段为起点。2、水平中心点为起点,左侧为负右侧为整)。3、可以设置比例,输入起点高程

cad及提取效果.zip

21.12 KB, 下载次数: 28, 下载积分: D豆 -1 , 活跃度 1

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

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

发表于 2017-8-18 17:08:20 | 显示全部楼层

截图贴图片上来吧。

如果生成外部文件,外部文件也截图,看看样子。

不是一个专业,看你的文字不能完全理解。用图说话, 处理前什么样,处理后什么样。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 77个

财富等级: 招财进宝

 楼主| 发表于 2017-8-18 17:15:26 | 显示全部楼层

cad的截图是两个桩号的地面线,取其高程、水平距离到TXT(以左端为起点)。
QQ图片20170818171118.png
QQ图片20170818171143.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-8-18 17:20:17 | 显示全部楼层

你想批处理?

你想怎么选?

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

使用道具 举报

已领礼包: 77个

财富等级: 招财进宝

 楼主| 发表于 2017-8-18 17:27:07 | 显示全部楼层

是呀,s0+000和s0+100只是断面图的桩号而已,相当于断面的一个名称,以便断面多的时候区分开来
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-8-18 17:44:03 | 显示全部楼层

最快的是,你窗口一选,不管有多少断面一次性给你生成文件了。

但是,你现在这些文字和多段线没有关联,不知道哪个文字对应哪个多段线,所以,只能是选一个文字,选一个多段线一个一个处理了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 77个

财富等级: 招财进宝

 楼主| 发表于 2017-8-18 17:51:23 | 显示全部楼层

是的,要实现批量处理需要统一一个高程的系统才得,目前能实现单个提取就可以了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-8-18 18:18:42 | 显示全部楼层
本帖最后由 newer 于 2017-8-18 18:25 编辑

搜狗截图20170818182056.png

  1. (defun c:tt ()
  2.   (defun _write        ()
  3.     (setq h (xd::doc:getpickboxheight))
  4.     (setq data
  5.            (mapcar '(lambda (x y)
  6.                       (setq rect (XD::Pnt:GetRecPnts x (* 2 h) (* 2 h)))
  7.                       (if (setq        ss (ssget "cp"
  8.                                           (xd::pnts:wcs2ucs rect)
  9.                                           '((0 . "TEXT") (8 . "断面高程*"))
  10.                                    )
  11.                           )
  12.                         (setq val (xdrx_getpropertyvalue
  13.                                     (ssname ss 0)
  14.                                     "textstring"
  15.                                   )
  16.                         )
  17.                         (setq val "无数据")
  18.                       )
  19.                       (list (rtos y 2 2) val)
  20.                     )
  21.                    pts dists
  22.            )
  23.     )
  24.     (setq data (cons (list "X" "Y") data)
  25.           data (cons (list #text nil) data))
  26.     (xd::text:init 1)
  27.     (xd::table:makefromlist data '(0 0 0) (setq #textheight (* 1.5 #textheight)) (/ #textheight 2.0))
  28.     (xd::drag:simplemove (entlast) "\n表格插入点:" 8 t)
  29.     (princ)
  30.   )
  31.   (if (= (setq base (xd::doc:getdwgname)) "")
  32.     (princ "\n当前图没存盘,存盘后再执行.")
  33.     (progn
  34.       (if
  35.         (and (setq txt (car (xdrx_entsel "\n点取文字确定文件名<退出>:")))
  36.              (xdrx_getpropertyvalue txt "textstring" "textheight")
  37.              (setq #text #textstring)
  38.              (setq pl (car (xdrx_entsel
  39.                              "\n点取多段线<退出>:"
  40.                              '((0 . "LWPOLYLINE"))
  41.                            )
  42.                       )
  43.              )
  44.         )
  45.          (progn        (setq pts (xdrx_getpropertyvalue pl "vertices"))
  46.                 (setq prjs (xd::pnts:orthoproject
  47.                              pts
  48.                              (car pts)
  49.                              (mapcar '+ (car pts) '(1 0 0))
  50.                            )
  51.                 )
  52.                 (xdrx_polyline_make prjs)
  53.                 (setq dists
  54.                        (mapcar '(lambda (x) (xdrx_curve_getdistatpoint (entlast) x))
  55.                                prjs
  56.                        )
  57.                 )
  58.                 (xdrx_entity_delete (entlast))
  59.                 (setq tf (apply        'xdrx_document_isptoutscreen
  60.                                 (XD::Pnts:Ucs2Wcs pts)
  61.                          )
  62.                 )
  63.                 (if tf
  64.                   (progn (xdrx_document_viewsave)
  65.                          (setq box (xdrx_entity_box (list pl txt)))
  66.                          (xdrx_document_AssureInCurrentView
  67.                            (trans (car box) 1 0)
  68.                            (trans (caddr box) 1 0)
  69.                          )
  70.                   )
  71.                 )
  72.                 (_write)
  73.                 (if tf
  74.                   (xdrx_document_viewres)
  75.                 )
  76.          )
  77.       )
  78.     )
  79.   )
  80.   (princ)
  81. )

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

使用道具 举报

已领礼包: 77个

财富等级: 招财进宝

 楼主| 发表于 2017-8-18 18:28:14 | 显示全部楼层

非常感谢大神,提示错误: no function definition: XD::DOC:GETDWGNAME
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-8-18 18:30:34 | 显示全部楼层

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

使用道具 举报

已领礼包: 77个

财富等级: 招财进宝

 楼主| 发表于 2017-8-19 09:50:23 | 显示全部楼层

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

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-8-19 09:55:46 | 显示全部楼层

你装的是什么时候的版本?安装最新的,保证最新的插件能正常执行。

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

使用道具 举报

已领礼包: 77个

财富等级: 招财进宝

 楼主| 发表于 2017-8-19 09:59:16 | 显示全部楼层
不懂是什么时候的了,刚下了最新的版本试试看,谢谢哈
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-3-29 01:41 , Processed in 0.453981 second(s), 60 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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