移动基点复制后旋转再生成一张图

CAD83

工作所需移动基点复制后旋转再生成一张图要有选项正面 ，反面，下面是图，

恒毅

这个问题3明经币目测是不会有人帮你做吧，我开价是200块，如果可以的话，加我QQ：974636923

wangshuping42

楼上的收费不便宜啊，我100给你搞定

haotaer

高，这个真的还有
高，这个真的还有

CAD83

有这么难做吗？？

linheyuanpcb

旋转镜像就行了

linheyuanpcb

(DEFUN C:ry (/ &kw @p1 @p2)
          (setvar "orthomode" 1)
    (SETQ obj (ssget ":S"))
        (setq        cho
         (getstring
           "\n [1]旋转并镜像-复制 [2]只镜像-复制 "
         ))
(cond ((= cho "1")
(SETQ pt (GETPOINT "\n(270度角->)指定旋转基点:"))
    (COMMAND "rotate" obj "" pt 270)
(if (/= obj nil) (setq @p1 (getpoint "\n请选择镜像第一点")) )
(if (/= @p1 nil) (setq @p2 (getpoint @p1 "\n请选择镜像第二点")) )
(if (/= @p2 nil)
  (command "mirror" obj "" @p1 @p2 "Y")
)
)
((= cho "2")
(if (/= obj nil) (setq @p1 (getpoint "\n请选择镜像第一点")) )
(if (/= @p1 nil) (setq @p2 (getpoint @p1 "\n请选择镜像第二点")) )
(if (/= @p2 nil)
  (command "mirror" obj "" @p1 @p2 "Y")
)
)
)
(if (not (tblsearch "layer" "5"))  
    (command "layer" "n" "5" "c" "62" "5" ""))
(command "change"  (ssget "x") "" "p"  "la" "5" ""  "_copyclip" (ssget "x") "")
(print "/n已将内容复制,新建后粘贴即可")
princ
)

这是我自己用的程序，你自己修改一下就可以达到要求了