cad组合键，全选+把所有转为0层+全选+复制+不保存关闭当前窗口

脑细胞

1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;图层切换
   
2. (defun lyh(mylsp / ss)
   
3. (setvar"cmdecho"0)      ; 关闭命令响应
   6 X+ D& u7 n: S; i4 ^2 G
4. (if(setq ss(ssget"i"))  ; 将选择对象转到指定层
   9 Q" c4 ^0 F1 Q  {0 Q6 ?  V, X$ l
5. (command"_.change"SS"""p""LA"mylsp"")
   ! [/ f9 E) K8 K) P7 r
6. (setvar"clayer"mylsp)) ; 转到指定层
   
7. (princ))
   
8. (defun C:1 ()
   
9. (lyh"0"))
   2 b' s- ~" q: \' a' p$ j
10. (defun C:2 ()
    
11. (lyh"2虚线"))
    
12. (defun C:3 ()
      q3 r6 C% a& X# o6 i4 Y; d6 C( g4 E
13. (lyh"3细线"))
    9 ?" c- A4 E# T: ~* q5 I' z2 c
14. (defun C:4 ()
    ( {+ x0 h- h  E( R  a9 a( E3 Q; ^
15. (lyh"4中心线"))
    
16. (defun C:5 ()
    ' E% }' N! `6 {2 k8 }0 k
17. (lyh"5文字"))
    $ ~# c: L& ~: U0 z( l
18. (defun C:6 ()
    / ^- s( u; i& u1 k1 i9 |* A& `
19. (lyh"6填充"))
    8 E4 H& f8 T6 L( ]9 S" z. A
20. (defun C:7 ()
    
21. (lyh"7点划线"))
    
22. (defun C:8 ()
    
23. (lyh"8不打印"))
    
24. (defun C:9 ()
    2 g: x( X2 @9 G" c
25. (lyh"9标注"))
    
26. (defun C:90 ()
    
27. (lyh"90双点划线"))
    
28. (defun C:00 ()
    " O  x% G) C1 P: C: e7 H
29. (lyh"00图框"))
    
30. 
      q; E7 k& ^2 ?* Z0 i
31. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;标公差
    " h& {2 ?0 B" G3 Y+ S
32. 
    
33. 
    : g0 O; Q. k8 b4 r. J# a+ k* ~
34. (DEFUN C:ede()
    % k$ s5 C" _  k; _
35. (setvar "cmdecho" 0)
    ; h1 d$ b: b" h9 Q$ i9 w( {
36. (if (= xx nil) (setq xx 0 yy 0))
    
37. (prompt "\n+(")(princ xx )(princ ")")(setq n (getreal""))
    - }5 A" d4 R% H5 {9 M; j5 }6 l: b
38. (prompt "\n-(")(princ yy )(princ ")")(setq m (getreal""))
    5 u- J- |6 |# a7 E) e
39. (if (= m nil) (setq n xx))
    ( J% m! n# \$ [) W% C% \% j
40. (if (= m nil) (setq m yy))
    % b! @4 Q+ l$ V8 m% @% Q
41. (setq k 0)
    
42. (while (<= k 5)
    
43. (setq a (fix (* (EXPT 10 (- 5 K)) n)))
    
44. (setq b (* 10 (fix (* (expt 10 (- 4 k)) n))))
    8 X+ d8 C0 h4 V  P3 X( P
45. (setq k1 (- 5 k))
    5 `5 I2 C$ c4 \
46. (IF (= a b) (SETQ K (+ K 1)) (setq K 6)))
    
47. (setq k 0)
    # i# Z( S/ z8 m1 W% }
48. (while (<= k 5)
    % I6 w5 {1 R2 y0 n$ i& A
49. (setq a (fix (* (EXPT 10 (- 5 K)) M)))
    
50. (setq b (* 10 (fix (* (expt 10 (- 4 K )) M))))
    ) G/ @9 B/ d( E' p( i( C
51. (SETQ K2 (- 5 k))
    
52. (IF (= a b) (SETQ K (+ K 1)) (setq K 6)))
    8 B0 n! B& w, `& J8 L4 y- i' ]
53. (setQ d2 (max K1 K2))
    & i7 Z% @( }% r% c* k; g
54. (if (= n m) (setq c 1) (setq c 0.6))
    
55. (if (and (= n 0) (= m 0)) (COMMAND "_DIMOVERRIDE" "dimtol" "off" "")
    
56. (COMMAND "_DIMOVERRIDE" "DIMTP" n "DIMTM" M "DIMTOL" "ON" "DIMTFAC" c "DIMTDEC" D2 ""))
    0 O8 m, f+ `& M% }
57. (SETQ xx n yy m)
    ! o, _& w% f& n6 |, q
58. (PRINC ))
    ! c0 l, u9 x5 y4 k
59. 
      P0 ^3 ^9 ^2 b- a1 L, L8 Q1 ?
60. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    7 P0 X# a; o" Q( `( d" I
61. (defun c:qw()(command"close""y")
    
62. (princ))
      |. i3 m, u6 x
63. 不保存关闭当前窗口
    . Q) B( }$ j% J& n7 T
64. (defun C:qr()(command"quit""y")
    
65. (princ))
    ) l1 N4 f/ S# o6 _
66. 不保存关闭CAD
    ) ]7 H/ d. p& j5 F# r( E
67. (defun c:sd()
    / z2 M) A7 k7 \) U
68. (princ"\n选择要保留对象:")
    - z% B" t. ^/ C2 N9 G
69. (setq SS(ssget)
    
70. ss1(ssget"X"))
    
71. (command"erase"ss1"r"ss""))
    
72. 删除未选择对象
    . e" N2 z8 m1 ?' a6 Q( m- r4 i
73. 
    , d6 o- e# _( Y
74. cui——新建——宏（ai_selall 1 ai_selall copyclip qw）
    2 s  E) M  ~# |' V
75. 全选+把所有转为0层+全选+复制+不保存关闭当前窗口
    3 ^; f# s. V8 h2 Q8 \
76. 
    
77. 请问大侠们，怎样才能把自定义的命令的快捷键设置为  字母+空格 ？？
    / x- a& V" W: V- ~/ M3 E
78. 
    $ H# x# m5 }) j$ ~1 C  w/ U! P
79. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;CAD
    . z! C+ ^( Q6 P! X& Z0 Q6 h
80. (defun c:rec()(command"rectang"pause"d"))
    
81. 矩形默认选尺寸（d

复制代码

脑细胞

还是没人理！！！

system36

呵呵 我懂了 这东西是好东西 特别是给别人图的时候

山涧树

非常实用，感谢楼主

hellojaby

1# 脑细胞

- ^1 D7 G; ?, F  W6 R; ]' C! ~0 J
LZ你好，我想问你一个问题，就是我一个页面上有好多图形，我想分别把他们别存为一个个的文件，

我查了一下W命令可以，但是那个文件的文件名还需要自己手动输入，有没有什么好办法，让CAD自动识别所选图形里的Name图层做为文件名另存啊？？？？

! {3 m2 `5 {/ a7 _0 T- |5 R% ^
6 r% D: S/ S' M5 |有点长，请指教一二，谢谢了。