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

尘缘一生

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

           我哪个按钮图标还有一个，就是选线镜像的，我没有发，为什么？实在是没有内涵，就是改造的MIRROR，CAD原MIRROR，要求给出2个点，这个要求选线，因为很简单，当时是模仿PKPM的，记得当时是95年，我在设计院正负责给大家“甩图版”，可大家都说电脑画图慢，不愿意学，才逼得写LISP，哈哈.....
那么我也发上来，演示一下吧：

     记得关闭“捕捉”与“正交”，程序内没写！

2. ；；选镜像线进行MIRROR
   
3. (defun C:J-MIRROR(/ s pt1 pt2 pt3 pt4)
   
4.   (setq s(ssget))
   
5.   (setq pt1 (entsel "\n请选择镜像对称轴一直线实体:"))
   
6.   (setq pt2 (nth 1 pt1))
   
7.   (setq pt1 (osnap pt2 "NEAR"))
   
8.   (setq pt3 (osnap pt1 "ENDPOINT"))
   
9.   (setq pt4 (osnap pt1 "MIDPOINT"))
   
10.   (command "MIRROR" S "" pt3 pt4)
    
11.   )                          
    
12. (princ)

；；选镜像线进行MIRROR<br /> (defun C:J-MIRROR(/ s pt1 pt2 pt3 pt4)<br />   (setq s(ssget))<br />   (setq pt1 (entsel "\n请选择镜像对称轴一直线实体:"))<br />   (setq pt2 (nth 1 pt1))<br />   (setq pt1 (osnap pt2 "NEAR"))<br />   (setq pt3 (osnap pt1 "ENDPOINT"))<br />   (setq pt4 (osnap pt1 "MIDPOINT"))<br />   (command "MIRROR" S "" pt3 pt4)<br />   )                          <br /> (princ)

lucas_3333

尘缘一生 发表于 2014-6-18 06:06
我哪个按钮图标还有一个，就是选线镜像的，我没有发，为什么？实在是没有内涵，就是改造的MIR ...

看来您的每一段代码背后都有一个故事啊

直线镜像的代码论坛很多

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=93048

ps122hb

确实不错，收下了

enn09

看到二十年前我就震惊了，楼主好多好东西呢吧，不要藏着，拿出来给大家看看嘛

uvyx

谢谢分享，学习学习下～～～

尘缘一生

        根据大家的群策群力，总结下此贴代码，我加了些系统变量控制，因为要保证此4个命令的顺利进行，需要关闭捕捉与正交的！

2. ;;----------------------------------------------------------------------------
   
3. 
   
4.   (defun SSET( )
   
5.      (setq oldos (getvar "OSMODE"))
   
6.      (setq oldorh (getvar "ORTHOMODE"))
   
7.      (setq oldsn (getvar "SNAPMODE"))
   
8.      (setvar "OSMODE" 0) ;;;捕捉关闭
   
9.      (setvar "ORTHOMODE" 0) ;;;正交关闭
   
10.      (setvar "SNAPMODE" 0);;;;实体捕捉关闭
    
11.      (setvar "CMDECHO" 0)
    
12.      (setvar "TEXTEVAL" 1)
    
13.    )
    
14. 
    
15. ;;---------------------------------------------------------------------------
    
16.   (defun SSET1( )
    
17.      (setvar "ORTHOMODE" oldorh)  ;;;恢复正交
    
18.      (setvar "OSMODE" oldos)  ;;;恢复正交
    
19.      (setvar "SNAPMODE" oldsn) ;;;;恢复实体捕捉   
    
20.      (setvar "CMDECHO" 1)
    
21.    )
    
22. ;;----------------------------------------------------------------------------
    
23. 
    
24. (defun C:H-MR-MV (/ s pt2 pt3)
    
25. (command)
    
26. (SSET)
    
27. (if (setq s(ssget))
    
28.    (progn
    
29.      (setq pt2 (nth 1(grread 5)))
    
30.      (setq pt3 (polar pt2 (* 0.5 pi) 2.5))
    
31.      (command "mirror" s "" pt2 pt3 "y" "move" "p" "" pt3 pause)
    
32.    )
    
33. )
    
34. (SSET1)
    
35. (princ)
    
36. )
    
37. 
    
38. ;;---------------------------------------------------------------------------
    
39. 
    
40. (defun C:V-MR-MV (/ s pt2 pt3)
    
41. (command)
    
42. (SSET)
    
43. (if (setq s(ssget))
    
44.    (progn
    
45.      (setq pt2 (nth 1(grread 5)))
    
46.      (setq pt3 (polar pt2 0 2.5))
    
47.      (command "mirror" s "" pt2 pt3 "y" "move" "p" "" pt3 pause)
    
48.    )
    
49. )
    
50. (SSET1)
    
51. (princ)
    
52. )
    
53. 
    
54. ;;------------------------------------------------------------------------------
    
55. 
    
56. (defun C:H-MR-MV-N (/ s ss s1 pt2 pt3)
    
57. (command)
    
58. (SSET)
    
59. (if (setq s(ssget))
    
60. (progn
    
61. (setq pt2 (nth 1(grread 5)))
    
62. (setq pt3 (polar pt2 (* 0.5 pi) 2.5))
    
63. (setq s1 (entlast) ss (ssadd))
    
64. (command "MIRROR" s "" PT2 pt3 "N")
    
65.    (while (setq s1 (entnext s1))
    
66.       (ssadd s1 ss)
    
67.    )
    
68.   (command "MOVE" ss "" PT3 PAUSE)
    
69. ))
    
70. (SSET1)
    
71. (princ)
    
72. )
    
73. 
    
74. ;;------------------------------------------------------------------------------
    
75. 
    
76. (defun C:V-MR-MV-N (/ s ss s1 pt2 pt3)
    
77. (command)
    
78. (SSET)
    
79. (if (setq s(ssget))
    
80. (progn
    
81. (setq pt2 (nth 1(grread 5)))
    
82. (setq pt3 (polar pt2 0 2.5))
    
83. (setq s1 (entlast) ss (ssadd))
    
84. (command "MIRROR" s "" PT2 pt3 "N")
    
85. (while (setq s1(entnext s1))
    
86.      (ssadd s1 ss)
    
87. )
    
88. (command "MOVE" ss "" PT3 PAUSE)
    
89. ))
    
90. (SSET1)
    
91. (princ)
    
92. )
    

;;----------------------------------------------------------------------------<br /> <br />   (defun SSET( )<br />      (setq oldos (getvar "OSMODE"))<br />      (setq oldorh (getvar "ORTHOMODE"))<br />      (setq oldsn (getvar "SNAPMODE"))<br />      (setvar "OSMODE" 0) ;;;捕捉关闭<br />      (setvar "ORTHOMODE" 0) ;;;正交关闭<br />      (setvar "SNAPMODE" 0);;;;实体捕捉关闭<br />      (setvar "CMDECHO" 0)<br />      (setvar "TEXTEVAL" 1)<br />    )<br /> <br /> ;;---------------------------------------------------------------------------<br />   (defun SSET1( )<br />      (setvar "ORTHOMODE" oldorh)  ;;;恢复正交<br />      (setvar "OSMODE" oldos)  ;;;恢复正交<br />      (setvar "SNAPMODE" oldsn) ;;;;恢复实体捕捉   <br />      (setvar "CMDECHO" 1)<br />    )<br /> ;;----------------------------------------------------------------------------<br /> <br /> (defun C:H-MR-MV (/ s pt2 pt3)<br /> (command)<br /> (SSET)<br /> (if (setq s(ssget))<br />    (progn<br />      (setq pt2 (nth 1(grread 5)))<br />      (setq pt3 (polar pt2 (* 0.5 pi) 2.5))<br />      (command "mirror" s "" pt2 pt3 "y" "move" "p" "" pt3 pause)<br />    )<br /> )<br /> (SSET1)<br /> (princ)<br /> )<br /> <br /> ;;---------------------------------------------------------------------------<br /> <br /> (defun C:V-MR-MV (/ s pt2 pt3)<br /> (command)<br /> (SSET)<br /> (if (setq s(ssget))<br />    (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 /> )<br /> (SSET1)<br /> (princ)<br /> )<br /> <br /> ;;------------------------------------------------------------------------------<br /> <br /> (defun C:H-MR-MV-N (/ s ss s1 pt2 pt3)<br /> (command)<br /> (SSET)<br /> (if (setq s(ssget)) <br /> (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)) <br />       (ssadd s1 ss)<br />    )<br />   (command "MOVE" ss "" PT3 PAUSE)<br /> ))<br /> (SSET1)<br /> (princ)<br /> )<br /> <br /> ;;------------------------------------------------------------------------------<br /> <br /> (defun C:V-MR-MV-N (/ s ss s1 pt2 pt3)<br /> (command)<br /> (SSET)<br /> (if (setq s(ssget)) <br /> (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)) <br />      (ssadd s1 ss)<br /> )<br /> (command "MOVE" ss "" PT3 PAUSE)<br /> ))<br /> (SSET1)<br /> (princ)<br /> )<br />

wzg356

致敬，那个年代就玩cad了。

llsheng_73

尘缘一生 发表于 2014-6-17 05:54
93年大学毕业，单位只有一台386，用的是AUTOCAD10版，根本就没有VLISP等高级开发工具。环境是DOS ...

93年单位上有386已经是很不错了，我97年到单位只看到一台坏掉了的286的时候郁闷了，旷课3年半天天泡机房的结果是单位没电脑(也不全对，给了个pc1500,结果把记录外业测量数据的程序开头加了段开机音乐后给P了一顿),直到2000年第一次看到lisp程序(那个时候对R2000又爱又恨——毕竟比R14人性化但破解版本经常挂掉),成天瞎弄把人家的三段程序弄了10来天终于被我合并成了一个，后来又没电脑了，直到04年终于有电脑可用了

zhongys

比较经典的程式

mub001

回复---效率为王----回复完毕