(while (< n sh)

(command "pedit" e1 "d" "")

(setq xdzb (cons zb xdzb))

))

(setq pmh (+ pmh 1))

(setq bzdzb (mapcar '+ (nth jdh1 jdzbb)  (nth jdh2 jdzbb)

(defun c:spltol ()

(setq n (+ n 1)))

(setq dx (car zbb) dy (cadr zbb))

2 .1 坐标画线

“曲线1”

(if (/= crosp nil)

(setq x nil)

(command "layer" "m" tcm "c" (itoa m) tcm "")

水利水电工程规模操作AutoCAD平台举办二次开拓也取得了一系列成就，如90年月以来延续开拓的水电站地面厂房CAD体系、重力坝CAD体系、隧洞CAD体系、水机油汽水CAD体系、地质柱状图CAD等均取得了较好的应用结果。但水电工程计划的伟大性抉择了任何现成的CAD软件都有其范围性，计划进程中很多题目还只能用原始的要领办理。本文通过几个实例对AutoCAD二次开拓常用的Lisp说话在水电工程计划中的应用举办了起源切磋，但愿可以或许起到抛砖引玉的浸染。

(if e

(progn

(command "text" "m" (list (+ (car p1) (* 0.5 cols colw))

(command "pline" (list (car p1) (- (cadr p1) (* n rowh)))  "w" "0" "0"

(if (/= md nil)

(setq e (ssget"X" (list (cons 0 "LWPOLYLINE"))))

(setq tb1 nil tb2 nil tb3 nil)

(setq m (+ m 1))                                            

)

(dxtent)；获取与剖切线相交地形线的坐标

文件生涯后，执行AutoCAD中“器材”下的“运行剧本”，在表现的窗口中查找并选中EX1.SCR，屏幕上会当即表现所绘线条。

)；定位单位总数

128.44,235.66

(setq m 0 n 0)

(setq c (substr agc 1 1))

(if (or (= c "+") (= c "-"))

(setq dyzs (atoi (substr md 58 5)))；读单位总数

操作已知坐标点画线是计划事变中常常碰着的题目，如河流、堤防等实测断面、水位流量相关曲线、堰面曲线等数据的处理赏罚，均可归结为坐标画线题目。对付堰面曲线等有函数方程的曲线可以操作EXCEL凭证祈望的步长自动天生一系列坐标点。对付丈量常用的出发点距-高程情势的数据，也可以操作EXCEL转化成坐标点情势。

)

(setq md (read-line f))

(setq fn (getfiled "坐标点文件名" fn "" 2))

(setq sh (sslength e))

(setq md (read-line f))

(setq dxtgcgc (atoi dxtgcgc))

(close f)

(progn

))

(while (> nm 5)

(while (< n sh) (setq x (entget (ssname e1 n)))

(entmod x)

(setvar "dimzin" 0)

345.66,238.65

(setq mxgc -100)

(setq x1 (cadr b1))

(setq md (read-line f))

)

(setq pt2 (getpoint pt1 "/n 剖切位置终点:"))

(setq bz 0 mm 1)

(command "")

(setq jdzs (atoi (substr md 58 5)))；读节点总数

后处理赏罚成就首要为：单位网格图，浸润线和等势线。单位网格图中有节点和单位编号，差异渗出系数的单位回收差异的颜色，以便按照网格图直观地判定数据文件中几许参数和原料特征的正误；

2 .2 地形切剖面

(setq m 0)

(setq fn (getfiled "坐标点文件名" "" "" 2))

(command "pline")

(nth jdh2 jdzbb)

(setq p0 (getpoint "/n画线出发点:"))

))))

(inters pt1 pt2 (nth 1 (nth i xdzb)) (nth 2 (nth i xdzb)) 1)

(setq bzdzb (list (+ (car bzdzb) 0.0) (+ (cadr bzdzb) 0.0)))

(setq cgc (atof bgc))

(setq bzdzb (nth m jdzbb))                                  

(setq m (+ 1 m))

(setq n (+ n 1))

限于篇幅，等势线和浸润线天生措施不再赘述。同样，对工程计划中碰着的其余软件如：STAB边坡不变说明、SAP84的输出文件均可举办相同后处理赏罚事变。

)

；SPLINE转化为LINE

(setq fn (getfiled "渗流功效文件名" fn "" 2))

(setq zbb (read md))

(setq mm (1+ mm))

(setq xds 0)

VisualLisp说话是AutoCADR14版本往后提供的全新的开拓情形，是嵌于AutoCAD内部，将Lisp说话与AutoCAD相团结的产品，是一种智能型说话。操作AutoLisp可以机动利便地增进AutoCAD新呼吁，险些无穷地扩显现AutoCAD新成果，

(setq zh (rtos cgc 2 gcws))

(setq f (open fn "r"))

(setq e1 (ssget))

))；标注节点号

) )

(while (< n rows)；绘程度线表格

(while (< n sh)

；标注单位号

(setq n 1)

(defun fld (num lst)

(setq pmp (cons (list m dst dxtgcgc) pmp))

(nth jdh3 jdzbb) (nth jdh4 jdzbb)))

(setq n 0 xdzb nil)

(setq gcws (getint "保存小数位数:"))

(nth jdh1 jdzbb)

(setq bgc agc)

(setq rows (getint "表格行数"))

(command"line")

(repeat clh

(setq cols (getint "表格列数"))

(if fn

(while (< n rows)

(setq bgc (substr agc 2))

(setq md (read-line f))

2 应用实例

（1）       初始地形图处理赏罚

(setq pt1 (getpoint "/n 剖切位置出发点:"))

(setq pst (fld 10 x))

)))

(if (= (fld 0 x) "LINE")

把带z坐标的地形平面图举办调动，调动后z坐标值成为层名，为加速切剖面运行速率，把“LWPOLYLINE”和”SPLINE”均转化为”LINE“线，措施如下

(setq jdh4 (nth 4 (nth m dycfb)))

(setq z1 (cadddr b1))

(setq zh (strcat c zh)))

)

(setq n (+ n 1))

(setq jdh1 (nth 1 (nth m dycfb)))

起首说明STSE的输出功效文件的名目，搜刮并筛选个中首要参数如单位总数、节点总数和原料总数，把节点坐标和单位信息别离存储，通过对单位轮回天生单位网格图。

（1）直接把Word或Excel文件中的表格直接粘贴到CAD图形中，修改时只要双击图中的表格即可进入Word或Excel中举办编辑修改，修改完成退却出即可返回到AutoCAD中继承举办计划，该法利益是利便，快捷，易于把握，可以充实操作Excel的强盛计较成果。弱点是表格在AutoCAD中并不是一个平凡图元，无法操作CAD成果对表格的字高、颜色和线宽举办编辑。

((>= m 26) (setq bzstr (strcat (chr (+ 64 (/ m 26))) (chr (+ 65 (- m (* 26 (/ m 26))))))))

AutoCAD自己没有表格处理赏罚成果，计划图纸中工程量表、钢筋表等涉及到表格天生的题目可以回收以下要领处理赏罚：

)

(setq jdh2 (nth 2 (nth m dycfb)))

))

(if e1 (entsgc) (print "/n not found"))

434.12,464.12

(setq n (+ n 1))

(setq colw (getreal "列宽"))

(nth jdh3 jdzbb)

(setq n 1)

(setq f (open fn "r"))

(setq zb (list gc

(setq fn (getfiled "渗流功效文件名" "" "" 2)))

(setq dst (distance pt1 crosp))；剖切线出发点与交点的间隔

2 .4 表格天生

(defun C:mtab()

))

(setq rowh (getreal "行高"))

(setq xds (+ xds 1))

))

)

(setq bzdzb (list (/ (car bzdzb) 4.0) (/ (cadr bzdzb) 4.0)))

(command "layer" "s" (strcat "zclh" (itoa clh)) "")

(progn

(setq nm (- nm 1))

(setq ngc (atof (setq la (fld 8 x))))

)

(while (/= (substr md 25 8) "单位总数")

(setq p01 pt3)

美国Autodesk公司开拓的AutoCAD体系自1982年推出以来，以其行使利便、成果强盛和体系开放性一向独领风流。成为各工程规模首选的CAD体系。

)

(setq mngc 10000)

(if (= (fld 0 x) "TEXT")

)

（2）后处理赏罚

(setq n 0)

(+ dy (cadr p0)))

(setq p3 (list (car p1) (- (cadr p2) (* rows rowh))))

(while (< n cols) ；绘垂直表格线

(setq m 0)

（2）操作LSP措施

(setq sh (sslength e1))

(setq dst (* (/ blcz dxthtbl) dst))

AutoCAD软件应用已经在计划单元遍及，VisualLisp的呈现对付进步Lisp说话的编程服从和AutoCAD应用程度具有重要意义。本文涉及的几个实例已经在现实事变中施显现很大浸染，充实声名在工程计划傍边团结本专业要求开拓一些简质朴用的Lisp小措施可以有用减轻计划职员的劳动强度，使AutoCAD不只仅是画图器材，而真正成为计划职员驾轻就熟的高效计划平台。

尺寸标注小数位数很轻易调解，但诸如高程、表格中数字要调解则很坚苦，借助LSP措施的调解很利便，只要选取必要调解的数字，按照提醒输入必要保存的小数位数，液压油缸，则措施自动对全部选种数字举办修改。

(defun c:dxtsec      ()

(repeat dyzs；对单位轮回，dycfb中存放单位信息

)))

(setq pet (fld 11 x))

（1）前处理赏罚

(setq mngc (min mngc dxtgcgc))

(setq bz 1)

213.45,124.56

(- (cadr p1) (* 0.5 rowh) (* n rowh)))

(setq dxtgcgc (nth 0 (nth i xdzb)))

操作任何文本编辑器如Note、Uedit、Word、Excel等成立纯文本文件EX1.SCR，留意文本文件后缀必需为.SCR,坐标之间用半角逗号分隔，文件中不应承呈现空格，文件最后一行必需为空回车。文件成立时，可以直接把 EXCEL或其他文件中的坐标表操作拷贝、粘贴成果插手剧本文件中。

(setq m 0 pmp nil)

(setq dxtgcgc (fld 8 x))

(defun c:yxws()

)

)；求剖切线与地形线的交点

(setq x (entget (ssname e1 n)))

(setq n (+ n 1))

345.66,231.78

(cdr (assoc num lst))

(if (> dxtgcgc 10)

(setq p1 (getpoint "/n表格左上角点位置:"))

(command "pline" (list (+ (car p1) (* n colw)) (cadr p1)) "w" "0" "0" (list (+ (car p1) (* n colw)) (cadr p3))

(setq e (ssget "X" (list (cons 0 "SPLINE"))))

(setq clh (atoi (substr md 58 5)))；读原料总数

(nth jdh4 jdzbb) "c")

(setq x (entget (setq e1 (ssname e n))))

(setq glb (list x1 y1))

；LWPOLYLINE转化为LINE

(if (or (= c "+") (= c "-") (and (>= c "0") (<= c "9")))

3 结语

(progn

(getvar"TEXTSIZE") "0" (strcat bzstr (itoa (+ n 1))))

(setq mxgc (max mxgc dxtgcgc))

(setq pt3 (getpoint "/n 剖面图部署:"))

(if (or (= c "+") (= c "-"))

(setq n 0)

(command "text" "m" (list (+ (car p1) (* 0.5 colw) (* m colw))；表格内容标注

因为软件进级滞后，一些常用软件后处理赏罚成果很弱或没有，可以操作LSP措施团结AutoCAD增进或简化前后处理赏罚成果。下面团结平面渗流说明措施STSE软件对其前、后处理赏罚成果的实现举办先容：

(setq agc (fld 1 x))

))

Pline

"")

输入剖面编号，在平面地形图上指定两点确定剖面剖切线位置，指定剖面图出发点，操作AutoCAD的inters函数搜刮剖切线与地形图的所有交点，自动计较交点坐标，计较交点与剖面位置出发点的间隔，按各交点高程和与出发点的间隔形成剖面图各点坐标，即可用本文实例1坐标画线天生地形图的剖面。

(setq    nm   (length x)

(setq i (+ i 1))

)；按原料种类天生图层名称

(setq clh (nth 0 (nth m dycfb)))

(setq e1 (ssname e n))

((< m 26) (setq bzstr (chr (+ 65 m))))

433.34,567.23

(progn

STSE为平面渗流有限元措施，单位分别和单位、节点编号事变量最大，可以借助其余通用有限元软件的前处理赏罚成果如Ansis、Algor、SAP84等举办起源处理赏罚，天生单位、节点编号和节点坐标，尔后凭证STSE数据文件的名目要求对数据文件举办编辑。

(setq m (+ m 1))

(setq jdh3 (nth 3 (nth m dycfb)))

“曲线2”

(command "layer" "n" nla "c"

(command "text" "m" bzdzb "0.5" "0" (itoa m))

(progn

    2 .7 应用软件前、后处理赏罚

213.45,124.56

(while (/= bz 1)

(setq md (read-line f))

(setq n (+ n 1))

(while (< i n)

(setq m (+ m 1))

(list (car pet) (cadr pet))

(command "text" "m" bzdzb "0.5" "0" (itoa m))               

) ) )

(setq p2 (list (+ (car p1) (* cols colw)) (cadr p1)))

(cond

(command "pline" p1 "w" "0.5" "0.5"

dzs  (fld 73 x)      dzs1 (fld 74 x))

(setq m 0)

(setq n xds i 0)

(setq e1 (ssget "F" (list pt1 pt2)))；操作AutoCAD的方针选择“F”方法选取与剖切线相交的地形线。

)

(setq nla (itoa (fix (caddr (fld 10 x)))))

)

(if    (= (car (nth nm x)) 10)

(setq n 0)

(command "explode" e1)

(setq p4 (list (car p2) (- (cadr p2) (* rows rowh))))

(setq n 0)

成立坐标表文件EX2.DAT，后缀恣意，可以依次输入多段曲线，中间用曲线名称分隔，措施自动绘制多条曲线并可标注坐标表。

(while (< n sh)

128.44,235.66

（1）操作剧本文件(.SCR)

(+ (cadr p1) 5))  "3" "0" "TITLE" )

"C" )

(command "pline"；绘制单位网格

(list (car p2) (- (cadr p2) (* rowh n))) "")

(list (car pst) (cadr pst))