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

准备入门

　　2 .2地形切剖面
8 o: I$ ^* e  j( {! m/ z　　水电工程设计中经常遇到在地形图上切剖面的问题，借助Visual Lisp可以实现快速切剖面。
　　(1) 初始地形图处理
　　把带z坐标的地形平面图进行变换，变换后z坐标值成为层名，为加快切剖面运行速度，把“LWPOLYLINE”和”SPLINE”均转化为”LINE“线，程序如下
　　(defun c:pltol()
4 K8 x& P" D: S8 n3 t　　；LWPOLYLINE转化为LINE
, C2 h; {% X0 x/ g( `7 H　　(setq n 0)
2 b, Q+ i) |( r+ y$ D　　(setq e (ssget"X" (list (cons 0 "LWPOLYLINE"))))
　　(setq sh (sslength e))
9 p2 u, u3 X* P0 e4 J" A　　(if e
& I' e, O1 _2 J9 ]5 N　　(while (< n sh)
　　(setq e1 (ssname e n))
3 Q9 k# j) `; T# q7 R% l" s: K　　(command "pedit" e1 "d" "")
　　(setq x (entget e1))
% @2 X& @) h/ [　　(setq ngc (atof (setq la (fld 8 x))))
  W9 G% _$ |" r7 e　　(command "explode" e1)
9 I- }# d: `9 s% |　　(setq n (+ n 1))
  S% e, Q# o$ k( H6 {　　) ) )
- c% d6 D$ W% O% V　　(defun fld (num lst)
　　(cdr (assoc num lst))
　　)
: y& H" E% A. Z9 S- b; n3 I% b$ F　　(defun c:spltol ()
　　；SPLINE转化为LINE
　　(setq n 0)
8 O: k" g9 \2 G6 z. S　　(setq e (ssget "X" (list (cons 0 "SPLINE"))))
　　(setq sh (sslength e))
) ^! q4 D1 J/ }9 S0 n' \; @) w　　(if e
6 {* H0 {2 d$ H' F4 [2 e& i　　(while ( nm 5)
　　(if (= (car (nth nm x)) 10)
8 C$ Z0 k9 w8 D) O　　(progn
0 }. [' f0 V: s; N1 E* X: ~. w　　(setq b1 (nth nm x))
9 J2 Q. n. z( Z+ N' r% O- G　　(setq x1 (cadr b1))
! w+ v  G; _, c　　(setq y1 (caddr b1))
/ d6 q' ^* u+ q0 n' f1 Q1 j　　(setq z1 (cadddr b1))
: h# x) I1 g- F0 i　　(setq glb (list x1 y1))
& f4 s- x0 U- x- v: ^' D. j' X　　(command glb)
　　) )
　　(setq nm (- nm 1))
( @9 R0 k, i- r9 H( n1 g1 ~$ y　　)))
, a- a- Z; V0 P0 D　　(command "")
　　(setq n (+ n 1))
, d; ~+ K1 q/ f& x; g　　)))
2 c/ w  ~1 F; F　　(2)切剖面
" x! D  c* q( H' e　　输入剖面编号，在平面地形图上指定两点确定剖面剖切线位置，指定剖面图起点，利用AutoCAD的inters函数搜索剖切线与地形图的全部交点，自动计算交点坐标，计算交点与剖面位置起点的距离，按各交点高程和与起点的距离形成剖面图各点坐标，即可用本文实例1坐标画线生成地形图的剖面。
- r! z( i' J5 }( I  V　　(defun dxtent1 ()
9 P% M& a2 y4 P& O/ n8 ?& G　　(setq n 0 xdzb nil)
' ?1 }% [0 f% q7 L- T2 K, k0 Y% X/ \　　(setq xds 0)
　　(setq sh (sslength e1))
　　(while ( dxtgcgc 10)
6 A, e$ I+ v2 s& C6 o/ b# J　　(progn
  i. ?7 G, J( G2 g9 \  R. |$ O' U　　(setq pst (fld 10 x))
　　(setq pet (fld 11 x))
" K! V3 R; ^- X　　(setq zb (list gc
　　(list (car pst) (cadr pst))
, _) l1 P, ~( \4 W- Y0 A　　(list (car pet) (cadr pet))
8 o% ?; _4 b4 K; Y3 X　　))
& P" n, o8 W* x　　(setq xdzb (cons zb xdzb))
　　(setq xds (+ xds 1))
　　))))
　　(setq n (+ n 1))
9 J1 S6 D4 H2 b# ^) j　　))
　　(defun c:dxtsec ()
# E. Z; r" A5 z3 h' n　　(setq pmh (+ pmh 1))
, `3 _$ N; \$ w+ K( j0 \& C8 t　　(setq pmh (getstring "/n剖面号" ))
7 d1 F) t& a0 _9 \+ H. u# v, x　　(setq pt1 (getpoint "/n剖切位置起点:"))
　　(setq pt2 (getpoint pt1 "/n剖切位置终点:"))
% ?, C) ~0 Z2 K* C$ e& Z　　(setq pt3 (getpoint "/n剖面图布置:"))
: d% e9 h4 s; S% G& M　　(setq p01 pt3)
　　(setq e1 (ssget "F" (list pt1 pt2)))；利用AutoCAD的目标选择“F”方式选取与剖切线相交的地形线。
　　(dxtent)；获取与剖切线相交地形线的坐标
7 h8 C& g4 R, R6 O6 X) ~% P& d　　(setq mxgc -100)
+ ^  ~+ A2 R. S. p! {　　(setq mngc 10000)
　　(setq m 0 pmp nil)
; u! D2 T# \. ], t& y6 ^8 L　　(setq n xds i 0)
　　(while (< i n)
, {* Y6 D% o9 G# x3 c& U　　(setq crosp
　　(inters pt1 pt2 (nth 1 (nth i xdzb)) (nth 2 (nth i xdzb)) 1)
　　)；求剖切线与地形线的交点
' R8 I+ s/ Y7 q# g& G　　(if (/= crosp nil)
$ M- O0 A3 ^5 r" D1 R* E　　(progn
8 I" H6 _7 O; A) J+ m　　(setq dxtgcgc (nth 0 (nth i xdzb)))
! \+ n& t4 C2 r( |% ]4 ~' m3 j　　(setq mxgc (max mxgc dxtgcgc))
　　(setq mngc (min mngc dxtgcgc))
　　(setq dst (distance pt1 crosp))；剖切线起点与交点的距离
　　(setq dst (* (/ blcz dxthtbl) dst))
, r# b0 G2 Y, `: F1 ?  V　　(setq pmp (cons (list m dst dxtgcgc) pmp))
+ q% `7 I5 M# G2 s2 z　　(setq m (+ m 1))
　　))
2 `3 T" u5 K" u  @　　(setq i (+ i 1))
5 Q7 J: q( w8 Y; G- X　　))
6 Q. J+ M9 o" i文章关键词：