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

准备入门

　　2 .2地形切剖面
　　水电工程设计中经常遇到在地形图上切剖面的问题，借助Visual Lisp可以实现快速切剖面。
# L' r1 k9 h  J, T# ~　　(1) 初始地形图处理
( j/ b5 Z9 u( ?　　把带z坐标的地形平面图进行变换，变换后z坐标值成为层名，为加快切剖面运行速度，把“LWPOLYLINE”和”SPLINE”均转化为”LINE“线，程序如下
) r2 O  _8 W  _1 |0 K7 N/ \! U$ N　　(defun c:pltol()
- A9 P% Z. \8 o9 _3 u3 ?# l　　；LWPOLYLINE转化为LINE
7 I' C, u9 [8 S; E- u5 A　　(setq n 0)
0 [$ G3 x( ]+ @) c, N9 m　　(setq e (ssget"X" (list (cons 0 "LWPOLYLINE"))))
8 y% Q) S+ W) [" I4 D5 B, L　　(setq sh (sslength e))
　　(if e
, j. s5 Q2 `  Z　　(while (< n sh)
* Y( G# V8 Z8 z- f2 A1 E# ~　　(setq e1 (ssname e n))
5 o$ ~: x  x; ^4 [) E　　(command "pedit" e1 "d" "")
　　(setq x (entget e1))
! j0 r0 i  p. ?# {　　(setq ngc (atof (setq la (fld 8 x))))
　　(command "explode" e1)
6 }9 {) \1 \4 B1 J+ N2 {　　(setq n (+ n 1))
2 K* D% b) c4 ?6 w3 E　　) ) )
　　(defun fld (num lst)
　　(cdr (assoc num lst))
　　)
- A# \0 }9 Y2 |* @2 Q) Z　　(defun c:spltol ()
/ z: Q! _: h8 L2 N　　；SPLINE转化为LINE
4 U. d) C& R- U　　(setq n 0)
　　(setq e (ssget "X" (list (cons 0 "SPLINE"))))
　　(setq sh (sslength e))
$ t' {# l! G: s0 d$ p. h% Z　　(if e
9 _& s5 _( C# @' S8 f　　(while ( nm 5)
　　(if (= (car (nth nm x)) 10)
　　(progn
　　(setq b1 (nth nm x))
! }9 M( i5 A1 C6 c, a0 X　　(setq x1 (cadr b1))
　　(setq y1 (caddr b1))
　　(setq z1 (cadddr b1))
　　(setq glb (list x1 y1))
# R3 k: P0 @( f5 h$ l$ ]3 S　　(command glb)
$ B4 [) g& ^0 J) z/ Q　　) )
0 S% a0 B' A' c* e; H8 t& }　　(setq nm (- nm 1))
% q2 A, Z9 B3 w7 b' Y+ ?4 f　　)))
　　(command "")
　　(setq n (+ n 1))
7 z; T7 g% e! L　　)))
1 H1 X6 X( I9 B6 }7 m8 p　　(2)切剖面
　　输入剖面编号，在平面地形图上指定两点确定剖面剖切线位置，指定剖面图起点，利用AutoCAD的inters函数搜索剖切线与地形图的全部交点，自动计算交点坐标，计算交点与剖面位置起点的距离，按各交点高程和与起点的距离形成剖面图各点坐标，即可用本文实例1坐标画线生成地形图的剖面。
　　(defun dxtent1 ()
+ B. g; Z8 V  f/ x3 I　　(setq n 0 xdzb nil)
; z, E: }3 Z7 R! h* r　　(setq xds 0)
* [4 q9 w- Q1 a4 ~: P　　(setq sh (sslength e1))
) x! l; H/ Q, y　　(while ( dxtgcgc 10)
( L1 y* i* x3 h3 j$ L　　(progn
/ z3 _9 K! w2 _" |# A) N　　(setq pst (fld 10 x))
　　(setq pet (fld 11 x))
" l# k1 m3 k0 ]8 v8 R* @3 @) d　　(setq zb (list gc
　　(list (car pst) (cadr pst))
+ h  f+ q$ h( h; i7 K　　(list (car pet) (cadr pet))
　　))
, B' I- H5 c/ c, b# O3 D7 i0 v　　(setq xdzb (cons zb xdzb))
8 X. H' Q- W3 u; p. Z6 n　　(setq xds (+ xds 1))
　　))))
　　(setq n (+ n 1))
　　))
: D: x+ B8 r5 r# Y0 e1 ~0 _- }+ d　　(defun c:dxtsec ()
　　(setq pmh (+ pmh 1))
　　(setq pmh (getstring "/n剖面号" ))
3 b7 z7 N8 m6 u6 o8 ^$ N. n# ]　　(setq pt1 (getpoint "/n剖切位置起点:"))
" l" j3 a8 F! ~; R$ ]' `: e2 j# v　　(setq pt2 (getpoint pt1 "/n剖切位置终点:"))
　　(setq pt3 (getpoint "/n剖面图布置:"))
: ]( \8 r, c; i8 @6 \7 |　　(setq p01 pt3)
　　(setq e1 (ssget "F" (list pt1 pt2)))；利用AutoCAD的目标选择“F”方式选取与剖切线相交的地形线。
　　(dxtent)；获取与剖切线相交地形线的坐标
　　(setq mxgc -100)
　　(setq mngc 10000)
　　(setq m 0 pmp nil)
) T  G9 M5 f( }; f# C　　(setq n xds i 0)
  f7 d) i$ L+ n# b4 y, n6 t7 R- n1 e　　(while (< i n)
! G3 a2 m& O. [2 Y( g　　(setq crosp
9 f! P# b# x1 h2 g9 f7 Q% N　　(inters pt1 pt2 (nth 1 (nth i xdzb)) (nth 2 (nth i xdzb)) 1)
　　)；求剖切线与地形线的交点
3 b* F4 q' m! q) Z　　(if (/= crosp nil)
. O9 I1 c& U  X$ ^; e　　(progn
　　(setq dxtgcgc (nth 0 (nth i xdzb)))
, y. P7 L1 s7 W( g* {1 y8 x　　(setq mxgc (max mxgc dxtgcgc))
　　(setq mngc (min mngc dxtgcgc))
# @/ G! q# x9 f9 W  E: A/ B2 b　　(setq dst (distance pt1 crosp))；剖切线起点与交点的距离
　　(setq dst (* (/ blcz dxthtbl) dst))
　　(setq pmp (cons (list m dst dxtgcgc) pmp))
　　(setq m (+ m 1))
# _& s  K3 a' ]' m/ c* i　　))
　　(setq i (+ i 1))
　　))
文章关键词：