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

准备入门

　　2 .2地形切剖面
　　水电工程设计中经常遇到在地形图上切剖面的问题，借助Visual Lisp可以实现快速切剖面。
# F  p3 E. Y5 W& E1 g$ p+ M　　(1) 初始地形图处理
　　把带z坐标的地形平面图进行变换，变换后z坐标值成为层名，为加快切剖面运行速度，把“LWPOLYLINE”和”SPLINE”均转化为”LINE“线，程序如下
: |1 D) i5 m$ L& L6 v7 U& P　　(defun c:pltol()
6 \- ~6 z8 i2 J4 {/ a5 @　　；LWPOLYLINE转化为LINE
　　(setq n 0)
　　(setq e (ssget"X" (list (cons 0 "LWPOLYLINE"))))
3 w( \  f% V/ l/ ^　　(setq sh (sslength e))
　　(if e
　　(while (< n sh)
　　(setq e1 (ssname e n))
　　(command "pedit" e1 "d" "")
　　(setq x (entget e1))
　　(setq ngc (atof (setq la (fld 8 x))))
# e- H0 l+ d$ q, W! q　　(command "explode" e1)
　　(setq n (+ n 1))
　　) ) )
　　(defun fld (num lst)
　　(cdr (assoc num lst))
　　)
　　(defun c:spltol ()
7 C; u& D! Q- \, s6 ?　　；SPLINE转化为LINE
* a. Z7 M# ^3 V, ^3 o# o, v　　(setq n 0)
　　(setq e (ssget "X" (list (cons 0 "SPLINE"))))
　　(setq sh (sslength e))
: _! W! H9 \3 z* F　　(if e
$ d3 L: d7 |+ L0 Z+ M　　(while ( nm 5)
　　(if (= (car (nth nm x)) 10)
5 y4 A" `5 q! ^6 m0 o2 {　　(progn
/ X2 G* l' }9 I　　(setq b1 (nth nm x))
　　(setq x1 (cadr b1))
　　(setq y1 (caddr b1))
　　(setq z1 (cadddr b1))
　　(setq glb (list x1 y1))
　　(command glb)
　　) )
! @: M# _9 t* G　　(setq nm (- nm 1))
" ~# l9 j* r$ v6 x5 k  P  j　　)))
　　(command "")
9 W2 p, y! J9 Y" R" U; w+ \) b　　(setq n (+ n 1))
　　)))
6 K  }- D5 I( G' O* p　　(2)切剖面
　　输入剖面编号，在平面地形图上指定两点确定剖面剖切线位置，指定剖面图起点，利用AutoCAD的inters函数搜索剖切线与地形图的全部交点，自动计算交点坐标，计算交点与剖面位置起点的距离，按各交点高程和与起点的距离形成剖面图各点坐标，即可用本文实例1坐标画线生成地形图的剖面。
　　(defun dxtent1 ()
　　(setq n 0 xdzb nil)
　　(setq xds 0)
( L  k* ~) R5 N2 g) x1 Y　　(setq sh (sslength e1))
　　(while ( dxtgcgc 10)
　　(progn
$ f! J" {$ Z- I, a0 E5 r　　(setq pst (fld 10 x))
! y' f# R* f  {. e　　(setq pet (fld 11 x))
　　(setq zb (list gc
% m1 ?2 Z2 G& K! l　　(list (car pst) (cadr pst))
) N0 x) W$ @3 J4 M6 D　　(list (car pet) (cadr pet))
　　))
　　(setq xdzb (cons zb xdzb))
　　(setq xds (+ xds 1))
& T1 k1 d) Y& ~' {: H0 m　　))))
2 M4 z- \5 x. y5 R+ g# |) W6 O0 g　　(setq n (+ n 1))
. T, i& W9 \6 U/ \9 F) u　　))
　　(defun c:dxtsec ()
9 C3 W5 ]' q, ]" I# ]　　(setq pmh (+ pmh 1))
　　(setq pmh (getstring "/n剖面号" ))
　　(setq pt1 (getpoint "/n剖切位置起点:"))
- d& p/ ]  ]. d3 {3 l　　(setq pt2 (getpoint pt1 "/n剖切位置终点:"))
　　(setq pt3 (getpoint "/n剖面图布置:"))
+ j9 N  E! H- E* n! ^4 {　　(setq p01 pt3)
$ h2 e- u6 t% V! z- F  ^4 @　　(setq e1 (ssget "F" (list pt1 pt2)))；利用AutoCAD的目标选择“F”方式选取与剖切线相交的地形线。
　　(dxtent)；获取与剖切线相交地形线的坐标
+ e$ m1 B8 D, z/ y4 r; i　　(setq mxgc -100)
* z# g( G3 T7 u8 \　　(setq mngc 10000)
) c+ c% t# s) c7 o0 o" \　　(setq m 0 pmp nil)
　　(setq n xds i 0)
2 q: O! |) G0 F# C　　(while (< i n)
　　(setq crosp
　　(inters pt1 pt2 (nth 1 (nth i xdzb)) (nth 2 (nth i xdzb)) 1)
　　)；求剖切线与地形线的交点
　　(if (/= crosp nil)
: i7 `( a4 `$ Y& L3 u　　(progn
! G. i. z6 o0 Z　　(setq dxtgcgc (nth 0 (nth i xdzb)))
8 g. a% @, M5 u+ Q# I( P: y　　(setq mxgc (max mxgc dxtgcgc))
　　(setq mngc (min mngc dxtgcgc))
& D7 d# E% }# _　　(setq dst (distance pt1 crosp))；剖切线起点与交点的距离
　　(setq dst (* (/ blcz dxthtbl) dst))
　　(setq pmp (cons (list m dst dxtgcgc) pmp))
7 g/ C7 M# W! k　　(setq m (+ m 1))
　　))
& i# k7 T! f3 d2 {3 j　　(setq i (+ i 1))
* k  h& n0 d; q( v# N6 u' r　　))
文章关键词：