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

准备入门

　　2 .2地形切剖面
　　水电工程设计中经常遇到在地形图上切剖面的问题，借助Visual Lisp可以实现快速切剖面。
　　(1) 初始地形图处理
　　把带z坐标的地形平面图进行变换，变换后z坐标值成为层名，为加快切剖面运行速度，把“LWPOLYLINE”和”SPLINE”均转化为”LINE“线，程序如下
　　(defun c:pltol()
　　；LWPOLYLINE转化为LINE
　　(setq n 0)
　　(setq e (ssget"X" (list (cons 0 "LWPOLYLINE"))))
　　(setq sh (sslength e))
% `1 W( G- O3 p　　(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))))
7 \1 g' Z  h' A  k0 b$ F　　(command "explode" e1)
　　(setq n (+ n 1))
$ g8 `# X8 x5 R3 q　　) ) )
　　(defun fld (num lst)
　　(cdr (assoc num lst))
: b. g* d% ^( G　　)
　　(defun c:spltol ()
; L# J+ N2 i' e　　；SPLINE转化为LINE
: I: [( D2 P2 z5 y+ A/ x　　(setq n 0)
　　(setq e (ssget "X" (list (cons 0 "SPLINE"))))
　　(setq sh (sslength e))
　　(if e
$ q& ^' p) J, R& N4 K, Y5 x4 j$ \　　(while ( nm 5)
　　(if (= (car (nth nm x)) 10)
. r' ~7 H# g! f* d) j7 O5 E% B　　(progn
　　(setq b1 (nth nm x))
　　(setq x1 (cadr b1))
, Y" T1 g; A9 f+ X5 `; L　　(setq y1 (caddr b1))
　　(setq z1 (cadddr b1))
　　(setq glb (list x1 y1))
+ `  z8 d5 i- A8 L3 }　　(command glb)
　　) )
　　(setq nm (- nm 1))
' u. k( Z  u3 \# A9 ^, p, a; ?6 m7 k　　)))
) v8 d8 w& K$ r( M9 t; M　　(command "")
　　(setq n (+ n 1))
' ~; D% w+ y5 b( W　　)))
& V' D2 d3 f+ E　　(2)切剖面
　　输入剖面编号，在平面地形图上指定两点确定剖面剖切线位置，指定剖面图起点，利用AutoCAD的inters函数搜索剖切线与地形图的全部交点，自动计算交点坐标，计算交点与剖面位置起点的距离，按各交点高程和与起点的距离形成剖面图各点坐标，即可用本文实例1坐标画线生成地形图的剖面。
' Y! }+ d5 |- `" W4 T, y6 M) M　　(defun dxtent1 ()
9 q1 v  o& [( S, q7 `　　(setq n 0 xdzb nil)
　　(setq xds 0)
* I5 a( W/ E4 Z. S7 \- J　　(setq sh (sslength e1))
　　(while ( dxtgcgc 10)
　　(progn
) H2 H$ K* h2 m8 j0 Q8 H　　(setq pst (fld 10 x))
　　(setq pet (fld 11 x))
　　(setq zb (list gc
1 W; G0 t, n% V/ X! G( O8 @: n　　(list (car pst) (cadr pst))
　　(list (car pet) (cadr pet))
, n- S' `& I' O) h6 g　　))
' f9 _9 g; W  F/ f; Z　　(setq xdzb (cons zb xdzb))
　　(setq xds (+ xds 1))
5 H: ~3 {. z/ ^) k# y( o　　))))
: i8 _9 w' k  M8 t9 v' r+ R1 N* l　　(setq n (+ n 1))
　　))
　　(defun c:dxtsec ()
" b1 ]' [: m3 \. L8 g$ L" k　　(setq pmh (+ pmh 1))
, G" z8 [5 _8 T  J8 [* A　　(setq pmh (getstring "/n剖面号" ))
! m( R2 t* R; I3 U$ }# b7 U3 ~　　(setq pt1 (getpoint "/n剖切位置起点:"))
　　(setq pt2 (getpoint pt1 "/n剖切位置终点:"))
  V7 m% m3 F& n9 U　　(setq pt3 (getpoint "/n剖面图布置:"))
　　(setq p01 pt3)
　　(setq e1 (ssget "F" (list pt1 pt2)))；利用AutoCAD的目标选择“F”方式选取与剖切线相交的地形线。
　　(dxtent)；获取与剖切线相交地形线的坐标
! D: _/ R  ~/ D% f　　(setq mxgc -100)
: X+ L# T5 C. Q1 s　　(setq mngc 10000)
  ~2 H$ [; c- S7 U7 X　　(setq m 0 pmp nil)
　　(setq n xds i 0)
　　(while (< i n)
. z8 o: F0 t: W- }/ ~　　(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)))
　　(setq mxgc (max mxgc dxtgcgc))
　　(setq mngc (min mngc dxtgcgc))
0 Z' k6 z. B/ Y5 g　　(setq dst (distance pt1 crosp))；剖切线起点与交点的距离
7 R7 p6 D- H& V2 Z1 _; I　　(setq dst (* (/ blcz dxthtbl) dst))
　　(setq pmp (cons (list m dst dxtgcgc) pmp))
　　(setq m (+ m 1))
' d. t* a! l4 Y$ D4 _* ]* W- n　　))
　　(setq i (+ i 1))
　　))
2 L/ E1 X. `' r5 E! b文章关键词：