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

脑细胞

& A+ E; I+ `- n9 g- B  A

1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;图层切换
   9 r' i4 r; P3 b4 f$ J4 r& J
2. (defun lyh(mylsp / ss)
   
3. (setvar"cmdecho"0)      ; 关闭命令响应
     v  S" L/ G! Q
4. (if(setq ss(ssget"i"))  ; 将选择对象转到指定层
   * f8 o# N4 t, Y/ b1 {& C
5. (command"_.change"SS"""p""LA"mylsp"")
   + U7 |" [1 I3 `) j0 d4 D( X
6. (setvar"clayer"mylsp)) ; 转到指定层
   7 ~' z: @: L  v+ s# P( x+ U
7. (princ))
   
8. (defun C:1 ()
   
9. (lyh"0"))
   ! b% d( _' S: p3 h& H' z( |) w
10. (defun C:2 ()
    ' y+ i( p# Z% C6 b; V
11. (lyh"2虚线"))
    # V  G' A( P0 ]( e2 v% x3 Q
12. (defun C:3 ()
    
13. (lyh"3细线"))
    8 U* [1 F( A% O! c) V& C6 c0 {
14. (defun C:4 ()
    
15. (lyh"4中心线"))
    
16. (defun C:5 ()
    7 u6 K) V! J) [6 ?$ H
17. (lyh"5文字"))
    & c* ~, [2 X7 I0 ]) y+ h  k
18. (defun C:6 ()
    2 K! e. v2 e* l$ r) A
19. (lyh"6填充"))
    
20. (defun C:7 ()
    
21. (lyh"7点划线"))
    8 Y, u' k+ Z2 w, g
22. (defun C:8 ()
    - l3 d) t9 h9 H9 n7 U% z
23. (lyh"8不打印"))
    8 j7 Z8 A9 x% k! s0 J# g$ S
24. (defun C:9 ()
    
25. (lyh"9标注"))
    
26. (defun C:90 ()
    
27. (lyh"90双点划线"))
    : r# I3 I2 t- e# ]  G* K
28. (defun C:00 ()
    
29. (lyh"00图框"))
    : V. ^; i8 z" |6 r8 ]
30. 
    
31. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;标公差
    ! ]+ _& T: l2 d, I9 Z
32. 
    
33. 
    
34. (DEFUN C:ede()
    ! d  P1 D, ~: ?9 E; u7 {1 \8 V  }
35. (setvar "cmdecho" 0)
    
36. (if (= xx nil) (setq xx 0 yy 0))
    & A9 {" Q8 G, ?; N* `
37. (prompt "\n+(")(princ xx )(princ ")")(setq n (getreal""))
    
38. (prompt "\n-(")(princ yy )(princ ")")(setq m (getreal""))
    
39. (if (= m nil) (setq n xx))
    " t4 x3 S! u  `
40. (if (= m nil) (setq m yy))
    
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))))
    2 T% D; b1 @8 u0 Q
45. (setq k1 (- 5 k))
    
46. (IF (= a b) (SETQ K (+ K 1)) (setq K 6)))
    5 |  n7 h% I1 H6 Q8 V! y; O
47. (setq k 0)
    2 `% q! ~5 y( ^7 ^: l
48. (while (<= k 5)
    $ }: l0 ?  Y1 f1 Y  g) I0 C5 ^
49. (setq a (fix (* (EXPT 10 (- 5 K)) M)))
    
50. (setq b (* 10 (fix (* (expt 10 (- 4 K )) M))))
    
51. (SETQ K2 (- 5 k))
    ; v0 K1 E9 {- X2 q; _
52. (IF (= a b) (SETQ K (+ K 1)) (setq K 6)))
    
53. (setQ d2 (max K1 K2))
    
54. (if (= n m) (setq c 1) (setq c 0.6))
    ) j. }% v1 F+ Q$ S; Z+ P
55. (if (and (= n 0) (= m 0)) (COMMAND "_DIMOVERRIDE" "dimtol" "off" "")
    
56. (COMMAND "_DIMOVERRIDE" "DIMTP" n "DIMTM" M "DIMTOL" "ON" "DIMTFAC" c "DIMTDEC" D2 ""))
    1 B9 @0 b. |. s7 u! T6 E3 S  ?( u
57. (SETQ xx n yy m)
    
58. (PRINC ))
    
59. 
    
60. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
61. (defun c:qw()(command"close""y")
    
62. (princ))
    
63. 不保存关闭当前窗口
    . J* s: D4 `8 _3 x8 z
64. (defun C:qr()(command"quit""y")
    - h; z" d2 D# A$ ]5 r/ Y- Q
65. (princ))
    
66. 不保存关闭CAD
    2 Z. V6 z; L/ o. [3 i
67. (defun c:sd()
    ! J6 j$ T( ]# j, A6 [9 g9 E2 G
68. (princ"\n选择要保留对象:")
    
69. (setq SS(ssget)
    
70. ss1(ssget"X"))
    
71. (command"erase"ss1"r"ss""))
    ! t' R7 V# }/ e  H
72. 删除未选择对象
    
73. 
    
74. cui——新建——宏（ai_selall 1 ai_selall copyclip qw）
    
75. 全选+把所有转为0层+全选+复制+不保存关闭当前窗口
      ?8 a4 `: l1 c$ A7 T9 i6 X3 g/ t
76. 
    
77. 请问大侠们，怎样才能把自定义的命令的快捷键设置为  字母+空格 ？？
    " _  O8 e2 b! Q5 ]% z
78. 
    / s4 M. `# O: n" G
79. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;CAD
    
80. (defun c:rec()(command"rectang"pause"d"))
    
81. 矩形默认选尺寸（d

复制代码

脑细胞

还是没人理！！！

system36

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

山涧树

非常实用，感谢楼主

hellojaby

1# 脑细胞


LZ你好，我想问你一个问题，就是我一个页面上有好多图形，我想分别把他们别存为一个个的文件，
- V- `# P  d* [, ]0 [0 f  O
我查了一下W命令可以，但是那个文件的文件名还需要自己手动输入，有没有什么好办法，让CAD自动识别所选图形里的Name图层做为文件名另存啊？？？？


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