skg123 发表于 2014-6-22 19:56:56

公路桩号查、快速准确的找到指定桩号

本帖最后由 skg123 于 2014-6-22 19:56 编辑

该程序适用于较长的公路，可以方便查找某桩号
;By Zo Roo 2011-5-28
;使用与公路桩号查询，方便在查找指定的桩号，如K35+200在中线的位置；
(defun C:glzhcx ()
(setvar "osmode" 0);关闭对象捕捉
(prompt "By Zo Roo,2011-05-28,查询指定桩号的位置，ESC键退出程序！")
(setq en (entsel "\n选择道路中心线: "))
(setq curve-obj (vlax-ename->vla-object (car en)))
(setq leng (vlax-curve-getDistAtParam
curve-obj
(vlax-curve-getEndParam curve-obj)
)
)
(setq a (getreal "\n请输入起点桩号:"))
(setq b (getreal "\n请输入需查询的桩号:"))

(if (or (< b a) (> b (+ leng a)))
    (setq b (getreal "\n查询桩号不在公路范围内，请重新输入:"))
b
)
(setq ll (- b a))   
(setq pt2 (vlax-curve-getPointAtDistobj (- b a)))
(command "pline"pt2)
(setvar "osmode" 703);恢复对象捕捉
)

spp_wall 发表于 2014-6-23 20:52:02

能不能读取纬地的数据呢？

skg123 发表于 2014-6-23 21:02:40

本帖最后由 skg123 于 2014-7-5 20:46 编辑

纬地的数据？不知道格式，这个不是读取数据，是图面找指定 中桩 的位置

liujing95 发表于 2014-7-4 18:09:20

纬地的中线是直线、缓和曲线 、圆分段的，肯定不行，如果全部连接起是可以的

skg123 发表于 2014-7-5 20:48:43

liujing95 发表于 2014-7-4 18:09 static/image/common/back.gif
纬地的中线是直线、缓和曲线 、圆分段的，肯定不行，如果全部连接起是可以的

整个线路的各个 线元 必须连接，断开的是不行。

20060510412 发表于 2018-11-13 11:51:15

这个功能很实用，谢谢楼主分享
页: [1]
查看完整版本: 公路桩号查、快速准确的找到指定桩号