[原创]：实体旋转并复制软件

它山之石

加载后在命令行输入“RCC”即可，按提示操作。哪位用得感觉还可以请支持一下。

;;;V040422新增功能
;;;   1.增加了选实体时未选中自动退出功能。
;;;   2.增加一步回退功能。

;;;V040423新增功能
;;;   1.增加是否继续复制选项。
;;;   2.增加自动保留上次运行时设置的角度功能。

;;;V040426新增功能
;;;   1.增加是否保持旋转点同上次选项。

自由的鱼

编程申请那里有原代码！

它山之石

最初由 自由的鱼 发布
[B]编程申请那里有原代码！ [/B]

楼上的说的是下面这个帖子吗？
http://www.xdcad.net/forum/showt ... 1492905#post1492905

那个源码简单了点。你可以试试，比较一下功能。
如果有人支持，我也会把源码放上来。

烨006

在R14扩展工具里面有这个功能！

它山之石

当然方法很多，你可以先复制再旋转，也可以利用基点对实体进行操作。
但最好各位先试试我的这个程序再说。

自由的鱼

你这个确实强大！！

zh_6531394

最好增加旋转点带移动功能

它山之石

最初由 zh_6531394 发布
[B]最好增加旋转点带移动功能 [/B]

没明白你的意思，能说说具体要求吗？

自由的鱼

可能是旋转并移动吧

andyhua5240

不知道它山之石的程序跟WKAI斑竹的编辑易比，如何？
我想斑竹的程序可能要强那么一点点哦！
谢谢！

它山之石

　　WKAI斑主的编辑易当然功能强大多了，是个通用编辑程序。我试了一下但似乎没有能一步就实现我这个程序复制的同时旋转的功能。
　　另外7楼说的不知是不是“旋转并移动”的意思。如果是的话，程序稍做修改就可以了。当然利用这个程序也可以，先旋转复制，再删除最初选择的实体。（在命令行输入E然后输入P）

hust_laohu

下载了
强烈支持楼主把源代码传上来

xjlmlxbq

呵呵，难道不是源代码吗？

ss1025

求助：在下也试着想编一个旋转拷贝命令，可惜只会转直角，斜角旋转的时候就容易转不到我要的角度上。
;;  旋转字体程序
(defun c:rh (/ os pt1 pt2 pt3 p1 p2 p3 ang s1 s2)
  (setvar "cmdecho" 0)
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (princ "\n请选择要移动的物体:")
  (setq s1 (ssget))
  (setvar "osmode" 512)
  (setq pt1 (getpoint "\n请选择基准点"))
  (setq p1 (entsel "\n请选择目标点"))
  (setq p2 (cadr p1))
  (setq p3 (entget (car p1)))
  (setq        pt2 (cdr (assoc 10 p3))
        pt3 (cdr (assoc 11 p3))
  )
  (setq ang (angle pt2 pt3))
  (setq ss (ssadd))
  (setq m 0)
  (setq n (sslength s1))
  (repeat n
    (setq s2 (ssname s1 m))
    (setq s3 (entget s2))
    (setq s4 (cdr (assoc 1 s3)))                                       
    (setq ss (ssadd s2 ss))
    (setq m (+ 1 m))
  )
  (command "copy" ss "" pt1 pt1)
  (command "rotate" ss "" pt1 (* (/ ang pi) 180))                               
  (command "move" ss "" pt1 p2)
  (setvar "cmdecho" 1)
  (setvar "osmode" os)
  (princ)
)

它山之石

　　你的程序可以运行。转角就是你第二次选的实体的角度。不过有两点建议：
　　1、提示不明确，旋转复制却说“选择要移动的物体”，第二次选的时候是程序要求点选一个实体，提示却是“请选择目标点”。
　　2、捕捉设置不合理。
　　3、容错功能应再加强。当未选到点或实体时时会出错。