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

HEATS

　　2 .2地形切剖面

1 a0 Z$ y! }+ t t& Z

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

) p5 \4 R8 Z# \- I, H

　　(1) 初始地形图处理

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

! c" |+ Q/ |0 I) j ( D- p: S- R1 o

　　(defun c:pltol()

; ]6 i1 s: `1 c: {4 X p& D

　　；LWPOLYLINE转化为LINE

! U! Y& N8 T9 G. Z5 m5 _

　　(setq n 0)

0 M. U- M, M" |" c2 p' j e1 o

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

- z3 m+ R3 t |- p2 `8 f' |0 t% C

　　(setq sh (sslength e))

6 p- C9 u+ a* M

　　(if e

) C8 t. A' c. A: {1 k

　　(while (< n sh)

　　(setq e1 (ssname e n))

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

7 {' S* X J4 W3 Q' B u

　　(setq x (entget e1))

8 Y# X7 I9 o8 f- t0 I 3 R6 Z P: a3 J

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

- Z6 s3 g) P# ?$ v6 B 8 o1 l& e% M) T/ h5 }/ W

　　(command "explode" e1)

|5 c4 p' C- {/ a) {: n& Y9 ^6 `

　　(setq n (+ n 1))

; o$ f4 ` m* U- |5 ]* G+ D- t5 _+ B( h

　　) ) )

　　(defun fld (num lst)

) p6 F8 ]% e p3 R+ f6 R$ @8 f

　　(cdr (assoc num lst))

0 N6 c D x2 U. R0 H

　　)

& T8 Y' j; ?% ^; Y) ~, V' f% R

　　(defun c:spltol ()

9 B( u$ L4 @2 r- v

　　；SPLINE转化为LINE

G, S9 Q' Y( B3 S& i% R: x ; g+ U; k: B7 d; _

　　(setq n 0)

+ ~0 U3 N% u5 x9 A) [8 P

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

　　(setq sh (sslength e))

　　(if e

+ y* f1 p/ |4 A8 o+ k9 B# l7 n, g) ` ' F2 ]4 ^6 A8 c1 j

　　(while (< n sh)

5 l# D' N0 o' F

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

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

) p1 r% ?2 h. ]4 r; [ 3 Z. Q& [- z1 W3 @$ K0 d; m

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

* v$ b& c( z) q

　　(progn

2 P, H# L4 V+ H2 D 6 U( ^0 v+ n+ U- ~

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

* |$ T* J% o' i! G

　　"6" nla "s" nla "")

　　(command"line")

6 F# o/ \" {, Z9 @ 0 x& ^3 a$ c/ y

　　(setq nm (length x)

" n8 Y9 H$ z' i: m% ~7 f' M

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

_% W( }9 E8 u- g! D" x

　　(while (> nm 5)

/ N' k/ J. a: U4 P3 @

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

! c0 S' s5 `& Z b* K6 ~0 h

　　(progn

1 G: v* I9 }; T) @3 D. |; N

　　(setq b1 (nth nm x))

0 Z$ K: }6 }+ N: S8 ^

　　(setq x1 (cadr b1))

　　(setq y1 (caddr b1))

　　(setq z1 (cadddr b1))

　　(setq glb (list x1 y1))

5 x9 ]7 v3 Z) c2 o

　　(command glb)

( I& r# |& @. _/ y2 i% w$ T' ^6 c# S

　　) )

　　(setq nm (- nm 1))

1 d6 r$ V- K) c# i0 C ! H: @3 s1 b1 N5 c' i1 i# C1 B

　　)))

; S5 K# r) D' D q9 b 7 e( \. X$ N4 t+ H. A

　　(command "")

n( c# |2 j0 [# j& d; P: y' e 0 [8 m o) @# T4 z- q: o

　　(setq n (+ n 1))

　　)))

　　(2)切剖面

1 G) ~& C" y5 U/ L / v" g0 @2 P; U) e" j' j

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

+ G0 G; t9 c& Q2 h) ^% L . Z5 J: [3 e- e8 I5 i1 h. _

　　(defun dxtent1 ()

　　(setq n 0 xdzb nil)

5 W5 {7 y- P& d6 j0 E4 r

　　(setq xds 0)

　　(setq sh (sslength e1))

6 ~* M0 l u1 h1 y& g' X 1 G5 I% Q8 a' s

　　(while (< n sh)

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

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

1 \& C8 F1 W j; O; |

　　(progn

/ }9 \: m) S6 S0 t- S% G 2 U" A2 V1 p& ~ @

　　(setq dxtgcgc (fld 8 x))

" O0 J5 h) i# e$ B

　　(setq dxtgcgc (atoi dxtgcgc))

　　(if (> dxtgcgc 10)

; E5 R$ c% e6 {' w 0 w. J* T2 r! _2 X9 O

　　(progn

1 T+ E. S$ @% [/ p 2 ]- w% a7 i) A( N& Y( h- j8 i

　　(setq pst (fld 10 x))

x6 m" l% U- D4 V - z. i% U1 G! R/ j( h( S1 Z, a$ ]

　　(setq pet (fld 11 x))

　　(setq zb (list gc

. M# Z# P9 g k4 i( W

　　(list (car pst) (cadr pst))

0 ?1 ~7 e3 R c( f; v

　　(list (car pet) (cadr pet))

2 u0 h/ ]* {+ ^, {; t# d & y! f1 F' g3 z

　　))

　　(setq xdzb (cons zb xdzb))

8 ?# _+ P- P2 D( ~! {2 r" `

　　(setq xds (+ xds 1))

5 q" B1 W' @. {" i

　　))))

0 [4 z& t' L9 T" I/ F+ [. P0 L + q" A8 H- t6 {

　　(setq n (+ n 1))

8 g% G2 Z( C( x+ t$ }1 l7 X) _8 T 2 p6 u! A6 w- z

　　))

0 A5 b4 H. M Q& ` , l) H: H! Q: A4 J3 w

　　(defun c:dxtsec ()

　　(setq pmh (+ pmh 1))

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

: l. \1 Q# w+ E

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

0 J6 J7 E. y( X- M; F - _2 t, m* i) t% M1 }# y

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

0 x% I2 ?7 K! [ w ! n8 v/ y) s. @( \- v& E* ?" Z2 t

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

6 V/ I" p0 @4 v* `$ N2 W( F ! \: i9 M4 j; |; r; _3 E

　　(setq p01 pt3)

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

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

# {, S' z+ e8 ^2 I) B+ M- V/ Y# s ; e+ [$ ~# Y# }$ ]3 Z

　　(setq mxgc -100)

" G- }, |1 V# V+ _1 U0 M4 L

　　(setq mngc 10000)

$ S9 G# O0 E; q! v# o8 u% M * q# S( `: [8 D1 r% R

　　(setq m 0 pmp nil)

　　(setq n xds i 0)

% c( e8 q9 E; Q! E0 g 4 A! W9 T4 k4 H6 Y' I7 O2 |2 ~$ ^. d

　　(while (< i n)

3 ^/ t5 S5 e7 F) n6 b# t/ V

　　(setq crosp

3 R2 S3 N9 f- V7 | f# b

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

/ a9 _0 b/ q X. k, j! b

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

. S' N' p4 K$ ]: G$ Z3 |0 b

　　(if (/= crosp nil)

9 N& a4 q! p' [( |6 j- @. H& [$ v# G

　　(progn

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

　　(setq mxgc (max mxgc dxtgcgc))

- n: V S# A: }( s1 R1 \, R ! ^& B( Q# p0 X9 s4 `- C+ E

　　(setq mngc (min mngc dxtgcgc))

8 |7 @: D3 Q; o: t% J

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

K( B3 T2 F I w1 i9 P

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

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

% M+ g7 x3 g7 r8 ~( u / Z2 r+ {4 Z- }4 S. p4 _! h4 t

　　(setq m (+ m 1))

1 v2 p- J \! s9 z" K1 M 9 Q8 P" b- s0 i, e: A& F# I6 p

　　))

5 u$ j/ @. `/ S! _

　　(setq i (+ i 1))

) B- X# u4 _" a. }! _

　　))

8 F# s, A( T" c% I . L+ K7 ]/ v; } K