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

HEATS

　　2 .2地形切剖面

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

4 `/ v( E. |7 x8 M2 L# w

　　(1) 初始地形图处理

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

# X) `: F$ n& X0 u# d 4 e3 |6 B- p k& E$ c, W

　　(defun c:pltol()

' e* v) |$ i n6 |) X

　　；LWPOLYLINE转化为LINE

　　(setq n 0)

1 d# E5 t4 e# i5 L [8 [% R 3 x+ A+ a. `/ ~& ?/ G5 S

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

$ s3 }2 ~( h3 l) w3 O

　　(setq sh (sslength e))

8 ^7 ]2 F6 V" ? j- J, a: o 8 E! Q" `: D, B9 @- X1 C

　　(if e

4 V; I/ c8 M9 z$ G7 H" ?6 x

　　(while (< n sh)

* \2 `1 p! `3 S6 H$ J

　　(setq e1 (ssname e n))

# H1 R4 u6 M( Q* z/ @5 w

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

　　(setq x (entget e1))

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

, _4 {, x, k+ g+ `

　　(command "explode" e1)

, T% |+ u- ]' M7 k# }* L' \

　　(setq n (+ n 1))

9 E, B& }7 M$ j _( t

　　) ) )

4 |' Y1 Q& v7 A7 T2 U: u) [ + U; N+ @4 b: z$ j7 q

　　(defun fld (num lst)

- B+ ~6 e- N" Z9 F5 Z! J2 `8 j. {

　　(cdr (assoc num lst))

9 \! K' ?! p0 j6 z6 W

　　)

　　(defun c:spltol ()

　　；SPLINE转化为LINE

& ]- C/ A3 ]. R ?# x F4 w( j7 @. y

　　(setq n 0)

2 R% \" d: E9 K

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

　　(setq sh (sslength e))

8 V4 O c; T6 t* p. }8 r# p 3 M. [! g% N. ~' K

　　(if e

- C7 b0 G" X+ i* w! m$ D

　　(while (< n sh)

3 s/ S( C b+ A* o1 L

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

1 s$ {1 r5 I6 X5 f- u: ` I

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

2 _0 A# z; E6 }1 n

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

! T, E6 y: E, C8 [; B ]+ E _

　　(progn

3 f% _8 D$ J0 {/ A" ^1 Q/ H

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

　　"6" nla "s" nla "")

$ v) W6 T9 e1 L4 V+ Q8 W; r ) u( W" _3 M# a7 A

　　(command"line")

; S9 I9 D) O% r$ B; R& c

　　(setq nm (length x)

0 q' b- R C& B7 i0 C: m0 s ! S5 Z8 a9 p$ V& P9 ^! i9 [* k

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

　　(while (> nm 5)

# E9 }" C* V. [% ], v* F! D 0 |! V( z d: W& n

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

% t: G. Y8 @) `& `- V$ `( k. ^

　　(progn

9 f* M) m0 C( ]! f; p& ^, N

　　(setq b1 (nth nm x))

7 h# q" q$ r2 {9 y6 q9 Q

　　(setq x1 (cadr b1))

* G9 h3 v U, Q. I( }

　　(setq y1 (caddr b1))

2 ^) P% l: r4 o6 z8 Z3 S

　　(setq z1 (cadddr b1))

3 v8 K6 M m6 ?# v- E: R/ V8 z & h# X1 E: S' h2 {; e0 i# I; U; ^

　　(setq glb (list x1 y1))

% J1 _& |4 ]7 k- b

　　(command glb)

! ]! }( o4 h) U+ l % A1 Q5 t4 z" u0 q& _# r$ r

　　) )

5 i8 h* S! {8 m1 `

　　(setq nm (- nm 1))

; J. c. }- |3 b$ a. J

　　)))

* u" Z! ~, R+ U2 w+ m7 z a$ W8 g9 j; |: |

　　(command "")

　　(setq n (+ n 1))

% R1 j; a' V B3 P! ?4 ` G; ~5 q

　　)))

: M) C2 m* Z2 M9 }) R+ C( _ 2 t3 p7 D" _7 v5 I; u" I' g5 i: f S4 P

　　(2)切剖面

/ Q3 y: A# n9 K4 s2 r6 z p1 w

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

　　(defun dxtent1 ()

8 X& \" |+ C$ l

　　(setq n 0 xdzb nil)

, Z9 s0 s- P9 y) Q0 _, r * r" A4 f% u# Z) w; P8 R

　　(setq xds 0)

4 r: _1 c8 [+ H: ~8 j I) A% {2 E

　　(setq sh (sslength e1))

, n( \ Y; v, J9 C

　　(while (< n sh)

}& ]+ W2 V3 w! h3 J" O* l: ] 5 Y L2 R9 |4 T6 l* o7 ?2 @

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

. _* ]% G- i7 F2 }! Y. F: J' W ( q. q9 _' Q7 Q. X+ x

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

　　(progn

　　(setq dxtgcgc (fld 8 x))

4 }4 k2 `2 G4 B# v$ m& R6 ]

　　(setq dxtgcgc (atoi dxtgcgc))

　　(if (> dxtgcgc 10)

　　(progn

$ d. C8 g6 O4 }, Y; I$ F% M, C9 G 7 Q$ J) o3 @+ o! Z3 R

　　(setq pst (fld 10 x))

, e* e" G4 p3 a. @, T; z

　　(setq pet (fld 11 x))

　　(setq zb (list gc

! M) O3 c" k# z3 d( h w4 Z

　　(list (car pst) (cadr pst))

& q0 K/ f! }- d* B# a K6 ]

　　(list (car pet) (cadr pet))

. u" t, \* Z' Q& C+ B

　　))

/ T" T M: ^; E) s+ ^3 @* a

　　(setq xdzb (cons zb xdzb))

+ ]' U- m, ]* y0 f' }* M6 z Q8 S

　　(setq xds (+ xds 1))

0 A2 u, x4 I9 t: Q

　　))))

2 [ {4 H2 j' ~/ R# | , p5 q% S% g: _8 x& V, \

　　(setq n (+ n 1))

8 [+ z# q6 s2 d1 j7 j1 e, h0 l

　　))

# E5 V% P* U- X5 |/ |; r- s8 _

　　(defun c:dxtsec ()

　　(setq pmh (+ pmh 1))

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

( _% h6 ^5 @# E4 K0 l * _: S1 d3 C) o/ t% h M+ }

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

; u% K3 w% D9 w8 ?

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

6 Y+ a/ T+ {( P5 y

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

　　(setq p01 pt3)

: B2 J0 o1 S" u( N) A # U. U5 p0 L' `% T: g* k

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

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

　　(setq mxgc -100)

% x7 Y$ P' O( } D5 U& t8 H

　　(setq mngc 10000)

2 [1 u7 d$ ?; c$ \$ x! i+ H

　　(setq m 0 pmp nil)

) V# B A* k) B8 z3 j 3 `0 w: |- w) k3 c

　　(setq n xds i 0)

# e; P9 @2 F0 D. e E

　　(while (< i n)

. \( o- g- f% f* l' r. A

　　(setq crosp

& N7 e4 R# N& ? ~6 |' r6 e

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

4 T9 m( ]2 S: c 6 t9 K `, u- ~1 S# Q9 w

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

　　(if (/= crosp nil)

　　(progn

3 T$ I1 D+ g, i

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

0 u3 p4 E: u$ e& @9 I# T$ N3 I. v

　　(setq mxgc (max mxgc dxtgcgc))

! C2 r; @& S/ m v1 J0 a $ p' g$ F. C) @9 z7 r

　　(setq mngc (min mngc dxtgcgc))

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

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

. a0 O: `6 C' K. b$ |" |( w" f) R

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

3 b; l. k3 l4 W- H* \% C + b& V2 S# H& @1 e0 A4 T8 @. z

　　(setq m (+ m 1))

`& }0 S z; { ! O; S4 o* ?2 ]3 ~, s: j) C

　　))

2 x/ G& N; U- M$ _( m - i5 Y0 I) y5 [2 d7 [8 y* ^( t

　　(setq i (+ i 1))

# B5 q3 g( [; }4 X4 L E

　　))

2 F* A5 C) X3 R* |" k3 f. I% c& L/ b8 Z 6 M% ?3 r$ v- l2 b5 Z7 H8 A 0 u2 o1 v/ C3 U- n( p6 ~