AutoCAD提速绝招

heart

1、 命令别名
用命令别名画图确实是个提高速度的好方法，因为你可以左右手同时开工。我想，大家也许都在网上看到过诸如CAD命令别名一览表之类的文章，其实，你根本美必要去下载那一览表，因为他已经存在于你的电脑上了。
在Cad安装目录\Support目录下有一个acad.pgp文件，里面有你想要的一切命令别名。
2、 左手键
也许你已经知道在acad.pgp文件中定义你自己的命令别名，但你可曾想过将你常用的命令别名全改到键盘的左手区呢？
例如，按照“3A,  *3DARRAY”的格式，输入“FF,  *LINE”，保存，重新启动CAD，这是，只要输入“ff空格”就可以画出一条直线，怎么样，比你输入“l空格”要快一些吧！
哦，错！是成倍提高。
    注意：在改命令别名的时候，不要更改系统默认的命令别名，既让你的命令别名和系统默认的命令别名同时存在，否则，别人用你的电脑时就只好回到原始社会了。
这是我常用的一些命令别名（仅供参考，各人根据自己情况而定）：
AC,        *AI_MOLC        
AD,        *ATTEDIT
AG,        *ALIGN
CA,        *CAL
CC,        *COPYCLIP
CD,        *LIST
CF,        *CHAMFER
CT,        *CUTCLIP
CR,        *COLOR
DA,        *DIMANGULAR
DD,        *OFFSET
DR,        *DIMRADIUS
DT,        *DIST
EE,        *LINETYPE
ER,        *LAYER
ES,        *ELLIPSE
FC,        *POLYGON
FD,        *OPEN
FF,        *LINE
FG,        *PLINE
FT,        *FILTER
GG,        *MOVE
GS,        *MATCHPROP
N,         *NEW
REE,       *RENAME
RA,        *RAY
RD,        *REDO
RT,        *ROTATE
SA,        *SAVEAS
SS,        *QSAVE
ST,        *STYLE
SD,        *DDSELECT
TB,        *TOOLBAR
TT,        *MTEXT
T,         *TEXT
V,         *U
VV,        *PASTECLIP
WW,        *MIRROR
XX,        *XLINE
QQ,        *PURGE  
3、
在绘图时，我们经常遇到这样的问题：
    在将两根直线合并为一根多段线时，要执行如下操作：
pe－空格－选择对象－（系统提示是否转化为多段线）－Y－空格－J－空格－选择对象，是不是很麻烦？
    又如你要进入对象坐标系，要执行如下操作：
    ucs－空格－n－空格－ob－空格－选择对象。
如果你新建一个文本文档，输入这样几句话：
;改为多段线-------------------------------GEss
(defun c:ge(/ ent)
  (setq ent (ssget))
  (command "pedit" "m" ENT "" "y" "" )
;合并-------------------------------将多个多段线合并为一个多段线GH  
( defun c:GH(/ ent)
(setq ent (ssget))   
(command "pedit" "m" ent "" "j" "" "")
)
;改坐标系-----------------------世界坐标系cw  
(defun c:cw()
(command "ucs" "w" )
)
;改坐标系-----------------------对象坐标系cs  
(defun c:cs()
(command "ucs""n" "ob")
)
将文件另存为1.lsp,然后在cad中输入appload加载1.lsp（每次启动CAD后要重新加载），也可将1.lsp文件拷贝到Cad安装目录\Support目录下，然后打开同一目录下的acad2000doc.lsp，在
;;;===== AutoLoad LISP Applications =====
;  Set help for those apps with a command line interface
之后加入(load "1.lsp")，这样，每次启动CAD时，系统将自动加载1.lsp文件。
加载成功后你会发现，输入“ge”
可以将N条直线直接改为多段线，“gh”可以直接将N条多段线合并为一条多段线（如果可
下面是我常用的一些简化命令（仅供参考，各人根据自己情况而定）：
;改成轴线center-------------------------- CE
(defun c:ce(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "lt" "center" "")
)
;改成虚线-------------------------------DH
(defun cH(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "lt" "DASH" "")
)
;改线形比例-------------------------------FS
(defun c:FS(/ ent)
  (setq ent (ssget))
  (command "change" ENT "" "p" "S"  )
)
;改线宽-------------------------------FW  
(defun c:FW(/ ent)
  (setq ent (ssget))
  (command "change" ENT "" "p" "LW" )
)
;改为多段线-------------------------------GEss
(defun c:ge(/ ent)
  (setq ent (ssget))
  (command "pedit" "m" ENT "" "y" "" )
)
;改多段线宽-------------------------------GW  
( defun c:GW(/ ent)
  (setq ent (ssget))
(command "pedit" "" ent "w" )
)
;合并-------------------------------将多个多段线合并为一个多段线GH  
( defun c:GH(/ ent)
(setq ent (ssget))   
(command "pedit" "m" ent "" "j" "" "")
)
;改坐标系-----------------------世界坐标系cw  
(defun c:cw()
(command "ucs" "w" )
)
;改坐标系-----------------------对象坐标系cs  
(defun c:cs()
(command "ucs""n" "ob")
)
;全范围缩放-----------------------ze  
(defun c:ze()
(command "zoom" "e")
)
;全动态缩放-----------------------ze  
(defun c:zd()
(command "zoom" "d")
)
;改成随
(defun c:0(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "c" "bylayer" "")
)
;改成红色--------------------------------------------------------- 1
(defun c:1(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "c" "1" "")
)
;改成黄色--------------------------------------------------------- 2
(defun c:2(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "c" "2" "")
)
;改成绿色--------------------------------------------------------- 3
(defun c:3(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "c" "3" "")
)
;改成青色--------------------------------------------------------- 4
(defun c:4(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "c" "4" "")
)
;改成蓝色--------------------------------------------------------- 5
(defun c:5(/ ent)
  (setq ent (ssget))
(command "change" ent "" "p" "c" "5" "")
)
;改成紫色--------------------------------------------------------- 6
(defun c:6(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "c" "6" "")
)
;改成白色--------------------------------------------------------- 7
(defun c:7(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "c" "7" "")
)
;改成灰黑色--------------------------------------------------------8
(defun c:8(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "c" "8" "")
)
;改
(defun c:9(/ ent)
   (setq ent(ssget))
   (command "change" ent "" "p" "c" "9" "")
)

yxy_dx

感谢分享
学习了

yeduchuanfu

方法不错，但不会英语是最大的问题

iiisoso

楼主精辟！

膜拜

jinlang007

三楼，不会英语也可以学会的，很简单的LISP语言。

jingnanbei

好用吗？有效果吗？

蚂蚁聊吧

这是有多爱用这个 才想到提高速度呀