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

HEATS

　　2 .3沿曲线标注

! I9 ~5 y& N. w* z4 u: ~$ l/ C

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

* @, d- J# @3 j" Z# ~

　　2 .4表格生成

0 r$ z8 Q+ S, i& X6 E

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

0 s i9 s$ c, `) i- U# {0 I& m

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

8 I' O5 N- y2 n* [5 R

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

; F; L! T% D4 f( n$ k 8 P2 A6 _( O S& j1 F- M4 u' I. s/ m

　　(defun C:mtab()

* I1 B% p* Z1 ~. ^! f) \ # ~! j- _, O- ^7 K D' J _* u

　　(setq tb1 nil tb2 nil tb3 nil)

0 ^& S8 \9 i: \9 s' T- E

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

3 L/ ~5 t' m4 I5 x4 _( f1 }5 I

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

+ A. x* D* C; @' y+ Z& N . ^* G1 r; o4 V7 k

　　(setq rowh (getreal "行高"))

　　(setq colw (getreal "列宽"))

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

' @4 f! A9 l6 d& D- t

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

U1 Y6 L5 c0 c6 x: h: v

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

0 M' M+ C& O1 O) ~

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

1 q+ q: R1 T5 ^ b4 X2 _ , G6 [, e9 K: z; i3 e& m

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

. N1 `* ]( Q. ^5 E

　　"C" )

- [2 i7 s1 z8 \7 _% T, d' i

　　(setq n 1)

. S* e& X0 v6 ~; R ( Y. d+ t( {! O6 X5 G9 G

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

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

" c+ [; Q. N" l7 A# i0 Y

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

　　(setq n (+ n 1))

( X( @/ C' S( V( j, o& r* Z' K. P! x

　　)

　　(setq n 1)

. {8 u- A9 C7 E; [1 c% H 9 b# F8 |5 p. E

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

$ t% }; V/ a$ |* I/ ^

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

8 U2 n2 J9 m. R/ t4 K

　　"")

6 O4 P' d" z1 S: k6 M+ y( k 9 J: h; k8 c) n4 k9 i0 L6 C3 }+ u

　　(setq n (+ n 1))

　　)

* y" U* s. f2 T8 V3 X5 J: ~( D# r

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

( f# y; R5 y6 m) U

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

3 I; Y3 i+ R- t# }- @

　　(setq n 0)

8 e( b* [1 Q% u0 O# V

　　(while (< n rows)

　　(setq m 0)

( f$ `0 l! @/ a

　　(while (< m cols)

　　(cond

7 ^. t9 { [4 \ e

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

: O% L1 B8 m+ E/ Q7 Z

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

$ u5 k0 Q' `) F' v5 s/ |

　　)

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

+ h! H2 L. x8 E1 f- s6 b

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

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

　　(setq m (+ m 1))

5 e4 D. p* _4 A* T: i9 Q% k# a7 M. E

　　)

　　(setq n (+ n 1))

9 P/ O" y9 h6 B1 W G+ r E( N- E# i $ W8 y$ d x5 W& y" ^* Q

　　))

, [2 l9 r! n* W$ K0 C ' r. A! C& H8 p; D* w8 G

　　2 .6高程小数位数处理

7 V" o# W! W. C, X

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

　　(defun entsgc()

( k* `- }1 |8 `2 h, v # k9 B' k4 `4 d. i3 I c/ l5 K+ t

　　(setq n 0)

　　(setq sh (sslength e1))

N$ y, z9 m( U8 W0 Y X5 E+ a+ L& X3 S! [" \. D8 D

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

2 j2 o' S! A1 C+ H

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

% @/ p. x S- w- T6 O' A

　　(progn

　　(setq agc (fld 1 x))

　　(setq c (substr agc 1 1))

5 h6 J; v: A4 m8 @6 c8 v, P

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

- ?1 [' O* }. _6 F4 C

　　(progn

+ Y8 }; e( F; z/ H2 v4 ? 2 h, q1 G$ H% \/ t, Z l* ]5 N

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

　　(setq bgc (substr agc 2))

: b- Q) \5 e9 ^9 R

　　(setq bgc agc)

, |4 `& q, `: R 0 a3 r7 N0 d% [' _' p; Q

　　)

& d% a4 B- [* p- y5 R" ~ h

　　(setq cgc (atof bgc))

9 p4 |8 h; N" `% i) }+ S7 H( G7 i ( D7 y; Z& Y, j& V; m" B

　　(setq zh (rtos cgc 2 gcws))

) m" c$ I1 m% ]' B) v2 ~' w, |: |

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

. ?' a% r! i- [2 l ! s5 ^' x, B8 b% T2 W

　　(setq zh (strcat c zh)))

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

9 ]! s( x& ?+ m" }5 `+ u 1 y' U G: ^- A( b' b1 F5 ~6 c: Y

　　(entmod x)

" J& a7 \, [& t7 t" ^# ^

　　)

2 n6 x2 _' [* i( h# g6 c

　　))

　　))

5 u2 g1 f& n' `4 ^( N! J

　　(setq n (+ n 1)))

# p+ ^8 }9 F1 ]: B3 j

　　)

0 B+ p# a2 x! o, a. A

　　(defun c:yxws()

8 ~& J- g7 Y' k6 ~5 B+ M ( _% ?/ f/ X, n

　　(setq e1 (ssget))

　　(setvar "dimzin" 0)

H; @% N5 }/ W' ^ 8 e ^+ [7 H# R/ \: F P, k: c

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

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

$ o8 s. h& k/ ^ ) {; _) ^' N3 X+ ?# ?* \

　　(setq x nil)

5 ~5 X2 ?9 H* M( y N3 W; Y

　　)

9 K; D+ M5 N' R2 W% g $ k- c T, G% N" T6 I6 W