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

HEATS

　　2 .2地形切剖面

# f5 g8 t6 |0 k# u1 r+ q# }

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

　　(1) 初始地形图处理

# y5 A) A2 T/ j( x! Z % B$ s# T! B4 D

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

　　(defun c:pltol()

1 t6 p* U9 {- X# l: n1 \ {; h9 r

　　；LWPOLYLINE转化为LINE

8 e7 M j, i+ ~- A+ N

　　(setq n 0)

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

# W7 B. b8 }, { Q

　　(setq sh (sslength e))

! [% B" C: M) h* O 5 ~" j5 T8 m/ \( ]5 e7 m8 i$ z; h

　　(if e

+ h* R7 O! t8 k, y6 B 4 C$ d; x# j% ~& m; p

　　(while (< n sh)

　　(setq e1 (ssname e n))

9 {3 M! U, \# p% a2 d; b6 N

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

0 T3 |* i! W4 p

　　(setq x (entget e1))

' `6 | J3 i3 w" l1 u& ` , z& l2 ~+ @1 g9 w7 _1 \. T' q

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

　　(command "explode" e1)

　　(setq n (+ n 1))

　　) ) )

2 n, O# Q! C0 j4 W+ i8 Q

　　(defun fld (num lst)

; |. }+ K4 h5 U% N # ]+ C9 s2 u" l! s- K

　　(cdr (assoc num lst))

4 R/ Y* m" M& e1 v* A

　　)

$ A- z: j* E4 V+ D& D

　　(defun c:spltol ()

% K" u* a, N3 ]" G2 O ' h' q( p. O+ w6 P* f- ^- b

　　；SPLINE转化为LINE

4 a5 ^5 o- [% B, R 9 s" }2 J+ x, Q: s0 N7 }

　　(setq n 0)

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

　　(setq sh (sslength e))

5 [, s7 W1 u: e6 S2 W/ H$ }2 r 0 h5 U* U+ z; H. Y

　　(if e

% G6 {9 ]+ y. J3 f+ Y

　　(while (< n sh)

; o+ x ]' N, c/ N" L7 O

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

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

' w$ W# n- H7 s; `8 X4 m W& ` 6 l! F& G0 E5 i& [* @+ p# R. b

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

: ^1 `; h* ]6 v" V8 c. d

　　(progn

_2 D* f& G9 ~; a0 ` 5 R0 Q$ }, H! t8 c; H7 G. T

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

　　"6" nla "s" nla "")

　　(command"line")

* r+ K, Y( g- M% a$ X 5 L% V$ D. ]5 Z! w1 h

　　(setq nm (length x)

O6 d8 V0 |3 o$ f. A) W

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

; i S, x% P3 E

　　(while (> nm 5)

7 ~: \ N5 j5 l+ `; |- o

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

　　(progn

9 Z, q8 k$ y9 L% R: V8 \

　　(setq b1 (nth nm x))

# _1 `6 f0 |3 b3 _& M1 b

　　(setq x1 (cadr b1))

T( s6 {+ Z3 c

　　(setq y1 (caddr b1))

! c- Q: W3 F/ k- v ! w7 Y' \$ V! k) @( o1 c$ ]0 N

　　(setq z1 (cadddr b1))

6 t7 w/ p& t0 O

　　(setq glb (list x1 y1))

' p" H# x6 F2 f8 Y

　　(command glb)

% p5 ~8 @1 H" x7 I

　　) )

/ @6 K& u6 O' i, T6 I7 ~+ Q* p; l0 W

　　(setq nm (- nm 1))

& J2 U+ r0 i9 T+ e5 D

　　)))

/ k- y' W' f6 f7 G& q, g* x

　　(command "")

　　(setq n (+ n 1))

　　)))

　　(2)切剖面

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

+ w! A& q# L- l8 C) p 9 |0 z, \: ~6 Q& Q: P$ O# e9 L

　　(defun dxtent1 ()

/ l4 M$ r. e3 A1 { $ O! i! S: Q% u& l

　　(setq n 0 xdzb nil)

( ]2 e( K# ?, a% l. ^ 2 |# Z3 O) V" W& n

　　(setq xds 0)

- A7 |3 z9 r4 t: B- w 6 o* F+ S6 b" I; q% f

　　(setq sh (sslength e1))

4 J% p" u- h% T- [9 u

　　(while (< n sh)

o( S) N. A$ Z# G( q4 x$ h2 h 6 l1 `. `# T) X' |

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

, \) K# x3 s, B! q7 \1 r- x, H

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

: {0 }! o/ U( V- _

　　(progn

# \; ]. p+ Q/ _9 S Z+ p3 _- b3 [' N- c" O1 p. u7 B

　　(setq dxtgcgc (fld 8 x))

, W; ]' k* M; ?4 l$ S$ V # R. C. h+ w! X

　　(setq dxtgcgc (atoi dxtgcgc))

　　(if (> dxtgcgc 10)

& q( V2 D2 p: _5 J. x4 j! v: e

　　(progn

! _: x7 I3 y3 a% k8 K q0 x , ^* o9 z6 }4 {1 }6 U: S0 k

　　(setq pst (fld 10 x))

　　(setq pet (fld 11 x))

: ~6 |+ g* l2 E2 L# ^6 o: ]6 ?

　　(setq zb (list gc

, ]* ?- ?) s5 U# s/ G7 r( k/ E

　　(list (car pst) (cadr pst))

　　(list (car pet) (cadr pet))

r- U {6 s3 u4 V' I& J8 I

　　))

2 r' K9 Z- \3 t! U% j

　　(setq xdzb (cons zb xdzb))

, w$ l9 J- G$ C. ^1 f 3 C. c% K( X! W/ Z1 u% o, _2 x7 {

　　(setq xds (+ xds 1))

4 O4 o% J" f! V. F

　　))))

$ ?: |( Y( }. K( [; H

　　(setq n (+ n 1))

( {( h i/ [1 @2 {% V2 I

　　))

% z" n) X: r" D5 X6 Q4 c

　　(defun c:dxtsec ()

+ q8 e6 Q& D s6 v% `

　　(setq pmh (+ pmh 1))

) p! e8 X7 K& \- ]6 ~2 C! u* B' L

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

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

" f0 i. i8 i" x' r3 j+ H) `

　　(setq pt2 (getpoint pt1 "/n剖切位置终点:"))

, i! h3 Y3 l7 V+ l9 S! }

　　(setq pt3 (getpoint "/n剖面图布置:"))

　　(setq p01 pt3)

& W+ q+ L- [, e2 J

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

* D' G) Y5 |- g# g- [! S

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

# j( t S, _+ z( T5 e( w. z & \/ Y3 U9 H1 v- e6 t

　　(setq mxgc -100)

0 F8 s/ ~$ T' x

　　(setq mngc 10000)

" X O9 E( Z" L# R# X3 y @ @* z% Z7 A* `

　　(setq m 0 pmp nil)

6 ~2 ?' A8 C' }, s; L 9 ?: H$ j/ f1 Z' u+ s( k5 m

　　(setq n xds i 0)

" X: w$ |" F$ }) e' m* R! R2 y& E

　　(while (< i n)

: r f7 ]/ [ N5 d! D! }0 N$ o: T% u

　　(setq crosp

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

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

　　(if (/= crosp nil)

/ R" `$ n* ?$ Z6 g - @6 U/ d8 K$ c2 p Q2 [

　　(progn

" r9 w# ~5 }) ^2 S$ ]3 ?9 T

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

　　(setq mxgc (max mxgc dxtgcgc))

, m& d4 T0 B" |1 A4 J% N* E) F) i . D; U- Z) s |6 L% `9 h0 G' V0 `; o+ l6 ~

　　(setq mngc (min mngc dxtgcgc))

( I5 P: O3 X4 a* h & c" I. W* ^5 u4 P4 I+ s R

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

% a0 f7 D+ v0 ^& Y: k( _5 d

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

8 U( S! ]& i% m. Z4 X

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

% v! [* ~% e% z6 ]4 W, B

　　(setq m (+ m 1))

, B- @$ g$ {" L: d9 Q

　　))

　　(setq i (+ i 1))

8 A2 d5 w( x3 j7 F

　　))

( U2 Z4 ]* G: w) K- f