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

HEATS

　　2 .3沿曲线标注

% V2 ^- \. d# `# n3 S: ? 2 G/ @0 U8 o) r! v9 M/ G

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

- q3 k2 C8 [& y( I

　　2 .4表格生成

3 N/ [' J, K+ s) e & p" v: ~" o; f0 J

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

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

1 ~. [. m, k3 f: W- L. F- P % f3 d6 |6 S% Q2 q; M/ w

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

: z$ l8 r/ h8 B! T; r' D: G

　　(defun C:mtab()

　　(setq tb1 nil tb2 nil tb3 nil)

* E) U/ V1 _! N: L0 E

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

! h" }3 S F) p9 N

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

$ g/ E) y7 h9 i8 @. _% l ) d1 d, W8 \' i, `5 @

　　(setq rowh (getreal "行高"))

9 ^& I! f2 }, B; u1 D$ Y. r

　　(setq colw (getreal "列宽"))

$ e8 y& C, p) [9 r, | ! ^# h0 n- [4 R/ G4 o" \; @4 b0 h; t

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

) V- y W% C& \# Z' C

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

# V: I) H1 x, _' g- i

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

' U, u3 Y8 C/ d% [9 E ' A! S) c; ?3 I# y9 ]% h

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

. t: \; r% B4 @/ M; _

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

　　"C" )

' e3 h: g6 c2 K) [ g- d8 d$ F

　　(setq n 1)

, v' S/ k# i9 p

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

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

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

% o& l7 D2 O( d4 M* e 0 i" r8 |% u" G, W7 }1 L

　　(setq n (+ n 1))

; c; M7 ^' `% L

　　)

) t6 p2 r/ v% L. o: i0 Q6 A) ^

　　(setq n 1)

& W# k* g4 h/ ]* ^/ X5 a; G

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

8 s2 a' c5 f a8 F% V( ~5 X9 i

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

v/ ~. m& a/ _% ?" F J: } $ ]5 f1 n) K ^( r

　　"")

& k* h' m: J$ W4 m6 c ( I; W9 F' {4 l, m% m" g* h) |' o

　　(setq n (+ n 1))

. j9 E( g$ _5 N+ f& g& R 1 s3 v |( x* P1 P8 Q9 Q

　　)

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

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

$ c! K! D8 l8 u

　　(setq n 0)

1 n/ e& V2 u* {4 }6 l0 ?0 C

　　(while (< n rows)

　　(setq m 0)

- @' b8 G: s: R @+ }% r, \. R - y# ~( {* ~7 n& I% S4 q* v4 Y

　　(while (< m cols)

3 q: o' p% A7 Z! B- z 4 L% O( q4 B( C2 M4 s4 A

　　(cond

e; L2 S7 E6 S/ E3 y5 f. ^* e

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

; a' p: D) i3 i: p. o' L

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

. U+ Z0 I5 N' n

　　)

5 g, H# Z4 ~9 X" I8 L- p

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

+ k( f4 e- K# ~' e" Y( g

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

r% G% |2 C( J / Q _# i2 v w) `/ J$ Z3 B3 o

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

}9 C" Y# h& H7 c% Y7 p- c ; o! f' m+ f: M

　　(setq m (+ m 1))

　　)

/ s0 E' H4 _( A) Q7 n3 ~) G

　　(setq n (+ n 1))

, I3 x$ m( C0 _

　　))

! U: w- _) x0 R! C Y" ^+ `1 X

　　2 .6高程小数位数处理

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

　　(defun entsgc()

　　(setq n 0)

　　(setq sh (sslength e1))

' U. E( U. \9 e

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

( ~; m2 j1 g9 ^4 S2 y - ]" l: t/ y! z8 e; b0 A

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

% Q1 ]0 }$ v& [0 ]) p* O3 ^ . _7 u I. n3 s; n# L+ ^

　　(progn

- k- A- _' u" T& L) e5 D

　　(setq agc (fld 1 x))

　　(setq c (substr agc 1 1))

' K$ I1 d: i4 ?5 i6 r 2 J7 x8 S5 \ U1 l. F- X

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

' l! e R+ g: a. M 8 v% t% P4 x `9 y5 ^0 M& J C

　　(progn

2 j( e( b$ O/ V4 j, ?- t

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

" r' V- R% ?) S

　　(setq bgc (substr agc 2))

6 v. {4 P0 Y) K, y v* H4 A9 j& G

　　(setq bgc agc)

　　)

: ]; a2 E; A4 F, M9 R! b+ Z1 T G

　　(setq cgc (atof bgc))

r Z* Z3 Y h! f p

　　(setq zh (rtos cgc 2 gcws))

* |" M; o% {; |

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

　　(setq zh (strcat c zh)))

* s n' z( X2 `$ n. ]" I0 x9 Q- _! N

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

　　(entmod x)

$ s" \; j0 ~0 j, d1 J* _7 _

　　)

a$ w) m: t( K

　　))

0 H$ i6 t6 j. @, S& ~1 K

　　))

3 s0 z* O* S6 s" Y1 f- i: Z & R) Q a, O' F9 i& P+ J

　　(setq n (+ n 1)))

　　)

, e$ l) T: K1 U8 X7 e5 C& l, c9 M

　　(defun c:yxws()

8 i' a- E1 Z+ x: C) m

　　(setq e1 (ssget))

/ V2 w; l5 W2 l. a

　　(setvar "dimzin" 0)

% A; l: [% |# b9 E h7 C, z o

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

" \# N5 K3 J" b+ E, A7 U+ Q' f4 G

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

8 q# l! z+ H7 I) E5 ]6 e* t

　　(setq x nil)

. v( f2 ?4 s/ Z! `" I# E

　　)

( T. c, m- r) d0 R5 Z7 k ) g6 E L4 P0 c* Q