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

HEATS

　　2 .3沿曲线标注

1 G; ]: Q! L9 h4 Y- d

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

, O) w+ g( u/ I0 Z: u

　　2 .4表格生成

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

5 T8 X2 d8 w5 s5 L" P / Y. P2 u5 H& w& e( V7 y! {

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

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

2 z J7 f% J4 ^" i0 Q D' f

　　(defun C:mtab()

9 C/ I7 L ^ ^! z" _ & Y1 ~5 C; W- S; {/ \1 |7 ^

　　(setq tb1 nil tb2 nil tb3 nil)

" q! o8 W a* S R9 P# ? 3 j1 T2 s* u Q# l. v! f) N; U

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

# L2 n! Z' d- ^ ; f$ h9 M' R$ W# _9 }

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

　　(setq rowh (getreal "行高"))

+ v! ]" D+ A% G! _

　　(setq colw (getreal "列宽"))

7 u5 [6 S0 q/ _/ J- M6 G4 K

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

8 \1 {. C- ~4 k0 r: w

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

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

1 r9 s! b, B6 x( m6 Y' O

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

9 R, u7 \7 q- _* I" V9 n

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

. K0 G2 w% e/ ^2 | * T% |; V2 \5 U8 i1 J

　　"C" )

7 p; d! @7 o+ T7 D6 e# N / ~) M% B% @1 U* j, A) k* J

　　(setq n 1)

4 |) g! ^0 [7 f$ O8 i4 k0 I

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

3 w# G8 e1 S' }4 n/ Z

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

/ j/ ]+ K$ q: p& x# ]

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

/ H: ]% H- o. p3 W) L

　　(setq n (+ n 1))

/ I! M; b# |/ R$ \0 P5 c% N" _6 _

　　)

; z# {8 w. d) @8 s; d& x+ q

　　(setq n 1)

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

, e1 Q" Y# G4 Z Q3 S5 _& L9 g. w, i

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

' w" I' t: A9 Y9 o# `

　　"")

: u" R( z$ A9 u1 P

　　(setq n (+ n 1))

$ M6 ]0 k! c* h1 v, u6 u

　　)

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

: p* O+ ^3 g5 B0 r* a) y' r 3 m. ?. h8 ?8 f

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

! f8 M' u4 V4 U5 Z( P" k& k* C

　　(setq n 0)

　　(while (< n rows)

* u5 [ Y* ?( O" N; w

　　(setq m 0)

　　(while (< m cols)

　　(cond

# z: F- W0 n% _; m9 |2 s

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

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

# ~* J9 D D; \2 ~1 d; \$ S6 ~

　　)

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

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

* j H) V j9 f |( f7 t4 v, Z2 y8 v" }

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

2 G! x4 J) |- Y8 S 4 n( W" m J& \4 W: k5 l& h5 l

　　(setq m (+ m 1))

8 X9 |; x3 m, h8 i4 b$ N5 C 7 e: ]: b% y; ] u, b

　　)

5 n8 ?. G0 a3 ~* i5 q/ y; M

　　(setq n (+ n 1))

6 b- R+ m; A) O! c) L* A 9 ?. C. W/ L( V" n$ G7 ^8 H

　　))

　　2 .6高程小数位数处理

- N$ D9 r4 V2 `9 J

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

1 w, z3 ?2 i6 J, N

　　(defun entsgc()

7 ~* d# z6 e( b) h' `

　　(setq n 0)

1 u1 y+ _# Y. p2 G( ]! ~

　　(setq sh (sslength e1))

: q" D l" _) k4 k+ M

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

4 |/ d) G5 f% d0 h

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

1 X7 w1 h: E. l, A9 s

　　(progn

' e8 I( x p4 r6 U# J8 p5 |$ V9 `* q

　　(setq agc (fld 1 x))

　　(setq c (substr agc 1 1))

# C7 C) M4 @$ H/ c g6 O

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

　　(progn

: D/ W# L3 J0 L. m9 n' B" u

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

5 k5 L7 q0 U1 [8 p

　　(setq bgc (substr agc 2))

　　(setq bgc agc)

( H( h! \' ]/ C8 @/ s$ c

　　)

　　(setq cgc (atof bgc))

. w! F/ t: ~7 F$ J7 v2 X% b% i! `

　　(setq zh (rtos cgc 2 gcws))

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

! `1 e; O! a' _+ \1 H. [! m5 G ( n2 { u* {# c- r! I

　　(setq zh (strcat c zh)))

, Y/ l7 [6 \9 j9 F: [& ]' d* ?/ c

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

9 r4 o/ \! n- ~) T

　　(entmod x)

% b: m8 ~& b. H

　　)

　　))

　　))

) ?8 b1 z% j! \7 j1 Q3 N% q

　　(setq n (+ n 1)))

2 I2 G( X' X7 i! @* e2 l* n

　　)

　　(defun c:yxws()

7 v& _9 ~& N8 ~) I' B0 I W

　　(setq e1 (ssget))

n N- N# A7 p7 V+ t 9 r* E& G( Y, N( B6 D; _; ~

　　(setvar "dimzin" 0)

" r; a/ V- s: t: N

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

- r2 v& e4 d9 C; l1 |+ P

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

　　(setq x nil)

# o6 i5 f; @8 M4 r& k @. v+ W8 y: x3 B+ O* P

　　)

0 B4 J0 D( j1 {& F: V& @$ F7 H ! s; e1 l" e" D! v5 R S5 h3 O1 ~