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

本帖最后由 xyp1964 于 2014-3-28 08:28 编辑

(defun c:qm ()
(princ "\n选择实体快速移动: ")
(if (setq ss (ssget))(command "_.move" ss "" (getvar "viewctr") pause))
(princ)
)

(defun c:qc ()
(princ "\选择实体快速复制: ")
(if (setq ss (ssget))(command "_.copy" ss "" (getvar "viewctr") pause))
(princ)
)

5cllovely 发表于 2014-3-28 09:36:11

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

669423907 发表于 2014-3-28 09:57:47

xyp1964 发表于 2014-3-28 08:26 static/image/common/back.gif


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

adc 发表于 2014-3-28 18:40:14

xyp1964 发表于 2014-3-28 08:26 static/image/common/back.gif


院长威武！

tangjunasd58 发表于 2014-3-30 16:06:04

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

freehand8008 发表于 2014-4-1 09:17:28

道歉中，哈哈

669423907 发表于 2014-5-28 15:44:29

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

edata 发表于 2014-5-28 15:58:00

感觉等于 Ctrl+cCtrl+vCtrl+x。

buddhism8 发表于 2019-2-26 17:35:25

院长威武

edsion24 发表于 2019-2-28 09:39:24

为什么楼主的帖子看不到内容呢
页: 1 [2] 3
查看完整版本: 快速移动，快速复制，不用手动选基点