一次性粘贴到多个位置
请问 有什么工具或lisp怎么实现复制一个对象（块），一下子黏贴到多个插入点位置，比如框选一个区域，粘贴到这个区域里所有的圆心位置。。一个一个粘贴确实很麻烦(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)
) 感谢 vlisp2012 分享程序! 这个真心不难啊。。自己研究一下就好了。。。
模具专业？
页:
[1]