四分之一镜像 可框选

flyfox1047

1. (defun c:tt(/ ss pt old)
   
2.   (vl-load-com)
   
3.   (setq old (getvar "cmdecho"))
   
4.   (setq qqq (getvar "osmode"))
   
5.   (setvar "cmdecho" 0)
   
6.   (prompt "\n四分之一镜像,请选取对像:")
   
7.   (setq ss (ssget))
   
8.   (setq pt (getpoint "\n请指定对称基点:") i -1)
   
9.   (setvar "osmode" 16385)
   
10.   (repeat (sslength ss)
    
11.     (setq ee (ssname ss (setq i (1+ i))))
    
12.     (command "Mirror" ee "" pt (polar pt (/ pi 2) 10) "N")
    
13.     (command "Mirror" ee (entlast) "" pt (polar pt pi 10) "N")
    
14.    )
    
15.    (setvar "cmdecho" old)
    
16.   (setvar "osmode" qqq)
    
17.   (princ)
    
18. )

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

1993063

你那代码还可以再优化

flyfox1047

那些情况用不上，不考虑

1993063

这个用得上不

lite

1993063 发表于 2013-12-11 13:09
这个用得上不

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

tianyi1230

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

flyfox1047

1993063 发表于 2013-12-11 13:09
这个用得上不

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

1993063

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

没事整着玩儿....

1993063

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

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

1993063

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

源码都是明经的,慢慢淘,总会有自己中意的