CAD83 发表于 2016-2-23 20:59:49

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

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

恒毅 发表于 2016-2-25 12:49:32

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

wangshuping42 发表于 2016-2-25 13:24:02

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

haotaer 发表于 2016-2-25 17:21:45

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

CAD83 发表于 2016-2-25 19:05:03

有这么难做吗？？

linheyuanpcb 发表于 2016-2-29 15:57:14

旋转镜像就行了

linheyuanpcb 发表于 2016-2-29 16:17:23

(DEFUN C:ry (/ &kw @p1 @p2)
          (setvar "orthomode" 1)
    (SETQ obj (ssget ":S"))
        (setq      cho
         (getstring
         "\n 旋转并镜像-复制 只镜像-复制 "
         ))
(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
)

这是我自己用的程序，你自己修改一下就可以达到要求了
页: [1]
查看完整版本: 移动基点复制后旋转再生成一张图