如何在别人提供的cad横断面设计图中提取横断面地面线数据

dx002386 · 发表于 2019-2-21 13:53

本帖最后由 dx002386 于 2021-6-20 17:38 编辑

如何在别人提供的cad横断面设计图中提取横断面地面线数据。
比如别人给我的是cad版本的1:200的横断面设计图，该如何来提取这个设计图中每个桩号的横断面地面线数据

已经实现批量提取，输出格式为
1、纬地、EICAD使用的抬杆法hdm和dmx数据，
2、输出cass横断面数据格式文件，
3、偏距+高程数据格式，
4、在图形中标注折点的偏距和高程,可设置标注字体大小。
批量提取，速度快。

从断面图中提取地面线数据Hd_Hs版2021.6.6.zip (4.32 MB, 下载次数: 1942)

dx002386 · 发表于 2019-2-21 21:19

animal513 发表于 2019-2-21 20:15
这个不难实现

怎么实现啊？？请教

13385241280 · 发表于 2019-4-19 22:29

animal513 发表于 2019-2-25 17:05
打个小广告，有需要二次开发的朋友可以加我QQ3332900349

animal513大神，求横断面反推平距高差的lisp

yzys · 发表于 2019-2-21 17:51

高手啊高手，学习学习。

animal513 · 发表于 2019-2-21 20:15

这个不难实现

animal513 · 发表于 2019-2-22 08:10

(defun c:test()
(setq desktop (strcat (lt:sys-deskTopDir) "\\坐标导出.txt"))
(setq ff (open desktop "w"))
  (setq b (getreal "\n请输入纵向比例尺.<200>:"))
  (setq c (getreal "\n请输入横向比例尺.<200>:"))
  (if (not b) (setq b 0.2) (setq b (/ b 1000)))
  (if (not c) (setq c 0.2) (setq c (/ c 1000)))
(while
(SETQ ENT1 (ENTSEL "\n选择桩号 :"))
   (IF (= ENT1 NIL)(PRINC "\n无效选择")
      (PROGN
      (SETQ ENT1 (ENTGET (CAR ENT1)))
      (IF (/= (CDR (ASSOC 0 ENT1)) "TEXT")
            (PRINC "\n选择对象非文本对象")
            (PROGN
            (setq ZZHH (cdr (assoc 1 ent1)))
            )
         )
         )
   )
(princ "选择基准位置：")
(setq point (getpoint) pty (cadr point))
(SETQ ENT (ENTSEL "\n选择基准位置参照高程对象 :"))
   (IF (= ENT NIL)(PRINC "\n无效选择")
      (PROGN
      (SETQ ENT (ENTGET (CAR ENT)))
      (IF (/= (CDR (ASSOC 0 ENT)) "TEXT")
            (PRINC "\n选择对象非文本对象")
            (PROGN
            (setq GCZ (atof (cdr (assoc 1 ent))))
            )
         )
         )
   )
(princ "选择提取位置")
(princ ZZHH ff)
(princ "\n" ff)
(while
(setq point2 (getpoint))
(setq y2 (cadr point2))
(setq pianju (- (car point2) (car point)))
(setq x0 (car point) y0 (cadr point))
  (setq pianju (* pianju c))
  (setq d (* (- y2 pty) b) yz (rtos (+ GCZ d) 2 2))

  (princ yz ff)
(princ " " ff)
  (princ pianju ff)
(princ "\n" ff)
(princ)
)
)
(close ff)
)

(defun lt:sys-deskTopDir ()
(vlax-invoke-method
(vlax-get-property (vlax-create-object "wscript.shell") 'SpecialFolders)
'Item
"desktop"
)
)