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

HEATS

　　2 .2地形切剖面

/ E9 C! B; R0 t* `3 e4 W5 ?+ ~6 p 3 y0 A8 ?/ o, T2 c% |

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

5 D3 A; W! o2 f2 S. V$ P2 i

　　(1) 初始地形图处理

, G8 M* b B+ M& z. V' f) \

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

, J& U: S" k7 A) t0 j : i( ^: k; x# d. H& c

　　(defun c:pltol()

# t z8 \+ h1 V+ Y# N5 f

　　；LWPOLYLINE转化为LINE

/ N: n/ P3 E, p2 ` 3 a4 U: g- G P; q, J

　　(setq n 0)

1 ^' D8 ], ~# J8 T6 H

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

　　(setq sh (sslength e))

5 `) T; }* q$ a) I 0 { m) O* ]2 P5 ?! C Y

　　(if e

　　(while (< n sh)

& q4 {" W$ h- @* H/ p0 F, k/ e6 B1 V1 v

　　(setq e1 (ssname e n))

8 p# `% J0 r. d H

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

2 j, ]7 e2 x4 e( h! w

　　(setq x (entget e1))

9 r; U& z' i) Y0 b+ y& I5 d4 b5 B ; O/ X- y" i" _% n: F

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

( e1 l' Z# O. Q+ u2 w2 Q$ m7 G

　　(command "explode" e1)

0 o: ]6 ?, o- h6 x! n5 Z

　　(setq n (+ n 1))

D, Z- r/ P1 ]" n r! l6 _

　　) ) )

& t- ], D2 s" U/ p) T

　　(defun fld (num lst)

v" ^ `7 d" Q

　　(cdr (assoc num lst))

6 N* Y3 [9 T0 x+ F9 i( s% |7 P . G0 u0 h3 r' W

　　)

　　(defun c:spltol ()

+ M/ d& y; C8 ]# E# | $ i" W8 G4 j* ^( R2 L- @

　　；SPLINE转化为LINE

% N3 X$ h* P3 V$ i" N0 z# x+ d ) e! d$ G7 L S) F1 I, G

　　(setq n 0)

) y6 Y7 J4 s& Y

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

, f* f' r$ d1 F8 o4 U2 |

　　(setq sh (sslength e))

$ V3 E4 u6 A6 i" Z ' {5 `$ l @2 o! u! y9 S

　　(if e

9 ]* j, i6 Z2 @5 Q # @/ \7 u& x; P1 G8 m! ~

　　(while (< n sh)

9 ?3 K( q& V& C) L* l. q3 J( p

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

7 Z5 t4 d+ X. _* J) e

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

% z- k P7 E$ C1 x5 { 3 r" x! P2 Q: ~( [( ~$ Y+ o% _& k

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

6 w& a6 p& ?/ U# n5 d+ H) {7 T" A 3 ]: }. F3 u5 M" V

　　(progn

: g" d* v2 X3 H

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

+ ]; B- R5 s0 n1 S : P+ ?; m6 d* F* {8 D: m

　　"6" nla "s" nla "")

/ F# n% C, n1 G3 s8 X0 [ 2 ~7 B- J: ^9 y" L4 I

　　(command"line")

- U3 r+ P" b7 T, `4 ?

　　(setq nm (length x)

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

' l8 I. X% L' B8 |3 p

　　(while (> nm 5)

: v9 d+ ]/ j6 c& U- t

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

$ F. l% H3 W3 }+ l& v

　　(progn

　　(setq b1 (nth nm x))

& P+ q7 o W) Q# W q/ z5 `& Z

　　(setq x1 (cadr b1))

8 L5 {5 O' e# Z0 \3 |+ T ; l. ?" P/ E: @2 S, \

　　(setq y1 (caddr b1))

+ E& w! |, {( c! j! x

　　(setq z1 (cadddr b1))

2 b, u0 O. P- i, m; J& L7 h

　　(setq glb (list x1 y1))

~- K b7 p" O / V% |% o4 m/ N5 U

　　(command glb)

　　) )

4 C, J4 o, n j4 V; N( ]9 b

　　(setq nm (- nm 1))

3 p4 y* J2 U0 |+ R: T

　　)))

- A Z A: \+ V, v; d. {3 [

　　(command "")

- L/ P* z, L+ T* N6 v, M p4 w( } - j5 i) z- N2 f# G+ C

　　(setq n (+ n 1))

- v/ s0 A2 v [' L$ b4 Q$ W

　　)))

/ J) ?5 k& }; R W# K

　　(2)切剖面

: _) \4 Z' Z% L' D+ G

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

/ a2 W+ a% I ?0 W: |* i% w- v $ v8 t2 W& N$ G( X

　　(defun dxtent1 ()

; C2 v Z+ x2 }) V# O7 |

　　(setq n 0 xdzb nil)

4 P l+ G( f" x% J" N1 X

　　(setq xds 0)

" s) B! v4 v# \

　　(setq sh (sslength e1))

) `+ D) e2 f! m' ?# J' e 1 o# e( r1 t0 S5 F4 \

　　(while (< n sh)

0 Y( Y* ^+ |9 b+ M4 N- I `0 Q

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

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

) k; R- M* w$ [/ S( x, } . g. C2 y; G' D2 j: X) K

　　(progn

/ h% b, p: {: G+ n

　　(setq dxtgcgc (fld 8 x))

+ W/ }+ v6 t( W v+ | / ]( ]! Y9 ?) H q. e

　　(setq dxtgcgc (atoi dxtgcgc))

4 M I) j6 \$ M, `. i% S% u % z i; j2 t0 W. H, V& |3 ~

　　(if (> dxtgcgc 10)

　　(progn

　　(setq pst (fld 10 x))

; B: O8 G+ j! q+ z+ H- J7 }: l9 z

　　(setq pet (fld 11 x))

　　(setq zb (list gc

) D- \( H q$ o0 j1 [ . n9 P+ w5 C) \- E0 l

　　(list (car pst) (cadr pst))

} @* j/ M0 Y% `4 e( q

　　(list (car pet) (cadr pet))

　　))

. `0 E! ?0 ^6 m* d P* P9 u( V

　　(setq xdzb (cons zb xdzb))

/ v M, Z! S2 s( }3 t

　　(setq xds (+ xds 1))

5 m/ z& @5 {) K0 C 1 {- M0 g4 t) G# v

　　))))

3 m0 W3 P) k3 ?) K/ H; o2 t( G. x P* U( l% f" o" a& k: [

　　(setq n (+ n 1))

　　))

5 C! R2 R$ g+ q- L # Y: f8 B4 e7 z T- J

　　(defun c:dxtsec ()

　　(setq pmh (+ pmh 1))

- O0 a- V. r/ b/ J# j4 ]

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

2 _! A6 s* `$ G0 `5 t' r

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

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

2 |3 `- b0 n9 F0 d* D: M$ m3 @ + d: y b* s8 m. }! J3 L

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

　　(setq p01 pt3)

% D% @* f* x' V : T) D2 }5 Y1 u2 V2 a

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

/ ~4 Q/ s* [0 J9 z 1 R3 C9 I4 P) i3 W0 }, T0 P

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

( @& g. c% [5 x1 Y / z, ^& o: X% Q3 f& ^

　　(setq mxgc -100)

% y s2 c4 }1 ~% [: L , V+ _' b3 K$ b' ]/ ]2 H5 i

　　(setq mngc 10000)

; _) z! C7 \$ F8 j3 J* a

　　(setq m 0 pmp nil)

) V0 n/ b; X' y: K+ \ , n# l8 Q6 X# T6 I" v+ ]

　　(setq n xds i 0)

Z" F, m9 C5 a- s L, P2 c

　　(while (< i n)

# V2 _7 A5 _$ g. N! \) `

　　(setq crosp

, d$ T* {9 ]: `% Y# V" p6 t8 Y7 T- c

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

( t) d1 q1 w6 U# N" K3 @/ E7 N& B) g7 m

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

　　(if (/= crosp nil)

0 b8 ]3 J" F3 x% [7 F

　　(progn

& P, W. D; D$ ], Q

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

　　(setq mxgc (max mxgc dxtgcgc))

/ u% h9 h( c2 N2 d9 d6 X : k1 A6 q! D3 O$ N

　　(setq mngc (min mngc dxtgcgc))

4 t! C- @5 w0 u/ r, V

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

9 w& J( ?1 |6 k3 j5 {: `

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

8 O$ s3 v( ]1 e9 ?' U: P

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

8 G7 w0 l6 F8 A

　　(setq m (+ m 1))

) [4 p. @$ M; @$ P2 d* d8 P" Y3 p 8 g7 f, ?2 ?+ A$ U( i

　　))

% N, ~0 A- B2 o% l- \

　　(setq i (+ i 1))

　　))

. B$ w. q0 Q$ t2 Q; A! V# e( N ' h3 |7 i) q% U ( Z6 i' f0 {5 v" l! g 6 m* o' U9 E2 w& M3 I" Q0 W; u% M