社区 › AutoCAD工具插件 › 求个贱人工具箱里的复制旋转的单独插件，类似的也行

A离沐 发表于 2023-6-20 16:56:48

求个贱人工具箱里的复制旋转的单独插件，类似的也行

就用一个功能，每次加载插件，出那个画面，费时间

liuhe 发表于 2023-6-20 17:34:08

(defun c:qa ( / ss ss1 p1 p2 e i ang)
(setq ss (ssget))
(if (not ss)
    (vl-exit-with-value 0)
)
(setq p1 (getpoint "\n选择复制基点"))
(if (not p1)
    (vl-exit-with-value 0)
)
(setq p2 (acet-ss-drag-move ss p1 "\n选择插入点" 1))
(setq        i   0
        ss1 (ssadd)
)
(repeat (sslength ss)
    (setq e (ssname ss i)
          i (1+ i)
    )
    (vla-copy (vlax-ename->vla-object e))
    (setq e   (entlast)
          ss1 (ssadd e ss1)
    )
    (vla-move (vlax-ename->vla-object e)
              (vlax-3D-point p1)
              (vlax-3D-point p2)
    )
)
(setq ang (acet-ss-drag-rotate ss1 p2 "\n选输入旋转角度" 1))
(setq i 0)
(repeat (sslength ss1)
    (setq e (ssname ss1 i)
          i (1+ i)
    )
    (vla-rotate (vlax-ename->vla-object e) (vlax-3D-point p2) ang)
)



)



必须装ET工具箱

e2002 发表于 2023-6-20 17:42:49

本帖最后由 e2002 于 2023-6-23 19:37 编辑

ExpressTools （就是上面这个回帖中提到的的 ET工具箱）中提供了一个 mocoro 命令，你可以试试。

dcl1214 发表于 2023-6-20 18:44:58

自己写一个

hcrespo 发表于 2023-7-3 09:59:43

天正自带。。

查看完整版本: 求个贱人工具箱里的复制旋转的单独插件，类似的也行