沿线种树测试

77077

新手上路,求高手帮忙改进!~~

2. ;沿线种树测试
   
3. (vl-load-com)
   
4. (defun c:tt( / obj len dis lenn)
   
5.   (setq obj (vlax-ename->vla-object(car(entsel "\n请选择线条:")))
   
6.         len (vla-get-Length obj)
   
7.         dis (getreal "\n间距:")
   
8.         n 1)
   
9. (repeat (fix (/ len dis))
   
10.     (setq lenn(* dis n)
    
11.           pt (vlax-curve-getPointAtDist obj lenn))
    
12.     (entmake (list '(0 . "Circle") (cons 10 pt) (cons 40 (* dis 0.4))))
    
13.     (setq n (1+ n))
    
14.     )
    
15. )

;沿线种树测试<br /> (vl-load-com)<br /> (defun c:tt( / obj len dis lenn)<br />   (setq obj (vlax-ename->vla-object(car(entsel "\n请选择线条:")))<br />         len (vla-get-Length obj)<br />         dis (getreal "\n间距:")<br />         n 1)<br /> (repeat (fix (/ len dis))<br />     (setq lenn(* dis n)<br />           pt (vlax-curve-getPointAtDist obj lenn))<br />     (entmake (list '(0 . "Circle") (cons 10 pt) (cons 40 (* dis 0.4))))<br />     (setq n (1+ n))<br />     )<br /> )

77077

有问题,起点少了一棵,没种上树.

longcashman

请研究查查gu版的作品

langjs

总长这样算
(setq len (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj)))

77077

2. (defun c:tt( / obj len dis pt)
   
3.   (setq dis (getreal "\n间距:"))
   
4.         (while (setq obj (vlax-ename->vla-object(car(entsel "\n请选择线条:"))))
   
5.            (setq len (vla-get-Length obj)  n 0)
   
6.                  (repeat (1+ (fix (/ len dis)))
   
7.          (setq pt (vlax-curve-getPointAtDist obj (* dis n)))
   
8.          (entmake (list '(0 . "Circle") (cons 10 pt) (cons 8 "LH-tree") (cons 40 (* dis 0.4))))
   
9.          (setq n (1+ n))
   
10.        )
    
11.         )
    
12. )

(defun c:tt( / obj len dis pt)<br />   (setq dis (getreal "\n间距:"))<br />         (while (setq obj (vlax-ename->vla-object(car(entsel "\n请选择线条:"))))<br />            (setq len (vla-get-Length obj)  n 0)<br />                  (repeat (1+ (fix (/ len dis)))<br />          (setq pt (vlax-curve-getPointAtDist obj (* dis n)))<br />          (entmake (list '(0 . "Circle") (cons 10 pt) (cons 8 "LH-tree") (cons 40 (* dis 0.4))))<br />          (setq n (1+ n))<br />        )<br />         )<br /> )

xyp1964

langjs

77077 发表于 2014-7-23 11:51
有问题,起点少了一棵,没种上树.

n 1  =>  n 0