“曲线1”

213.45,124.56

128.44,235.66

345.66,231.78

“曲线2”

433.34,567.23

434.12,464.12

利用AutoCAD中“工具”菜单下的“VisulLisp编辑器”建立DRLINE.LSP文件如下

(defunC:drline()

 (if fn

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

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

 )

 (setq f (open fn "r"))

 (setq p0 (getpoint "n画线起点:"))

 (setq bz 0 mm 1)

 (command "pline")

 (while (/= bz 1)

   (setq md (read-line f))

   (if (/= md nil)

     (setq zbb (read md))

     (setq bz 1)

   )

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

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

               (+ dy (cadr p0)))

)

   (command p1)

   (setq mm (1+ mm))

 )

 (command "")

 (close f)

) 

文件存盘后，加载运行，相当于新增加了坐标画线命令DRLINE，按提示选中存放坐标表的文件即可实现自动绘制曲线。

2 .2 地形切剖面

水电工程设计中经常遇到在地形图上切剖面的问题，借助VisualLisp可以实现快速切剖面。

（1）      初始地形图处理

把带z坐标的地形平面图进行变换，变换后z坐标值成为层名，为加快切剖面运行速度，把“LWPOLYLINE”和”SPLINE”均转化为”LINE“线，程序如下

(defunc:pltol()

；LWPOLYLINE转化为LINE

  (setqn 0)

(setqe (ssget"X" (list (cons 0 "LWPOLYLINE"))))

  (setqsh (sslength e))

  (if e

   (while (< n sh)

     (setq e1 (ssname e n))

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

     (setq x (entget e1))

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

     (command "explode" e1)

     (setq n (+ n 1))

 ) ) )

(defun fld(num lst)

     (cdr (assoc num lst))

   )

(defunc:spltol ()

；SPLINE转化为LINE

  (setqn 0)

  (setqe (ssget "X" (list (cons 0 "SPLINE"))))

  (setqsh (sslength e))

  (if e

   (while (< n sh)

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

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

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

       (progn

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

"6"nla "s" nla "")

        (command"line")

        (setq    nm   (length x)

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

        (while (> nm 5)

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

            (progn

              (setq b1 (nth nm x))

              (setqx1 (cadr b1))

              (setqy1 (caddr b1))

              (setqz1 (cadddr b1))

              (setqglb (list x1 y1))

              (commandglb)

          ) )

          (setq nm (- nm 1))

       )))

     (command "")

     (setq n (+ n 1))

)))

（2）切剖面

输入剖面编号，在平面地形图上指定两点确定剖面剖切线位置，指定剖面图起点，利用AutoCAD的inters函数搜索剖切线与地形图的全部交点，自动计算交点坐标，计算交点与剖面位置起点的距离，按各交点高程和与起点的距离形成剖面图各点坐标，即可用本文实例1坐标画线生成地形图的剖面。

(defundxtent1 ()

  (setqn 0 xdzb nil)

  (setqxds 0)

  (setqsh (sslength e1))

 (while (< n sh)

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

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

   (progn

       (setqdxtgcgc (fld 8 x))

       (setqdxtgcgc (atoi dxtgcgc))

       (if(> dxtgcgc 10)

        (progn

          (setq pst (fld 10 x))

          (setq pet (fld 11 x))

          (setq zb (list gc

           (list (car pst) (cadr pst))

           (list (car pet) (cadr pet))

          ))

          (setq xdzb (cons zb xdzb))

          (setq xds (+ xds 1))

   ))))

   (setq n (+ n 1))

))

(defunc:dxtsec      ()

  (setqpmh (+ pmh 1))

  (setqpmh (getstring "n 剖面号"))

  (setqpt1 (getpoint "n 剖切位置起点:"))

  (setqpt2 (getpoint pt1 "n 剖切位置终点:"))

  (setqpt3 (getpoint "n 剖面图布置:"))

  (setqp01 pt3)

  (setqe1 (ssget "F" (list pt1 pt2)))；利用AutoCAD的目标选择“F”方式选取与剖切线相交的地形线。

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

  (setqmxgc -100)

  (setqmngc 10000)

  (setqm 0 pmp nil)

  (setqn xds i 0)

 (while (< i n)

   (setq crosp

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

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

   (if (/= crosp nil)

   (progn

       (setqdxtgcgc (nth 0 (nth i xdzb)))

       (setqmxgc (max mxgc dxtgcgc))

       (setqmngc (min mngc dxtgcgc))

       (setqdst (distance pt1 crosp))；剖切线起点与交点的距离

       (setqdst (* (/ blcz dxthtbl) dst))

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

       (setqm (+ m 1))

   ))

   (setq i (+ i 1))

 ))

 2.3 沿曲线标注

在设计中会遇到沿给定曲线进行标注问题，如平面布置图中的开挖线符号沿开挖轮廓的标注，剖面图中岩石符号沿轮廓线标注、点筋标注、沿任意曲线进行汉字标注等。此类问题主要应用AutoCAD的Measure或divide命令来解决。两个命令的主要差别是前者按指定的长度在曲线上标注，后者按给定的分段数等分曲线并在等分点处进行标注。要标注的轮廓曲线最好用pline线，要标注的符号预先做成图块，图块采用单位块，执行measure或divide命令，选取要标注的曲线，指定标注符号，分段长度或分段数即可完成标注，当发现标注的符号太密或太疏时，可以执行erase命令选择P进行删除，比例不合适或符号方向不正确，可以利用特性编辑器，选中所有标注符号，对标注符号的比例和旋转角度进行调整，直到满意为止。对于更高级的应用，可以编制LSP程序，实现符号和文字沿任意曲线标注。

2.4 表格生成

AutoCAD本身没有表格处理功能，设计图纸中工程量表、钢筋表等涉及到表格生成的问题可以采用以下方法处理：

（1）直接把Word或Excel文件中的表格直接粘贴到CAD图形中，修改时只要双击图中的表格即可进入Word或Excel中进行编辑修改，修改完成后退出即可返回到AutoCAD中继续进行设计，该法优点是方便，快捷，易于掌握，可以充分利用Excel的强大计算功能。缺点是表格在AutoCAD中并不是一个普通图元，无法利用CAD功能对表格的字高、颜色和线宽进行编辑。

（2）编制LSP程序，依次输入表格标题、表格行数、表格列数、表格行高和列宽以及表格插入点等参数，可以自动生成表格，表格中已经按仿Excel形式填入了文字，可以用字处理软件对表格中文字进行编辑修改。

(defunC:mtab()

 (setqtb1 nil tb2 nil tb3 nil)

 (setqrows (getint "表格行数"))

 (setqcols (getint "表格列数"))

 (setqrowh (getreal "行高"))

 (setqcolw (getreal "列宽"))

 (setqp1 (getpoint "n表格左上角点位置:"))

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

 (setqp2 (list (+ (car p1) (* cols colw)) (cadr p1)))

 (setqp4 (list (car p2) (- (cadr p2) (* rows rowh))))

 (setqp3 (list (car p1) (- (cadr p2) (* rows rowh))))

 "C" )

 (setqn 1)

 (while(< n rows)；绘水平线表格

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

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

  (setq n (+ n 1))

 )

 (setqn 1)

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

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

  "")

  (setq n (+ n 1))

 )

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

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

(setq n 0)

 (while(< n rows)

   (setq m 0)

   (while (< m cols)

     (cond

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

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

     )

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

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

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

     (setq m (+ m 1))

   )

   (setqn (+ n 1))

 ))

（3）生成钢筋表

钢筋表和材料表生成是施工图设计中比较繁琐的一项工作，很容易出错，此处介绍利用程序进行钢筋表和材料表自动生成的方法。利用造字程序增加I、II级钢筋的直径标注符号和，以后在其它电脑上只要把EUDC.TTE和E

见下表，增加3个命令：生成钢筋表、钢筋表添加和自动生成材料表。

生成钢筋表时按指定表格位置生成钢筋表表头，根据提示输入钢筋编号（可以不连续）、钢筋等级和直径如20、16，交互绘制钢筋简图和标注长度（标注长度可以输入多种形式如50~200表示长度等差变化；30,40,50表示一个编号多个钢筋长度，），钢筋根数，构件组数，程序自动完成表格其余各项（总长度、重量，对于I级钢筋长度中自动计入弯钩长度）的填写，备注栏中自动填入等差变化钢筋的等差值。

采集钢筋表中直径、等级和总长信息，经过自动分类汇总，生成钢筋表的材料表。

2.6 高程小数位数处理

尺寸标注小数位数很容易调整，但诸如高程、表格中数字要调整则很困难，借助LSP程序的调整很方便，只要选取需要调整的数字，根据提示输入需要保留的小数位数，则程序自动对所有选种数字进行修改。

(defunentsgc()

 (setqn 0)

(setqsh (sslength e1))

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

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

 (progn

  (setq agc (fld 1 x))

  (setq c (substr agc 1 1))

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

  (progn

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

    (setq bgc (substr agc 2))

    (setq bgc agc)

  )

   (setq cgc (atof bgc))

   (setq zh (rtos cgc 2 gcws))

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

(setqzh (strcat c zh)))

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

   (entmod x)

   )

  ))

  ))

(setq n (+ n1)))

)

(defunc:yxws()

  (setqe1 (ssget))

 (setvar "dimzin" 0)

  (setqgcws (getint "保留小数位数:"))

  (ife1 (entsgc) (print "n not found"))

  (setqx nil)

)

2.7 应用软件前、后处理

由于软件升级滞后，一些常用软件后处理功能很弱或没有，可以利用LSP程序结合AutoCAD增加或简化前后处理功能。下面结合平面渗流分析程序STSE软件对其前、后处理功能的实现进行介绍：

（1）前处理

STSE为平面渗流有限元程序，单元划分和单元、节点编号工作量最大，可以借助其它通用有限元软件的前处理功能如Ansis、Algor、SAP84等进行初步处理，生成单元、节点编号和节点坐标，而后按照STSE数据文件的格式要求对数据文件进行编辑。

（2）后处理

后处理成果主要为：单元网格图，浸润线和等势线。单元网格图中有节点和单元编号，不同渗透系数的单元采用不同的颜色，以便根据网格图直观地判断数据文件中几何参数和材料特性的正误；

首先分析STSE的输出结果文件的格式，搜索并筛选其中主要参数如单元总数、节点总数和材料总数，把节点坐标和单元信息分别存储，通过对单元循环生成单元网格图。

(defunc:seepmesh()

  (iffn

  (setqfn (getfiled "渗流结果文件名"fn "" 2))

  (setqfn (getfiled "渗流结果文件名""" "" 2)))

  (setqf (open fn "r"))

  (setqmd (read-line f))

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

   (setq md (read-line f))

  )；定位单元总数

  (setqdyzs (atoi (substr md 58 5)))；读单元总数

  (setqmd (read-line f))

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

  (setqmd (read-line f))

  (setqclh (atoi (substr md 58 5)))；读材料总数

  (setqm 0)

 (repeat clh

   (setq m (+ 1 m))

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

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

  )；按材料种类生成图层名称

 (setqm 0 n 0)

 (repeatdyzs；对单元循环，dycfb中存放单元信息

  (setqm (+ m 1))

  (setqclh (nth 0 (nth m dycfb)))

  (setqjdh1 (nth 1 (nth m dycfb)))

  (setqjdh2 (nth 2 (nth m dycfb)))

  (setqjdh3 (nth 3 (nth m dycfb)))

  (setqjdh4 (nth 4 (nth m dycfb)))

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

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

   (nth jdh1 jdzbb)

   (nth jdh2 jdzbb)

   (nth jdh3 jdzbb)

  (nthjdh4 jdzbb) "c")

  (setqbzdzb (mapcar '+ (nth jdh1 jdzbb)  (nth jdh2 jdzbb)

  (nthjdh3 jdzbb) (nth jdh4 jdzbb)))

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

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

；标注单元号

  (setqm 0)

 (repeatjdzs                                                  

   (setq m (+ m1))                                            

   (setq bzdzb (nth m jdzbb))                                   

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

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

  ))；标注节点号

 (closef)

)