求一个关于特殊的旋转程序

669423907 · 发表于 2013-5-7 19:47:45

本帖最后由 669423907 于 2013-5-8 20:47 编辑

ro这个命令，相信大家都很熟悉，但它每次都是以0度为起点，很不好控制要旋转到某一角度或某一点。
希望大师帮忙编一个旋转程序：
1：点取旋转基点
2：点取控制点
3：控制点跟着鼠标动，十字光标吸附在控制点上
4：确定位置后，程序提示是否复制（默认不复制），右键确定，按 R 就复制，空格确定

ZZXXQQ · 发表于 2013-5-7 19:47:46

本帖最后由 ZZXXQQ 于 2013-5-11 21:43 编辑

;参照旋转明经 ZZXXQQ 2013.5.10 2013.5.11改
(defun c:rr ()
(setvar "CMDECHO" 0)
(if (and (princ "\n选择要旋转的物体: ")
(setq ss (ssget))
(setq pc (getpoint "\n旋转中心点: "))
(setq pt (getpoint pc "\n参照角度: "))
) (progn
(command "_.CIRCLE" pc "non" pt)
(setq s2 (entlast))
(setq s1 (entlast) sa (ssadd))
(command "_.COPY" ss "" "0,0" "0,0")
(while (setq s1 (entnext s1)) (ssadd s1 sa))
(command "_.ROTATE" ss "" pc "R" pc pt PAUSE)
(setq yn (strcase (getstring "\n是否复制(R/<N>): ")))
(if (= yn "") (command "_.ERASE" sa ""))
(command "_.ERASE" s2 "")
))
(setvar "CMDECHO" 1)
(princ)
)

lingduwx · 发表于 2013-5-8 11:31:41

本帖最后由 lingduwx 于 2013-5-8 11:58 编辑

把极轴用好了问题就解决了
个人觉得没有必要还单独做插件

669423907 · 发表于 2013-5-8 20:45:57

lingduwx 发表于 2013-5-8 11:31
把极轴用好了问题就解决了
个人觉得没有必要还单独做插件

如图所示：
我想以 A 点为基点，把点1 旋转到线 1 上，
以 B 点为基点，把点 2 旋转到线 2 上..........

常规的操作就是以A点为圆心，
A点到点 1 为半径画圆，
交线1 于C点，
再以A点为顶点量取∠CA1 的角度...........................

然后再选择对象，选择基点，输入度数

669423907 · 发表于 2013-5-9 23:27:32

大神门，帮个忙啊！
找到一个，但不能选择旋转对象的........

龙吟小调 · 发表于 2013-5-9 23:56:31

旋转命令里有个参考，应该可以满足你的要求

669423907 · 发表于 2013-5-10 09:17:48

龙吟小调发表于 2013-5-9 23:56
旋转命令里有个参考，应该可以满足你的要求

操作有点麻烦，不能复制了.

669423907 · 发表于 2013-5-11 09:16:47

ZZXXQQ 发表于 2013-5-7 19:47

非常感谢Z版，早上试了一下，发现一些小问题：
1：可不可以默认为不复制（那里明明是“N”，但默认的是复制？？？）
2：控制点还是无法准确的落在想要的位置，就像我传的图一样，
可能还是得以旋转基点为圆心，以基点到控制点的距离为半径画一个圆，
这样才会得到一个点，这样就可以准确的转到这个点上，最后自动删除这个圆

ZZXXQQ · 发表于 2013-5-11 21:44:27

代码已改，再试试。

669423907 · 发表于 2013-5-13 20:50:54

ZZXXQQ 发表于 2013-5-11 21:44
代码已改，再试试。

弱弱的问一下，如何改成先选择，后操作呢？

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

求一个关于特殊的旋转程序

最佳答案

相关帖子

点评

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

点评

评分

点评