(command p1)

(while (< n sh)

(setq m (+ 1 m))

(setq bz 1)

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

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

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

))

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

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

(setq md (read-line f))

(+ dy (cadr p0)))

(setq agc (fld 1 x))

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

(command "")

(setvar "dimzin" 0)

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

(setq tcm (strcat "zclh" (itoa m)))

(setq sh (sslength e))

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

(setq n (+ n 1))

(setq glb (list x1 y1))

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

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

(if (> dxtgcgc 10)

(repeat clh

(progn

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

345.66,231.78

433.34,567.23

)

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

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

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

(setq m (+ m 1))

(setq m 0)

(setq x (subst (cons 1 zh) (assoc 1 x) x))

(setq bgc agc)

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

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

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

(setq b1 (nth nm x))

))

(setq rowh (getreal "行高"))

(while (< n sh)

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

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

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

(setq zh (rtos cgc 2 gcws))

(progn

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

水电工程计划中常常碰着在地形图上切剖面的题目，借助Visual Lisp可以实现快速切剖面。

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

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

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

2 应用实例

(cdr (assoc num lst))

(setq bzdzb (nth m jdzbb))                                  

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

(setq sh (sslength e1))

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

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

(setq md (read-line f))

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

(setq n 1)

(setq xdzb (cons zb xdzb))

(setq xds 0)

(setq crosp

(setq mngc 10000)

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

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

(setq md (read-line f))

(defun c:dxtsec      ()

))

“曲线1”

213.45,124.56

；LWPOLYLINE转化为LINE

(setq n xds i 0)

(setq nm (- nm 1))

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

(setq tb1 nil tb2 nil tb3 nil)

(setq p1 (list (+ dx (car p0))

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

(setq sh (sslength e))

)

(while (< i n)

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

(close f)

) )

(setq sh (sslength e1))

(progn

)

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

(progn

(setq m 0)

(setq mxgc -100)

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

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

(setq n 0 xdzb nil)

(setq m 0 n 0)

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

)))

(setq i (+ i 1))

))

(command"line")

)

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

)

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

(setq n (+ n 1))

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

(setq f (open fn "r"))

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

(progn

(setq n (+ n 1))

(setq n 0)

(setq bz 0 mm 1)

(setq n 0)

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

；SPLINE转化为LINE

(entmod x)

2 .2 地形切剖面

) ) )

(command "pline")

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

(setq dxtgcgc (fld 8 x))

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

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

（2）操作LSP措施

(setq zbb (read md))

（1）前处理赏罚

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

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

(setq zh (strcat c zh)))

(setq pst (fld 10 x))

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

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

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

434.12,464.12

)

(defun fld (num lst)

"6" nla "s" nla "")

(setq md (read-line f))

(setq x (entget e1))

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

(setq pmh (getstring "/n 剖面号" ))

(setq n 0)

(if fn

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

(cond

))

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

(while (< n rows)

(setq cgc (atof bgc))

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

(if (/= md nil)

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

(progn

(setq mngc (min mngc dxtgcgc))

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

)

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

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

(setq x nil)

)

(setq m (+ m 1))

)