[分享]：定向复制命令

ago9999

2. [FONT=courier new](defun c:fz (/ fz_fs0)                        ;复制
   
3.   (if (or (= fz_fs nil) (eq fz_fs ""))
   
4.     (setq fz_fs "xyz")
   
5.   )
   
6.   (if (= fz_x nil)
   
7.     (setq fz_x 0)
   
8.   )
   
9.   (if (= fz_y nil)
   
10.     (setq fz_y 0)
    
11.   )
    
12.   (if (= fz_z nil)
    
13.     (setq fz_z 0)
    
14.   )
    
15.   (princ "\nx=")
    
16.   (princ fz_x)
    
17.   (princ ", y=")
    
18.   (princ fz_y)
    
19.   (princ ", z=")
    
20.   (princ fz_z)
    
21.   (princ ";")
    
22.   (princ "\n请选择方式:x,y,z,xy,xz,yz,xyz:(")
    
23.   (princ fz_fs)
    
24.   (princ ")")
    
25.   (setq fz_fs0 (getstring))                ;定义方式
    
26.   (if (eq fz_fs0 "")
    
27.     (setq fz_fs0 "xyz")
    
28.     (setq fz_fs fz_fs0)
    
29.   )
    
30.   (fz_zx fz_fs)
    
31. )
    
32. (defun fz_zx (fz_fs / pt0 pt1 pt2 n)
    
33.   (setq fz_dx (ssget))                        ;选择对象
    
34.   (princ "\nx=")
    
35.   (princ fz_x)
    
36.   (princ ", y=")
    
37.   (princ fz_y)
    
38.   (princ ", z=")
    
39.   (princ fz_z)
    
40.   (princ ";")
    
41.   (princ "\n复制方式(")
    
42.   (princ fz_fs)
    
43.   (princ ")")
    
44.   (setq        pt2 (list 0 0 0)
    
45.         pt1 (getpoint "\n请选择基点(空格按位移复制):")
    
46.   )
    
47.   (while (/= pt2 nil)
    
48.     (setq pt2 nil)
    
49.     (if        (/= pt1 nil)
    
50.       (progn
    
51.         (setq pt2 (getpoint pt1 "\n请指定位移的第二点(空格退出):"))
    
52.         (if (/= pt2 nil)
    
53.           (progn
    
54.             (setq fz_x (- (nth 0 pt2) (nth 0 pt1))
    
55.                   fz_y (- (nth 1 pt2) (nth 1 pt1))
    
56.                   fz_z (- (nth 2 pt2) (nth 2 pt1))
    
57.             )
    
58.           )
    
59.         )
    
60.       )
    
61.     )
    
62.     (cond
    
63.       ((eq fz_fs "x")
    
64.        (setq fz_y 0
    
65.              fz_z 0
    
66.        )
    
67.       )
    
68.       ((eq fz_fs "y")
    
69.        (setq fz_x 0
    
70.              fz_z 0
    
71.        )
    
72.       )
    
73.       ((eq fz_fs "z")
    
74.        (setq fz_x 0
    
75.              fz_y 0
    
76.        )
    
77.       )
    
78.       ((eq fz_fs "xy")
    
79.        (setq fz_z 0)
    
80.       )
    
81.       ((eq fz_fs "xz")
    
82.        (setq fz_y 0)
    
83.       )
    
84.       ((eq fz_fs "yz")
    
85.        (setq fz_x 0)
    
86.       )
    
87.     )
    
88.     (setq pt0 (list fz_x fz_y fz_z))
    
89.     (if        (or (/= pt2 nil) (= pt1 nil))
    
90.       (command "copy" fz_dx "" "0,0,0" pt0)
    
91.     )
    
92.     (princ "\nx=")
    
93.     (princ fz_x)
    
94.     (princ ", y=")
    
95.     (princ fz_y)
    
96.     (princ ", z=")
    
97.     (princ fz_z)
    
98.     (princ ";")
    
99.     (princ "\n复制方式(")
    
100.     (princ fz_fs)
     
101.     (princ ")")
     
102.   )
     
103.   (princ)
     
104. )
     
105.                                         ;定向复制
     
106. (defun c:c () (command "copy"))
     
107. (defun c:cx () (fz_zx "x"))
     
108. (defun c:cy () (fz_zx "y"))
     
109. (defun c:cz () (fz_zx "z"))
     
110. (defun c:cxy () (fz_zx "xy"))
     
111. (defun c:cxz () (fz_zx "xz"))
     
112. (defun c:cyz () (fz_zx "yz"))[/FONT]

[FONT=courier new](defun c:fz (/ fz_fs0)                        ;复制<br />   (if (or (= fz_fs nil) (eq fz_fs ""))<br />     (setq fz_fs "xyz")<br />   )<br />   (if (= fz_x nil)<br />     (setq fz_x 0)<br />   )<br />   (if (= fz_y nil)<br />     (setq fz_y 0)<br />   )<br />   (if (= fz_z nil)<br />     (setq fz_z 0)<br />   )<br />   (princ "\nx=")<br />   (princ fz_x)<br />   (princ ", y=")<br />   (princ fz_y)<br />   (princ ", z=")<br />   (princ fz_z)<br />   (princ ";")<br />   (princ "\n请选择方式:x,y,z,xy,xz,yz,xyz:(")<br />   (princ fz_fs)<br />   (princ ")")<br />   (setq fz_fs0 (getstring))                ;定义方式<br />   (if (eq fz_fs0 "")<br />     (setq fz_fs0 "xyz")<br />     (setq fz_fs fz_fs0)<br />   )<br />   (fz_zx fz_fs)<br /> )<br /> (defun fz_zx (fz_fs / pt0 pt1 pt2 n)<br />   (setq fz_dx (ssget))                        ;选择对象<br />   (princ "\nx=")<br />   (princ fz_x)<br />   (princ ", y=")<br />   (princ fz_y)<br />   (princ ", z=")<br />   (princ fz_z)<br />   (princ ";")<br />   (princ "\n复制方式(")<br />   (princ fz_fs)<br />   (princ ")")<br />   (setq        pt2 (list 0 0 0)<br />         pt1 (getpoint "\n请选择基点(空格按位移复制):")<br />   )<br />   (while (/= pt2 nil)<br />     (setq pt2 nil)<br />     (if        (/= pt1 nil)<br />       (progn<br />         (setq pt2 (getpoint pt1 "\n请指定位移的第二点(空格退出):"))<br />         (if (/= pt2 nil)<br />           (progn<br />             (setq fz_x (- (nth 0 pt2) (nth 0 pt1))<br />                   fz_y (- (nth 1 pt2) (nth 1 pt1))<br />                   fz_z (- (nth 2 pt2) (nth 2 pt1))<br />             )<br />           )<br />         )<br />       )<br />     )<br />     (cond<br />       ((eq fz_fs "x")<br />        (setq fz_y 0<br />              fz_z 0<br />        )<br />       )<br />       ((eq fz_fs "y")<br />        (setq fz_x 0<br />              fz_z 0<br />        )<br />       )<br />       ((eq fz_fs "z")<br />        (setq fz_x 0<br />              fz_y 0<br />        )<br />       )<br />       ((eq fz_fs "xy")<br />        (setq fz_z 0)<br />       )<br />       ((eq fz_fs "xz")<br />        (setq fz_y 0)<br />       )<br />       ((eq fz_fs "yz")<br />        (setq fz_x 0)<br />       )<br />     )<br />     (setq pt0 (list fz_x fz_y fz_z))<br />     (if        (or (/= pt2 nil) (= pt1 nil))<br />       (command "copy" fz_dx "" "0,0,0" pt0)<br />     )<br />     (princ "\nx=")<br />     (princ fz_x)<br />     (princ ", y=")<br />     (princ fz_y)<br />     (princ ", z=")<br />     (princ fz_z)<br />     (princ ";")<br />     (princ "\n复制方式(")<br />     (princ fz_fs)<br />     (princ ")")<br />   )<br />   (princ)<br /> )<br />                                         ;定向复制<br /> (defun c:c () (command "copy"))<br /> (defun c:cx () (fz_zx "x"))<br /> (defun c:cy () (fz_zx "y"))<br /> (defun c:cz () (fz_zx "z"))<br /> (defun c:cxy () (fz_zx "xy"))<br /> (defun c:cxz () (fz_zx "xz"))<br /> (defun c:cyz () (fz_zx "yz"))[/FONT]