快速移动，快速复制，不用手动选基点

xyp1964

2. (defun c:qm ()
   
3.   (princ "\n选择实体快速移动: ")
   
4.   (if (setq ss (ssget))(command "_.move" ss "" (getvar "viewctr") pause))
   
5.   (princ)
   
6. )
   
7. 
   
8. (defun c:qc ()
   
9.   (princ "\选择实体快速复制: ")
   
10.   (if (setq ss (ssget))(command "_.copy" ss "" (getvar "viewctr") pause))
    
11.   (princ)
    
12. )

(defun c:qm ()<br />   (princ "\n选择实体快速移动: ")<br />   (if (setq ss (ssget))(command "_.move" ss "" (getvar "viewctr") pause))<br />   (princ)<br /> )<br /> <br /> (defun c:qc ()<br />   (princ "\选择实体快速复制: ")<br />   (if (setq ss (ssget))(command "_.copy" ss "" (getvar "viewctr") pause))<br />   (princ)<br /> )

5cllovely

移动，复制的时候不需要指点基点，但复制没有多重复制功能，可以改进吗

669423907

xyp1964 发表于 2014-3-28 08:26

院长威武！要是可以自动指定选择集的某一点作为基点就无可挑剔耶.......

adc

xyp1964 发表于 2014-3-28 08:26

院长威武！

tangjunasd58

距离要可以改成相对原图形与复制后的距离就好了

freehand8008

道歉中，哈哈

669423907

意外的发现，这样居然可以鼠标当前位置为基点，移动也一样
(defun C:`Q()
(setq ss (ssget'((0 . "~xline")(8 . "名称1,图号2,数量3,材质4,表格5,3不打印,图框"))))
(command "copy" SS "" (princ"\n复制图框类:"))(princ));复制

edata

感觉等于 Ctrl+c  Ctrl+v  Ctrl+x。

buddhism8

院长威武

edsion24

为什么楼主的帖子看不到内容呢