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

准备入门

　　2 .2地形切剖面
　　水电工程设计中经常遇到在地形图上切剖面的问题，借助Visual Lisp可以实现快速切剖面。
　　(1) 初始地形图处理
　　把带z坐标的地形平面图进行变换，变换后z坐标值成为层名，为加快切剖面运行速度，把“LWPOLYLINE”和”SPLINE”均转化为”LINE“线，程序如下
　　(defun c:pltol()
) `: Y# i6 p$ B9 N. ~* [( C　　；LWPOLYLINE转化为LINE
　　(setq n 0)
　　(setq e (ssget"X" (list (cons 0 "LWPOLYLINE"))))
　　(setq sh (sslength e))
2 U  j: j2 X0 I! G3 E$ r　　(if e
  |) s6 o  B7 Y$ O　　(while (< n sh)
　　(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))
　　) ) )
1 t* y  G3 q5 ]　　(defun fld (num lst)
　　(cdr (assoc num lst))
9 ~+ S# o7 f) u) M# L2 V2 n　　)
　　(defun c:spltol ()
　　；SPLINE转化为LINE
　　(setq n 0)
　　(setq e (ssget "X" (list (cons 0 "SPLINE"))))
　　(setq sh (sslength e))
! Y0 k6 P* ]8 W! O　　(if e
# \4 `) t+ C2 U- @' k; l  v　　(while ( nm 5)
　　(if (= (car (nth nm x)) 10)
) b9 ~9 m" e/ W) X  q* `- g. S　　(progn
　　(setq b1 (nth nm x))
5 {2 J; j. B' l4 d: j　　(setq x1 (cadr b1))
- P1 Y* Q) }9 X/ Q( k' `( E4 \3 I　　(setq y1 (caddr b1))
" L6 B# h% P1 e% {0 U　　(setq z1 (cadddr b1))
6 I: C! o' t9 d' n1 a　　(setq glb (list x1 y1))
0 u9 h  n3 m' c6 p* Y6 k0 G$ X　　(command glb)
　　) )
) P6 Z: r8 h" C5 ~& D( D　　(setq nm (- nm 1))
　　)))
　　(command "")
　　(setq n (+ n 1))
2 {9 U# M  _' I( C　　)))
( F# j9 d1 E6 g6 ]2 s; i　　(2)切剖面
$ d5 r* Y/ E0 B6 D) x  j$ G3 k　　输入剖面编号，在平面地形图上指定两点确定剖面剖切线位置，指定剖面图起点，利用AutoCAD的inters函数搜索剖切线与地形图的全部交点，自动计算交点坐标，计算交点与剖面位置起点的距离，按各交点高程和与起点的距离形成剖面图各点坐标，即可用本文实例1坐标画线生成地形图的剖面。
2 L9 p0 N- N4 E& Q) f　　(defun dxtent1 ()
　　(setq n 0 xdzb nil)
& \3 ~1 g- a7 v$ x' X* }$ L　　(setq xds 0)
+ J/ Q4 \- E  b. H　　(setq sh (sslength e1))
　　(while ( dxtgcgc 10)
　　(progn
, q7 a& C- l6 D* C　　(setq pst (fld 10 x))
　　(setq pet (fld 11 x))
　　(setq zb (list gc
0 P* n1 j0 X8 O$ k% b. y　　(list (car pst) (cadr pst))
6 K0 w- k1 t8 ?3 R! m　　(list (car pet) (cadr pet))
　　))
$ I$ C8 I! k; @! n& [4 o3 v+ }3 ?9 ^　　(setq xdzb (cons zb xdzb))
　　(setq xds (+ xds 1))
　　))))
5 [! C0 ]4 |, c　　(setq n (+ n 1))
　　))
　　(defun c:dxtsec ()
1 o& J9 Q1 h, C1 a  W& L+ u　　(setq pmh (+ pmh 1))
$ d; t! e/ O& C$ T　　(setq pmh (getstring "/n剖面号" ))
　　(setq pt1 (getpoint "/n剖切位置起点:"))
8 w) n& L6 q  d" a( @0 p　　(setq pt2 (getpoint pt1 "/n剖切位置终点:"))
　　(setq pt3 (getpoint "/n剖面图布置:"))
　　(setq p01 pt3)
# S: u$ U: O& S; W9 _　　(setq e1 (ssget "F" (list pt1 pt2)))；利用AutoCAD的目标选择“F”方式选取与剖切线相交的地形线。
( W1 P: D- l7 s1 x9 l# g7 I8 m, x　　(dxtent)；获取与剖切线相交地形线的坐标
) _' T: a! _6 ]7 W6 p0 Q  i, U( o　　(setq mxgc -100)
　　(setq mngc 10000)
& B0 z, r% O: A* a, e5 S　　(setq m 0 pmp nil)
% v3 c+ X7 K' J) E7 w0 v  k) k% \　　(setq n xds i 0)
　　(while (< i n)
　　(setq crosp
0 B% X$ Y  X. L5 a8 z　　(inters pt1 pt2 (nth 1 (nth i xdzb)) (nth 2 (nth i xdzb)) 1)
　　)；求剖切线与地形线的交点
. E( X. g) v+ w, o4 y' n; O& N7 D　　(if (/= crosp nil)
　　(progn
+ d# T" C1 W2 x" y$ M* f　　(setq dxtgcgc (nth 0 (nth i xdzb)))
: D( l* ^2 K0 n& ?　　(setq mxgc (max mxgc dxtgcgc))
- I' i0 t! V: e* [0 f+ t3 M9 A　　(setq mngc (min mngc dxtgcgc))
% ]$ B! a2 D8 I' A　　(setq dst (distance pt1 crosp))；剖切线起点与交点的距离
　　(setq dst (* (/ blcz dxthtbl) dst))
　　(setq pmp (cons (list m dst dxtgcgc) pmp))
# K. k$ c+ R& S+ e1 f2 y2 }　　(setq m (+ m 1))
# X5 a  Z, Y) Y1 c' ?# [, Y　　))
　　(setq i (+ i 1))
　　))
文章关键词：