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

脑细胞

1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;图层切换
   
2. (defun lyh(mylsp / ss)
   ( {) ~8 L9 q( V% c
3. (setvar"cmdecho"0)      ; 关闭命令响应
   
4. (if(setq ss(ssget"i"))  ; 将选择对象转到指定层
   . o" A$ N4 A" A3 ~+ A
5. (command"_.change"SS"""p""LA"mylsp"")
   
6. (setvar"clayer"mylsp)) ; 转到指定层
   # a, J" d. V& [1 W4 `7 F2 u- A# n7 f
7. (princ))
   6 v% X: t/ w; a: X  s
8. (defun C:1 ()
   
9. (lyh"0"))
   
10. (defun C:2 ()
    
11. (lyh"2虚线"))
    7 p7 e' S/ x2 B
12. (defun C:3 ()
    
13. (lyh"3细线"))
    * Z! p/ e( Z8 @; @2 S2 F% {: {
14. (defun C:4 ()
    # R6 \4 I: v( B  f0 ?; I' W& D% |& s
15. (lyh"4中心线"))
    
16. (defun C:5 ()
    
17. (lyh"5文字"))
    
18. (defun C:6 ()
    
19. (lyh"6填充"))
    ! }' G3 P8 y- ?& }' u9 B" E
20. (defun C:7 ()
    - R# B# B, d6 G& O' {
21. (lyh"7点划线"))
    
22. (defun C:8 ()
    2 |0 k7 z) Z3 u# N, j0 e. ?
23. (lyh"8不打印"))
    
24. (defun C:9 ()
    
25. (lyh"9标注"))
    
26. (defun C:90 ()
    % t9 ~, e: f3 @+ u: b5 E8 R- d
27. (lyh"90双点划线"))
    ' Z) b. ]+ k0 I; Z- D, G
28. (defun C:00 ()
    
29. (lyh"00图框"))
    , ^. Y  `1 o& y" O: l
30. 
    0 G7 q+ M$ ^/ W: S0 p
31. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;标公差
    
32. 
    . L& I- j! e; u2 z' O/ j, |
33. 
    
34. (DEFUN C:ede()
    0 v0 @8 H6 S& l1 g6 |$ h: Q
35. (setvar "cmdecho" 0)
    
36. (if (= xx nil) (setq xx 0 yy 0))
    
37. (prompt "\n+(")(princ xx )(princ ")")(setq n (getreal""))
    ; Y+ O7 b" {, q$ n, D9 [: `) q
38. (prompt "\n-(")(princ yy )(princ ")")(setq m (getreal""))
    
39. (if (= m nil) (setq n xx))
    3 J, r9 `$ l$ ]$ q& L7 S
40. (if (= m nil) (setq m yy))
    
41. (setq k 0)
    ; _) a( Z4 y7 `1 ?% e
42. (while (<= k 5)
    4 |: L7 k" k8 w4 T5 g5 t( W! s4 [+ a
43. (setq a (fix (* (EXPT 10 (- 5 K)) n)))
    
44. (setq b (* 10 (fix (* (expt 10 (- 4 k)) n))))
    6 v& P& T$ I3 t2 u+ `7 P* e
45. (setq k1 (- 5 k))
    
46. (IF (= a b) (SETQ K (+ K 1)) (setq K 6)))
    1 K7 O+ W0 z9 f/ z
47. (setq k 0)
    # V; F- [5 ^, t! O9 D9 \
48. (while (<= k 5)
    3 f$ `% x3 H) M8 G% t) z6 B, @
49. (setq a (fix (* (EXPT 10 (- 5 K)) M)))
    
50. (setq b (* 10 (fix (* (expt 10 (- 4 K )) M))))
    
51. (SETQ K2 (- 5 k))
    ) \( b: r" Q( z3 w$ n
52. (IF (= a b) (SETQ K (+ K 1)) (setq K 6)))
    1 c, |6 ?5 N0 r/ ^* F
53. (setQ d2 (max K1 K2))
    ; S3 e& V, d! Q% F" b: T3 M
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 ))
    
59. 
    3 h$ K1 m: ]& X7 q3 W$ h
60. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
61. (defun c:qw()(command"close""y")
    + I& b5 t0 Z% ~8 s
62. (princ))
    
63. 不保存关闭当前窗口
    
64. (defun C:qr()(command"quit""y")
    + F: P* I# u% [4 o
65. (princ))
    % A; w% d3 T0 }5 |4 V& y6 ^. P- A" P
66. 不保存关闭CAD
    
67. (defun c:sd()
    
68. (princ"\n选择要保留对象:")
    
69. (setq SS(ssget)
    
70. ss1(ssget"X"))
    
71. (command"erase"ss1"r"ss""))
    
72. 删除未选择对象
    # t( ~4 o! Y7 \9 v5 }
73. 
    " O- z* [* D( d# o" K6 i5 @
74. cui——新建——宏（ai_selall 1 ai_selall copyclip qw）
    
75. 全选+把所有转为0层+全选+复制+不保存关闭当前窗口
    
76. 
    
77. 请问大侠们，怎样才能把自定义的命令的快捷键设置为  字母+空格 ？？
    8 h9 ~: k& [9 n
78. 
    
79. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;CAD
    
80. (defun c:rec()(command"rectang"pause"d"))
    
81. 矩形默认选尺寸（d

复制代码

脑细胞

还是没人理！！！

system36

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

山涧树

非常实用，感谢楼主

hellojaby

1# 脑细胞

# O% P. K" P, U4 \' o1 Y+ G
LZ你好，我想问你一个问题，就是我一个页面上有好多图形，我想分别把他们别存为一个个的文件，
8 |2 v# u' L! B
我查了一下W命令可以，但是那个文件的文件名还需要自己手动输入，有没有什么好办法，让CAD自动识别所选图形里的Name图层做为文件名另存啊？？？？
/ {! V, _' A2 n2 D
/ j6 F& i& w  U( D4 [% d3 K% i
/ G) l& @6 R# v! I- H有点长，请指教一二，谢谢了。