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

skg123

该程序适用于较长的公路，可以方便查找某桩号
;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-getPointAtDist  obj (- b a)))
(command "pline"  pt2)
(setvar "osmode" 703);恢复对象捕捉
)

spp_wall

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

skg123

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

liujing95

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

skg123

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

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

20060510412

这个功能很实用，谢谢楼主分享