[原创]：旋转复制的命令

ss1025 · 发表于 2005-2-23 16:28:07

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

旋转复制命令源码，启动命令ry

xyp1964 · 发表于 2005-2-23 21:52:51

[php]
;;;复制+旋转（基点和目标点非同一点）
;;;旋转+复制（基点和目标点为同一点）
((defun c:test()
  (command "undo" "be")
  (setq ss1 (ssget "X"))
  (princ "\n请选择要旋转复制的目标:")
  (while (not (setq s1 (ssget))))
  (setq pt1 (getpoint "\n请指定基点 : "))
  (princ "\n请指定目标点 : ")
  (command "copy" s1 "" pt1 pause)
  (setq pt2 (getvar "lastpoint"))
  (setq ss2 (ssget "X"))
  (command "select" ss2 "r" ss1 "")
  (setq ss3 (ssget "P"))
  (princ "\n请指定旋转方向或角度 : ")
  (command "rotate" ss3 "" pt2 pause)
  (command "undo" "e")
  (princ)
)[/php]

贱人 · 发表于 2005-2-23 22:00:16

2楼的经典啊，“复制+旋转”
如果复制时，基点和目标点选同一点，就是“旋转+复制”

xjcdr · 发表于 2005-2-23 22:36:30

我不是太明白，

ss1025 · 发表于 2005-2-24 09:19:42

惭愧，还是长老的程序写的好。向长老学习。

czad · 发表于 2005-7-20 18:27:41

谢了，试用。

jack5657 · 发表于 2005-7-29 13:16:56

每天都对自己说：要努力

digital · 发表于 2008-12-30 10:53:02

我想要，可是不能下啊，痛苦。

zyxi19 · 发表于 2024-8-6 21:20:57

要是能加入快捷按键旋转90，左右翻转，上下翻转，就完美了

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

[原创]：旋转复制的命令

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子