绘制道路视距三角区,测试笔记~~~

77077

;头大啊~实在编不出来了,继续不下去了,求高手帮忙~~~
;目前这个测试成功,但是只能针对两条线相交的十字路口,

2. ;视距三角区测试,目前仅适用于俩线相交的十字路口
   
3. ;还需要加入1.三条或四条线相交的十字路口.
   
4. ;          2.三条或四条线相交的T字Y字路口.
   
5. (defun c:tt()
   
6. (setq vvlst '((100 160)(80 100)(60 70)(50 60)(40 40)(30 30)(20 20)));设计车速与停车视距表
   
7. (setq pt (getpoint "\n选择道路交点:")
   
8.       ss (ssget "C" pt pt '((0 . "*POLYLINE,LINE") (8 . "DL_道路中线")))
   
9.       )
   
10.    (setq obj0 (vlax-ename->vla-object (ssname ss 0))
    
11.          vv (atoi (vlax-ldata-get obj0 "设计车速"))
    
12.          dis (cadr(assoc vv vvlst))
    
13.          )
    
14.    (setq dd (vlax-curve-getDistAtPoint obj0 pt)
    
15.          pt1 (vlax-curve-getPointAtDist obj0 (+ dd dis))
    
16.          pt2 (vlax-curve-getPointAtDist obj0 (-  dd dis))
    
17.          )
    
18.   (setq obj1 (vlax-ename->vla-object (ssname ss 1))
    
19.          vv (atoi (vlax-ldata-get obj1 "设计车速"))
    
20.          dis (cadr(assoc vv vvlst))
    
21.          )
    
22.    (setq dd (vlax-curve-getDistAtPoint obj1 pt)
    
23.          pt3 (vlax-curve-getPointAtDist obj1 (+ dd dis))
    
24.          pt4 (vlax-curve-getPointAtDist obj1 (- dd dis))
    
25.          )
    
26.   (setq ptlst(list pt1 pt3 pt2 pt4 pt1))
    
27.   (make-lwpolyline ptlst)
    
28. )

;视距三角区测试,目前仅适用于俩线相交的十字路口<br /> ;还需要加入1.三条或四条线相交的十字路口.<br /> ;          2.三条或四条线相交的T字Y字路口.<br /> (defun c:tt()<br /> (setq vvlst '((100 160)(80 100)(60 70)(50 60)(40 40)(30 30)(20 20)));设计车速与停车视距表<br /> (setq pt (getpoint "\n选择道路交点:")<br />       ss (ssget "C" pt pt '((0 . "*POLYLINE,LINE") (8 . "DL_道路中线")))<br />       )<br />    (setq obj0 (vlax-ename->vla-object (ssname ss 0))<br />          vv (atoi (vlax-ldata-get obj0 "设计车速"))<br />          dis (cadr(assoc vv vvlst))<br />          )<br />    (setq dd (vlax-curve-getDistAtPoint obj0 pt)<br />          pt1 (vlax-curve-getPointAtDist obj0 (+ dd dis))<br />          pt2 (vlax-curve-getPointAtDist obj0 (-  dd dis))<br />          )<br />   (setq obj1 (vlax-ename->vla-object (ssname ss 1))<br />          vv (atoi (vlax-ldata-get obj1 "设计车速"))<br />          dis (cadr(assoc vv vvlst))<br />          )<br />    (setq dd (vlax-curve-getDistAtPoint obj1 pt)<br />          pt3 (vlax-curve-getPointAtDist obj1 (+ dd dis))<br />          pt4 (vlax-curve-getPointAtDist obj1 (- dd dis))<br />          )<br />   (setq ptlst(list pt1 pt3 pt2 pt4 pt1))<br />   (make-lwpolyline ptlst)<br /> )

77077

欢迎大家测试,求高手帮忙改进~

77077

哦,对了,程序开始时,忘记设定交点OSMODE 32了~

spp_wall

同行啊   支持下！！！！