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

准备入门

　　2 .2地形切剖面
　　水电工程设计中经常遇到在地形图上切剖面的问题，借助Visual Lisp可以实现快速切剖面。
　　(1) 初始地形图处理
9 e. G6 o1 O$ O& @* a4 `& O　　把带z坐标的地形平面图进行变换，变换后z坐标值成为层名，为加快切剖面运行速度，把“LWPOLYLINE”和”SPLINE”均转化为”LINE“线，程序如下
) k' V; p9 L: @& o" e1 N6 Q　　(defun c:pltol()
0 Q7 r2 q1 P1 Q　　；LWPOLYLINE转化为LINE
3 b1 Y  @% E  H! f+ k/ `' l　　(setq n 0)
- S. b9 n$ J  D. z# C- S: s( I/ ~6 n　　(setq e (ssget"X" (list (cons 0 "LWPOLYLINE"))))
7 h! l2 I6 K7 R' c　　(setq sh (sslength e))
/ \! s% z7 J9 A2 G  z+ K( `　　(if e
7 ?, g) W5 w& x  |! K8 `1 Z　　(while (< n sh)
　　(setq e1 (ssname e n))
　　(command "pedit" e1 "d" "")
　　(setq x (entget e1))
. q3 q  k" W8 r" {+ v8 B" K　　(setq ngc (atof (setq la (fld 8 x))))
　　(command "explode" e1)
* O0 j% k8 U( {　　(setq n (+ n 1))
0 y8 F% V5 a# d( ~# t" w: c　　) ) )
　　(defun fld (num lst)
/ V% S7 \- G7 E3 o, J6 l, o* L" `- z　　(cdr (assoc num lst))
　　)
　　(defun c:spltol ()
& W/ S6 w# ~4 f" F9 G　　；SPLINE转化为LINE
　　(setq n 0)
　　(setq e (ssget "X" (list (cons 0 "SPLINE"))))
9 O- B7 I6 K0 j　　(setq sh (sslength e))
! B( k* ]1 T$ K5 Y* X( m$ P　　(if e
8 \: r* F3 {5 W( {' N, g* ]" r* b, k　　(while ( nm 5)
　　(if (= (car (nth nm x)) 10)
　　(progn
! B0 B2 h9 J, Z8 D1 t: }; o　　(setq b1 (nth nm x))
5 A8 E$ H! ^3 C- N　　(setq x1 (cadr b1))
/ b+ g( Y2 L! K$ m, A　　(setq y1 (caddr b1))
　　(setq z1 (cadddr b1))
: b! K0 C, U8 X; W' v  [9 G$ Q　　(setq glb (list x1 y1))
　　(command glb)
　　) )
# c( R  q) W. J- [, t* a6 V' v/ @! [　　(setq nm (- nm 1))
4 _! B" x/ O, m9 K% K2 I. d　　)))
　　(command "")
7 q% `0 Y: e* b$ A5 ~5 k　　(setq n (+ n 1))
2 ~- f" ~4 J3 o% R　　)))
$ T: E: @9 F$ h/ b/ y8 Y; u　　(2)切剖面
　　输入剖面编号，在平面地形图上指定两点确定剖面剖切线位置，指定剖面图起点，利用AutoCAD的inters函数搜索剖切线与地形图的全部交点，自动计算交点坐标，计算交点与剖面位置起点的距离，按各交点高程和与起点的距离形成剖面图各点坐标，即可用本文实例1坐标画线生成地形图的剖面。
　　(defun dxtent1 ()
　　(setq n 0 xdzb nil)
1 s% F! ^$ E. B+ q5 Z) N　　(setq xds 0)
% o9 n5 n) G3 i, S+ j! D9 Z  Y　　(setq sh (sslength e1))
4 w0 Y- `) d# W) O4 y. i3 N0 O# V, e　　(while ( dxtgcgc 10)
　　(progn
　　(setq pst (fld 10 x))
8 ^- m5 y* s7 q　　(setq pet (fld 11 x))
) }. J* ]: n. h" e6 @9 R0 d　　(setq zb (list gc
% _; t+ s4 p# A: p' g　　(list (car pst) (cadr pst))
3 o. B8 X+ V1 I0 L　　(list (car pet) (cadr pet))
　　))
　　(setq xdzb (cons zb xdzb))
; b4 [" b% _" j9 ?3 v! u: C　　(setq xds (+ xds 1))
　　))))
7 j: M  ~: U! ]9 L% U; n0 l0 H. U+ u　　(setq n (+ n 1))
, j+ n  v2 O6 {- Q, T　　))
! D' ^/ R7 J  u3 }3 l( A7 q) i  O) r　　(defun c:dxtsec ()
　　(setq pmh (+ pmh 1))
4 \& o! ]4 Z( u! M　　(setq pmh (getstring "/n剖面号" ))
　　(setq pt1 (getpoint "/n剖切位置起点:"))
　　(setq pt2 (getpoint pt1 "/n剖切位置终点:"))
　　(setq pt3 (getpoint "/n剖面图布置:"))
　　(setq p01 pt3)
　　(setq e1 (ssget "F" (list pt1 pt2)))；利用AutoCAD的目标选择“F”方式选取与剖切线相交的地形线。
; I# i; y1 x8 ~" \5 u) y　　(dxtent)；获取与剖切线相交地形线的坐标
2 m1 s5 _) G( u1 I+ d" q' a　　(setq mxgc -100)
5 C$ ~# B/ i! L  J2 b　　(setq mngc 10000)
* D; K  J! a3 l% t7 @7 X- P　　(setq m 0 pmp nil)
　　(setq n xds i 0)
, t- |1 H! J- i3 o　　(while (< i n)
　　(setq crosp
- ?/ F. O# G& {: C* {) b( {) b: F# G　　(inters pt1 pt2 (nth 1 (nth i xdzb)) (nth 2 (nth i xdzb)) 1)
1 p( h6 _! ~" S1 F. W$ I! m! r　　)；求剖切线与地形线的交点
$ R: v% E8 J+ R" x2 j6 l　　(if (/= crosp nil)
　　(progn
　　(setq dxtgcgc (nth 0 (nth i xdzb)))
　　(setq mxgc (max mxgc dxtgcgc))
9 i; a3 o. M! y　　(setq mngc (min mngc dxtgcgc))
; ?4 ^' C6 b, d* P3 P4 e& L% l　　(setq dst (distance pt1 crosp))；剖切线起点与交点的距离
& j! M; [* K4 }' d+ c* a( }　　(setq dst (* (/ blcz dxthtbl) dst))
1 K9 ^3 X" f3 _　　(setq pmp (cons (list m dst dxtgcgc) pmp))
　　(setq m (+ m 1))
, L( W) b! \3 b　　))
# ?9 }2 n* ]# v, A/ F/ R1 A　　(setq i (+ i 1))
3 g/ E, W/ J, R- U* L　　))
6 w9 T7 b* E0 p, i: P# {) i文章关键词：