AutoCAD12.0在道路、桥梁绘图中使用技巧

河南交通-交通科技-公路工程AutoCAD12.0在道路、桥梁绘图中使用技巧郝行舟 陈大华 王 强(南阳交通规划勘测设计院) (山东省泰安市公路局) 提要 本文主要介绍CAD使用技巧，运用这些技巧将有助于提高AutoCAD的 应用水平和绘图效率，有助于推动AutoCAD技术的普及。关键词 道路桥梁 CAD 应用 技巧Skill in Highway and Bridge with AUTOCAD12.0Hao Xingzhou(Nan Yang Communications Planning，Survey and Design Institute)Abstract This paper introduce the using skill of CAD.Wi th the skill it will to improve application level and plotting efficiency.It will be in help to prevalence of AUTOCAD.Key words Highway Bridge CAD Using SkillAutoCAD作为一种通用绘图软件，在我国有着广泛的应用，在建筑、机械制造等领域应用的深度和广度公路行业远不能与之相比，CAD技术发展的步伐从1986年的2.6版本到1998年的14.0版本已越来越成熟，14.0版本强大绘图功能几乎达到了“无所不能”的地步。我省各地市设计院应用CAD也是近几年的事，CAD应用的大多是12.0版本，熟练掌握和灵活应用CAD将逐渐成为工程设计人员具备的基本素质，但12.0版本在应用于道路、桥梁绘图中有很多不方便之处，下面提供的几则使用技巧是笔者在实际应用中总结出的确实有效的心得，运用这些技巧将有助于提高AutoCAD的应用水平和绘图效率。1 线宽的统一修改PEDITX.LSP程序的应用在绘制一幅图中对所绘的主结构应用粗线，如构造图中钢筋，在没有出图前大多不愿意用带有线宽的命令pline去绘制，因编辑调整很不方便，但CAD12提供的pedit命令只能对多义线进行宽度调整，用line画的线还需转换成多义线再调整线宽度，pedit命令的局限性是：每次命令仅能对单一的线进行调整宽度，对圆线调整宽度就无能为力了，能否一次对pline、line、arc绘制的线、弧或circle画的圆全部调整其宽度，是我们所期望的。peditx.lsp是针对这些问题而编制的LSP程序，能够一次解决以上所提到的问题，图1是没有调整前的图形；图2是调整线宽后的图形。 PEDITX.LSP的具体应用步骤：1.1 程序的安装及使用现 将 名 为 peditx.lsp 拷 贝 到 ACAD12 目 录 或 ACAD12默认的子目录下(如：C：a cadwinsupport或C：acadwin等)，用户可以将其加挂到AutoCAD系统菜单下，通过菜单 调用，也可以用命令方式调用。(1)将程序调用加到菜单上。先找到菜单源文件acad.mnu，并编辑它。在*POPI最后加入下面内容：线宽修改：CCP(load“peditx”)；pex；P用鼠标点取启动的系统菜单中所对应的项即可调用。(2)命令方式调用。a) 加载pedit.lsp，将原程序考入ACAD12目录或ACAD12默认的子目录下，在ACAD12命 令行输入command：(loadpeditx)回车屏幕提示：command:C:pexb)command:pex (回车)c)scale1：比例默认为1回车d)width0.45：输入线宽，宽度数值e)layerselect：选择物体的方式：输入L时为层 选择模式，屏幕提示pick a object on layer：拾取需要改变线宽的层上任意一点， 整个层的线宽全部改变成需要的宽度。默认的是：select objects：用鼠标选取物体，不过 选取物体支持全部的选择方法如W、C等很方便选择完后回车完成该命令的执行。在未关闭ACAD前需要再次使用时无需再加载peditx.lsp，直接执行PEX即可。1.2 附peditx.lsp原程序；turn line，circle，arc，donut to pline with width(defun * error*(st)(if(and(st Function cancelled)(st quitexit abort) (princ(strcat Error: st)(setq *error* old_err)(princ)(defun in()(if(s nil) (setq s l)(setq scale(getreal(strcat nScale(rtos s 2 0):)(if(scale nil) (setq scale s)(setq s scale)(if(w nil) (setq w 0.45)(setq width (getreal (strcat n Width(rtos w 2 2) :)(if(width nil) (setq width w)(setq w width)(defun pross()(setq len(sslength ss)(setq n l)(while (n len)(setq enl (ssname ss (1-n)(setq b (entget enl)(setq a (cdr (assoc O b)(cond (or (LINE a) ( ARC a)(progn(command pedit enl Y w width x)(POLYLINE a)(command pedit enl w width x)(CIRCLE a)(progn(setq pt (cdr (assoc 10 b)(setq rad (cdr (assoc 40 b)(setq rl (-(* rad 2) width)(setq r2 (* rad 2) width)(command donut rl r2 pt )(entdl enl) (T T)(setq n (1n)(defun C:pex (old_err scale ss enl a len n bcmd_old width rad pt rl r2 k en la)(setq old_err * error*)(setq cmd_old (getvar cmdecho)(setvar cmdecho O)(in)(initget L S)(setq k (getkword nLayer:)(if (k L)(progn(setq en (car (entsel nPick a object on layer:)(if (en nil)(progn(setq la (assoc 8 (entget en)(setq ss (ssget X (list la)(pross)(if(or(k S)(k nil)(progn(setq ss (ssadd)(setq ss (ssget) (if(ss nil) (pross)(setvar cmdecho cmd_old)(princ)2 在AutoCAD环境下实现制表功能使用AutoCAD绘制道路、桥梁图时，时常需要在工程图中加一些工程数量表格，而AutoCAD12 环境下没有专门的制表工具，使制表的过程烦锁，而表格也不规整美观，为此根据制表习惯 和一些特性编制了在AutoCAD环境中使用的制表LSP程序，供大家参考使用。2.1 程序的安装及使用现 将 名 为 bg.lsp 拷 贝 到 ACAD12 目 录 或 ACAD12默认的子目录下，(如：C：a cadwinSupport或C：acadwin等)。用户可以将其加挂到AutoCAD系统菜单下，通过菜单 调用，也可以用命令方式调用。(1)将程序调用加到菜单上。先找到菜单源文件acad.mnu并编辑它，在* POP1最后加入下面内容：zhibiao：CCP(load “bg”)；bg；P用鼠标点取启动的系统菜单中所对应的项即可调用。(2)命令方式调用。在 AutoCAD 的 command： 状态下， 输 入 (Load bg)即将程序加载，然后，用bg，即 可调用，绘制表格程序。再依中文提示继续。command：bg 回车 以下数值为例题图 单位mm 表格总行数：8表格总列数：6表格第一行距：12表格其它行距：7表格第1列距：10表格第2列距：15表格第3列距：20表格第4列距：20表格第5列距：20表格第6列距：25表格左上角点：用鼠标在屏墓上点取放表格的位置确认表格边框是否加粗：不加粗：NO加粗： YES：选择Y时提示表格边框线宽0.6：1回车表格即自动生成如图3，少加修改如图42.2 附 BG.LSP 原程序(defun C:bg(rows colu rows1 rows2 1y 1x i ii propt colul co coodx dy dxx dyy str with ptp1 ptp2 ptp3 ptp4 os)(setvar CMDECHO O)(setq lay (getvar clayer)(setq os (getvar OSMODE)(setvar OSMODE O)(command color bylayer)(command layer m bg c y bg )(initget 7)(setq rows (getint n表格总行数: )(initget 7)(setq colu (getint n表格总列数: )(initget 7)(setq rows1 (getreal n表格第一行行距: )(initget 7)(setq rows2 (getreal n表格其它行行距: )(setq ly (rows1 (* rows2 (1-rows)(setq lx 0)(setq i 1)(repeat colu)(initget 7)(setq ii (itoa i)(setq propt (strcat 表格第ii列列距: )(setq colul 9getreal propt)(setq lx (lx colul)if(1 i) (setq co (list colul)(progn(setq coo (list colul)(setq co (append co coo)(setq i (1i)(setq ptl (getpoint n表格左上角点: )(setq ptpl ptl)(setq dy (cadr ptl)(setq dx (car ptl)(setq dxx (dx lx)(setq pt2 (list dxx dy)(command line pt1 pt2 )(setq dy (- dy rowsl)(setq pt1 (list dx dy)(setq pt2 (list dxx dy)(command line pt1 pt2 )(repeat (1rows)(setq dy (dy rows2)(setq pt1 (list dx dy)(setq pt2 (list dxx dy)(command linept1 pt2 )(setq dyy (dy ly)(setq pt2 (list dx dyy)(command linept1 pt2 )(setq i 0)(repeat colu)(setq c (nth i co)(setq dx (dx c)(setq pt1 (list dx dy)(setq pt2 (list dx dyy)(command line pt1 pt2 )(setq i (1i)(initget Yes No)(setq str (getkword n表格边框是否加粗：不加粗：No )(if(or (str nil) (strcase str) YES)(progn(initget 6)(setq with (getreal n表格边框线宽: )(if ( with nil) (setq with 0.6)(setq dy (cadr ptp1)(setq dx (car ptp1)(setq dxx (dx lx)(setq ptp2 (list dxx dy)(setq dyy (dy ly)(setq ptp3 (list dxx dyy)(setq ptp4 (list dx dyy)(command PLINE ptp1 w with with ptp2 ptp3 ptp4 c)(setvar OSMODE os)(command layer s lay )(princ)(princ)3 在Auto CAD环境下实现统一字体、线型、字高修怍CHTEXT.LSP应用 使用AutoCAD绘制道路、桥梁图时，在完成绘制出图前，为使图面匀称、比例得当、美观需 要对图中字型、字高进行统一的修改，而AutoCAD12环境下没有专门的命令，使用change修 收的范围有限，运用起来较繁琐，能否一次修改到位是我们所期望的。事实上ACAD12.0已经 为我们准备了一个Chtext.lsp程序它在acadwinsupport目录下。程序的安装及使用：用户可以将其加挂到AutoCAD系统菜单下，通过菜单调用，也可以用命令方式调用。1)将程序调用加到菜单上。先找到菜单源文件acad.mnu (在c:acadwinsupport目录下)并编辑它。在*POP1 最后加下面内容：CHTEXT:CCP(loadchtext)；cht；P用鼠标点取启动的系统菜单中所对应的项即可调用。2)命令方式调用。在 AutoCAD 的 command: 状态下， 输 入 (Load chtext)即将程序加载，然后，用cht 即可调用，再依提示继续。屏幕提示：command： cht回车select text to change.select objects：支持用W、C等方式选择需要改变的字体或数字venifying the selected entities-pleaes waitxxx text ebtities found HeightjustificationRotationStyleTtextUndoWidth:高度对齐方式旋转字型文本取消宽度：命令交互过程不在此详列，对齐方式、文本等与CAD中TEST命令相似。4 各种命令提示符下直接进行除“”的运算或使用lisp算术表达式 (1)在命令提示符下直接进行除“”的运算。 例如： 相对一已知点A向另一点B以纵向比 例 175 横向比例 1150 画 线， X方向长1500m， Y方向长1200mm。Command:line回车From point:(移动鼠标，定位、捕捉选取A点)To point:150075，1200150回车以上操作便按要求画出了AB线段。这其中我们进行了1 50075和1 200150的运算，完成了纵向175横向1150的比例换算。这一点实在是太方便了，省去了用计算器换算比例的 麻烦，而比例换算在绘图中又常见，因而大大提高了绘图效率。(2)对于熟悉Autolisp语言的人可直接使用Autodilp算术表达式，这一点在许多参考书上均有介绍，不详述。5 自编ACAD应用程序的自动加载当进入AutoCAD时，系统会自动装入ACAD.LSP文件，并且会自动执行定义于ACAD.LSP文件中的S:STARTUP函数，这样我们在S