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

准备入门

　　2 .2地形切剖面
5 P/ ]9 m1 h* _" Q- ]　　水电工程设计中经常遇到在地形图上切剖面的问题，借助Visual Lisp可以实现快速切剖面。
! Z) L7 W" U1 d# U* Y　　(1) 初始地形图处理
. E) {% L0 S7 }1 m; C& S  [　　把带z坐标的地形平面图进行变换，变换后z坐标值成为层名，为加快切剖面运行速度，把“LWPOLYLINE”和”SPLINE”均转化为”LINE“线，程序如下
　　(defun c:pltol()
5 M" v$ y7 R, W% R　　；LWPOLYLINE转化为LINE
8 W; S. @0 l8 T  J, S　　(setq n 0)
　　(setq e (ssget"X" (list (cons 0 "LWPOLYLINE"))))
& o7 m9 g4 W; l% h& d　　(setq sh (sslength e))
. i* K7 N: F& p; l* I* x　　(if e
　　(while (< n sh)
" e! {" z' [& H. b6 y2 K( g( A　　(setq e1 (ssname e n))
　　(command "pedit" e1 "d" "")
　　(setq x (entget e1))
　　(setq ngc (atof (setq la (fld 8 x))))
　　(command "explode" e1)
　　(setq n (+ n 1))
　　) ) )
　　(defun fld (num lst)
+ l! O" E! _2 i3 u% b: s　　(cdr (assoc num lst))
7 D7 t* G  e* [, |4 R4 V! ^: a; M( ^　　)
2 w! D8 ]" O" H/ @& |　　(defun c:spltol ()
! U7 z! a8 V* ?, }5 w2 W$ L7 R: q　　；SPLINE转化为LINE
& D9 @  f0 V9 g2 h- ]  b/ a　　(setq n 0)
% J6 V' h! u& x　　(setq e (ssget "X" (list (cons 0 "SPLINE"))))
　　(setq sh (sslength e))
　　(if e
  @* n1 i3 o9 W: R　　(while ( nm 5)
9 D6 F8 A0 A+ v' Y. T# U& v　　(if (= (car (nth nm x)) 10)
) T1 R3 h0 N0 _0 g8 e　　(progn
　　(setq b1 (nth nm x))
　　(setq x1 (cadr b1))
3 v) z* @8 ]% k/ U' _( u# h　　(setq y1 (caddr b1))
　　(setq z1 (cadddr b1))
' a2 i$ S* m( P　　(setq glb (list x1 y1))
　　(command glb)
; [, y7 s0 t6 u1 ~$ i　　) )
! Q% W2 v4 s6 a. X$ N　　(setq nm (- nm 1))
; n. x2 Q1 \8 d　　)))
　　(command "")
/ c1 c% g' `& c! [1 d7 N4 k, a( B　　(setq n (+ n 1))
4 d" W9 E" i# i# e　　)))
　　(2)切剖面
: z. c6 ?" H. S; c) O　　输入剖面编号，在平面地形图上指定两点确定剖面剖切线位置，指定剖面图起点，利用AutoCAD的inters函数搜索剖切线与地形图的全部交点，自动计算交点坐标，计算交点与剖面位置起点的距离，按各交点高程和与起点的距离形成剖面图各点坐标，即可用本文实例1坐标画线生成地形图的剖面。
　　(defun dxtent1 ()
' T7 Q/ I; J* B1 d; \2 O. C　　(setq n 0 xdzb nil)
　　(setq xds 0)
9 h0 {) h0 S4 E  z& P5 v% V　　(setq sh (sslength e1))
3 @# G7 V) S4 T6 R　　(while ( dxtgcgc 10)
　　(progn
　　(setq pst (fld 10 x))
　　(setq pet (fld 11 x))
　　(setq zb (list gc
　　(list (car pst) (cadr pst))
　　(list (car pet) (cadr pet))
+ w" o& s& d- Q* ~! l　　))
　　(setq xdzb (cons zb xdzb))
　　(setq xds (+ xds 1))
　　))))
+ U; O& R! e+ `" ~　　(setq n (+ n 1))
　　))
+ r& a  v5 |+ e$ h6 \: L  g　　(defun c:dxtsec ()
　　(setq pmh (+ pmh 1))
9 y8 l; w% \. w$ Z　　(setq pmh (getstring "/n剖面号" ))
　　(setq pt1 (getpoint "/n剖切位置起点:"))
　　(setq pt2 (getpoint pt1 "/n剖切位置终点:"))
+ x! D4 r, Q! g: L2 y　　(setq pt3 (getpoint "/n剖面图布置:"))
8 ]1 y4 U1 M1 n4 `' v　　(setq p01 pt3)
  E5 N: [8 }9 M  `9 W; K　　(setq e1 (ssget "F" (list pt1 pt2)))；利用AutoCAD的目标选择“F”方式选取与剖切线相交的地形线。
　　(dxtent)；获取与剖切线相交地形线的坐标
　　(setq mxgc -100)
　　(setq mngc 10000)
　　(setq m 0 pmp nil)
. q' |' k+ q$ d* Q! l, a& l( O% f　　(setq n xds i 0)
& r% V+ L1 U' f5 y3 H8 A/ k　　(while (< i n)
; C  f: w% u; K: a# \; N' B　　(setq crosp
+ L9 R+ y+ n1 B# f3 A0 l, T　　(inters pt1 pt2 (nth 1 (nth i xdzb)) (nth 2 (nth i xdzb)) 1)
1 {, N: ^' H! [, h) W　　)；求剖切线与地形线的交点
　　(if (/= crosp nil)
* S" S2 T# ^, b* C　　(progn
* Y7 E$ s: _* t0 R+ L' F　　(setq dxtgcgc (nth 0 (nth i xdzb)))
) R, k' Y7 F* T, l" G% K" I; W% ?+ e　　(setq mxgc (max mxgc dxtgcgc))
* u5 v- R0 z% F　　(setq mngc (min mngc dxtgcgc))
5 b! {, @" _, f* C( F( g* q7 U　　(setq dst (distance pt1 crosp))；剖切线起点与交点的距离
　　(setq dst (* (/ blcz dxthtbl) dst))
　　(setq pmp (cons (list m dst dxtgcgc) pmp))
　　(setq m (+ m 1))
& X+ F+ l3 }) q! ~' }9 [8 e　　))
　　(setq i (+ i 1))
/ J- r# U, y% y. {　　))
8 U  M! t0 Q  o2 \7 c1 ^文章关键词：