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

脑细胞

) n! ^, H  e; D* q9 ^

1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;图层切换
   
2. (defun lyh(mylsp / ss)
   # Q3 W$ v3 C3 T) s
3. (setvar"cmdecho"0)      ; 关闭命令响应
   
4. (if(setq ss(ssget"i"))  ; 将选择对象转到指定层
   
5. (command"_.change"SS"""p""LA"mylsp"")
   
6. (setvar"clayer"mylsp)) ; 转到指定层
   6 B1 u/ k) V9 V, r6 m5 G
7. (princ))
   
8. (defun C:1 ()
   3 q9 R% D, @, U8 N7 k' `6 f" t. E
9. (lyh"0"))
   
10. (defun C:2 ()
    
11. (lyh"2虚线"))
    1 S6 f' l, C' a# U6 l/ E2 W
12. (defun C:3 ()
    7 X  d% a7 k  k
13. (lyh"3细线"))
    , [5 H6 t$ r; y+ n
14. (defun C:4 ()
    
15. (lyh"4中心线"))
    
16. (defun C:5 ()
    
17. (lyh"5文字"))
    
18. (defun C:6 ()
    
19. (lyh"6填充"))
    1 K" I* f( b! Z+ @( d6 _6 J
20. (defun C:7 ()
    
21. (lyh"7点划线"))
    
22. (defun C:8 ()
    - f* m0 V  O7 `7 _" Z- T
23. (lyh"8不打印"))
    
24. (defun C:9 ()
    
25. (lyh"9标注"))
    
26. (defun C:90 ()
    
27. (lyh"90双点划线"))
    ( u, z' [2 P( a5 ?% \
28. (defun C:00 ()
    
29. (lyh"00图框"))
    ! t( r5 R1 T2 B  X  x
30. 
    
31. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;标公差
    - b5 s3 A. a8 d9 t' X& G1 ~- y
32. 
    6 _# [$ v% o: x" X) O5 X
33. 
    $ X2 X5 B3 F0 h7 Z( W
34. (DEFUN C:ede()
    ! M1 t4 U& E+ i9 \/ m$ j; I, ~: a
35. (setvar "cmdecho" 0)
    * O& a" K- \$ K  i# E0 O
36. (if (= xx nil) (setq xx 0 yy 0))
    
37. (prompt "\n+(")(princ xx )(princ ")")(setq n (getreal""))
    % Q3 _0 @) l0 S3 L6 q# x! N" @. l6 r
38. (prompt "\n-(")(princ yy )(princ ")")(setq m (getreal""))
    7 S' ^  `: q1 C  f3 x* J
39. (if (= m nil) (setq n xx))
    " x4 I$ }7 G: ]+ C' J% L: S' G
40. (if (= m nil) (setq m yy))
    
41. (setq k 0)
    
42. (while (<= k 5)
    ) T( W8 z) B( |. ~5 n' O% u. z
43. (setq a (fix (* (EXPT 10 (- 5 K)) n)))
    
44. (setq b (* 10 (fix (* (expt 10 (- 4 k)) n))))
    
45. (setq k1 (- 5 k))
    1 ]. F! v" ]. {  T0 B3 L4 Q
46. (IF (= a b) (SETQ K (+ K 1)) (setq K 6)))
    
47. (setq k 0)
    ! u% s. _7 R; k* b' Q$ @& k# y
48. (while (<= k 5)
    * ]9 I" a$ k7 r; f) }
49. (setq a (fix (* (EXPT 10 (- 5 K)) M)))
    . r6 {- `  c+ h! k% e' Y
50. (setq b (* 10 (fix (* (expt 10 (- 4 K )) M))))
    4 g2 ~$ D5 R! Y5 p/ j
51. (SETQ K2 (- 5 k))
    
52. (IF (= a b) (SETQ K (+ K 1)) (setq K 6)))
    
53. (setQ d2 (max K1 K2))
    - f9 c! b: t# @
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 ""))
    
57. (SETQ xx n yy m)
    
58. (PRINC ))
    . a( B* l+ E6 e
59. 
    1 g$ w1 P4 C2 n8 j1 l, v0 x4 E
60. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
61. (defun c:qw()(command"close""y")
    ; y5 a9 R- h: k0 h2 d
62. (princ))
    
63. 不保存关闭当前窗口
    
64. (defun C:qr()(command"quit""y")
    2 t/ f' S; I4 s) @
65. (princ))
    
66. 不保存关闭CAD
    ( t" v7 m4 V7 P, z; Y
67. (defun c:sd()
    
68. (princ"\n选择要保留对象:")
    # w) y( J( ]' @+ ~
69. (setq SS(ssget)
    
70. ss1(ssget"X"))
    
71. (command"erase"ss1"r"ss""))
    ( ]% l. w& y0 m/ q; G
72. 删除未选择对象
    
73. 
    " b! D* B# ~7 H; v6 M) k5 z. Z
74. cui——新建——宏（ai_selall 1 ai_selall copyclip qw）
    1 U& Q6 N# N! u; w% ^8 Q
75. 全选+把所有转为0层+全选+复制+不保存关闭当前窗口
    ( @# e+ m7 F) u
76. 
    $ z; H2 W) c$ ^) u4 Q1 j9 m$ f
77. 请问大侠们，怎样才能把自定义的命令的快捷键设置为  字母+空格 ？？
    ( j! s! d$ F/ a! D3 R3 A
78. 
    % [$ L4 }$ _4 e- ?5 F% ^0 d
79. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;CAD
    
80. (defun c:rec()(command"rectang"pause"d"))
    & \4 u1 _1 H7 g" J
81. 矩形默认选尺寸（d

复制代码

脑细胞

还是没人理！！！

system36

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

山涧树

非常实用，感谢楼主

hellojaby

1# 脑细胞


/ C) l/ @) N4 q8 {  {- U& c  Y3 v1 M" ELZ你好，我想问你一个问题，就是我一个页面上有好多图形，我想分别把他们别存为一个个的文件，

  A) {1 y2 c% Z; i$ x/ Q5 l我查了一下W命令可以，但是那个文件的文件名还需要自己手动输入，有没有什么好办法，让CAD自动识别所选图形里的Name图层做为文件名另存啊？？？？


' m4 K$ M, \5 A$ j2 v0 v" @有点长，请指教一二，谢谢了。