flyfox1047 发表于 2013-12-11 11:28:39

四分之一镜像 可框选

(defun c:tt(/ ss pt old)
(vl-load-com)
(setq old (getvar "cmdecho"))
(setq qqq (getvar "osmode"))
(setvar "cmdecho" 0)
(prompt "\n四分之一镜像,请选取对像:")
(setq ss (ssget))
(setq pt (getpoint "\n请指定对称基点:") i -1)
(setvar "osmode" 16385)
(repeat (sslength ss)
    (setq ee (ssname ss (setq i (1+ i))))
    (command "Mirror" ee "" pt (polar pt (/ pi 2) 10) "N")
    (command "Mirror" ee (entlast) "" pt (polar pt pi 10) "N")
   )
   (setvar "cmdecho" old)
(setvar "osmode" qqq)
(princ)
)

1993063 发表于 2013-12-11 12:55:12

你那代码还可以再优化

flyfox1047 发表于 2013-12-11 13:03:03

那些情况用不上，不考虑

1993063 发表于 2013-12-11 13:09:45

这个用得上不

lite 发表于 2013-12-11 14:47:55

1993063 发表于 2013-12-11 13:09 static/image/common/back.gif
这个用得上不

你这个用得上啊，能把程序贴出来学习下吗？

tianyi1230 发表于 2013-12-11 14:49:04

以前使用的不是支持框选的，现在这个不赖

flyfox1047 发表于 2013-12-11 14:50:55

1993063 发表于 2013-12-11 13:09 static/image/common/back.gif
这个用得上不

拿个伪源码得瑟，老实说吧，我在实际工作中基本用不上CAD,可以负责任的说，这里的源码跟我的工作一点关系都没有，偶尔画个零件也是用INV，INV出二维工程图已经完全能满足了，在这里发贴基本上是凭自己的一点兴趣爱好！

1993063 发表于 2013-12-11 15:03:56

flyfox1047 发表于 2013-12-10 20:50 static/image/common/back.gif
拿个伪源码得瑟，老实说吧，我在实际工作中基本用不上CAD,可以负责任的说，这里的源码跟我的工作一点关系 ...

没事整着玩儿....

1993063 发表于 2013-12-11 15:13:29

tianyi1230 发表于 2013-12-10 20:49 static/image/common/back.gif
以前使用的不是支持框选的，现在这个不赖

我是看楼主拿别人程序卖分,其实思路都是明经的,我只是改善一下,别介意......

1993063 发表于 2013-12-11 15:14:29

lite 发表于 2013-12-10 20:47 static/image/common/back.gif
你这个用得上啊，能把程序贴出来学习下吗？

源码都是明经的,慢慢淘,总会有自己中意的
页: [1] 2 3
查看完整版本: 四分之一镜像 可框选