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

HEATS

　　2 .3沿曲线标注

7 M" `2 [; c4 `# B

　　在设计中会遇到沿给定曲线进行标注问题，如平面布置图中的开挖线符号沿开挖轮廓的标注，剖面图中岩石符号沿轮廓线标注、点筋标注、沿任意曲线进行汉字标注等。此类问题主要应用AutoCAD的Measure或divide命令来解决。两个命令的主要差别是前者按指定的长度在曲线上标注，后者按给定的分段数等分曲线并在等分点处进行标注。要标注的轮廓曲线最好用pline线，要标注的符号预先做成图块，图块采用单位块，执行measure或divide命令，选取要标注的曲线，指定标注符号，分段长度或分段数即可完成标注，当发现标注的符号太密或太疏时，可以执行erase命令选择P进行删除，比例不合适或符号方向不正确，可以利用特性编辑器，选中所有标注符号，对标注符号的比例和旋转角度进行调整，直到满意为止。对于更高级的应用，可以编制LSP程序，实现符号和文字沿任意曲线标注。

3 Q$ D6 L1 R1 y: Z- Y' r

　　2 .4表格生成

" Z2 {* h" B8 K9 i: d8 b: p

　　AutoCAD本身没有表格处理功能，设计图纸中工程量表、钢筋表等涉及到表格生成的问题可以采用以下方法处理：

0 x, W1 z5 ^. W% c- z E* p

　　(1)直接把Word或Excel文件中的表格直接粘贴到CAD图形中，修改时只要双击图中的表格即可进入Word或Excel中进行编辑修改，修改完成后退出即可返回到AutoCAD中继续进行设计，该法优点是方便，快捷，易于掌握，可以充分利用Excel的强大计算功能。缺点是表格在AutoCAD中并不是一个普通图元，无法利用CAD功能对表格的字高、颜色和线宽进行编辑。

# L/ t. j0 v" P# J, H5 T, t 8 V, o$ W1 [8 p2 B& m S w

　　(2)编制LSP程序，依次输入表格标题、表格行数、表格列数、表格行高和列宽以及表格插入点等参数，可以自动生成表格，表格中已经按仿Excel形式填入了文字，可以用字处理软件对表格中文字进行编辑修改。

9 d5 K# r$ J4 o4 X/ U# W " m6 }% Q6 ?7 H

　　(defun C:mtab()

5 _5 Q" W& B1 D' d

　　(setq tb1 nil tb2 nil tb3 nil)

! r: w. v: {6 m

　　(setq rows (getint "表格行数"))

# [9 C$ v2 ~! @! D3 s

　　(setq cols (getint "表格列数"))

　　(setq rowh (getreal "行高"))

- v# |7 G3 ^+ q9 m - M( w/ s- f2 S! }0 y; Y# p, W7 [/ C

　　(setq colw (getreal "列宽"))

: q+ t* ]- L" ^; X1 B1 n2 G

　　(setq p1 (getpoint "/n表格左上角点位置:"))

' c1 L# K9 b6 o+ f# c$ Y

　　(command "pline" p1 "w" "0.5" "0.5"

% j* V& R, d9 C, L # G. y. f+ R8 i3 `) Y+ y% l* _( P- d

　　(setq p2 (list (+ (car p1) (* cols colw)) (cadr p1)))

　　(setq p4 (list (car p2) (- (cadr p2) (* rows rowh))))

+ }4 w" u! u2 H

　　(setq p3 (list (car p1) (- (cadr p2) (* rows rowh))))

) ]; C) E+ J% P+ y S% H

　　"C" )

; |% J, B* e1 T

　　(setq n 1)

. o. m4 B3 d$ C& ^" i5 i

　　(while (< n rows)；绘水平线表格

( u- y& t) B* i2 r- c

　　(command "pline" (list (car p1) (- (cadr p1) (* n rowh))) "w" "0" "0"

. |2 o+ s5 P: x+ J" i6 Y

　　(list (car p2) (- (cadr p2) (* rowh n))) "")

4 ]0 M8 l# y. c1 ?

　　(setq n (+ n 1))

: e) R1 Z' Q( ?: i . L2 |$ x/ ? T" Y0 s

　　)

/ D- k1 y# x$ n

　　(setq n 1)

9 e% k [; u% F6 ~ ; |4 e/ c% r! |' R5 B5 p6 @& _1 F0 k

　　(while (< n cols)；绘垂直表格线

' H1 l8 W4 p, m, C6 X 3 i: T+ Y2 Q" S+ S7 ~

　　(command "pline" (list (+ (car p1) (* n colw)) (cadr p1)) "w" "0" "0" (list (+ (car p1) (* n colw)) (cadr p3))

* r \! `) ^; T. W j; E& e L3 b; x+ o/ ^8 k

　　"")

" E: O: b$ B. t9 L

　　(setq n (+ n 1))

　　)

$ K. k! F% ~$ G6 U7 B

　　(command "text" "m" (list (+ (car p1) (* 0.5 cols colw))

( o6 [$ l$ Q! ]! @- Q 5 U a0 r! T6 X0 G5 Z/ B) t! \

　　(+ (cadr p1) 5)) "3" "0" "TITLE" )

8 C" \' v. |5 S3 |) C: Q! h5 Z8 \0 G 1 b7 `( q2 ~7 o+ N- G: f" d

　　(setq n 0)

　　(while (< n rows)

- \% v$ T# v, a! y4 E

　　(setq m 0)

0 M* W9 q! {2 |& v+ w; Q5 {

　　(while (< m cols)

9 v2 o, w2 w: X/ m% `2 c ' Z* T8 y8 e# p" d. B. X

　　(cond

　　((< m 26) (setq bzstr (chr (+ 65 m))))

6 n' F/ a0 e: x# ]- p1 c+ l

　　((>= m 26) (setq bzstr (strcat (chr (+ 64 (/ m 26))) (chr (+ 65 (- m (* 26 (/ m 26))))))))

4 o* N/ u* H7 p% A* v

　　)

) [8 H; \, G* o4 w5 }! `( b$ {

　　(command "text" "m" (list (+ (car p1) (* 0.5 colw) (* m colw))；表格内容标注

) U* L h. u8 s! o& {% Q$ ~1 I , D, e+ F* A. W9 [ i

　　(- (cadr p1) (* 0.5 rowh) (* n rowh)))

) Q- ?6 e' a+ v2 e ( ~9 Z5 w9 b: Q* u

　　(getvar"TEXTSIZE") "0" (strcat bzstr (itoa (+ n 1))))

. F: ]: A) X) J* } % Z- R4 K- x5 c# u; O3 Z: @

　　(setq m (+ m 1))

　　)

　　(setq n (+ n 1))

# [0 g, p* \; S- F. l! J7 z

　　))

　　2 .6高程小数位数处理

6 e% O- H; c ?* a! D$ L( N/ _' Z

　　尺寸标注小数位数很容易调整，但诸如高程、表格中数字要调整则很困难，借助LSP程序的调整很方便，只要选取需要调整的数字，根据提示输入需要保留的小数位数，则程序自动对所有选种数字进行修改。

. @0 v; a0 b4 K6 Y + r3 @/ i4 L$ B# k0 u! T4 j

　　(defun entsgc()

2 C5 |. \: I4 d- b7 }8 C5 U

　　(setq n 0)

* \9 g( A+ P* X) W3 Y# v4 j 2 D1 d5 _/ x( L: T- {6 O- \$ k

　　(setq sh (sslength e1))

[: j6 Q; ^( y/ }8 X3 p

　　(while (< n sh) (setq x (entget (ssname e1 n)))

　　(if (= (fld 0 x) "TEXT")

# w( x" C2 d( A* H8 `8 W% f/ x

　　(progn

　　(setq agc (fld 1 x))

) q( G) ], l- d

　　(setq c (substr agc 1 1))

　　(if (or (= c "+") (= c "-") (and (>= c "0") (<= c "9")))

　　(progn

' c1 l* J; F/ [) D2 f

　　(if (or (= c "+") (= c "-"))

$ Y: X# M5 o S % c+ E) g1 W5 g. K5 R

　　(setq bgc (substr agc 2))

+ Z" `9 e R( S+ G& N& K7 Y% ~0 t

　　(setq bgc agc)

# s' \1 q4 f) d" j/ a

　　)

/ v- g) ^/ a; B7 c* A; R1 u3 B

　　(setq cgc (atof bgc))

. K1 @0 f: C P1 w

　　(setq zh (rtos cgc 2 gcws))

J& I' q6 V( p# A# C

　　(if (or (= c "+") (= c "-"))

　　(setq zh (strcat c zh)))

! u% w7 q( e% ~- z% R; _

　　(setq x (subst (cons 1 zh) (assoc 1 x) x))

! @: e* e0 y0 R& [, Q j

　　(entmod x)

) P% y, Z6 c' O: I $ F- R. @3 @" u2 t" h- p; V) _

　　)

7 v m& z4 j. T% _$ D7 P0 q " |+ A4 p7 G% u( f6 k

　　))

} v+ |! g" m% [* {: K

　　))

　　(setq n (+ n 1)))

" d5 N) x% p9 e7 h$ a

　　)

& ]- F# n; A3 x% d! l4 J' z - `( P# }( P5 S$ x8 Y& Q7 i

　　(defun c:yxws()

　　(setq e1 (ssget))

$ X! N$ C) q# r9 v4 _

　　(setvar "dimzin" 0)

: R5 ?8 X3 z* Y3 a) G( s

　　(setq gcws (getint "保留小数位数:"))

+ W6 {8 H$ y5 X5 j+ S' P% _0 N( j

　　(if e1 (entsgc) (print "/n not found"))

$ ], ?! x" O/ l9 @+ o

　　(setq x nil)

* i; ^3 F+ {% y2 [

　　)

; q& T2 I* m4 P% V% a8 ?, Z0 z ( f: k* s* Z7 M" K8 W# `3 } 3 k( \) L S; }! V, }- D5 }