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

准备入门

　　2 .2地形切剖面
7 A8 F9 V% N  |+ z' d$ o　　水电工程设计中经常遇到在地形图上切剖面的问题，借助Visual Lisp可以实现快速切剖面。
7 \4 W1 _6 [: V# Z+ ^　　(1) 初始地形图处理
" }) V  E# R! H  K5 Z　　把带z坐标的地形平面图进行变换，变换后z坐标值成为层名，为加快切剖面运行速度，把“LWPOLYLINE”和”SPLINE”均转化为”LINE“线，程序如下
1 n1 y+ N$ n- y! g　　(defun c:pltol()
) f: c+ _7 k( Z: R& X　　；LWPOLYLINE转化为LINE
/ f3 s0 b5 k$ E/ a# Y　　(setq n 0)
8 r* n/ E/ H+ }. J& c: ]. S3 E* u3 Y　　(setq e (ssget"X" (list (cons 0 "LWPOLYLINE"))))
5 `' C# N3 S/ \) ]+ ^1 r( e" W1 c　　(setq sh (sslength e))
　　(if e
　　(while (< n sh)
& U% M, k# E' g) K: R. `　　(setq e1 (ssname e n))
( C7 X3 ?) {$ @, j4 [　　(command "pedit" e1 "d" "")
　　(setq x (entget e1))
　　(setq ngc (atof (setq la (fld 8 x))))
7 S! K# c0 ]  l/ F  a, q1 S5 s% h　　(command "explode" e1)
- m, t! V$ r: `0 K1 u& T9 o　　(setq n (+ n 1))
1 I9 G/ S8 A4 K  [9 q1 k) {2 L. _6 K　　) ) )
　　(defun fld (num lst)
　　(cdr (assoc num lst))
　　)
　　(defun c:spltol ()
9 r' {1 }; ?; A8 @/ z* j; `# Q　　；SPLINE转化为LINE
! r" s8 p+ A4 a& `4 L　　(setq n 0)
0 j, p1 t* a' i/ B* l3 `　　(setq e (ssget "X" (list (cons 0 "SPLINE"))))
4 d3 C- ~( P  N  i1 W) S　　(setq sh (sslength e))
) u) u6 W, |0 D" Y1 u& ~; N# G4 S　　(if e
" G" J2 J( Y7 z: H3 H& f　　(while ( nm 5)
　　(if (= (car (nth nm x)) 10)
8 P! ^8 h  r5 S　　(progn
　　(setq b1 (nth nm x))
　　(setq x1 (cadr b1))
* x/ H2 }& k8 m) U8 `' y　　(setq y1 (caddr b1))
　　(setq z1 (cadddr b1))
　　(setq glb (list x1 y1))
7 A2 f5 e( S4 @, s1 z9 u/ h　　(command glb)
　　) )
　　(setq nm (- nm 1))
7 d. y& E; N6 S  d7 ^　　)))
　　(command "")
　　(setq n (+ n 1))
5 A5 K5 H: g( N" P　　)))
　　(2)切剖面
0 a: f/ M4 P- j* f　　输入剖面编号，在平面地形图上指定两点确定剖面剖切线位置，指定剖面图起点，利用AutoCAD的inters函数搜索剖切线与地形图的全部交点，自动计算交点坐标，计算交点与剖面位置起点的距离，按各交点高程和与起点的距离形成剖面图各点坐标，即可用本文实例1坐标画线生成地形图的剖面。
/ V" g  l- Z5 V* ^# `　　(defun dxtent1 ()
0 q. v$ [; L$ W1 d+ u# Q. e　　(setq n 0 xdzb nil)
' Q8 \3 n$ c9 U) J( v" @! i* g　　(setq xds 0)
　　(setq sh (sslength e1))
　　(while ( dxtgcgc 10)
* w. g; }. ^( S: @# m; X　　(progn
+ ]2 _. K4 I* N! u5 d　　(setq pst (fld 10 x))
4 L2 `' A; C8 i! I, i& s7 N　　(setq pet (fld 11 x))
　　(setq zb (list gc
; t, _8 b/ i! ^/ k/ ?$ ~+ i　　(list (car pst) (cadr pst))
　　(list (car pet) (cadr pet))
2 D2 r. h* h  n) E9 J- Z4 C　　))
$ B: `' W2 _5 q# G( R　　(setq xdzb (cons zb xdzb))
　　(setq xds (+ xds 1))
# `* M6 k" f" \' q9 o　　))))
　　(setq n (+ n 1))
　　))
" Z$ |  }5 g. E7 ?. c* W　　(defun c:dxtsec ()
　　(setq pmh (+ pmh 1))
　　(setq pmh (getstring "/n剖面号" ))
! \' u$ b2 [( P% s3 N　　(setq pt1 (getpoint "/n剖切位置起点:"))
: B* y3 b$ Q5 m! Q* A　　(setq pt2 (getpoint pt1 "/n剖切位置终点:"))
3 m  N6 z6 M2 r) a. T　　(setq pt3 (getpoint "/n剖面图布置:"))
8 ^) j* t: J9 K- l8 C$ C4 A　　(setq p01 pt3)
, w+ Q# c- \/ S3 v: ]4 Y2 Q& c1 _6 s　　(setq e1 (ssget "F" (list pt1 pt2)))；利用AutoCAD的目标选择“F”方式选取与剖切线相交的地形线。
　　(dxtent)；获取与剖切线相交地形线的坐标
6 \# {& Z) q8 b1 n　　(setq mxgc -100)
2 k. m. h# T6 B. q4 [" ?2 K　　(setq mngc 10000)
　　(setq m 0 pmp nil)
　　(setq n xds i 0)
　　(while (< i n)
  k# m4 D2 d: i& J　　(setq crosp
: g; f9 g& Z: l. n0 G　　(inters pt1 pt2 (nth 1 (nth i xdzb)) (nth 2 (nth i xdzb)) 1)
1 o8 O( {8 [5 @6 X! X5 B% L! t　　)；求剖切线与地形线的交点
　　(if (/= crosp nil)
　　(progn
　　(setq dxtgcgc (nth 0 (nth i xdzb)))
　　(setq mxgc (max mxgc dxtgcgc))
5 l& A  g" ?! \$ g) ~　　(setq mngc (min mngc dxtgcgc))
　　(setq dst (distance pt1 crosp))；剖切线起点与交点的距离
　　(setq dst (* (/ blcz dxthtbl) dst))
　　(setq pmp (cons (list m dst dxtgcgc) pmp))
　　(setq m (+ m 1))
, U  ~- ~. [; @/ Y　　))
　　(setq i (+ i 1))
　　))
) Q# ~7 L. Q9 U文章关键词：