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

HEATS

　　2 .3沿曲线标注

2 q9 G6 X% V& b! H* V" s

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

4 t4 w; O) E( p3 l4 T , g/ t7 n; F- r

　　2 .4表格生成

3 `4 l) p' ^. a/ E5 ~

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

% G2 N# @8 J0 e i j- b1 a! ~

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

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

" h; T% t/ d7 _1 u

　　(defun C:mtab()

　　(setq tb1 nil tb2 nil tb3 nil)

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

, ]% B1 E9 j7 c4 z q$ h" r K& E

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

　　(setq rowh (getreal "行高"))

0 }+ n: Y7 p: h1 b

　　(setq colw (getreal "列宽"))

" P6 J) t: C6 Y* a

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

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

( ?0 u) i4 d2 t" p3 h" _5 U2 t

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

+ r" {4 t( O2 a; A; f0 l 6 k/ e2 @$ C8 Q' v! p

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

/ z. {2 G3 W$ ]6 D2 e$ O: r

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

. P4 e1 N$ O% ^ 6 L* T, s' G: @$ B% {! S1 Y7 S

　　"C" )

6 Q; j+ h9 P2 w

　　(setq n 1)

. u! o8 ^/ o$ v6 R1 v% w6 k5 e5 j

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

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

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

. V2 n; n& m& W7 W3 y* P* t

　　(setq n (+ n 1))

　　)

　　(setq n 1)

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

8 b, k( {3 X1 G% i5 w- V

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

- N9 {# j0 q o4 W

　　"")

3 v" g( ?) f; g2 j9 r" [

　　(setq n (+ n 1))

# a0 V- I. w0 V4 T9 ~/ b$ B

　　)

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

3 e) H$ {) a1 @% P. {" @0 ?

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

% O7 q) W. |) h3 ]% c7 h) n

　　(setq n 0)

4 h W2 ?, |! g, e : _1 Q0 ^6 a( p6 W& U/ P, i- a

　　(while (< n rows)

3 t# g" D7 B7 @! h+ C k2 a

　　(setq m 0)

+ l$ k' X1 c7 P" S

　　(while (< m cols)

. m4 X3 h0 `) t+ K# p & w1 t6 i! Y0 o' a5 d& B. y/ L. _- V

　　(cond

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

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

　　)

. k3 ]/ l5 B0 V& ` 9 b: \5 l1 O. p, T5 u/ X

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

+ q& T; |2 ?1 n& O

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

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

　　(setq m (+ m 1))

　　)

8 b# A; `- K: g- N

　　(setq n (+ n 1))

　　))

% w- ^# d1 D( S. k# h* x, J' V

　　2 .6高程小数位数处理

$ }, d$ y. X; D3 \ & c% ^8 Q- [+ C% f# [" t. p

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

3 o* T) L" n* c8 e6 f9 b3 d 2 W: V9 g5 K- {8 i

　　(defun entsgc()

5 v3 [. f: A( ~$ I - l5 Y( ~, {, c6 d( y

　　(setq n 0)

　　(setq sh (sslength e1))

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

+ B3 E" z5 v2 _& G8 A

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

3 @0 @5 F' u% b4 C

　　(progn

　　(setq agc (fld 1 x))

0 v H+ }: D& T2 x# f4 G" L 8 ]3 A+ w2 K1 z7 g# u. ^% G5 e

　　(setq c (substr agc 1 1))

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

# }+ ~/ a6 ^! A1 G Z% M5 @9 y 2 X% y1 O' S) W9 w& ~; u r

　　(progn

; i( R$ J/ {4 W T0 W

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

" `6 H }; C; p, @+ c& f + _( e, q+ w$ k9 q7 R# [; f4 z; F7 @

　　(setq bgc (substr agc 2))

5 z* H! _0 d+ u6 N q8 n

　　(setq bgc agc)

) U) n0 t; u" U$ t7 q3 Q" w1 n

　　)

/ @2 T: z- m+ m" y0 U+ q) |

　　(setq cgc (atof bgc))

+ E+ N# n2 i- V % c! r$ G+ t: w/ q3 N6 \

　　(setq zh (rtos cgc 2 gcws))

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

* J) ~( A9 @. [6 w1 r5 r. g( a8 g9 @ : j$ p9 S! d- z* d! [

　　(setq zh (strcat c zh)))

% w* ^: \& [+ ]

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

& ?4 T7 R( I ^! N* v 9 i9 Y# j b( f, a5 ?" i

　　(entmod x)

! T6 y* S4 A" g# M# z; I M3 \

　　)

5 g6 V, `" [$ o( O

　　))

! }- Z, @# K* i

　　))

　　(setq n (+ n 1)))

4 H8 j& _6 y5 l/ M3 M( |2 T / t3 G; y$ F- F p

　　)

6 B4 m% ]" e; L9 s% @8 `

　　(defun c:yxws()

I0 J; Q( m$ H 5 `$ X7 U# Z" u# H, P8 `+ O

　　(setq e1 (ssget))

/ z. V C7 _2 L/ i- y 9 F }/ Y$ m1 z [% l( g

　　(setvar "dimzin" 0)

# C7 ?* W v/ G) K. u0 D9 I , c" L% }( E! O+ Z

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

7 w# R+ `! y& p* ~% w2 M- }4 T 8 k3 z1 A/ E/ m5 q& [2 E% O2 | V5 L

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

& R7 A0 [/ W1 U+ W

　　(setq x nil)

9 \- p- X1 R: z$ V# C2 A ! @3 e) q4 P7 n: s

　　)

$ @7 d# g( U# T- o' K2 h" I/ u