基于组件的三维CAD系统开发的关键技术研究（二）

准备入门

　　2 .2地形切剖面
　　水电工程设计中经常遇到在地形图上切剖面的问题，借助Visual Lisp可以实现快速切剖面。
! g5 l: r  |7 i4 }4 G　　(1) 初始地形图处理
　　把带z坐标的地形平面图进行变换，变换后z坐标值成为层名，为加快切剖面运行速度，把“LWPOLYLINE”和”SPLINE”均转化为”LINE“线，程序如下
) J3 k  W$ ]0 z9 r# {( c8 D　　(defun c:pltol()
　　；LWPOLYLINE转化为LINE
& r6 M5 R  h# s　　(setq n 0)
　　(setq e (ssget"X" (list (cons 0 "LWPOLYLINE"))))
　　(setq sh (sslength e))
$ n5 v- t0 I( h/ t) l　　(if e
6 N' j; f3 [$ E- |/ W  C6 \　　(while (< n sh)
　　(setq e1 (ssname e n))
　　(command "pedit" e1 "d" "")
　　(setq x (entget e1))
8 Y" M8 F; m0 i% X5 {/ p! w6 E　　(setq ngc (atof (setq la (fld 8 x))))
$ p* E. U6 U. X7 h　　(command "explode" e1)
　　(setq n (+ n 1))
　　) ) )
　　(defun fld (num lst)
7 t: p+ Y0 {" J- y8 O　　(cdr (assoc num lst))
　　)
0 O( K1 C3 e1 t" r" L5 A% [; Q2 [　　(defun c:spltol ()
- b! R! p( e4 B; w; t　　；SPLINE转化为LINE
6 d/ n, {, c3 w/ l# P8 u, ~　　(setq n 0)
$ E4 k5 i1 u" N, w- u* k　　(setq e (ssget "X" (list (cons 0 "SPLINE"))))
　　(setq sh (sslength e))
. s/ X0 x; X: ^) p0 F　　(if e
8 `3 B# S' k6 l% |4 i$ C; z　　(while ( nm 5)
8 c2 a( b- p3 {　　(if (= (car (nth nm x)) 10)
9 L( }3 Y$ I2 D( W- w3 ?　　(progn
　　(setq b1 (nth nm x))
　　(setq x1 (cadr b1))
　　(setq y1 (caddr b1))
　　(setq z1 (cadddr b1))
　　(setq glb (list x1 y1))
+ I/ A4 L2 R( I  b4 Y7 E0 Z" W5 k　　(command glb)
　　) )
6 g& y5 G5 {. p# c　　(setq nm (- nm 1))
　　)))
　　(command "")
2 j. e3 E9 i$ _6 g　　(setq n (+ n 1))
　　)))
　　(2)切剖面
' x# Q0 u* Y' Q　　输入剖面编号，在平面地形图上指定两点确定剖面剖切线位置，指定剖面图起点，利用AutoCAD的inters函数搜索剖切线与地形图的全部交点，自动计算交点坐标，计算交点与剖面位置起点的距离，按各交点高程和与起点的距离形成剖面图各点坐标，即可用本文实例1坐标画线生成地形图的剖面。
9 Y9 y, ~! l# @1 {. r　　(defun dxtent1 ()
0 t$ ^. Q# P1 R& O( y& e　　(setq n 0 xdzb nil)
　　(setq xds 0)
　　(setq sh (sslength e1))
7 x7 W* V# g" Y) H4 r3 o) k: a/ y　　(while ( dxtgcgc 10)
　　(progn
　　(setq pst (fld 10 x))
0 {$ p+ f! `  J$ B　　(setq pet (fld 11 x))
　　(setq zb (list gc
　　(list (car pst) (cadr pst))
% _% g. `6 ^& |1 ^3 D6 }　　(list (car pet) (cadr pet))
　　))
3 D( e* f6 q$ }) U. t. i　　(setq xdzb (cons zb xdzb))
　　(setq xds (+ xds 1))
1 A* d/ u9 U% a1 c( p1 p　　))))
　　(setq n (+ n 1))
# l; g$ s3 l2 v& Q　　))
　　(defun c:dxtsec ()
　　(setq pmh (+ pmh 1))
　　(setq pmh (getstring "/n剖面号" ))
& L; l: V2 h! L9 e% d# q3 X# `2 a　　(setq pt1 (getpoint "/n剖切位置起点:"))
3 X# @; i" V, T# B+ @& q3 Z/ K　　(setq pt2 (getpoint pt1 "/n剖切位置终点:"))
　　(setq pt3 (getpoint "/n剖面图布置:"))
. W, \( r, r# U* f( W　　(setq p01 pt3)
　　(setq e1 (ssget "F" (list pt1 pt2)))；利用AutoCAD的目标选择“F”方式选取与剖切线相交的地形线。
　　(dxtent)；获取与剖切线相交地形线的坐标
　　(setq mxgc -100)
, ~2 S* Z+ r1 ^1 v& B　　(setq mngc 10000)
　　(setq m 0 pmp nil)
, s; g8 O6 ^, g' [6 D3 V/ p　　(setq n xds i 0)
; O" q) \3 D) |　　(while (< i n)
5 f8 q0 b( B" e　　(setq crosp
+ U. V3 l% l& J  z+ D. e4 i! \# Q3 M　　(inters pt1 pt2 (nth 1 (nth i xdzb)) (nth 2 (nth i xdzb)) 1)
! J6 i/ @" X6 a( b3 T# x# r　　)；求剖切线与地形线的交点
+ s$ W# J0 v/ D6 T* @4 {3 Y　　(if (/= crosp nil)
" ~. X8 N, v) O! F  n　　(progn
* [. k* t0 j! c- t4 ]　　(setq dxtgcgc (nth 0 (nth i xdzb)))
% ~& d2 l6 m8 W4 t7 n　　(setq mxgc (max mxgc dxtgcgc))
8 M! n/ @' S' ^- M* C　　(setq mngc (min mngc dxtgcgc))
　　(setq dst (distance pt1 crosp))；剖切线起点与交点的距离
: H0 F  N+ ^3 U' s# O* t　　(setq dst (* (/ blcz dxthtbl) dst))
　　(setq pmp (cons (list m dst dxtgcgc) pmp))
: G4 d1 _2 E  U2 Q, O" w4 G* D　　(setq m (+ m 1))
/ A- h/ G$ @" |8 w3 y　　))
! e+ b: z, r% |7 c5 E　　(setq i (+ i 1))
5 F9 i3 ?7 g' v. l　　))
7 {6 C9 K( p5 P文章关键词：