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

HEATS

　　2 .3沿曲线标注

& z1 V9 u& N6 G7 [9 k7 n# w( e9 s

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

　　2 .4表格生成

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

# ]: |: i6 e* F0 @; f

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

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

　　(defun C:mtab()

* f; a( G( W/ |* h" s% R

　　(setq tb1 nil tb2 nil tb3 nil)

5 C' z1 b2 _. v# J3 D+ `

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

1 \! v* A5 F' o/ P u S

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

0 \: ~1 c+ m0 Y

　　(setq rowh (getreal "行高"))

/ }. E; V! S: I( N( n3 a9 y U) r0 F/ E3 |, S4 W/ A

　　(setq colw (getreal "列宽"))

9 {4 A* N9 a. g# U$ W + q _. s% ~8 F/ @2 Z' ]* [

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

6 U9 p! q) [ Y e1 y1 |

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

/ p: \! p, @, P0 k+ t

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

% N% T& P* T) e6 ?

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

3 @1 q7 i' w: z+ ]

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

# w. @( q/ w$ x) [) w

　　"C" )

+ F2 n# m( n) d0 b

　　(setq n 1)

3 \, h9 D8 M1 o2 D

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

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

: f- N/ s! d3 j# v& }5 c. c) r

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

! N9 u8 t% a# N# s+ M3 [1 @/ c / G" a% ~6 A1 {5 l

　　(setq n (+ n 1))

, @7 `; S3 B( i; l E q! d

　　)

& b, ^6 X% E! j. r4 p& ?1 X

　　(setq n 1)

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

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

, b$ R8 S6 C$ ^# ?# w

　　"")

Y8 a' c0 A+ i2 [& m5 j. ~, p

　　(setq n (+ n 1))

# n# i7 E0 z" |9 a' Z8 ]6 K

　　)

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

6 e% |; n' r+ H l0 _: j n" H

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

+ a* M' j) ?$ o0 F& A3 }

　　(setq n 0)

. @* ~& J. D: e8 F, F

　　(while (< n rows)

: o. k$ J7 }1 h( ^

　　(setq m 0)

& O6 {+ m) U. a$ l g9 s4 H

　　(while (< m cols)

　　(cond

* O! G4 J9 u7 a; w0 b

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

$ i) v; d5 c. G: F0 l6 I3 i1 O- D

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

# [3 s6 e4 R& g5 s( @ # W; c+ o1 p9 v( O u+ l

　　)

; f( F% j9 Y7 I4 O8 T

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

, C9 N4 S8 E5 f" ^

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

! g" c: L7 L3 w' q" D

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

　　(setq m (+ m 1))

　　)

( r& I) `# I8 U

　　(setq n (+ n 1))

　　))

. s7 c- R5 p# ]- Z. C+ z . B# {: V* ?- e1 j1 |7 m6 c6 v2 R

　　2 .6高程小数位数处理

u: ^' s2 b4 A. E4 u

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

8 G- n2 x _9 @% p8 ^7 X

　　(defun entsgc()

, {8 w0 {9 \' e9 H/ ]8 h; Z! {

　　(setq n 0)

　　(setq sh (sslength e1))

) i) d" z! @% P- u* @

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

. @, P" K3 U: h" K

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

0 a0 O- b8 r) u0 Z0 s9 q: C# O4 H

　　(progn

　　(setq agc (fld 1 x))

0 l) X% {$ s, r" [' a) Y& X1 O 5 z2 M0 C R( v

　　(setq c (substr agc 1 1))

+ v4 B/ O# j2 j8 e2 E0 l4 A8 M

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

" p5 u3 h" q7 q- M: A4 p4 W

　　(progn

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

7 H e4 a& B$ t6 Z8 _1 `- _. [2 W6 [

　　(setq bgc (substr agc 2))

, D: ~" [8 @- D3 P$ l 9 s6 K" }$ J: t

　　(setq bgc agc)

- E3 J9 Y' l" L/ l * t* P& L2 f9 H. @

　　)

0 y# [' L" B# J$ W& v ! Q% H7 V# Q# A M1 o! F3 R% c8 u

　　(setq cgc (atof bgc))

　　(setq zh (rtos cgc 2 gcws))

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

: Q# l% E) M8 e * A# W1 z' B( k; h9 r

　　(setq zh (strcat c zh)))

0 t) a( l. w5 b

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

　　(entmod x)

, r' S, ^; D8 I# u: Z

　　)

6 l1 @# `; S0 U9 m# l

　　))

0 V7 r" N4 e0 A& N+ O3 |) i" h, t

　　))

　　(setq n (+ n 1)))

, A [% q+ y, B6 I

　　)

8 c5 [+ G% X ^. G9 O

　　(defun c:yxws()

2 Q2 F6 K8 K8 q+ c7 t! [ # I8 D% x3 s4 c# a% u! Q* Q

　　(setq e1 (ssget))

　　(setvar "dimzin" 0)

0 A+ w5 m" W# @

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

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

　　(setq x nil)

3 F' q2 {9 f7 B 5 S) Y: j/ I* ^+ q/ R$ F: Z6 l, a) N9 P

　　)

1 z, o2 ^" L/ t' w, W3 k