如何定义：延长线端的长度

wngxb

如何只延伸框选的所有线条一头或者两头的指定长度呢，包括所有性质的线条。

Gu_xl

1. (defun c:tt ()
   
2.   (if (and (setq ss (ssget '((0 . "*line,arc"))))
   
3.            (setq d (getdist "\n延伸长度:"))
   
4.            (progn
   
5.              (initget "Both")
   
6.              (setq pt (getpoint "\n延伸方向[两端延伸Both]"))
   
7.            )
   
8.       )
   
9.     (progn
   
10.       (command "lengthen" "de" d)
    
11.       (repeat (setq n (sslength ss))
    
12.         (cond ((= "Both" pt)
    
13.                (command        (list (setq e (ssname ss (setq n (1- n))))
    
14.                               (trans (vlax-curve-getstartpoint e) 0 1)
    
15.                         )
    
16.                )
    
17.                (command (list e (trans (vlax-curve-getendpoint e) 0 1)))
    
18. 
    
19.               )
    
20.               (t
    
21.                (command (list (setq e (ssname ss (setq n (1- n)))) pt))
    
22.               )
    
23.         )
    
24.       )
    
25.       (command "")
    
26.     )
    
27.   )
    
28.   (princ)
    
29. )

(defun c:tt ()<br />   (if (and (setq ss (ssget '((0 . "*line,arc"))))<br />            (setq d (getdist "\n延伸长度:"))<br />            (progn<br />              (initget "Both")<br />              (setq pt (getpoint "\n延伸方向[两端延伸Both]"))<br />            )<br />       )<br />     (progn<br />       (command "lengthen" "de" d)<br />       (repeat (setq n (sslength ss))<br />         (cond ((= "Both" pt)<br />                (command        (list (setq e (ssname ss (setq n (1- n))))<br />                               (trans (vlax-curve-getstartpoint e) 0 1)<br />                         )<br />                )<br />                (command (list e (trans (vlax-curve-getendpoint e) 0 1)))<br /> <br />               )<br />               (t<br />                (command (list (setq e (ssname ss (setq n (1- n)))) pt))<br />               )<br />         )<br />       )<br />       (command "")<br />     )<br />   )<br />   (princ)<br /> )

wngxb

Gu_xl 发表于 2015-8-11 14:49

G版就是G版，非常非常的厉害，厉害都还一般，重要的是这么大气的开源，谢谢您呢！

zrlmj

Gu_xl 发表于 2015-8-11 14:49

G版就是G版，给力

zazhz123

版主就是扎实，每一个指点和出品都是那么精悍完美。

zazhz123

Gu_xl 发表于 2015-8-11 14:49

为版主的功底和强力点赞