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

脑细胞

1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;图层切换
     Y4 M. e2 Z$ i/ W. z0 P& _) Q5 P
2. (defun lyh(mylsp / ss)
   1 k8 H  v* o; e" {9 g7 y
3. (setvar"cmdecho"0)      ; 关闭命令响应
   
4. (if(setq ss(ssget"i"))  ; 将选择对象转到指定层
   * g+ }, X) x& e9 F7 y2 U8 e1 r" B
5. (command"_.change"SS"""p""LA"mylsp"")
   
6. (setvar"clayer"mylsp)) ; 转到指定层
   
7. (princ))
   
8. (defun C:1 ()
   % f9 L" g, L8 L+ W$ F
9. (lyh"0"))
   
10. (defun C:2 ()
    + C8 w' }- f( k! U) L: _
11. (lyh"2虚线"))
    
12. (defun C:3 ()
    4 n! s( k, g8 f2 f8 u
13. (lyh"3细线"))
    
14. (defun C:4 ()
    - ^0 A$ \+ ]$ ]( u7 T; u1 @
15. (lyh"4中心线"))
    - Z/ f) A  {* R+ o
16. (defun C:5 ()
    
17. (lyh"5文字"))
    
18. (defun C:6 ()
    ( J! M1 ~% b+ C6 T
19. (lyh"6填充"))
    
20. (defun C:7 ()
    - G% u( w! k6 Y3 Z1 `
21. (lyh"7点划线"))
    
22. (defun C:8 ()
    ) o* p2 _# j' \
23. (lyh"8不打印"))
    9 U1 ^5 L, M& o) J# _+ D
24. (defun C:9 ()
    
25. (lyh"9标注"))
    3 ^# L& I1 T/ w  I
26. (defun C:90 ()
    ! j  Q7 i/ y5 k! [
27. (lyh"90双点划线"))
    
28. (defun C:00 ()
    
29. (lyh"00图框"))
    
30. 
    
31. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;标公差
    0 u# t0 j: z& ^# X1 k/ J
32. 
    
33. 
    
34. (DEFUN C:ede()
    
35. (setvar "cmdecho" 0)
    1 c; O% t! s; p$ ]
36. (if (= xx nil) (setq xx 0 yy 0))
    $ l4 L  l& V! M% z5 z
37. (prompt "\n+(")(princ xx )(princ ")")(setq n (getreal""))
    * h2 [; q7 ]7 u8 b; S3 p
38. (prompt "\n-(")(princ yy )(princ ")")(setq m (getreal""))
    # I, ^( j! @' U4 j4 K
39. (if (= m nil) (setq n xx))
    6 ^2 B6 k% ?6 r; \; M$ G
40. (if (= m nil) (setq m yy))
    0 e' [( `0 v( n. o
41. (setq k 0)
    
42. (while (<= k 5)
    " L5 o3 j8 A% d) I' N" G4 ]2 Y' O
43. (setq a (fix (* (EXPT 10 (- 5 K)) n)))
    ; `. T4 e$ ~5 \2 M$ L' Y/ @$ s
44. (setq b (* 10 (fix (* (expt 10 (- 4 k)) n))))
    % x. e+ y& I. z) d# f* F
45. (setq k1 (- 5 k))
    
46. (IF (= a b) (SETQ K (+ K 1)) (setq K 6)))
    6 |! v+ w& l; X; A
47. (setq k 0)
    
48. (while (<= k 5)
    
49. (setq a (fix (* (EXPT 10 (- 5 K)) M)))
    3 t& ^# e( a9 C
50. (setq b (* 10 (fix (* (expt 10 (- 4 K )) M))))
    3 S5 z6 x! ]5 c5 p  }/ Q
51. (SETQ K2 (- 5 k))
    & r+ O: o1 C& y5 s1 W$ b
52. (IF (= a b) (SETQ K (+ K 1)) (setq K 6)))
    ) s4 ~* Q( t) @" F
53. (setQ d2 (max K1 K2))
    
54. (if (= n m) (setq c 1) (setq c 0.6))
    0 C/ W! t( H1 [, }
55. (if (and (= n 0) (= m 0)) (COMMAND "_DIMOVERRIDE" "dimtol" "off" "")
    * f$ ^- [! v5 }
56. (COMMAND "_DIMOVERRIDE" "DIMTP" n "DIMTM" M "DIMTOL" "ON" "DIMTFAC" c "DIMTDEC" D2 ""))
    - b2 e  ~5 f+ @! P3 G$ T0 U
57. (SETQ xx n yy m)
    
58. (PRINC ))
    
59. 
    
60. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
61. (defun c:qw()(command"close""y")
    
62. (princ))
    
63. 不保存关闭当前窗口
    - [; \5 X& S* c+ [$ u; J
64. (defun C:qr()(command"quit""y")
    / e: U) E) l- @4 w3 |( O7 C
65. (princ))
    
66. 不保存关闭CAD
    * `6 j; N. k9 U! p- t% C  `
67. (defun c:sd()
    8 `' @# r9 i: ~9 ~0 s
68. (princ"\n选择要保留对象:")
    
69. (setq SS(ssget)
    + O" u9 X$ _8 A8 O$ k, z
70. ss1(ssget"X"))
    
71. (command"erase"ss1"r"ss""))
    ! P" O0 J2 H8 y+ T& `3 W) Z
72. 删除未选择对象
      [' q$ m, ]- h
73. 
    ' m1 V5 o3 h/ C9 W( Q5 M
74. cui——新建——宏（ai_selall 1 ai_selall copyclip qw）
    
75. 全选+把所有转为0层+全选+复制+不保存关闭当前窗口
    ' Y" j. c/ S$ l4 z2 ?
76. 
    
77. 请问大侠们，怎样才能把自定义的命令的快捷键设置为  字母+空格 ？？
    
78. 
    
79. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;CAD
    
80. (defun c:rec()(command"rectang"pause"d"))
    / Z3 N. {6 U) o  w6 r
81. 矩形默认选尺寸（d

复制代码

脑细胞

还是没人理！！！

system36

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

山涧树

非常实用，感谢楼主

hellojaby

1# 脑细胞

% o# o/ X# ?; _2 Q+ ?7 ~. f' O8 e* i
LZ你好，我想问你一个问题，就是我一个页面上有好多图形，我想分别把他们别存为一个个的文件，
+ Y9 U. F4 q- s/ z9 z# V
我查了一下W命令可以，但是那个文件的文件名还需要自己手动输入，有没有什么好办法，让CAD自动识别所选图形里的Name图层做为文件名另存啊？？？？


有点长，请指教一二，谢谢了。