- 积分
- 10326
- 明经币
- 个
- 注册时间
- 2008-12-8
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
本帖最后由 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-getPointAtDist obj (- b a)))
(command "pline" pt2)
(setvar "osmode" 703);恢复对象捕捉
)
|
评分
-
查看全部评分
|