[LISP程序]：给大家提供本人自定义的天正3.x的简化命令

zdarc

;天正简化命令:
(defun c:ax1 ()(_@ld"axis")(c:desaxis));直线轴网
(defun c:ax2 ()(_@ld"dimax")(c:dimax));轴网标注
(defun c:aw  ()(c:taxiswall));轴线生墙

(defun c:chw ()(_@ld"wdtool")(c:wcha));换平面窗
(defun c:chd ()(_@ld"wdtool")(c:dcha));换平面门
(defun c:dw  ()(_@ld"dwall")(c:dwall));双线直墙
(defun c:gw  ()(_@ld"dwall")(c:gdwall));双线隔墙

;;顺序插门
(defun c:zd_di ()
  (_@ld "window0")
  (progn (setq _wdins 2) (princ))
  (c:wdin)
)
;;顺序插窗
(defun c:zd_wi ()
  (_@ld "window0")
  (progn (setq _wdins 1) (princ))
  (c:wdin)
)
;;中心插门
(defun c:zd_din        ()
  (_@ld "window0")
  (progn (setq _wdins 2) (princ))
  (c:wdinc)
)
;;中心插窗
(defun c:zd_win        ()
  (_@ld "window0")
  (progn (setq _wdins 1) (princ))
  (c:wdinc)
)

(defun c:wm  ()(_@ld"wltool3")(c:wlmove));墙线移动
(defun c:dm  ()(_@ld"wdtool1")(c:mdw));门窗移动
(defun c:wc  ()(_@ld"wltool")(c:wlcopy1));墙线复制
(defun c:dc  ()(_@ld"window0")(_@ld"wdcopy")(c:wdcopy));门窗复制

(defun c:k1  ()(_@ld"wdtool1")(c:cdwc));门窗变宽
(defun c:k2  ()(_@ld"wdtool1")(c:cdws));单侧变宽
(defun c:we  ()(_@ld"wderase")(c:wderase));门窗删除

(defun c:wt  ()(_@ld"wtrim")(c:wtrim));双线裁剪
(defun c:ww  ()(_@ld"wltool2")(c:wmend));墙线修补

(defun c:wn  ()(_@ld"wdtool")(c:wdname));门窗名称
(defun c:nn  ()(_@ld"wdtool")(c:narevy));名称翻转
(defun c:xy  ()(_@ld"wdtool")(c:wdreva));任意翻转
(defun c:mcb ()(_@ld"wdtable")(c:wdtable));造门窗表

(defun c:fci ()(_@ld"column")(c:fzh));方柱插入

(defun c:ds  ()(_@ld"tstair")(c:tstair));两跑楼梯
(defun c:dt  ()(_@ld"lift")(c:lift));电梯插入

(defun c:y1  ()(_@ld"proof")(c:rpipe));加雨水管
(defun c:y2  ()(_@Ld"Ele1")(c:drain));雨水管
--------------------------------------------------------------------------
(defun c:d3  ()(_@ld"dimlw")(c:dimlwf));沿直线注
(defun c:d4  ()(_@ld"dimtp")(c:dimmp));逐点标注
(defun c:d5  ()(_@ld"dimwd")(c:dimwdt));等距注窗

(defun c:bx  ()(_@ld"dmtool")(c:dmhor));标注平移
(defun c:by  ()(_@ld"dmtool")(c:dmver));标注纵移

(defun c:bd  ()(_@ld"dmtool")(c:dmdiv));标注断开
(defun c:bm  ()(_@ld"dmtool")(c:dmmge));标注合并

(defun c:dme ()(_@ld"dmtool")(c:dmhor1));剪裁延伸
(defun c:dmt ()(_@ld"dmtool")(c:dmcut));裁延伸线
(defun c:du  ()(_@ld"dmtool1")(c:dmaddl));增加边线
--------------------------------------------------------------------------
(defun c:i1  ()(_@ld"otherdim")(c:indexnum1));指向索引
(defun c:i2  ()(_@ld"otherdim")(c:indexnum2));剖切索引
(defun c:i3  ()(_@ld"otherdim")(c:indexdim));索引图名

(defun c:p1  ()(_@ld"otherdim")(c:sectnum1));大剖切号
(defun c:p2  ()(_@ld"tool1")(c:dsect2));加剖断线

(defun c:yi  ()(_@ld"dimyi")(c:dimyi1));引出标注

(defun c:dd  ()(_@ld"words")(c:ddedit1));文字编辑
(defun c:th  ()(_@ld"words")(c:hword1));统一字高

(defun c:ib  ()(_@ld"wdchg")(c:wdtoup));字改上标
(defun c:tb  ()(_@Ld"Words")(c:wdbrk));文字打断
(defun c:hh  ()(_@ld"words")(c:hword));横排汉字
(defun c:gf  ()(_@ld"getfont")(c:getfont));字型参数
(defun c:tq  ()(_@ld"wet")(c:wdalin));文字对齐
--------------------------------------------------------------------------
(defun c:sl  ()(_@ld"t_util")(c:set_lyr));当前图层
(defun c:cl  ()(_@ld"chg_lyr")(c:chg_lyr));图元改层
(defun c:fla ()(_@ld"t_util")(c:off_lyr));隐去图层
(defun c:tf  () (_@ld "axtool") (c:axonf)) ;轴线开关

(defun c:ar  ()(_@ld"otherdim")(c:arrow));箭头绘制
(defun c:zb  ()(_@ld"otherdim")(c:compass));画指北针
(defun c:mm  ()(_@ld"rmarea")(c:rmarea));房间面积

(defun c:edl ()(_@ld"ini_lyr")(_@ld"rduplac")(rduplac(ini_lyr)));消除重线
(defun c:cd  ()(_@ld"dwgcut")(c:dwgcut));图形剪裁

(defun c:pb  ()(_@ld"tool1")(c:ptbreak));交点打断
(defun c:j   ()(_@ld"tool1")(c:join));连接线段

(defun c:lp  ()(_@ld"intftool")(c:c_l2pl));线变复线
(defun c:xi  ()(_@ld"chdash")(c:chdash));虚实变换
(defun c:lf  ()(_@ld"allfill")(c:layfill));层填图案
(defun c:lo  ()(_@ld"lnptlib")(c:lnptlib));线图案库

(defun c:lv  ()(_@ld"lvtry")(c:lvtry));洁具布置
(defun c:kc  ()(_@ld"lvtry1")(c:lvoutlib));厨厕输出

(defun c:z1  ()(_@ld"schbd")(c:autopl));搜索边界
(defun c:z2  ()(_@ld"schbd")(c:autowl));搜索墙线

(defun c:bo  ()(_@ld"bltool")(c:blkout));图块输出
(defun c:kj  ()(_@ld"paper")(c:tlmd01));空间转换
(defun c:tk  ()(_@Ld"Paper")(c:nfwindow));开关窗口

(defun c:bg  ()(_@ld"eledim")(menucmd "s=cla_")(menucmd "s=elev_")
(setq _ele_updw nil _ele_lfrt nil _ele_line nil _ele_out nil)(c:eledim)); 注标高

(defun c:bg1 ()(_@ld"eledim")(menucmd "s=cla_")(menucmd "s=elev_")
(setq _ele_updw nil _ele_lfrt nil _ele_line t _ele_out nil)(c:eledim)) ;注标高
(defun c:bg2 ()(_@ld"dimsec")(c:dimsec4));全注标高

雷鸟

怎么用？如何把这些语句搞成lisp?

XDSoft

最初由 雷鸟 发布
[B]怎么用？如何把这些语句搞成lisp? [/B]

把上面内容拷贝到ACAD.LSP文件里面或者建立个新的扩展名是LSP的文件，用的时候加载就可以了（不要跟我说不会加载吧：） ）

C:后面的都是命令名

雷鸟

嘿嘿，我真没加载过。不过我想这个应该不难:3

zdarc

很简单的，试一试吧，论坛里的lsp程序都可以这样使用。

caibaobao

能不能把它加入到acad.pgp中？

zdarc

不能！把上面的文件存成LSP格式的文本文件，使用时appload命令加载即可。

funsom

加载后是不是可以支持命令简写，命令是不是c:后面的那两个字母？

空心菜

谢谢,有机会我也搞一些类似的东东给大家分享!

小小

为什么我另存后的list就变成文本了:4

prospector

:8
我不知道你那些命令是不是很直接！
能不能解释一下我看的不是很懂！！
谢谢！

小小

多谢 prospector 兄
lisp 的问题已经解决了，刚刚加载上，只是还没有运用，不知怎么样，我想应该是不错的，
我是第一次来这里，很高兴能看到这么多天正高手，希望以后能看到更多的有关天正的简化命令

小小

为什么这个简化命令加载后，天正的附增程序的菜单命令不好用了，有谁出现过这样的情况:3

青马

就是那个key30的改写，我现在也用快键，不过都是自己设的了

zdarc

c:后的英文字母为简化命令，用户可以自己修改，注意不要和其他命令重复即可。