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

HEATS

　　2 .3沿曲线标注

# b- B+ i9 C/ p6 X

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

　　2 .4表格生成

' R4 f4 Q- Y8 h* f# `% Y, E / S, M% B* _& |2 }. C7 [* w

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

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

: y, [/ z8 e( ]8 Q0 Y5 r ! l3 p# {: d W2 `' [5 ]

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

　　(defun C:mtab()

b4 B+ {# l# Y. i; s" g+ k6 ^

　　(setq tb1 nil tb2 nil tb3 nil)

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

. [& Y o, Q7 I( [& s0 K1 S) O+ D

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

h. t- X3 A# L4 D; P7 O( p: m " k# T8 @# ?/ r5 U( ^

　　(setq rowh (getreal "行高"))

$ [/ ]* k; E8 x

　　(setq colw (getreal "列宽"))

5 _0 k% w) \6 x8 i/ `4 h7 F * ]+ K/ r O& T6 v

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

: U0 _1 A0 _& ]$ t2 @# Y& P+ g

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

; E5 n3 Z% j+ g3 {; R5 G8 x . G% n+ G" V3 h

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

7 B+ j A7 Y+ K1 ^2 O

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

1 {' \8 f2 t9 G% j5 j$ Y

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

* `: A9 s) _ i# v5 k' e , x7 Z) L, `, g

　　"C" )

　　(setq n 1)

) q1 g8 S+ M& Q7 ~+ \ ' {/ I3 O2 h; K$ {- T/ u: z

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

" ]7 ^, _$ Z" \1 r4 H5 E% l

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

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

　　(setq n (+ n 1))

; S# r1 x, x, r7 X 5 F9 ? r% G0 `( l- _ w3 ]7 m

　　)

/ `- {* R. d& p; M$ M3 u

　　(setq n 1)

+ }- D& @9 C/ N7 x2 z8 |. p

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

( ^$ a* l' u# U8 @2 y5 [

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

6 r" |2 E2 }+ i 9 b" D7 s/ p; D7 ^- N; e: E! N) X0 r

　　"")

2 \! t/ f7 ^4 C3 v& y7 V6 ]

　　(setq n (+ n 1))

5 ]& y4 L; l* b

　　)

1 A) h1 Y! l Z9 x4 o+ C

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

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

E$ a5 q: [1 [2 @( ^9 K

　　(setq n 0)

　　(while (< n rows)

8 p- \* {% ?) ~1 F" o 6 r9 b4 h; J0 {9 O# [

　　(setq m 0)

q0 I! m a9 e. u/ h/ j6 `( u% Z

　　(while (< m cols)

& { [. I5 P* f# A# w5 \8 c : @( m$ ~; c8 n/ {3 F0 A+ k

　　(cond

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

, i& T4 R& h; d) z$ C 4 a1 u# r: [+ C$ Y

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

1 \: J5 _& F9 a/ B7 O1 _

　　)

8 h3 \; _. E0 Y" R6 m+ f " G8 E9 i) V" }+ h$ M

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

, M/ ^6 K; P! ]% s8 ~/ X

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

/ h( O+ {' X+ T+ S {+ K

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

0 i8 d% S, ]* E4 U/ t+ |

　　(setq m (+ m 1))

: T# i5 M0 ^$ { i

　　)

　　(setq n (+ n 1))

　　))

: M" P: i$ w2 I' \6 O! h! K

　　2 .6高程小数位数处理

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

' f% P( _$ m8 J' }! o

　　(defun entsgc()

( `" q, c% w0 Z+ h 0 J7 S% ^7 l% C2 o7 ]! n. Q: n! L

　　(setq n 0)

　　(setq sh (sslength e1))

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

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

　　(progn

　　(setq agc (fld 1 x))

3 {1 c: H# X+ x3 r5 E + W& s2 f4 l7 a+ W

　　(setq c (substr agc 1 1))

" F" |' \, b+ J4 J o! @+ ~ 5 p4 c+ R2 \% X4 Y! }8 {& c

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

　　(progn

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

4 N7 d, T5 ^# F1 v$ L) ] # C* z" p9 z& _7 s, B& Y

　　(setq bgc (substr agc 2))

5 R" f9 u- L1 g/ x

　　(setq bgc agc)

, D, j" @4 I0 d9 P; Z! J! ?& @ ; `2 f( R& q$ l' p9 m

　　)

1 j/ Y9 R/ f: B0 Z/ c' S

　　(setq cgc (atof bgc))

# ]! g3 C; K( M6 h$ L 1 G( L+ |$ r4 T5 Z3 r+ K

　　(setq zh (rtos cgc 2 gcws))

( a) u) T2 @$ v6 b' A' d

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

+ `" ] x* ^" u; a* y& }/ o- q) a

　　(setq zh (strcat c zh)))

* e9 @- V( `- U

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

& E" j7 t3 Y- Y% j # ?# b4 W% M( c! c

　　(entmod x)

: _! C2 {: ^7 E4 L+ o `

　　)

7 t" n. h1 M6 Q& T. o5 k# F9 X$ ]* t

　　))

' B# x0 \. ?! }1 k0 q4 l

　　))

/ U( j" w. n; K6 A8 L( ]1 E% _5 o

　　(setq n (+ n 1)))

0 Z( I) c) @, S7 W! ^ h 9 E0 _; { s6 D( i8 j4 [

　　)

7 A% d O" g. u8 S1 H; M+ R( o

　　(defun c:yxws()

1 ?: ?/ z/ x8 i, G3 Z

　　(setq e1 (ssget))

, u; G% R0 X/ g) q 7 p( a( j) ~* g, W J/ j3 E

　　(setvar "dimzin" 0)

8 u1 M+ B/ C- q3 N! @

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

; v2 _8 q% y5 A$ E1 M" q# [, C

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

" {( P: C2 b; A % z9 A- `4 Y2 s9 ?; B$ X5 o2 q$ k

　　(setq x nil)

( q8 O5 {/ G3 m9 s v- T

　　)

/ \: K J8 @4 J; \& H3 j5 | % Y- m% `. ]: y" s9 k- G % ?0 d+ J# [7 o ]3 J