偏移复制块、多义线中的单独图元

chg

前两天在论坛上看见了一个这样的程序，不过没有源代码，没有下载，但觉着用处很大，就花了几天时间，自己写了一个。
程序功能：偏移复制多义线、块中的任一单个图元，可以在用户坐标系下实现；不支持样条曲线、多重插入的块，以及比例不一致的块。
缺点：只能复制一次，不能连续，而且不能复制整个多义线（呵呵，就是要复制单独的才写的）
现在提供编译好的程序免费下载，也提供源码下载，如果您觉得好用，并且认为我辛苦了，就麻烦您支付一个明经币，如果不感兴趣的也请您文明用语，在此先谢了。
因为不会截图制作GIF文件，无法立马看见，请见谅了，有哪个朋友会的，下载使用后帮忙制作也不胜感激。
加载文件后，输入命令"O"即可。

Momo1984

这个功能不错。。。。。。。。。。。。

chg

代码由于复制的时候出错了，少了一个空格，造成函数错误。已经下载源码的找到函数
(defun matrix_b
       (elist/ ent ename bname matlist p10 p11 cnt p10x p11x)
将elist和/之间增加一个空格，变成
(defun matrix_b
       (elist / ent ename bname matlist p10 p11 cnt p10x p11x)
即可
对您造成的不便感到抱歉。

xieyanghui

好程序，版主能否给我加个币呀！谢谢

LIULISHENG

好源码支持一下