桩号点 查询

skg123

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

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

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

spp_wall

Error:无法获取 ObjectID: nil.

08版 32位CAD

无法查找中桩

zzyong00

第22行：(setq pt2 (vlax-curve-getPointAtDist  obj (- b a)))
obj==>curve-obj

JHX948954875

谢谢楼主分享

happy336

谢谢分享，支持