一次性粘贴到多个位置

denghui002006

请问 有什么工具或lisp怎么实现复制一个对象（块），一下子黏贴到多个插入点位置，比如框选一个区域，粘贴到这个区域里所有的圆心位置。。一个一个粘贴确实很麻烦

vlisp2012

(defun c:tt ();;;批量粘贴至直线端点  2014.08.21
  (setq        xtblm '("cmdecho" "osmode")
        xtblz (mapcar 'getvar xtblm)
  )
  (mapcar 'setvar xtblm '(0 0))
  (command "undo" "be")

  (setq ssg (ssget '((0 . "LINE"))))
  (setq i 0)
  (repeat (setq en (sslength ssg))
    (setq ssn (ssname ssg i))
    (zhantie ssn)
    (setq i (1+ i))
  )
  (mapcar 'setvar xtblm xtblz)
  (command "undo" "e")
  (princ)
)

(defun zhantie (ssn)
  (setq ent (entget ssn))
  (setq pt1 (cdr (assoc 10 ent)))
  (setq pt2 (cdr (assoc 11 ent)))
  
  (command "pasteclip" pt1)

)

yoyoho

感谢 vlisp2012 分享程序!

ysq101

这个真心不难啊。。自己研究一下就好了。。。
模具专业？