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

HEATS

　　2 .3沿曲线标注

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

0 @/ L5 V, r) m$ J& S7 V

　　2 .4表格生成

- }/ {* s1 q4 Y3 \* c$ d) M% b; \ ; Q; g: b) W/ m4 S! J

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

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

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

. Q+ E2 F3 K! m* }% G; K& d 1 |7 r% Y2 C! P; Q7 |

　　(defun C:mtab()

) U2 T4 k. @( F

　　(setq tb1 nil tb2 nil tb3 nil)

7 V6 z' H- A$ h8 s& q- x

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

, F9 A5 u/ N& ^% L% \2 p' a" S 0 L; D1 H! e3 Q2 D

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

3 \& {; j6 R7 t3 q, t! g) a+ u

　　(setq rowh (getreal "行高"))

, I8 }8 c* t" K5 f ! `6 d0 K7 ] \- p

　　(setq colw (getreal "列宽"))

7 U5 V4 C2 j& L 5 b; \% j) [8 z5 N) ] n9 P3 D

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

5 |5 K% V# b# \6 \2 r

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

Q6 h: w8 m: \% i) V% o # P8 |4 T2 p8 ^% w) z6 W1 D/ w6 w

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

' `/ s' C6 P# c7 W, q7 n ?" n

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

; W: P3 U% F) O

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

　　"C" )

8 T' W3 f2 K' _5 r' Y + V- ] O' E' l: `: ^ F

　　(setq n 1)

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

* g t- y: A O8 e7 ?1 \& I

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

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

: i$ C* Y9 F0 F' S8 W$ p- v

　　(setq n (+ n 1))

　　)

1 F5 y& p8 N' }8 W# f

　　(setq n 1)

& g- g1 @/ l* K6 g! n) I

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

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

! j5 v& `+ o# R$ m

　　"")

& C2 v! w' ?( W; v0 }. q$ V ( P8 ?& R( L, Y5 D, S5 K( S, _5 @1 s

　　(setq n (+ n 1))

G# h s" v8 d( A+ q) ~" i

　　)

% `( Y& U6 v3 E, J" J8 b6 a8 r6 n, T ' S+ f/ Y9 w$ D w A& |

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

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

& }' h9 U4 j9 `. x% k! Z6 K$ q9 j% |

　　(setq n 0)

　　(while (< n rows)

2 N$ f' G" C, T5 E/ Z% m4 [8 K" o

　　(setq m 0)

4 M% |0 a+ h; \: x" s' Y

　　(while (< m cols)

; `# j8 |& r* d" C" V/ b: ?

　　(cond

1 p, t* m) I/ f6 Q6 F- T

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

: c: F/ S0 V* ]/ ]! |0 }

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

( j+ t5 ^& d y7 A* {: M! [0 a ) c: d3 r: V% z W; Z3 D a

　　)

" G6 r0 V2 d1 `( p5 x' M& a" Y, u

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

; s/ Q9 k0 Y" h& M2 E. b ( D" |6 n. z" O5 Z; K

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

% I B8 k' L5 ~2 t( H* X; b$ m

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

0 i5 o" v: ^/ ]& D, o' H " @+ s- O; }* u& z o$ y1 ~

　　(setq m (+ m 1))

3 u2 O1 @* i% U" C8 R

　　)

7 Y% b; y" L) I5 ` s2 Z5 s. @ 0 Z7 w1 l* H+ p; n! z. H

　　(setq n (+ n 1))

　　))

7 N# g$ G1 w7 v( h

　　2 .6高程小数位数处理

' ~ X7 {8 E9 I! N

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

　　(defun entsgc()

　　(setq n 0)

7 c8 d0 {1 ]+ k* P2 Q

　　(setq sh (sslength e1))

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

0 o. R" g6 i4 Q/ g: J1 u

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

% R+ A. T0 t- W6 p; ?

　　(progn

　　(setq agc (fld 1 x))

7 H, a4 R. d3 }: N ~7 C4 ?

　　(setq c (substr agc 1 1))

; f. o& l& a9 \" W

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

6 B/ L8 H# s5 t7 ^% X! C - d( T) s, C5 ]% E

　　(progn

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

' |$ X. l$ {1 W3 A/ s V: D) E" N+ i1 N8 N) }4 a

　　(setq bgc (substr agc 2))

* z3 r. I( \4 W* a, A) R

　　(setq bgc agc)

8 V1 z. n6 e$ f4 }5 g" B3 c! H6 S9 W7 j

　　)

+ ?- |5 d0 x9 O8 ?* _

　　(setq cgc (atof bgc))

( r/ p9 l; q6 v n F

　　(setq zh (rtos cgc 2 gcws))

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

& w$ x6 P- l. L$ p" n v( Q! b4 ~

　　(setq zh (strcat c zh)))

2 Z' G8 O- o: o8 R% F , P2 h0 j+ g- T# {& X2 V

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

9 v! R+ }3 e* D R. k

　　(entmod x)

　　)

　　))

- G! Q( e, y: d! P6 l

　　))

, p6 C8 m! G4 X2 H/ T2 R

　　(setq n (+ n 1)))

& G! U4 ?6 w4 l$ k$ i + Y9 M$ M$ e- C7 p8 H

　　)

　　(defun c:yxws()

* c6 B. C/ u7 A' t( c% J# G* ^

　　(setq e1 (ssget))

　　(setvar "dimzin" 0)

: K9 j9 c, ]+ }2 a0 n( y

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

5 N5 Q# P( r& t* L5 e

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

, A# D, T0 E+ s% u( T

　　(setq x nil)

% h: R9 k4 ~* J" P& g* y5 l+ t 0 N% L* ]3 z k" B) ~/ G$ s: d

　　)

+ K8 c1 K# R# d& \ 3 k% I/ J5 y' o $ W8 O4 f5 |$ T; {% o- C