CAD的快捷键

superfu

你知道AutoCAD里面怎么设置一个命令组啊？
: 例如我想缩放看到全视图，一般要以下命令：Z回车A回车
: 现在我想把这两个命令设为一个快捷件，可以吗？

前生

(Defun C:Za () (Command "'Zoom" "A"))

前生

(VMON)
;;;;2222
(DEFUN C:2P ()
  (bt "两点圆")
  (COMMAND "CIRCLE" "2P")
)
(DEFUN C:3P () (COMMAND "CIRCLE" "3P"))

;;;Aaaa
(Defun C:Ang () (Setlaa "Dim" "1") (Command "Dim1" "Ang"))
(Defun C:Dal ()
  (SETLAY "DIM" 1 "CONTINUOUS")
  (Command "Dim1" "Ali")
)
(Defun C:Iim () (Startapp "Imagedit.Exe"))
(Defun C:Huab () (Startapp "Mspaint.Exe"))
(Defun C:Ad () (Command "Attdef"))
(Defun C:Ae () (Command "Attedit"))
(Defun C:Ap () (Command "Aperture"))
(Defun C:App () (Command "Appload"))
(Defun C:Ar () (Command "Array"))
(Defun C:At () (Command "Attext"))
(Defun C:Att () (Command "Attdisp"))
(Defun C:Ax () (Command "Axis"))

;;;Bbcc
(Defun C:B () (Command "Block"))
(Defun C:Ba () (Command "Base"))
(Defun C:Bm () (Command "Blipmode"))
(Defun C:C ()
  (Bt "Circle")
  (SETLAY "1" 4 "CONTINUOUS")
  (Command "Circle")
)
(Defun C:Cf () (Command "Chamfer"))
(Defun C:Cg () (Command "Change"))
(Defun C:Cgl () (Command "Change" "L" ""))
(Defun C:Con () (Command "Dim1" "Con"))
(Defun C:Cp ()
  (Bt "Copy")
  (Command "Copy")
  (Princ)
)

;;;Dddd
(Defun C:D () (Command "Dist"))
(Defun C:Dd ()                                ; (/ Ss1 Ent Ent1 Ent2)
  (Setq Ss1 (Entsel "\n 请选择目标实体:..."))
  (If Ss1
    (Progn
      (Setq Ent (Entget (Car Ss1)))
      (Setq Ent1 (Cdr (Assoc 0 Ent))
            Ent2 (Cdr (Assoc -1 Ent))
      )
      (Cond
        ((Or (= "DIMENSION" Ent1) (= "TEXT" Ent1) (= "MTEXT" Ent1))
         (Command "Ddedit" Ent2)
        )
        ((= "INSERT" Ent1) (Command "Ddatte" Ent2))
        (Prompt
         (Strcat "\N 您选中的实体是" Ent1 ",不能用文本编辑...")
        )
      )                                        ;Cond
    )                                        rogn
    (Prompt "\n 没有选择的可编辑的实体!..")
  )
  ;;If
  (Princ)
)

(Defun C:Dia ()
  (SETLAY "DIM" 1 "CONTINUOUS")
  (Command "Dimcen"  0               "Dimtoh"         1           "Dimtih"  0
           "Dimtix"  0               "Dimtofl" 0           "Dim1"    "Dia"
          )
)

(Defun C:Dm () (Command "Dragmode"))
(Defun C:Dn () (Command "Donut"))
(Defun C:Dt ()
  (Bt "Dtext")
  (SETLAY "TXT" 7 "CONTINUOUS")
  (Command "Dtext")
  (Princ)
)

;;;Eeee
(Defun C:E ()
  (Bt "Erase")
  (Command "Erase")
  (Princ)
)
(DEFUN C:EL () (COMMAND "ERASE" "L" ""))
(Defun C:Ell ()
  (Bt "椭圆")
  (Command "Ellipse")
  (Princ)
)
(Defun C:Et ()
  (Bt "Extexd")
  (Command "Extend")
  (Princ)
)
(Defun C:Ex () (Command "Explode"))

;;;Fghi
(Defun C:Fi () (Command "Fill"))
(Defun C:Gr () (Command "Grid"))
(Defun C:Gs () (Command "Graphscr"))
(Defun C:Hor ()
  (SETLAY "DIM" 1 "CONTINUOUS")
  (Command "Dimtoh" 0 "Dimexe" 0.4 "Dim1" "Hor")
)

;;;LLLL
(Defun C ()
  (Bt "Line")
  (SETLAY "1" 4 "CONTINUOUS")
  (Command "Line")
  (Princ)
)

(Defun Ce ()
  (Command "Line" "End")
)

(Defun C:- () (Command "Layer" "Off" "*" "" ""))
(Defun C:= () (Command "Layer" "On" "*" ""))
(Defun C:+ () (Command "Layer" "On" "*" ""))
(Defun C0 () (Command "Layer" "S" "0" ""))
(Defun C? () (Command "Layer" "?"))
(Defun Cc ()
  (Command "Line" "Cen")
)
(Defun Cd ()
  (SETLAY "DIM" 1 "CONTINUOUS")
  (Command "Dim1" "L" "Nea")
)
(Defun Ci () (Command "List"))
(Defun Ctp () (Command "Linetype"))
(Defun Cts () (Command "Ltscale"))

;;;Mmmm
(Defun C:M ()
  (Bt "Move")
  (Command "Move")
  (Princ)
)
(Defun C:Mc () (Command "Move" "C"))
(Defun C:Me () (Command "Measure"))
(Defun C:Mi () (Command "Minsert"))
(Defun C:Ml () (Command "Move" "L" ""))
(Defun C:Mr () (Command "Mirror"))
;;;NNNN

(Defun C:N () (Command "Dim1" "New"))
(Defun C:Nn () (Command "Dim1" "New" "<>"))
(Defun C:O () (Command "Oops"))
(Defun C:Oc () (Command "Osnap" "Cent"))
(Defun C:Oe () (Command "Osnap" "Endp"))
(Defun C:Oi () (Command "Osnap" "Inter"))
(Defun C:Om () (Command "Osnap" "Midp"))
(Defun C:On () (Command "Osnap" "Near"))
(Defun C:Oo () (Command "Osnap" "None"))
(Defun C:Op () (Command "Osnap" "erp"))
(Defun C:Oq () (Command "Osnap" "Quad"))
(Defun C:Of () (Command "Offset"))
(Defun C:Ot () (Command "Osnap" "Tang"))

;;PQQ
;;;(DEFUN C:P () (COMMAND "AN"))
(Defun C:PBAK (/ Cp P2 Con Gr)
  (Setq Cp (Cadr (Grread Nil 1 0)))
  (Setq P2 (Cadr (Grread Nil 1 0)))
  (Setq Con 5)
  (While (= Con 5)
    (Command ".Pan" Cp P2)
    (Setq Gr (Grread Nil 13 0))
    (Setq Con (Car Gr))
    (Setq P2 (Cadr Gr))
  )
)

(Defun C:Pb () (Command "ickbox"))
(Defun C:Pe () (Command "edit"))
(Defun C:Pl () (Command "line"))
(Defun C:Plm () (Command "line" "Mid"))
(Defun C:Pm () (Command "dmode"))
(Defun C:Po () (Command "oint"))
(Defun C:Ps () (Command "space"))

;;;Rrss
(Defun C:R () (Command "Rotate"))
(Defun C:Ra () (Command "Regenauto"))
(Defun C:Rad ()
  (SETLAY "DIM" 1 "CONTINUOUS")
  (Command "Dimcen" "0"        "Dimtoh" 1 "Dimtix" 0 "Dimtofl"        0 "Dim1" "Rad")
)
(Defun C:Rc () (Command "Rotate" "C"))
(Defun C:Res () (Command "Resume"))
(Defun C:Rs () (Command "Rscript"))
(Defun C:Rw () (Command "Redraw"))
(Defun C:S ()
  (Command "Qsave")
  (Princ)
)
(Defun C:Se () (Command "Select"))
(Defun C:Sh () (Command "Shape"))
(Defun C:Sk () (Command "Sketch"))
(Defun C:So () (Command "Solid"))
(Defun C:Ss () (Command "Scale"))
(Defun C:Stt () (Command "Status"))
(Defun C:St ()
  (Bt "Stretch")
  (Command "Stretch" "C")
)
(Defun C:Sty () (Command "Style"))

;;;Tttt
(Defun C:Tc () (Command "Text" "C"))
(Defun C:Te () (Command "Trace"))
(Defun C:Ti () (Command "Time"))
(Defun C:Tm () (Command "Text" "M"))
(Defun C:Tr () (Command "Trim"))
(Defun C:Ts () (Command "Text" "S"))
(Defun C:Tt () (Command "Trim" "C"))
(Defun C:Ttr () (Command "Circie" "Ttr"))
(Defun C:Txt () (Command "Dimtxt"))

;;;Uuvv
(Defun C:U () (Command "Undo"))
(Defun C:U1 () (Command "Ucs" "R" "1"))
(Defun C:U2 () (Command "Ucs" "R" "2"))
(Defun C:U3 () (Command "Ucs" "R" "3"))
(Defun C:U4 () (Command "Ucs" "R" "4"))
(Defun C:Ucsc () (Command "Ucs" "O" "Cen"))
(Defun C:Uc () (Command "Ucs" "O" "Cen"))
(Defun C:Ucsi () (Command "Ucs" "O" "Int"))
(Defun C:Un () (Command "Undefine" "End"))
(Defun C:V () (Command "View"))
(Defun C:Ver ()
  (SETLAY "DIM" 1 "CONTINUOUS")
  (Command "Dimtoh" 0 "Dimtih" 0 "Dim1" "Ver")
)
(Defun C:Vss () (Command "Vslide"))
(Defun C:Vv () (Command "Viewres"))

;;;Wwzz
(defun c:z() (command "zoom"))
(Defun C:Za () (Command "'Zoom" "A"))
(Defun C:Zc () (Command "'Zoom" "C"))
(Defun C:Zd () (Command "'Zoom" "D"))
(Defun C:Ze () (Command "'Zoom" "E"))
(Defun C:Zl () (Command "'Zoom" "L"))
(Defun C:Zv () (Command "'Zoom" "V"))
(Defun C:Zw () (Command "'Zoom" "W"))
(Defun C:Zx () (Command "'Zoom" ""))
(Defun C:Zz () (Command "'Zoom" ".2x"))
(DEFUN C:JJ () (COMMAND "SHELL" ""))
(DEFUN C:K () (COMMAND "BREAK"))
(Princ)

jiang

在工具栏上做一个新的图标，在与此按钮相关联的宏内写
^c_zoom z
点ok后　点该图标

lqh116

怎么没有呀？？

1993063

这个命令还要去学习一段时间