明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2677|回复: 4

桩号点 查询

[复制链接]
发表于 2012-12-18 11:47 | 显示全部楼层 |阅读模式
本帖最后由 skg123 于 2012-12-18 11:51 编辑

  一般道路都是数十公里,图面很难全部显示出来(全部显示是局部看不清楚)。本程序用于查找 指定的桩号;By Zo Roo

  1. ;By Zo Roo 2011-6-13
  2. ;适用于公路桩号查询,方便在查找指定的桩号,如K35+200在中线的位置;
  3. ;06-13增加局部视图显示
  4. (vl-load-com)
  5. (defun C:zhcz ()
  6. (setvar "osmode" 0);关闭对象捕捉
  7. (prompt "By Zo Roo,2011-05-28,查询指定桩号的位置,命令C:zhcz;ESC键退出程序!")
  8. (setq en (entsel "\n选择道路中心线: "))
  9. (setq curve-obj (vlax-ename->vla-object (car en)))
  10. (setq leng (vlax-curve-getDistAtParam
  11. curve-obj
  12. (vlax-curve-getEndParam curve-obj)
  13. )
  14. )
  15. (if (= nil (setq a (getreal "\n请输入起点桩号<0>:"))) (setq a 0))
  16. (setq b (getreal "\n请输入需查询的桩号:"))
  17. (if (or (< b a) (> b (+ leng a)))
  18.     (setq b (getreal "\n查询桩号不在公路范围内,请重新输入:"))
  19. b
  20. )
  21. (setq pt2 (vlax-curve-getPointAtDist  obj (- b a)))
  22.   (command "_zoom" "_c" pt2 50);增加局部视图显示
  23.   (command "pline"  pt2)
  24. (setvar "osmode" 703);恢复对象捕捉
  25. )




发表于 2013-9-23 09:01 | 显示全部楼层
Error:无法获取 ObjectID: nil.

08版 32位CAD

无法查找中桩
发表于 2015-1-31 21:48 | 显示全部楼层
第22行:(setq pt2 (vlax-curve-getPointAtDist  obj (- b a)))
obj==>curve-obj
发表于 2018-11-7 10:46 | 显示全部楼层
谢谢楼主分享
发表于 2019-10-15 13:29 来自手机 | 显示全部楼层
谢谢分享,支持
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-28 22:47 , Processed in 0.204495 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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