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

脑细胞

1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;图层切换
   # `" W1 V/ {, n6 E' t4 X7 ~1 j/ X9 a
2. (defun lyh(mylsp / ss)
   
3. (setvar"cmdecho"0)      ; 关闭命令响应
   1 r: ?' {+ o: f
4. (if(setq ss(ssget"i"))  ; 将选择对象转到指定层
   & q1 z! ~; ~. S' [' U
5. (command"_.change"SS"""p""LA"mylsp"")
   
6. (setvar"clayer"mylsp)) ; 转到指定层
   , x' c* r! c, I
7. (princ))
   
8. (defun C:1 ()
   
9. (lyh"0"))
   
10. (defun C:2 ()
    7 B( W% M+ E3 h0 w! B3 s3 B+ e: ?
11. (lyh"2虚线"))
    
12. (defun C:3 ()
    % e7 U; R7 C/ M8 n) \6 P# u2 W3 R
13. (lyh"3细线"))
    
14. (defun C:4 ()
    
15. (lyh"4中心线"))
    
16. (defun C:5 ()
    , e5 ^$ ?+ ~/ H) y* F* p
17. (lyh"5文字"))
    # r$ M& K5 H( F7 A, s* ?
18. (defun C:6 ()
    
19. (lyh"6填充"))
    ' U: d. v) S* F2 l# P4 t" c
20. (defun C:7 ()
    
21. (lyh"7点划线"))
    
22. (defun C:8 ()
    6 M: J$ i6 ^, Q2 Z
23. (lyh"8不打印"))
    ( k/ p/ t1 p8 e8 g+ w* z
24. (defun C:9 ()
    
25. (lyh"9标注"))
    
26. (defun C:90 ()
    8 R6 w7 d" Q7 ~) _3 B/ q; \
27. (lyh"90双点划线"))
    
28. (defun C:00 ()
    
29. (lyh"00图框"))
    
30. 
    ) a$ r0 Z9 }# }: [1 f+ X
31. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;标公差
    + R; E# l  R; y0 a: x) ^7 `
32. 
    
33. 
    
34. (DEFUN C:ede()
    
35. (setvar "cmdecho" 0)
    
36. (if (= xx nil) (setq xx 0 yy 0))
    0 l* ~/ @; z  ~2 t5 ~7 b& J
37. (prompt "\n+(")(princ xx )(princ ")")(setq n (getreal""))
    
38. (prompt "\n-(")(princ yy )(princ ")")(setq m (getreal""))
    * @- [- B( q  j# q3 a" ^
39. (if (= m nil) (setq n xx))
    . v) U7 n) y# d  W- E2 L
40. (if (= m nil) (setq m yy))
    
41. (setq k 0)
    % @" P- J: Q/ c8 w( L
42. (while (<= k 5)
    & D& U/ z3 ^9 A$ p- H) e
43. (setq a (fix (* (EXPT 10 (- 5 K)) n)))
    
44. (setq b (* 10 (fix (* (expt 10 (- 4 k)) n))))
    # S* O/ l5 Q# X; h
45. (setq k1 (- 5 k))
    0 d" i7 e, k+ J! j  l0 `
46. (IF (= a b) (SETQ K (+ K 1)) (setq K 6)))
    
47. (setq k 0)
    
48. (while (<= k 5)
    9 ^: E6 T9 W9 l- G! d& G
49. (setq a (fix (* (EXPT 10 (- 5 K)) M)))
    0 C- i+ w3 \" s( P8 ]$ L
50. (setq b (* 10 (fix (* (expt 10 (- 4 K )) M))))
    ' g* v; z- c( N3 W  ^
51. (SETQ K2 (- 5 k))
    ) }5 T! F5 n8 F9 E4 k" O" \
52. (IF (= a b) (SETQ K (+ K 1)) (setq K 6)))
    - U! N( W: T3 A1 K' R; e
53. (setQ d2 (max K1 K2))
    / x) s8 \8 f7 Q$ z4 H/ b( q% V) T( e
54. (if (= n m) (setq c 1) (setq c 0.6))
    
55. (if (and (= n 0) (= m 0)) (COMMAND "_DIMOVERRIDE" "dimtol" "off" "")
    " {- U8 s% n3 a& e5 P/ ~, D
56. (COMMAND "_DIMOVERRIDE" "DIMTP" n "DIMTM" M "DIMTOL" "ON" "DIMTFAC" c "DIMTDEC" D2 ""))
    
57. (SETQ xx n yy m)
    0 Z/ R' l0 t# N6 n* o6 k3 K8 Q' n
58. (PRINC ))
    1 m( e/ O9 E5 m. B9 _8 P" |, j
59. 
    1 V9 C4 W, n) b" I9 A( s& g' G; G
60. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
61. (defun c:qw()(command"close""y")
    
62. (princ))
    1 w' P% S, G  w2 b
63. 不保存关闭当前窗口
    ) W4 e) f& u- n( k
64. (defun C:qr()(command"quit""y")
    ' c' ]2 s( E6 h
65. (princ))
    $ a& N5 O  g! ~* V
66. 不保存关闭CAD
    0 X" {5 H& L3 y' x3 B8 X
67. (defun c:sd()
    1 C! M- S" F7 C7 T( q: y1 Z7 k
68. (princ"\n选择要保留对象:")
    
69. (setq SS(ssget)
    9 G: b' b6 e* ^# f! D
70. ss1(ssget"X"))
    
71. (command"erase"ss1"r"ss""))
    
72. 删除未选择对象
    
73. 
    ) [' b2 c  D1 \' g
74. cui——新建——宏（ai_selall 1 ai_selall copyclip qw）
      Z7 Y) a6 N- {( X/ D% ~& ~: H
75. 全选+把所有转为0层+全选+复制+不保存关闭当前窗口
    4 z2 t2 u( f+ E4 }7 e7 Q6 @
76. 
    
77. 请问大侠们，怎样才能把自定义的命令的快捷键设置为  字母+空格 ？？
    
78. 
    
79. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;CAD
      e- @5 V* h6 j) x% ^1 [
80. (defun c:rec()(command"rectang"pause"d"))
    ( W! @0 W: f3 Y# [4 h" H
81. 矩形默认选尺寸（d

复制代码

脑细胞

还是没人理！！！

system36

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

山涧树

非常实用，感谢楼主

hellojaby

1# 脑细胞

2 f" D3 Z* U( t" ?
$ G& n' k6 b. W" lLZ你好，我想问你一个问题，就是我一个页面上有好多图形，我想分别把他们别存为一个个的文件，
# u) Z! x+ |* N$ U
我查了一下W命令可以，但是那个文件的文件名还需要自己手动输入，有没有什么好办法，让CAD自动识别所选图形里的Name图层做为文件名另存啊？？？？
( c; y$ H% ~3 C6 I" I4 T

! r' J3 h. {5 w$ |1 \$ X4 x有点长，请指教一二，谢谢了。