[讨论]：什么简化命令放到acad.lsp中

xyp1964

;;;;;;;;;;;;;;;;;AutoCAD 简化命令 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;光标角度
(defun c:00 () (setvar "snapang" (* 0 (/ pi 180))) (prin1))
(defun c:15 () (setvar "snapang" (* 15 (/ pi 180))) (prin1))
(defun c:30 () (setvar "snapang" (* 30 (/ pi 180))) (prin1))
(defun c:45 () (setvar "snapang" (* 45 (/ pi 180))) (prin1))
(defun c:60 () (setvar "snapang" (* 60 (/ pi 180))) (prin1))
(defun c:75 () (setvar "snapang" (* 75 (/ pi 180))) (prin1))
;;;*------------------ AAA ------------------------------------------
(DEFUN C:A () (COMMAND "ARRAY"))                ;阵列
(DEFUN C:AA () (COMMAND "AREA"))                ;面积
(DEFUN C:AL () (COMMAND "ARRAY" "L" "" "R"))    ;阵列最后元素
(DEFUN C:AP () (COMMAND "APerture" 5))                ;靶标
(DEFUN C:AR () (COMMAND "ARC"))                        ;画圆弧
(defun c:asa () (COMMAND "MENU" "asa"))
(DEFUN C:ATD () (COMMAND "ATTDISP"))                ;属性可见性
(DEFUN C:ATE () (COMMAND "ATTEDIT"))                ;属性编辑
(DEFUN C:ATF () (COMMAND "ATTDEF"))                ;属性定义
(DEFUN C:ATX () (COMMAND "ATTEXT"))                ;属性信息
(DEFUN C:AW () (COMMAND "ARRAY" "W"))                ;窗口阵列
(DEFUN C:AX () (COMMAND "AXIS"))                ;轴线刻度
;;;*------------------ BBB ------------------------------------------
(DEFUN C:B () (COMMAND "BREAK"))                ;打断
(DEFUN C:BE ()(COMMAND "BLOCK"PAUSE"0,0"(SSGET "X" ())""))
(DEFUN C:Bl- () (setq bl nil))                  ;取消比例参数
(DEFUN C:BM () (COMMAND "BLIPMODE"))                ;标识点显示
(DEFUN C:BO () (COMMAND"BLOCK" PAUSE"END" "W")) ;建块
(DEFUN C:BS () (COMMAND "BASE"))                ;基点
;;;*------------------ CCC ------------------------------------------
(DEFUN C:C () (COMMAND "COPY"))                         ;复制
(DEFUN C:C0 (/ ss)(setq ss (ssget))(COMMAND "CHPROP" ss "" "la" "0" ""));改到0层
(DEFUN C:CD (/ ss)(setq ss (ssget))(COMMAND "CHPROP" ss "" "la" "DIM1" ""));改到dim1层
(DEFUN C:CF () (COMMAND "CHAMFER"))                ;切角
(DEFUN C:CFG () (COMMAND "CONFIG"))                ;配置
(DEFUN C:CGW () (COMMAND "CHANGE" "W"))                ;窗口改特性
(DEFUN C:CH () (COMMAND "CHANGE"))                ;改特性
(DEFUN C:CI () (COMMAND "CIRCLE"))                ;画圆
(DEFUN C:CL () (COMMAND "COPY" "L" ""))                ;复制最后元素
(DEFUN C:CP () (COMMAND "CHPROP"))                ;改特性
(DEFUN C:CR () (COMMAND "COLOUR"))                ;颜色设置
;(DEFUN C:CW  () (COMMAND "COPY" "W"))                      ;窗口复制
;;;*------------------ DDD ------------------------------------------
(DEFUN C:D () (COMMAND "DIST"))                        ;求距离
(DEFUN C:DA () (COMMAND "DDATTE"))                ;属性编辑
(DEFUN C:DB () (COMMAND "DBLIST"))                ;列图形数据库
(DEFUN C:DD () (COMMAND "DDEDIT"))                ;文本编辑
(DEFUN C:DDe () (COMMAND "DDEMODES"))                ;改特性
(DEFUN C:DDL () (COMMAND "DDLMODES"))                ;改层特性
(DEFUN C:DDr () (COMMAND "DDRMODES"))                ;改变量
(DEFUN C:DG () (COMMAND "DRAG"))
(DEFUN C:DM () (COMMAND "DRAGMODE"))                ;设拖拽线
(DEFUN C:DN () (COMMAND "DONUT"))                ;圆环
(DEFUN C:DT () (COMMAND "DTEXT"))                ;动态文本
(DEFUN C:DV () (COMMAND "DIVIDE"))                ;等分
(DEFUN C:DXB () (COMMAND "DXBIN"))                ;转入dxb文件
(DEFUN C:DXF () (COMMAND "DXFIN"))                ;转入dxf文件
(DEFUN C:DXO () (COMMAND "DXFOUT"))                ;输出dxf文件
(DEFUN C:DY () (COMMAND "DELAY"))                ;延时
;;;*------------------ EEE ------------------------------------------
(DEFUN C:E () (COMMAND "ERASE"))                ;删除
(DEFUN C:EC () (COMMAND "ERASE" "C"))                ;窗口删除
(DEFUN C:EEE ()(COMMAND "ERASE" (SSGET "X" '()) ""));全屏删除
(DEFUN C:EF () (COMMAND "ERASE" "F"))                ;窗口删除
(DEFUN C:EL () (COMMAND "ERASE" "L" ""))        ;删除最后元素
(DEFUN C:ELP () (COMMAND "ELIPSE"))                ;椭圆
(DEFUN C:EP () (COMMAND "EXPLODE"))                ;打碎
(DEFUN C:ET () (COMMAND "EXTEND"))                ;延伸
(DEFUN C:EW () (COMMAND "ERASE" "W"))                ;窗口删除
;;;*------------------ FFF ------------------------------------------
(DEFUN C:F () (COMMAND "FILLET"))                ;倒角
(DEFUN C:FI () (COMMAND "FILL"))                ;填充状态
;;;*------------------ GGG ------------------------------------------
(DEFUN C:G () (COMMAND "GRID"))                        ;栅格
(DEFUN C:GR () (COMMAND "GRAPHSCRN"))                ;
;;;*------------------ HHH ------------------------------------------
(DEFUN C:H () (COMMAND "SHELL" ""))                ;
(DEFUN C:HD () (COMMAND "HIDE"))                ;消隐
(DEFUN C:HT () (COMMAND "HATCH"))                ;填充
;;;*------------------ III ------------------------------------------
(DEFUN C:I () (COMMAND "INSERT"))                ;插入
(DEFUN C:IGI () (COMMAND "IGESIN"))                ;输入iges文件
(DEFUN C:IGO () (COMMAND "IGESOUT"))                ;输出iges文件
(DEFUN C:IP () (COMMAND "ISOPLANE"))                ;轴侧图
;;;*------------------ LLL ------------------------------------------
;;;*------------------ 画线缩写 -------------------------------------
(defun c:l () (command "line"))                            ;线
(defun c:lc () (command "line" "cen"))                    ;圆心
(defun c:lcc () (command "line" "cen" pause "cen")) ;圆心-圆心
(defun c:lce () (command "line" "cen" pause "end")) ;圆心-端点
(defun c:lci () (command "line" "cen" pause "int")) ;圆心-交点
(defun c:lcm () (command "line" "cen" pause "mid")) ;圆心-中点
(defun c:lcp () (command "line" "cen" pause "per")) ;圆心-垂点
(defun c:le () (command "line" "end"))                    ;端点
(defun c:lec () (command "line" "end" pause "cen")) ;端点-圆心
(defun c:lee () (command "line" "end" pause "end")) ;端点-端点
(defun c:lei () (command "line" "end" pause "int")) ;端点-交点
(defun c:lem () (command "line" "end" pause "mid")) ;端点-中点
(defun C:lep () (command "line" "end" pause "per")) ;端点-垂点
(defun c:lic () (command "line" "int" pause "cen")) ;交点-圆心
(defun c:lie () (command "line" "int" pause "end")) ;交点-端点
(defun c:lii () (command "line" "int" pause "int")) ;交点-交点
(defun c:lim () (command "line" "int" pause "mid")) ;交点-中点
(defun c:lip () (command "line" "int" pause "per")) ;交点-垂点
(defun c:lm () (command "line" "mid"))                    ;线中点
(defun c:lmc () (command "line" "mid" pause "cen")) ;中点-圆心
(defun c:lme () (command "line" "mid" pause "end")) ;中点-端点
(defun c:lmi () (command "line" "mid" pause "int")) ;中点-交点
(defun c:lmm () (command "line" "mid" pause "mid")) ;中点-中点
(defun c:lmp () (command "line" "mid" pause "per")) ;中点-垂点
(defun c:ln () (command "line" "int"))                    ;交点
(defun c:lr () (command "line" "@"))
;;;*-----------------------------------------------------------------
(DEFUN C:0 () (setvar "clayer" "0"))        ;设到0层
(DEFUN C:L* () (COMMAND "LAYER" "T" "*" "")) ;解冻所有层
(DEFUN C:L? () (COMMAND "LAYER" "?" "")) ;列层信息
(DEFUN C:LA () (COMMAND "LAYER"))        ;层
(DEFUN C:LAC () (COMMAND "LAYER" "C"))        ;设层颜色
(DEFUN C:LAM () (COMMAND "LAYER" "M"))        ;建并设新层
(DEFUN C:LAS () (COMMAND "LAYER" "S"))        ;设当前层
(DEFUN C:LAT () (COMMAND "LAYER" "T"))        ;解冻?层
(DEFUN C:LF () (COMMAND "LAYER" "F"))        ;冻结?层
(DEFUN C:LI () (COMMAND "LIST"))        ;列表
(DEFUN C:LN () (COMMAND "LAYER" "N"))        ;建新层
(DEFUN C:LS ()(COMMAND "LTSCALE")(menucmd "s=number2"));线型比例
(DEFUN C:LT () (COMMAND "LINETYPE"))        ;线型
;;;*------------------ MMM ------------------------------------------
(DEFUN C:M () (COMMAND "MOVE"))                ;移动
(DEFUN C:MC () (COMMAND "MOVE" "C"))
(DEFUN C:ME () (COMMAND "MEASURE"))        ;测量
(DEFUN C:MI () (COMMAND "MIRROR" "c"))        ;镜像
(DEFUN C:ML () (COMMAND "MOVE" "L" ""))        ;移动最后元素
(DEFUN C:MS () (COMMAND "MSLIDE"))        ;制幻灯片
(DEFUN C:MSP () (COMMAND "MSPACE"))        ;模型空间
(DEFUN C:MT () (COMMAND "MINSERT"))        ;多重插入
(DEFUN C:MW () (COMMAND "MOVE" "W"))        ;窗口移动
;;;*------------------ NNN ------------------------------------------
(DEFUN C:N () (COMMAND "POINT"))        ;点
;;;*------------------ OOO ------------------------------------------
(DEFUN C:O ()(mn2)(COMMAND "OFFSET"))        ;偏移
(defun c:O1 ()(setvar "OFFSETDIST" 1000)(command "offset" ""))
(defun c:O2 ()(setvar "OFFSETDIST" 2000)(command "offset" ""))
(defun c:O3 ()(setvar "OFFSETDIST" 3000)(command "offset" ""))
;(DEFUN C:OO   () (COMMAND "OOPS"))                          ;恢复
(DEFUN C:OO () (c:os))
(DEFUN C:OP () (COMMAND "OPEN"))
(DEFUN C:OR () (COMMAND "ORTHO"))        ;正交
;;;*------------------ PPP ------------------------------------------
(DEFUN C:PB () (COMMAND "PICKBOX"))
(DEFUN C:PE () (COMMAND "PEDIT"))        ;编缉多义线
(DEFUN C:PG () (COMMAND "POLYGON"))        ;多边形
(DEFUN C:PL () (COMMAND "PLINE"))        ;多义线
(DEFUN C:PP () (COMMAND "MATCHPROP"))        ;匹配
(DEFUN C:PSP () (COMMAND "PSPACE"))        ;图纸空间
(DEFUN C:PU () (COMMAND "-PURGE" "A" "Y")) ;清除
(defun C:PUU () (repeat 3 (COMMAND "-PURGE" "A" "" "n"))) ;清除
(defun c:pz () (command "config"))        ;config
;;;*------------------ QQQ ------------------------------------------
(defun C:Q () (COMMAND "QUIT"))                ;退出
(DEFUN C:QT () (COMMAND "QTEXT"))        ;快显文字
;;;*------------------ RRR ------------------------------------------
(DEFUN C:R () (COMMAND "REDRAW"))        ;刷新,自动存图
(DEFUN C:RA () (COMMAND "REGENAUTO"))        ;重新生成变量
(DEFUN C:RD () (COMMAND "REDO"))        ;恢复undo操作
(DEFUN C:RG () (COMMAND "REGEN"))        ;重新生成
(DEFUN C:RM () (COMMAND "RESUME"))        ;运行终止命令
(DEFUN C:RN () (COMMAND "RENAME"))        ;改名
(DEFUN C:RO () (COMMAND "ROTATE"))        ;旋转
(DEFUN C:RS () (COMMAND "RSCRIPT"))
;;;*------------------ SSS ------------------------------------------
(DEFUN C:S () (COMMAND "SAVE"))                ;存图
(DEFUN C:SC () (COMMAND "SCALE"))        ;放缩比例
(DEFUN C:SCR () (COMMAND "SCRIPT"))
(DEFUN C:SD () (COMMAND "SOLID"))        ;实心体
(DEFUN C:SE () (COMMAND "SELECT"))        ;选择目标
(DEFUN C:SH () (COMMAND "SHELL" ""))
(DEFUN C:SK () (COMMAND "SKETCH"))        ;徒手画
(defun c:Sl () (command "spline"))
(DEFUN C:SN () (COMMAND "SNAP"))        ;捕捉分辨率
(DEFUN C:SNP () (COMMAND "SNAP" "37.5"))
(DEFUN C:SNW () (COMMAND "SNAP" "120"))
(DEFUN C:SP () (COMMAND "SHAPE"))
(DEFUN C:ST () (COMMAND "STRETCH" "C"))        ;延展
(DEFUN C:STY () (COMMAND "STYLE"))        ;字型设置
(DEFUN C:SU () (COMMAND "STATUS"))        ;列状态表
;;;*------------------ TTT ------------------------------------------
(DEFUN C:T0 () (COMMAND "TILEMODE" 0))
(DEFUN C:T1 () (COMMAND "TILEMODE" 1))
(DEFUN C:T () (COMMAND "TRIM"))                ;切断
(DEFUN C:TA () (COMMAND "TEXT" "A"))        ;写字
(DEFUN C:TC () (COMMAND "TRIM" "C"))
(DEFUN C:TFF () (COMMAND "TEXT" "F"))        ;写字
(DEFUN C:TI () (COMMAND "TIME"))        ;时间
(DEFUN C:TM () (COMMAND "TEXT" "M"))        ;写字
(DEFUN C:TR () (COMMAND "TEXT" "R"))        ;写字
(DEFUN C:TRA () (COMMAND "TRACE"))        ;宽度线
(DEFUN C:TS () (COMMAND "TEXT" "S"))        ;写字
(DEFUN C:TT () (COMMAND "TEXT"))        ;写字
;;;*------------------ UUU ------------------------------------------
(DEFUN C:U () (COMMAND "UNDO"))                ;取消上操作
(DEFUN C:UN () (COMMAND "UNITS"))        ;数据格式
;;;*------------------ VVV ------------------------------------------
(DEFUN C:V () (COMMAND "VIEW"))                ;视图
(DEFUN C:V? () (COMMAND "VIEW" "?"))        ;列视图名
(DEFUN C:VD () (COMMAND "VIEW" "D"))        ;删除视图
(DEFUN C:VM () (COMMAND "VSLIDE" "MASTER")) ;
(DEFUN C:VP () (COMMAND "VPOINT"))        ;
(DEFUN C:VR () (COMMAND "VIEW" "R"))        ;
(DEFUN C:VRS () (COMMAND "VIEWRES"))        ;显视精度
(DEFUN C:VS () (COMMAND "VSLIDE"))        ;看幻灯片
(DEFUN C:VSS () (COMMAND "VIEW" "S"))        ;保存视图
(DEFUN C:VW () (COMMAND "VIEW" "W"))        ;保存窗口视图
;;;*------------------ WWW ------------------------------------------
(DEFUN C:Wb () (COMMAND "WBLOCK"))        ;写块
;;;*------------------ XXX ------------------------------------------
(DEFUN C:X () (COMMAND "MENU" "X.mns") (Princ))
;;;*------------------ ZZZ ------------------------------------------
(DEFUN C:ZA () (COMMAND "ZOOM" "A"))
(DEFUN C:ZC () (COMMAND "ZOOM" "C"))
(DEFUN C:ZD () (COMMAND "ZOOM" "D"))
(DEFUN C:ZL () (COMMAND "ZOOM" "L"))
(DEFUN C:ZP () (COMMAND "ZOOM" "P"))
(DEFUN C:ZW () (COMMAND "ZOOM" "W"))
;;;*-----------------------------------------------------------------

目的是活动活动左手以提高效率。
举例：
lee→line;end;end
lep→line;end;per
15→光标改为15度
0→设到0层
……

lt_zzy

你的想法也许不错，可你将简单的事情搞复杂了。
acad.lsp文件里面一般放得是要自动加载的LSP文件，而不是简化命令；
而acad.pgp文件里面放得是简化命令。

xyp1964

acad.pgp是否太简单了？偶已经不再用acad.pgp了。如何实现如ZE即(DEFUN C:ZE () (COMMAND "ZOOM" "E"))的功能？lee等于“line;end;end”怎么实现？

blueice_qd

一直想知道怎么实现“ZE”功能，现在才知道。谢谢楼主啊。

e-rabbit

pgp和lsp各有妙用，是否可以编一条多重拷贝的简写？如：CC

whcdy

我不同意二楼的说法，PGP的功能还是有它的局限性的。坚决支持一楼楼主的做法，非常好！

ll_j

最初由 xyp1964 发布
[B];;;;;;;;;;;;;;;;;AutoCAD 简化命令 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;光标角度
(defun c:00 () (setvar "snapang" (* 0 (/ pi 180))) (prin1))
(defun c:15 () (setvar "snapang" (* 15 (/ pi 180))) (pr... [/B]

定义这么多的简化命令需要很好的记忆力，否则可能适得其反，欲速则不达。

Acad.lsp和Acad.pgp各有妙处不同，Acad.pgp是系统附带的，主要简化一步的命令及外部程序，在任一台机器上都行得通，而acad.lsp可以扩展多步命令（其实不仅是多步命令，同样也可以自己编程增加命令），但毕竟是附加的，不能总随身带着，并且Acad.lsp的函数运行时需要对表“解释”，相对占用资源要大些，速度也慢些。
个人认为，对于单步的命令还是使用Acad.pgp简化，对于常用的、单步不能完成的使用acad.lsp，相互补充，并且[B]宜精不宜多[/B]。
下面是我的acad.lsp，同时在R14及R2002中使用，中间有部分命令不能跨越平台，标注部分沿用R12命令，部分与默认的简化命令冲突。
[php](defun S::STARTUP()
  (setvar "cmdecho" 0)
  (defun *ERROR*(msg)
    (if msg
      (progn
        (princ "error:")
        (princ msg)
        (setvar "highlight" 1)
        (setvar "cmdecho" 0)
        (terpri)
      )
    )
  )
  (command "undefine" "end")
  (command "undefine" "copy")
  (setvar "modemacro" "??")
  (gc)
  (princ)
)

(defun c:copy()(command "._copy" (ssget) "" "m")(princ))

(defun C:ZD()(command "zoom""d"))
(defun C:ZE()(command "zoom""e"))
(defun C:ZZ()(command "zoom""p"))
(defun C:ZV()(command "zoom""v"))
(defun c:ae()(command "area" "e"))
(defun C:PU()(command "purge" "all"))
(defun C:MU()(command "multiple"))
(defun C:TEF()(command "dtext" "j" "f"))
(defun C:DH()(command "dim1""horiz"))
(defun C:Da()(command "dim1""ang"))
(defun C:-dl()(command "dimlinear"))
(defun C:DV()(command "dim1""vertical"))
(defun C:DI()(command "dim1""ali"))
(defun C:DR()(command "dim1""RAD"))
(defun C:DG()(command "dim1""dia"))
(defun C:DU()(command "dim1""upd"))
(defun C:DTR()(command "dim1""trotate"))
(defun c:do()(command "dim1" "oblique"))
(defun C:DT()(command "dim1""tedit"))
(defun c:dc()(command "dim1" "con"))
(defun C:DT1()(command "dim1""tedit" pause "@0,0"))
(defun C:ST()(command "stretch""c"))
(defun C:S()(command "stretch""c"))
(defun c:nt()(command "dim1" "newtext"))
(defun C:LM()(command "ddlmodes"))
(defun C:RM()(command "ddrmodes"))
(defun c:sp()(command "stretch" "cp"))
(defun c:pp()
  (if (= (getvar "pickstyle") 0)
    (setvar "pickstyle" 1)
    (setvar "pickstyle" 0)
  )
)
(defun c:le()(command "lengthen" "delta"))
(defun c:ly()(command "lengthen" "dynamic"))

(defun c:cr()(load "ddchprop")(c:ddchprop)(princ))

;;;加载Lisp程序
(defun c:cht()(load "chtext")(c:cht))
(defun C:PEW() (load "pew") (c:pew))
(defun C:TP() (load "tp") (c:tp))
(defun C:ca() (load "ca") (c:ca))
(defun C:dtw() (load "ca") (c:dtw))
(defun C:cat() (load "ca") (c:cat))
(defun c:cas() (load "ca")(c:cas))
(defun C:ce() (load "ce") (c:ce))
(defun C:ett() (load "ett") (c:ett))
(defun C:sz() (load "sz") (c:sz))
(defun c:cb() (load "cb") (c:cb))
(defun c:cdn() (load "cdn") (c:cdn))
(defun c:calc() (load "calc") (c:calc))
(defun c:zc() (load "zc") (c:zc))

;;;自定义简单功能
(defun c:md(/ pt1 pt2)    ;求两点中心
  (princ "\n求两点中心。")
  (setq pt1 (getpoint "\n第一点：")
        pt2 (getpoint pt1 "\n第二点：")
  )
  (list (/ (+ (car pt1) (car pt2)) 2)
        (/ (+ (cadr pt1) (cadr pt2)) 2)
        (/ (+ (caddr pt1) (caddr pt2)) 2)
  )
)

(defun C:BRF(/ e1 pt)     ;打断于点
  (setq e1 (entsel "\nSelect object: ")
        pt (getpoint "\nPick a point: ")
  )
  (command "break" e1 "f" pt pt)
)

(defun C:DS(/ :pt1 :pt2)     ;箭头
  (setq :pt1 (getpoint "\n箭头标记顶点: ")
        :pt2 (getpoint :pt1 "\n箭尾方向: ")
  )
  (if (= (getvar "acadver") "14.0")
    (progn
     (command "dim1" "l" :pt1 :pt2 "u")
     (command)
    )
    (progn
     (setq :ent(entlast))
     (command "dim1" "l" :pt1 :pt2)
     (command)
     (if (not (equal :ent (entlast)))
       (entdel (entlast))
     )
    )
  )
  (princ)
)

(defun c:pc(/ kword)        ;加载pscope
  (if (not (type periscope))
    (if (= (atoi (getvar "acadver")) 14)
      (arxload "pscope14")
      (arxload "pscope15")
    )
    (progn
      (initget "Yes No")
      (setq kword (getkword "\nPscope already loaded! Unload it now: No / <Yes>: "))
      (if (or (= kword "Yes") (= kword nil))
        (if (= (atoi (getvar "acadver")) 14)
          (arxunload "pscope14")
          (arxunload "pscope15")
        )
      )
    )
  )
  (princ)
)

(defun c:wf(/ kword)    ;加载bwmfout
  (if (not (type bwmfout))
    (progn
      (if (= (atoi (getvar "acadver")) 14)
        (arxload "bwmf14")
        (arxload "bwmf200x")
      )
      (command "bwmfout")
    )
    (progn
      (initget "Run Unload")
      (setq kword (getkword "\nBwmfout already loaded! \nUnload / <Run>: "))
      (if (= kword "Unload")
        (if(= (atoi (getvar "acadver")) 14)
          (arxunload "bwmf14")
          (arxunload "bwmf200x")
        )
        (command "bwmfout"))
    )
  )
  (princ)
)

(defun C:AS(/ f[)     ;手动加载Lisp程序
  (if (/= (setq f[(getfiled "Load Autolisp file""c:/program files/autocad 2002/lsp/""lsp" 10)) nil)
      (load f[)
  )
  (princ)
)

(defun c:hh()(help "acad_vlr.hlp")(princ))     ;R2000帮助
(defun c:h14()(help "C:\\Program Files\\AutoCAD R14\\HELP\\acad.hlp")(princ))       ;R14帮助

(defun c:sr()(acet-fscreen-toggle))    ;R2002满屏

(defun c:ent()(entget(car(entsel)) '("*")))    ;实体组码
(defun c:tbx()(textbox (entget (car(entsel)))))    ;文本包围盒
(princ)
[/php]

whcdy

最初由 e-rabbit 发布
[B]pgp和lsp各有妙用，是否可以编一条多重拷贝的简写？如：CC [/B]

给你一个CC：多重复制。
(DEFUN C:CC(/ ent) (setq ent (ssget)) (COMMAND "COPY" ent "" "m")(princ))
把这行加进去吧！

梦断江南

哈,一句话:同意7楼
2005中,copy默认已经是多重复制的方式了.

xyp1964

同意ll_j“定义这么多的简化命令需要很好的记忆力，否则可能适得其反，欲速则不达。”的见解，不过所有定义只是个人习惯问题，有时定义了也不一定常用，常用的几乎不用死记硬背，所谓熟能生巧，有时一个命令（甚至是pgp中）想不起来，把acad.lsp当做帮助文件也无妨。
增加两个非常用命令：
(defun c:qp()(command"_cleanscreenON"));全屏显示
(defun c:qp0()(command"_cleanscreenOFF"));取消全屏显示

常用命令左手敲！非常用命令还是右手点取吧，别让脑子累着！呵呵……
偶的屏幕示例：

urljit

看来我倒是同意楼上的意见：常用命令左手敲！非常用命令还是右手点取吧，别让脑子累着！