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

HEATS

　　2 .2地形切剖面

- y$ p7 H; ~6 G' O " p/ k1 R' k$ ~$ ~7 a

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

4 z9 F0 l3 r; @( u: {4 W5 R

　　(1) 初始地形图处理

6 g3 y" w! N4 ]5 m! j3 i- S " _; X: h; p' _- e3 p4 a! E! [6 F

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

$ ~( H. ?, p, |8 r3 o3 Z3 @1 y

　　(defun c:pltol()

% ^6 U7 [0 K/ g5 v / U, s6 z* ?1 X+ q& ` R

　　；LWPOLYLINE转化为LINE

% Q" y; Q$ D: _* J7 V+ v0 s! h I9 v. I3 A( v, _9 e6 E

　　(setq n 0)

+ p, C" g# E! H; P . |7 C7 h6 } h2 J; a* G

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

　　(setq sh (sslength e))

　　(if e

　　(while (< n sh)

d' W2 W* h- C4 |2 G. u( x0 w 8 g6 z! w& |3 g3 d& g* {

　　(setq e1 (ssname e n))

/ B" W0 _# u( q$ [3 I

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

　　(setq x (entget e1))

7 J! O, ]# |+ s8 ~4 f' w B: p 8 W% K2 W) r* F o

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

) N& E8 i5 \7 U* Z. O5 V' I

　　(command "explode" e1)

8 {: o+ p9 t; l% o2 I- w

　　(setq n (+ n 1))

7 y( z! |' R5 {8 L

　　) ) )

; D% q3 {- W0 c: p& D& ?2 N ! ~! s1 u. m$ c/ @2 g* C2 b. e4 L

　　(defun fld (num lst)

. Q5 ~3 }/ z. c$ V

　　(cdr (assoc num lst))

$ v+ f; {& m0 Z _1 i % H& `9 a5 p+ f3 }3 Z) u: l

　　)

. s5 L" {; l* h9 A$ I0 {0 ?7 T4 H

　　(defun c:spltol ()

　　；SPLINE转化为LINE

, w" z: H6 X2 w5 B4 K

　　(setq n 0)

0 u0 @: [8 L2 g+ L; O5 c' c- n

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

$ H* M8 C/ P) d H: x, l/ L( H# O" }

　　(setq sh (sslength e))

　　(if e

# v5 p9 M$ V0 d. ^# { 7 ?: R) N# W* r

　　(while (< n sh)

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

% B9 g7 ]" Y) _3 ]: c0 n/ O' s: {

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

" _0 H- c- E$ Z" r , W8 D* a* _+ v! s5 ?

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

) ~3 E2 f/ R' ~- ~% @- k

　　(progn

- T# [, }3 U( z" _: [

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

4 Z9 Y( Y9 x u5 R' {9 f

　　"6" nla "s" nla "")

　　(command"line")

" Y5 i4 k6 Q, V, y5 b

　　(setq nm (length x)

2 W4 v6 p$ R" q+ P' p* V 3 k# o2 r, f- Z9 I. \% ]2 ^' o" O

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

6 c) Y" A: d- ^ z) F4 P2 Y $ {: ~- F9 ^9 a7 Z# S K r0 S

　　(while (> nm 5)

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

& j" J1 b7 f' T3 z- \/ j

　　(progn

　　(setq b1 (nth nm x))

) v7 `6 R7 M7 h. F& n1 V

　　(setq x1 (cadr b1))

! b: ~' M8 I) q P

　　(setq y1 (caddr b1))

% w% e$ ^; z2 M0 v( h0 \

　　(setq z1 (cadddr b1))

/ I0 j- \5 }$ P, }* N( A# N; u

　　(setq glb (list x1 y1))

4 s* ?: ?2 g. C( U3 v$ A# `

　　(command glb)

: ~% _& l2 _8 X ) U5 U `$ ~/ `4 L' E, \; }

　　) )

+ b$ M3 I( Q/ F/ A& {1 M * h! R' J/ _+ ]! v4 ?

　　(setq nm (- nm 1))

' |4 @* y! E+ P$ G6 H# Y4 G* |

　　)))

$ ~7 y- b" y! }7 O( x5 s1 d. H

　　(command "")

　　(setq n (+ n 1))

/ v& q; J# v. y- y) a

　　)))

　　(2)切剖面

! w+ k# @' t" @$ Q2 e " g! O; h8 S" j

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

% ~$ a2 I: V! o

　　(defun dxtent1 ()

1 f" [+ u! s3 x, i/ O& K4 x

　　(setq n 0 xdzb nil)

3 ~% i; i" }% u, J+ Q5 ~

　　(setq xds 0)

2 Y# a3 b. J: o) n# K; }; d

　　(setq sh (sslength e1))

8 d3 H2 B: Z: |% E

　　(while (< n sh)

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

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

9 N- P" h3 t' D" ]+ H& ?4 M' G; p( Y

　　(progn

g8 `) g5 U8 H, M: ^. i7 x

　　(setq dxtgcgc (fld 8 x))

7 n2 Y; U4 a% j, [2 `& Q Z , W" p2 Q: j! a- A7 G/ M8 K$ n

　　(setq dxtgcgc (atoi dxtgcgc))

　　(if (> dxtgcgc 10)

　　(progn

: S' B2 x0 ] [7 F& E# B/ L/ W g2 T 6 A! V0 _; Z1 p. K

　　(setq pst (fld 10 x))

# w8 a9 W3 s+ P% I$ j # g; }5 ?4 N3 E* d: x2 i% ^6 i

　　(setq pet (fld 11 x))

7 O: k8 Q8 @1 {8 m4 C( G; d

　　(setq zb (list gc

: ]# _2 k8 ^, B) A# Q' U ~

　　(list (car pst) (cadr pst))

　　(list (car pet) (cadr pet))

u- a& C4 ?0 k- g0 }2 ` $ {- l8 P8 m2 T3 h! x! ]) N& F, u

　　))

" w1 O1 |4 G9 X

　　(setq xdzb (cons zb xdzb))

3 n+ r% @+ p9 C

　　(setq xds (+ xds 1))

　　))))

　　(setq n (+ n 1))

( S1 i; q0 k! Z# @+ d# { 2 S2 g! ]) E9 f$ S- G- M

　　))

+ I0 S" J2 l: s% J4 Y 6 y+ u4 e4 C9 p8 c' k* [

　　(defun c:dxtsec ()

' `+ p. x4 n) ]1 f( ^0 D I2 X ( h T& z1 L2 E/ W2 ~

　　(setq pmh (+ pmh 1))

5 h& h/ }( R" s0 I& j- ` # i, X1 N0 u. F* Y3 l; _) s4 }

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

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

7 @/ j0 X% }4 d. l |

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

2 d! [, L* N% h5 g

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

; O+ }; \- f$ b# N' B: f

　　(setq p01 pt3)

7 h6 s' @- C8 s z/ j4 y( ? ?

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

+ t/ }! I1 l& B# p% |

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

4 }2 y( G, _; [2 L

　　(setq mxgc -100)

2 u( b$ G! Y" r) r, ` / |) H% `/ V: I, I$ N# I' M# D

　　(setq mngc 10000)

　　(setq m 0 pmp nil)

$ o0 s$ S6 |3 E! Y4 G+ T9 a# I

　　(setq n xds i 0)

　　(while (< i n)

　　(setq crosp

9 b! h" N# a. [7 g2 r$ O! J, B

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

. a* y; T# C. q3 H4 s9 i3 E 1 F2 W) s$ M: q* e2 S+ q

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

　　(if (/= crosp nil)

, s7 k5 f- a5 K# x, T/ `( o7 C # Z$ w" |% r$ ^1 n" U

　　(progn

! W" P& o6 O/ f8 ^* O6 |! v8 B 7 x( c4 U; D9 u" n8 a

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

' D {2 R- T8 U5 O

　　(setq mxgc (max mxgc dxtgcgc))

2 }3 `" i! V6 L+ B0 X! r

　　(setq mngc (min mngc dxtgcgc))

1 \% s$ s0 C9 k; m3 |* L4 ~

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

6 |4 _7 m1 P: K) v: I, ^# C) m R' \& \7 |6 g) S- x7 O

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

* x0 i' c X9 h6 A6 n; S3 g6 e* M

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

5 z; Y; b. O, g

　　(setq m (+ m 1))

g8 s/ t/ y/ l; L6 w

　　))

　　(setq i (+ i 1))

; J, I& @! f/ t$ m% v

　　))

& N3 j0 y/ x: A0 E. [6 a - h# |; C- j6 V0 G