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

准备入门

　　2 .2地形切剖面
0 }! I' p# X: n) h; x( ]! q. `* ~' F8 p1 Y　　水电工程设计中经常遇到在地形图上切剖面的问题，借助Visual Lisp可以实现快速切剖面。
　　(1) 初始地形图处理
: d2 I% w; k) H9 d　　把带z坐标的地形平面图进行变换，变换后z坐标值成为层名，为加快切剖面运行速度，把“LWPOLYLINE”和”SPLINE”均转化为”LINE“线，程序如下
9 q: L# \4 s7 Q* j　　(defun c:pltol()
　　；LWPOLYLINE转化为LINE
　　(setq n 0)
　　(setq e (ssget"X" (list (cons 0 "LWPOLYLINE"))))
　　(setq sh (sslength e))
& ~. s5 V( ^+ r# |　　(if e
& ?& K* {; [' B9 p5 y* \" ]　　(while (< n sh)
　　(setq e1 (ssname e n))
　　(command "pedit" e1 "d" "")
4 G  q9 I, {" y+ I　　(setq x (entget e1))
　　(setq ngc (atof (setq la (fld 8 x))))
+ N1 J# x! L! _1 I5 F1 \! S3 F& J　　(command "explode" e1)
& D; g. a( @' E# |5 e　　(setq n (+ n 1))
* }& Q3 n- d. S　　) ) )
% J- m2 ^% X3 V" ^" `　　(defun fld (num lst)
$ P  I/ d6 f% D1 T" ]3 G# R! O　　(cdr (assoc num lst))
　　)
' a% v+ W: v& p; L　　(defun c:spltol ()
- t$ b5 u) q, t9 i　　；SPLINE转化为LINE
　　(setq n 0)
　　(setq e (ssget "X" (list (cons 0 "SPLINE"))))
　　(setq sh (sslength e))
! O: r- f% W/ o6 K7 Q1 X: ?3 B, H　　(if e
! F3 b& n. @- u5 _" v- j) L3 f　　(while ( nm 5)
　　(if (= (car (nth nm x)) 10)
　　(progn
　　(setq b1 (nth nm x))
9 q9 u+ V* q. c9 N　　(setq x1 (cadr b1))
. k0 x8 b; d2 B% W, S　　(setq y1 (caddr b1))
　　(setq z1 (cadddr b1))
　　(setq glb (list x1 y1))
　　(command glb)
　　) )
　　(setq nm (- nm 1))
　　)))
　　(command "")
% E5 z# R2 u. Q/ T: _& }　　(setq n (+ n 1))
3 l+ d2 w8 g! M5 Z2 {1 f) L( L; i　　)))
; c1 `. t, G# i1 J) _4 _　　(2)切剖面
" Z3 Y, n5 a% j0 E% P. R　　输入剖面编号，在平面地形图上指定两点确定剖面剖切线位置，指定剖面图起点，利用AutoCAD的inters函数搜索剖切线与地形图的全部交点，自动计算交点坐标，计算交点与剖面位置起点的距离，按各交点高程和与起点的距离形成剖面图各点坐标，即可用本文实例1坐标画线生成地形图的剖面。
( ?$ \4 B) l/ [5 B3 r　　(defun dxtent1 ()
　　(setq n 0 xdzb nil)
. G- t5 L5 X# o/ ?7 I/ ^+ h" T　　(setq xds 0)
　　(setq sh (sslength e1))
( b, U/ L: \' o3 l　　(while ( dxtgcgc 10)
　　(progn
　　(setq pst (fld 10 x))
* I8 n6 G/ y- |/ s# a  M- k　　(setq pet (fld 11 x))
( y5 T" }; _/ K" W$ \* }* H　　(setq zb (list gc
　　(list (car pst) (cadr pst))
  U; v) r$ y4 v4 Q$ W: x# z) G: \6 E　　(list (car pet) (cadr pet))
　　))
　　(setq xdzb (cons zb xdzb))
- M+ Q* l0 A: p" x4 [* ~1 U　　(setq xds (+ xds 1))
　　))))
( k0 i3 F, C3 L7 A　　(setq n (+ n 1))
% P: h/ V; Q- T1 t　　))
　　(defun c:dxtsec ()
/ d- T# N$ l5 u$ m　　(setq pmh (+ pmh 1))
+ W7 Z$ N2 G" e- }' H% p1 Z　　(setq pmh (getstring "/n剖面号" ))
　　(setq pt1 (getpoint "/n剖切位置起点:"))
8 @4 d# t2 w8 `, e' x' d$ y; N　　(setq pt2 (getpoint pt1 "/n剖切位置终点:"))
　　(setq pt3 (getpoint "/n剖面图布置:"))
　　(setq p01 pt3)
0 u; Z. X# _$ A4 _2 U# W8 S　　(setq e1 (ssget "F" (list pt1 pt2)))；利用AutoCAD的目标选择“F”方式选取与剖切线相交的地形线。
　　(dxtent)；获取与剖切线相交地形线的坐标
9 ?# k( \+ ^# m* E: `9 r  X( k　　(setq mxgc -100)
　　(setq mngc 10000)
' h& t" v5 i' R6 R' w$ F# B　　(setq m 0 pmp nil)
　　(setq n xds i 0)
　　(while (< i n)
" I& N# ^3 r! m1 y/ y　　(setq crosp
　　(inters pt1 pt2 (nth 1 (nth i xdzb)) (nth 2 (nth i xdzb)) 1)
　　)；求剖切线与地形线的交点
　　(if (/= crosp nil)
　　(progn
　　(setq dxtgcgc (nth 0 (nth i xdzb)))
+ u0 `/ a3 k- a/ k/ m1 I5 {　　(setq mxgc (max mxgc dxtgcgc))
　　(setq mngc (min mngc dxtgcgc))
　　(setq dst (distance pt1 crosp))；剖切线起点与交点的距离
　　(setq dst (* (/ blcz dxthtbl) dst))
. i4 P. b3 {# k7 Q　　(setq pmp (cons (list m dst dxtgcgc) pmp))
　　(setq m (+ m 1))
6 F% ], x+ V6 B$ o　　))
0 @! i7 C4 k9 w1 v' {6 V　　(setq i (+ i 1))
　　))
文章关键词：