73哥代码 画斜坡

树櫴希德

2. (vl-load-com)
   
3. (defun C:tt (/ Talud_boven  Talud_onder afstand afstand_totaal count p1 p2 kleur)
   
4.   (if (and (setq Talud_boven (car (entsel "\n***选择上坎线**: ")))
   
5.            (setq Talud_onder (car (entsel "\n***选择下坎线**: ")))
   
6.            (setq afstand (getint "\n**间距**:"))
   
7.            (setq afstand_totaal 0 count 0 kleur (acad_colordlg 8))
   
8.      )
   
9.     (while(setq p1(vlax-curve-getpointatdist Talud_boven afstand_totaal))
   
10.       (setq p2(vlax-curve-getClosestPointTo  Talud_onder p1)
    
11.       afstand_totaal (+ afstand_totaal afstand)
    
12.       count(1+ count))
    
13.       (if(zerop(rem count 2))
    
14.   (setq p2(polar p1(angle p1 p2)(/(distance p1 p2)3))))
    
15.       (entmake(mapcar'cons'(0 10 11 62)(List"LINE"p1 p2 kleur))))
    
16.     )
    
17.   )
    

(vl-load-com)<br /> (defun C:tt (/ Talud_boven  Talud_onder afstand afstand_totaal count p1 p2 kleur)<br />   (if (and (setq Talud_boven (car (entsel "\n***选择上坎线**: ")))<br />            (setq Talud_onder (car (entsel "\n***选择下坎线**: ")))<br />            (setq afstand (getint "\n**间距**:"))<br />            (setq afstand_totaal 0 count 0 kleur (acad_colordlg 8))<br />      )<br />     (while(setq p1(vlax-curve-getpointatdist Talud_boven afstand_totaal))<br />       (setq p2(vlax-curve-getClosestPointTo  Talud_onder p1)<br />       afstand_totaal (+ afstand_totaal afstand)<br />       count(1+ count))<br />       (if(zerop(rem count 2))<br />   (setq p2(polar p1(angle p1 p2)(/(distance p1 p2)3))))<br />       (entmake(mapcar'cons'(0 10 11 62)(List"LINE"p1 p2 kleur))))<br />     )<br />   )<br />

happy336

谢谢分享，支持

杨张张

学习一下，谢谢

香远益清

有用，收藏了，多谢