简单的代码，作用不一定小！

edata

依然低调 发表于 2014-6-16 17:29
不是必须存在的是吧？谢了!

如果调用command函数写程序
那么尽量使用这个。
因为有的时候出现上次command中断，而另一个程序继续运行的情况。
可以在前面加个(if(> (getvar 'cmdactive) 0)(command))
如果是自己的程序，在结尾也加个，出错函数加个。

尘缘一生

emk 发表于 2014-6-16 13:08
自己20年前的写的

        93年大学毕业，单位只有一台386，用的是AUTOCAD10版，根本就没有VLISP等高级开发工具。环境是DOS系统...........弹指一挥间，21年了。然而，

        河东河西，沧海桑田，尘缘一生 ，”明经“世间，才子佳人，飘飘跃然，
       劝君：良宵莫虚度，密会“李思普"吧？
      

依然低调

edata 发表于 2014-6-16 19:50
如果调用command函数写程序
那么尽量使用这个。
因为有的时候出现上次command中断，而另一个程序继续运 ...

学习了！非常感谢

ucuc2003

速度就等于效率，谢谢分享

bdboy

最好是有个镜像点，不然没什么实际意义，反而费事了

bai2000

同意楼上的说法，请能者出手

ymcui

非常精点的程序,真是简单得来用外非常大,谢谢!!!

海盗曹

好代码，学习一下

尘缘一生

bdboy 发表于 2014-6-17 11:11
最好是有个镜像点，不然没什么实际意义，反而费事了

            正相反。我只是判断一下同志们：假如，你是大量工作在CAD里完成者，就知道我代码的效率与意义之所在，假如你大量工作用的是软件包，比如：PKPM，天正等，而CAD是你的辅助工具，只转图、打印与排图，那就无所谓了。

        当然如果增加镜像点或线，并不增加击键次数，那是再好不过啦，让我们期待高手解决这个问题吧。

1：镜像点，你觉得需要？有个镜像点，或者镜像线，干吗呢？一句话，就是，把你镜像的东西准确定位，对不对？
     实际工作是什么？准确定位的，是在软件包里办，而不是到CAD这里！
2：假如你是搞机械的，还有点道理。
3：建筑专业，要求的是不一定100%全比例，要的是差不多，要的是数值数据准确。如果你是亲自画图的，那么你就能知道我这几段代码的作用目的是干什么？它的作用并不是叫你准确定位的。

   举例说明：
          假如你要对一个图镜像，完成后，标注的寸界线是不是从45度方向变成了135度？所有的都是吧，你怎么快速一次调整过来？并且还能鼠标拉动，一次定位准确？那么这几个程序就是专门解决类似问题的，否则，你就会费不少功夫奥。

ZZXXQQ

;加强代码

2. ;;---------------------------------------------------------------------------
   
3. (defun C:V-MR-MV (/ s pt2 pt3)
   
4. (command)
   
5. (if (setq s(ssget)) (progn
   
6. (setq pt2 (nth 1(grread 5)))
   
7. (setq pt3 (polar pt2 0 2.5))
   
8. (command "MIRROR" s "" PT2 pt3 "Y" "MOVE" "P" "" PT3 PAUSE)
   
9. ))
   
10. (princ)
    
11. )
    
12. ;;------------------------------------------------------------------------------
    
13. (defun C:H-MR-MV-N (/ s l n s1 pt2 pt3)
    
14. (command)
    
15. (if (setq s(ssget)) (progn
    
16. (setq pt2 (nth 1(grread 5)))
    
17. (setq pt3 (polar pt2 (* 0.5 pi) 2.5))
    
18. (setq s1 (entlast) ss (ssadd))
    
19. (command "MIRROR" s "" PT2 pt3 "N")
    
20. (while (setq s1 (entnext s1)) (ssadd s1 ss))
    
21. (command "MOVE" ss "" PT3 PAUSE)
    
22. ))
    
23. (princ)
    
24. )
    
25. ;;------------------------------------------------------------------------------
    
26. (defun C:V-MR-MV-N (/ s l n s1 pt2 pt3)
    
27. (command)
    
28. (if (setq s(ssget)) (progn
    
29. (setq pt2 (nth 1(grread 5)))
    
30. (setq pt3 (polar pt2 0 2.5))
    
31. (setq s1 (entlast) ss (ssadd))
    
32. (command "MIRROR" s "" PT2 pt3 "N")
    
33. (while (setq s1(entnext s1)) (ssadd s1 ss))
    
34. (command "MOVE" ss "" PT3 PAUSE)
    
35. ))
    
36. (princ)
    
37. )
    
38. ;;--------------------------------------------------------------------------------

;;---------------------------------------------------------------------------<br /> (defun C:V-MR-MV (/ s pt2 pt3)<br /> (command)<br /> (if (setq s(ssget)) (progn<br /> (setq pt2 (nth 1(grread 5)))<br /> (setq pt3 (polar pt2 0 2.5))<br /> (command "MIRROR" s "" PT2 pt3 "Y" "MOVE" "P" "" PT3 PAUSE)<br /> ))<br /> (princ)<br /> )<br /> ;;------------------------------------------------------------------------------<br /> (defun C:H-MR-MV-N (/ s l n s1 pt2 pt3)<br /> (command)<br /> (if (setq s(ssget)) (progn<br /> (setq pt2 (nth 1(grread 5)))<br /> (setq pt3 (polar pt2 (* 0.5 pi) 2.5))<br /> (setq s1 (entlast) ss (ssadd))<br /> (command "MIRROR" s "" PT2 pt3 "N")<br /> (while (setq s1 (entnext s1)) (ssadd s1 ss))<br /> (command "MOVE" ss "" PT3 PAUSE)<br /> ))<br /> (princ)<br /> )<br /> ;;------------------------------------------------------------------------------<br /> (defun C:V-MR-MV-N (/ s l n s1 pt2 pt3)<br /> (command)<br /> (if (setq s(ssget)) (progn<br /> (setq pt2 (nth 1(grread 5)))<br /> (setq pt3 (polar pt2 0 2.5))<br /> (setq s1 (entlast) ss (ssadd))<br /> (command "MIRROR" s "" PT2 pt3 "N")<br /> (while (setq s1(entnext s1)) (ssadd s1 ss))<br /> (command "MOVE" ss "" PT3 PAUSE)<br /> ))<br /> (princ)<br /> )<br /> ;;--------------------------------------------------------------------------------