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

HEATS

　　2 .3沿曲线标注

- v- p1 ~' e' F: Y! v' W* n 0 {" u+ M" Q# w% g

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

& }9 v) M/ d" }2 h & L' o) G% @3 g. D5 c v

　　2 .4表格生成

. i" ?# T0 {/ ~9 @

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

6 m% U0 z4 A9 s6 }9 c

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

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

/ }7 I' Z5 W$ ~" ^' L

　　(defun C:mtab()

0 L$ p% e9 M$ s: k' ^# p

　　(setq tb1 nil tb2 nil tb3 nil)

6 n5 ? m1 _5 h* E6 C* Y ! g8 {7 ?" r: F# b

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

( C3 v% e0 \0 X7 u6 f 5 K/ W: W! S$ r: n+ R2 X3 Q

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

: }6 E0 g7 \3 X; |

　　(setq rowh (getreal "行高"))

/ _5 M% I* C8 e7 k+ ~: i ! [* U" s2 }! S1 t) C; Y

　　(setq colw (getreal "列宽"))

' ]: q- B) J/ h3 F & b1 j' g, k+ D6 A! R$ S

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

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

2 ~0 q/ L8 S" B1 l% { . u: ]- E+ g: W. r

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

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

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

　　"C" )

9 J! k2 `3 b! V : l8 S5 o* n( z# I6 s4 ?( `

　　(setq n 1)

1 U; h' z2 d9 Z- X1 V' k) P

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

9 y, }7 l& @1 G9 D. Q, r/ ?

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

3 j$ R: m) ^7 n7 `% o' }2 J

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

( X( O0 i% V% f 2 U* ]* I* d$ ]! [- s" H; ]

　　(setq n (+ n 1))

( z b4 d1 C9 p& ^& O5 f ) |! V0 x" A1 ~

　　)

' E# F; a' y- s8 B9 `" M9 \+ _& L% B: p

　　(setq n 1)

: E0 o! _, {) d) I8 K8 ^

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

5 k1 A9 I5 G7 s 8 H( @5 k4 B' `% r, ]# C

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

d8 Z. Q# ^2 p, I7 F/ z) e& f; K

　　"")

" M; O# n( b/ c+ H5 g

　　(setq n (+ n 1))

/ A: Q# `9 a: C$ T* o

　　)

- ~* Z& L4 d7 h! N7 [

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

], p- P W' o' O7 U3 g

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

$ J% W1 r) Y) f7 H( X , u9 z% q9 |- m! b- }. @

　　(setq n 0)

* C; Z! Y. z" A/ t+ s8 Q 9 l0 f# u5 ]. @' |$ V

　　(while (< n rows)

- N6 Z; P% |& }

　　(setq m 0)

　　(while (< m cols)

( {+ u" C2 |, M ? ' i+ s3 p' a- j% d6 z

　　(cond

1 T W- E+ ^8 J/ o3 H

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

: `$ z- T; M6 W* @; u% i0 S( O

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

4 ^5 c* B4 s% s+ w3 O

　　)

) M! ?" v) g) o- Q# @

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

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

% L2 x: r! J3 u0 k2 l; V

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

2 q% S9 Q0 Z: }/ o( e9 e 4 q0 R' U1 D1 z9 ?) i. E% h

　　(setq m (+ m 1))

. A" N# d2 a$ }* Y+ z; X

　　)

8 i) x/ y: ~3 G1 c

　　(setq n (+ n 1))

5 p' d. |) C6 A; e! T0 } ( W: I: v: i* w7 l7 K! Z; k

　　))

: x7 `; \' ^2 W2 M6 W+ x- z

　　2 .6高程小数位数处理

1 }5 F( D$ ^4 X+ Q5 S

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

: f4 P' b* c* K5 h 8 p, G$ i, _# B+ w* y

　　(defun entsgc()

5 _9 Z1 R* p0 w- @4 x( z% a* {' ~ ; L* ^/ W4 u! ^* I! h5 [( F3 t9 A

　　(setq n 0)

1 b! Y# x) l- P 8 o2 ?' v1 W1 M: a

　　(setq sh (sslength e1))

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

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

- p& p+ ^9 _) W- m+ x; S: L" N

　　(progn

　　(setq agc (fld 1 x))

8 G6 I# Z+ _. z! |; [

　　(setq c (substr agc 1 1))

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

' G% W/ R7 V" n' s! v8 t! ?, c0 O 6 N1 ^, y$ s/ _& j" {

　　(progn

, A! j2 {5 y( G. \* Y3 \) Z4 z

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

　　(setq bgc (substr agc 2))

* D2 g% v( u9 ] 5 t2 A' | w4 \- b) ~

　　(setq bgc agc)

! O, j d$ l4 b: z3 P9 j4 {, d

　　)

- M& U3 c2 r$ _: J5 K4 n % q! V8 c1 x# [: f

　　(setq cgc (atof bgc))

# u& p5 T' U0 K$ K! N ! o. l; {& G9 o: }- K0 R1 V; I

　　(setq zh (rtos cgc 2 gcws))

/ p5 o2 N# B: f1 _1 }* d% n* ~2 a. s 4 s) _) m4 d, m q9 S3 N

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

1 O/ t( i( A! V9 k/ O6 Y2 V( q& Z

　　(setq zh (strcat c zh)))

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

: y, ]# m0 p6 A8 Q+ B9 [3 c

　　(entmod x)

0 B3 ?) C: c) |# X/ n9 w0 `& x1 X! e

　　)

　　))

　　))

2 P( X0 I' l' Y8 `* c7 L5 b

　　(setq n (+ n 1)))

( `. W! G' S9 H( ? + W! n! y- e: y. L/ J

　　)

7 a4 s L% E( K$ }0 c _

　　(defun c:yxws()

1 \& G1 S' A, H6 T 5 {5 D3 f H/ x5 @3 N; W

　　(setq e1 (ssget))

! T: ]" A% v5 l0 C+ V* S: c. t

　　(setvar "dimzin" 0)

! W! k( I& N1 B4 n. g

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

4 w7 Q& Q' b$ ~& i8 V6 W$ Z. p

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

0 X7 W4 i j5 e+ D" q4 a

　　(setq x nil)

. i& d* v+ w8 z' f

　　)

; U- i) n7 ? _% d1 y$ A 6 k* l# s" X( g3 g# ]6 ^ , R, U6 m2 U0 p