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

准备入门

　　2 .2地形切剖面
' ^( ^& ]2 S  S　　水电工程设计中经常遇到在地形图上切剖面的问题，借助Visual Lisp可以实现快速切剖面。
　　(1) 初始地形图处理
　　把带z坐标的地形平面图进行变换，变换后z坐标值成为层名，为加快切剖面运行速度，把“LWPOLYLINE”和”SPLINE”均转化为”LINE“线，程序如下
　　(defun c:pltol()
, ~: g* l9 H- m" l　　；LWPOLYLINE转化为LINE
　　(setq n 0)
0 m4 P7 k* c& E. r: V$ N: K　　(setq e (ssget"X" (list (cons 0 "LWPOLYLINE"))))
　　(setq sh (sslength e))
　　(if e
8 J% y4 n4 \: x# |' D7 E1 C$ F' Z　　(while (< n sh)
0 r2 E* P8 F1 F$ f$ J　　(setq e1 (ssname e n))
　　(command "pedit" e1 "d" "")
$ F$ _$ B9 `" @2 i+ d. T0 {- }- ~, p9 X　　(setq x (entget e1))
9 \! Z: I: m/ ?2 p- a1 B　　(setq ngc (atof (setq la (fld 8 x))))
1 k% Z9 ~6 X& Y  Q- \　　(command "explode" e1)
" T- o+ j0 c! x: k% a　　(setq n (+ n 1))
& Q1 }: S0 `9 Y　　) ) )
9 q, A' b9 d$ g3 z# e. s& N　　(defun fld (num lst)
　　(cdr (assoc num lst))
　　)
7 I9 J* Z/ j( W! E, Y1 \) O　　(defun c:spltol ()
　　；SPLINE转化为LINE
　　(setq n 0)
# F, B. ]! Q5 b- z* T3 u　　(setq e (ssget "X" (list (cons 0 "SPLINE"))))
7 t1 R4 @% v+ G9 K7 n' k　　(setq sh (sslength e))
2 K- S- W( F6 a' l# w$ p8 I" F　　(if e
' T/ d' P5 C( }2 S# A, e  |　　(while ( nm 5)
　　(if (= (car (nth nm x)) 10)
5 U6 l8 ~$ A, `% p　　(progn
　　(setq b1 (nth nm x))
, G) i2 q1 a2 E  D. o( X+ ~6 C　　(setq x1 (cadr b1))
　　(setq y1 (caddr b1))
8 y! O4 j$ m4 I; d　　(setq z1 (cadddr b1))
　　(setq glb (list x1 y1))
# I# q% [- h2 ^) ]0 w　　(command glb)
+ G7 J/ x3 U* P- k# }　　) )
　　(setq nm (- nm 1))
2 ]% ^$ ^: g( h5 g% ?" d　　)))
9 C6 }* D% {1 n' C+ d　　(command "")
　　(setq n (+ n 1))
　　)))
　　(2)切剖面
　　输入剖面编号，在平面地形图上指定两点确定剖面剖切线位置，指定剖面图起点，利用AutoCAD的inters函数搜索剖切线与地形图的全部交点，自动计算交点坐标，计算交点与剖面位置起点的距离，按各交点高程和与起点的距离形成剖面图各点坐标，即可用本文实例1坐标画线生成地形图的剖面。
　　(defun dxtent1 ()
　　(setq n 0 xdzb nil)
, H3 q1 z/ y/ F$ I　　(setq xds 0)
* Q0 q/ C* I- e: ]/ j- b　　(setq sh (sslength e1))
　　(while ( dxtgcgc 10)
* H7 K5 j; ?) D　　(progn
' O: e! N$ [9 b8 q2 L& @7 i　　(setq pst (fld 10 x))
　　(setq pet (fld 11 x))
2 W' G  p' m7 X; Y2 U　　(setq zb (list gc
  [+ a& H) P3 H/ P6 c" E: L$ b　　(list (car pst) (cadr pst))
2 i  F* H2 I/ f5 `, [5 J4 k; h　　(list (car pet) (cadr pet))
　　))
　　(setq xdzb (cons zb xdzb))
, `" H# p& O/ f1 a# E　　(setq xds (+ xds 1))
/ D8 i. O& E( N5 Y1 V　　))))
) O2 O  n/ Y3 _3 Z7 [4 ]( y　　(setq n (+ n 1))
1 J+ _& l( h. ]3 P( L8 }　　))
0 t0 H- o, W2 A# C' E7 A* H　　(defun c:dxtsec ()
! X/ |: r1 ]2 j　　(setq pmh (+ pmh 1))
/ j, j8 J" \- k; @! ~3 [　　(setq pmh (getstring "/n剖面号" ))
　　(setq pt1 (getpoint "/n剖切位置起点:"))
5 W# M: o0 ^0 d5 O, f　　(setq pt2 (getpoint pt1 "/n剖切位置终点:"))
　　(setq pt3 (getpoint "/n剖面图布置:"))
6 x* f8 h5 \; k/ g　　(setq p01 pt3)
; T( o( |- d# z$ u# \7 y/ _0 X　　(setq e1 (ssget "F" (list pt1 pt2)))；利用AutoCAD的目标选择“F”方式选取与剖切线相交的地形线。
# |6 g* h0 _/ N) Q. |$ O　　(dxtent)；获取与剖切线相交地形线的坐标
　　(setq mxgc -100)
　　(setq mngc 10000)
　　(setq m 0 pmp nil)
8 ?$ ^" @9 v# {& Z5 F　　(setq n xds i 0)
; N  d, M( r$ b& F  y" F　　(while (< i n)
　　(setq crosp
* ^# I; Z9 y. e" S# S6 s$ ^　　(inters pt1 pt2 (nth 1 (nth i xdzb)) (nth 2 (nth i xdzb)) 1)
　　)；求剖切线与地形线的交点
0 }- X' U# N8 _' H/ @+ N　　(if (/= crosp nil)
  `8 R1 M& }  i# L6 k) a7 P( m　　(progn
　　(setq dxtgcgc (nth 0 (nth i xdzb)))
　　(setq mxgc (max mxgc dxtgcgc))
1 c. m3 D6 B* k( Q4 J# r　　(setq mngc (min mngc dxtgcgc))
8 H7 E+ d5 [2 n; H. k　　(setq dst (distance pt1 crosp))；剖切线起点与交点的距离
7 T8 Z' G; k/ @: _7 s  P0 B% Z$ ~  L% ~　　(setq dst (* (/ blcz dxthtbl) dst))
) `2 H7 o, R1 w3 O2 G0 ?7 |　　(setq pmp (cons (list m dst dxtgcgc) pmp))
　　(setq m (+ m 1))
　　))
　　(setq i (+ i 1))
　　))
) y% c4 F! q- b1 _文章关键词：