[求助]：多义线顶点如何平移

tc405003

思路是这样 1在A地选择到一个多义线框，取得顶点后，在b地想画出一个同样大小的多义线框，中间不想用MOVE,也不想用COPY,就想先取得顶点坐标，再平移顶点坐标，再用ENTMAKE按新坐标生成另一个多义线框。麻烦各位高手了

dwg001

可否借助坐标轴的平移和旋转来实现？

carrot1983

一定要用entmake???command move最好(不会有需要坐标转换问题)。
我的意见是：用VLA方法也行。
用了一个最土的好玩的办法：
仅供参考：

2. 
   
3.   [FONT=courier new]
   
4. ;;subst entmake特例 carrot1983 2009-01-12
   
5. (defun C:TT (/ ANG DIS E ELIST PT)
   
6.   (setq E (car (entsel "\n选择多段线: ")))
   
7.   (setq ELIST (entget E))
   
8.   (setq        ANG 0
   
9.         DIS 100
   
10.   )
    
11.   (foreach N ELIST
    
12.     (if        (= 10 (car N))
    
13.       (progn
    
14.         (setq PT (polar (cdr N) ANG DIS))
    
15.         (setq ELIST (subst (cons 9999 PT)
    
16.                            (assoc 10 ELIST)
    
17.                            ELIST
    
18.                     )
    
19.         )
    
20.       )
    
21.     )
    
22.   )
    
23.   (foreach N ELIST
    
24.     (if        (= 9999 (car N))
    
25.       (progn
    
26.         (setq ELIST (subst (cons 10 (cdr N))
    
27.                            (assoc 9999 ELIST)
    
28.                            ELIST
    
29.                     )
    
30.         )
    
31.       )
    
32.     )
    
33.   )
    
34.   (entmake ELIST)
    
35. )
    
36.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;subst entmake特例 carrot1983 2009-01-12<br /> (defun C:TT (/ ANG DIS E ELIST PT)<br />   (setq E (car (entsel "\n选择多段线: ")))<br />   (setq ELIST (entget E))<br />   (setq        ANG 0<br />         DIS 100<br />   )<br />   (foreach N ELIST<br />     (if        (= 10 (car N))<br />       (progn<br />         (setq PT (polar (cdr N) ANG DIS))<br />         (setq ELIST (subst (cons 9999 PT)<br />                            (assoc 10 ELIST)<br />                            ELIST<br />                     )<br />         )<br />       )<br />     )<br />   )<br />   (foreach N ELIST<br />     (if        (= 9999 (car N))<br />       (progn<br />         (setq ELIST (subst (cons 10 (cdr N))<br />                            (assoc 9999 ELIST)<br />                            ELIST<br />                     )<br />         )<br />       )<br />     )<br />   )<br />   (entmake ELIST)<br /> )<br />   [/FONT]<br />