[分享]：动态复制程序

ksblk

有详细的说明吗

yjtdkj

[QUOTE]最初由 aeo 发布
[B]拷贝的时候看不见预演不习惯
就改了几个字
为什么把提示终点的去掉了，似乎更不好用了

丹佛

谢谢WKAI，不错！

ycao

好程序，谢谢分享！

cy956

如果讨论关于entlast的问题，送一个求最后主实体（不是子实体）的函数：

2. 
   
3. (Defun get-last-en( / enlast )  ;;;取当前图中最后实体名
   
4.   (setq enlast nil enlast (entlast))
   
5.   (if (and (/= enlast nil)
   
6.            (or (= "POLYLINE" (dxf 0 (entget enlast)))
   
7.                (and (= "INSERT" (dxf 0 (entget enlast)))
   
8.                     (entnext enlast)
   
9.                     (= "ATTRIB" (dxf 0 (entget (entnext enlast))))
   
10.            )   )
    
11.       )
    
12.     (while (/= "SEQEND" (dxf 0 (entget enlast)))
    
13.       (setq enlast (entnext enlast)))
    
14.   )
    
15.   enlast
    
16. )
    
17. 
    

<br /> (Defun get-last-en( / enlast )  ;;;取当前图中最后实体名<br />   (setq enlast nil enlast (entlast))<br />   (if (and (/= enlast nil)<br />            (or (= "POLYLINE" (dxf 0 (entget enlast)))<br />                (and (= "INSERT" (dxf 0 (entget enlast)))<br />                     (entnext enlast)<br />                     (= "ATTRIB" (dxf 0 (entget (entnext enlast))))<br />            )   )<br />       )<br />     (while (/= "SEQEND" (dxf 0 (entget enlast)))<br />       (setq enlast (entnext enlast)))<br />   )<br />   enlast<br /> )<br /> <br />

shisj

好东西，我支持一下。真的很实用。

zhuquanmao

什么叫动态复制 俺不懂 请解释一下吧 谢谢

wkai

和 sketchup 中的复制非常相似 ， 很方便的。
看看程序提示，再试试，就清楚了。

PFD8667

确实实用,能提高绘图效率.能做个演示更好便于我们尽快掌握.

sahara124

支持

T_T

好东东。方便多了.