让2014的COPY命令用到低版本下，增强拷贝命令插件

wjy77528

前面装了2014，很慢，就卸载了

liuyj

在使用“阵列”功能时会随着光标的移动复制出大量的实体，有人和我遇到一样的问题吗？

美丽生活

神马情况？为何不让不下载

3byy

很好的资料！！！！！！！！

imikes

;;; __________________________________________
;;; 连续复制  
;;; __________________________________________
(defun c:CCC (/ *error* d en p0 p1 p2 r snap ss ssnext)
  (defun ssnext (en / ss)
    (setq ss (ssadd))
    (while (setq en (entnext en))(ssadd en ss))
        )
  (defun *error* (s)(command ".UNDO" "E"))
  (setq snap (getvar "osmode"))
  (setvar "cmdecho" 0)
  (if (setq ss (ssget))
    (if (setq p0 (getpoint "\n指定基点:"))
      (progn(command ".UNDO" "BE")
        (while t (princ "\n指定下一点或距离:")
          (if d (princ (strcat "<" (rtos d) ">:")))
          (setq en (entlast))
          (command ".copy" ss "" p0 pause)
          (setq p1 (getvar "lastpoint")p2 (mapcar '+ p1 p1))
          (if (equal p0 p1)
                                                (progn
                                                        (setq p1 (polar p0 r d))
                                                        (if (< snap 16384)(setvar "osmode" (+ snap 16384)))
                                                        (command ".move" (ssnext en) "" p2 p1)
                                                        (setvar "osmode" snap)
                                                        (setq snap (getvar "osmode"))
                                                )
                                                (setq d (distance p0 p1) r (angle p0 p1)))
          (setq ss (ssnext en) p0 p1 )
                                )
                        )
                )
        )
  (princ)
)

kenm41

好工具！！谢谢！                     

AxueLJ

学习学习！！！！

marting

liuyj 发表于 2014-11-8 00:26

没遇到你说的问题，2016下

liuyj

你试试2012，我这不行

newer

liuyj 发表于 2017-9-6 15:30

特意装了2012，用了工具箱-工具一-增强拷贝，没发现问题。你用的是工具箱里面的不？

liuyj

我是把第一页的程序复制下来运行的

newer

liuyj 发表于 2017-9-6 17:31

你去执行下 晓东工具箱 里面的 增强拷贝，试试。

liuyj

工具箱里的没问题，差在哪儿呢？

圣天诺杰

积分不足。。。积分低没**