一句话改造copy和move命令

qiushizhda · 发表于 2015-12-30 16:40:40

本帖最后由 qiushizhda 于 2015-12-30 17:18 编辑

经常用到move 和 copy 命令，对这两个命令进行小改造：

(defun c:mx ( / p1)
(command "move" (ssget) "" (setq p1 (getpoint "\n请点取基点：")) (subst (car (getpoint "\n请点取参考点：")) (car p1) p1))
(princ)
)
(defun c:my ( / p1)
(command "move" (ssget) "" (setq p1 (getpoint "\n请点取基点：")) (subst (cadr (getpoint "\n请点取参考点：")) (cadr p1) p1))
(princ)
)
(defun c:cx ( / p1)
(command "copy" (ssget) "" (setq p1 (getpoint "\n请点取基点：")) (subst (car (getpoint "\n请点取参考点：")) (car p1) p1))
(princ)
)
(defun c:cy ( / p1)
(command "copy" (ssget) "" (setq p1 (getpoint "\n请点取基点：")) (subst (cadr (getpoint "\n请点取参考点：")) (cadr p1) p1))
(princ)
)

nadaloveluna · 发表于 2015-12-31 08:57:51

思路很好呀，有时候不用添加辅助线。。。。

ymcui · 发表于 2015-12-31 09:14:30

不错

e2002 · 发表于 2015-12-31 22:32:38

不是有各种捕捉的方法与坐标过滤吗？这些都可以实现你需要的效果，不需要专门写个程序来处理的。

fan_zh_mjtd · 发表于 2016-1-12 15:27:48

.x
.y
.xy
.......
不过对象追踪也很不错

账号		自动登录	找回密码
密码			注册

[源码] 一句话改造copy和move命令