弄个移动、拷贝还不如COMMAND快?

尘缘一生

想解决大选择集移动、复制慢的问题，弄来弄去，还不如COMMAND快，

• ;;实体移动、拷贝----（一级）-----
• ;obj 实体ename或obj  p1 起点 p2 终点
• ; K  移动或拷贝开关   t 移动  nil 拷贝
• (defun e-mcopy-2d (obj p1 p2 k /)
•   (if (= (type obj) 'ENAME) (setq obj (en2obj obj)))
•   (if (= k nil) (vla-copy obj))
•   (vla-move obj (vlax-3d-point p1) (vlax-3d-point p2))
• )
• ;;选择集移动、拷贝----（一级）------
• ;  ss  选择集  p1 起点 p2 终点
• ;  K  移动或拷贝开关  t 移动  nil 拷贝
• (defun ss-mcopy-2d (ss p1 p2 k / ss0 e n xobj)
•   (setq e (entlast))
•   (repeat (setq n (sslength ss))
•     (setq xobj (en2obj (ssname ss (setq n (1- n)))))
•     (e-mcopy-2d xobj p1 p2 k)
•   )
•   (if (= k nil)
•     (setq ss0 (last_ent e))
•     (setq ss0 ss )
•   )
•   ss0
• )
• ;;--------------
• (defun c:tt (/ ss p1 p2)
•   (setq ss (ssget) p1 (ssmpt ss))
•   (setq p1 (getpoint "\n 定位点？Anchor point?"))
•   (ss-mcopy-2d ss p1 p2 nil)
•   (princ)
• )
  

xyp1964

(defun ecopy (ss p1 p2)  (command "copy" ss "" "non" p1 "non" p2))
(defun emove (ss p1 p2)  (command "move" ss "" "non" p1 "non" p2))

guosheyang

大量图元的同时移动 复制 旋转 删除等确实command也快