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

准备入门

　　2 .2地形切剖面
　　水电工程设计中经常遇到在地形图上切剖面的问题，借助Visual Lisp可以实现快速切剖面。
　　(1) 初始地形图处理
) H% u$ c) O: U( L; |3 ~* [$ {　　把带z坐标的地形平面图进行变换，变换后z坐标值成为层名，为加快切剖面运行速度，把“LWPOLYLINE”和”SPLINE”均转化为”LINE“线，程序如下
, l& b! ~. r6 m* C' Y1 E2 {　　(defun c:pltol()
　　；LWPOLYLINE转化为LINE
5 B6 ~, I# f# F　　(setq n 0)
　　(setq e (ssget"X" (list (cons 0 "LWPOLYLINE"))))
  q, c; j  k8 x0 {* r2 o　　(setq sh (sslength e))
　　(if e
　　(while (< n sh)
　　(setq e1 (ssname e n))
# S2 g$ Q7 }5 }　　(command "pedit" e1 "d" "")
& \% l! E1 G9 e　　(setq x (entget e1))
　　(setq ngc (atof (setq la (fld 8 x))))
　　(command "explode" e1)
　　(setq n (+ n 1))
2 j3 h( _* W6 A7 Y; x  r) u　　) ) )
5 z- O- _& }- Z& b. w* m* D　　(defun fld (num lst)
　　(cdr (assoc num lst))
* \1 }/ R3 [3 j. s; F* ]　　)
　　(defun c:spltol ()
　　；SPLINE转化为LINE
　　(setq n 0)
0 Y( P! f& V( J$ }$ }  ?　　(setq e (ssget "X" (list (cons 0 "SPLINE"))))
　　(setq sh (sslength e))
　　(if e
　　(while ( nm 5)
　　(if (= (car (nth nm x)) 10)
　　(progn
　　(setq b1 (nth nm x))
+ R# I: m9 j( U1 V　　(setq x1 (cadr b1))
2 o8 U+ t, y" l( ?2 t& s  h! _　　(setq y1 (caddr b1))
4 s" G  g0 Q1 G　　(setq z1 (cadddr b1))
, m6 O" E6 g( G' Q1 s; b　　(setq glb (list x1 y1))
　　(command glb)
　　) )
8 }9 }9 d3 _- Z4 A　　(setq nm (- nm 1))
( t% U, Q2 E& Q  B6 X( u0 s　　)))
) f1 I' Z- d9 O, F- d/ U; S　　(command "")
　　(setq n (+ n 1))
* b) j; \  N: q+ B; E6 q7 W. R　　)))
& M- ~! f3 d4 S0 r! M7 E　　(2)切剖面
　　输入剖面编号，在平面地形图上指定两点确定剖面剖切线位置，指定剖面图起点，利用AutoCAD的inters函数搜索剖切线与地形图的全部交点，自动计算交点坐标，计算交点与剖面位置起点的距离，按各交点高程和与起点的距离形成剖面图各点坐标，即可用本文实例1坐标画线生成地形图的剖面。
. C2 A+ _4 f( G1 z; L% q0 _　　(defun dxtent1 ()
　　(setq n 0 xdzb nil)
　　(setq xds 0)
　　(setq sh (sslength e1))
　　(while ( dxtgcgc 10)
　　(progn
2 [* ]5 H' ]% p0 ?$ c1 S) }　　(setq pst (fld 10 x))
　　(setq pet (fld 11 x))
　　(setq zb (list gc
, Z& Y  {6 _" v8 n　　(list (car pst) (cadr pst))
　　(list (car pet) (cadr pet))
　　))
7 Y9 O/ r0 }5 N. f3 h% t  A* i　　(setq xdzb (cons zb xdzb))
　　(setq xds (+ xds 1))
- i0 D' u: d1 ~, ?: K3 a% c　　))))
4 E! _. W  y4 }- R$ z( T  W) Q　　(setq n (+ n 1))
　　))
　　(defun c:dxtsec ()
　　(setq pmh (+ pmh 1))
　　(setq pmh (getstring "/n剖面号" ))
2 B# o! v: I1 `　　(setq pt1 (getpoint "/n剖切位置起点:"))
/ I& y8 h: O2 I2 Y0 r　　(setq pt2 (getpoint pt1 "/n剖切位置终点:"))
　　(setq pt3 (getpoint "/n剖面图布置:"))
　　(setq p01 pt3)
/ G9 U2 K! M7 M+ K+ f　　(setq e1 (ssget "F" (list pt1 pt2)))；利用AutoCAD的目标选择“F”方式选取与剖切线相交的地形线。
) v* h* @& g9 e! V$ O, A3 z! P/ o　　(dxtent)；获取与剖切线相交地形线的坐标
" r  p3 y* x" u8 O* c' K　　(setq mxgc -100)
" [  J! V  ~  d$ |% y　　(setq mngc 10000)
　　(setq m 0 pmp nil)
　　(setq n xds i 0)
　　(while (< i n)
3 h7 ]/ b7 a) j+ N　　(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)))
3 e5 W, P4 o( v5 [9 p  _* z　　(setq mxgc (max mxgc dxtgcgc))
- x/ Y- \7 K9 Y4 `　　(setq mngc (min mngc dxtgcgc))
4 A2 v% x+ n3 Q" Z- J　　(setq dst (distance pt1 crosp))；剖切线起点与交点的距离
　　(setq dst (* (/ blcz dxthtbl) dst))
　　(setq pmp (cons (list m dst dxtgcgc) pmp))
　　(setq m (+ m 1))
　　))
" d7 T1 n9 W* Q6 I* C! G　　(setq i (+ i 1))
　　))
文章关键词：