LISP语言高手请进，得到线形参数的手法。提高自动线形的质量！

vormittag

2. 
   
3. (defun c:te( / ss i l ename ell dxf48)
   
4.         (setq ss (ssget)
   
5.               i  0
   
6.                   l  (getdist (getpoint))
   
7.         );setq
   
8.         (if ss
   
9.                 (repeat (sslength ss)
   
10.                         (setq ename (ssname ss i)
    
11.                                   i     (1+ i)
    
12.                                   ell   (entget ename)
    
13.                         );setq
    
14.                         (if (not(zerop (getltypelength ename)))
    
15.                                 (progn
    
16.                                         (setq dxf48 (/ l (getvar "ltscale") (getltypelength ename)))
    
17.                                         (if (cdr (assoc 48 ell))
    
18.                                                 (setq ell (subst (cons 48 dxf48) (assoc 48 ell) ell))
    
19.                                                 (setq ell (append ell (list (cons 48 dxf48))))
    
20.                                         );if  
    
21.                     (entmod ell)                                       
    
22.                                 );progn
    
23.                         );if
    
24.                 );repeat               
    
25.        (princ "\nNothing Selected!")
    
26.         );if
    
27. )
    
28. (defun getltypelength (ename / ell1 layer ltype len)
    
29.         (setq ell1  (entget ename)
    
30.               layer (cdr (assoc 8 ell1))
    
31.         );setq
    
32.         (if (cdr (assoc 6 ell1))
    
33.                 (setq ltype (cdr (assoc 6 ell1)))
    
34.                 (setq ltype (cdr (assoc 6 (tblsearch "layer" layer))))
    
35.         );if
    
36.         (setq len (cdr (assoc 40 (tblsearch "ltype" ltype))))
    
37. )

<br /> (defun c:te( / ss i l ename ell dxf48)<br />         (setq ss (ssget) <br />               i  0<br />                   l  (getdist (getpoint))<br />         );setq<br />         (if ss <br />                 (repeat (sslength ss)<br />                         (setq ename (ssname ss i)<br />                                   i     (1+ i)<br />                                   ell   (entget ename)<br />                         );setq<br />                         (if (not(zerop (getltypelength ename)))<br />                                 (progn<br />                                         (setq dxf48 (/ l (getvar "ltscale") (getltypelength ename)))<br />                                         (if (cdr (assoc 48 ell))<br />                                                 (setq ell (subst (cons 48 dxf48) (assoc 48 ell) ell))<br />                                                 (setq ell (append ell (list (cons 48 dxf48))))<br />                                         );if  <br />                     (entmod ell)                                        <br />                                 );progn<br />                         );if<br />                 );repeat                <br />        (princ "\nNothing Selected!")<br />         );if<br /> )<br /> (defun getltypelength (ename / ell1 layer ltype len)<br />         (setq ell1  (entget ename)<br />               layer (cdr (assoc 8 ell1))<br />         );setq<br />         (if (cdr (assoc 6 ell1))<br />                 (setq ltype (cdr (assoc 6 ell1)))<br />                 (setq ltype (cdr (assoc 6 (tblsearch "layer" layer))))<br />         );if<br />         (setq len (cdr (assoc 40 (tblsearch "ltype" ltype))))<br /> )

简单写了点，选择实体以后，再选择两点，线型重复长度改成两点间距离。随手写的，没怎么调试，代码不健壮。