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

HEATS

　　2 .3沿曲线标注

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

+ U5 p e- i3 ?" L0 d3 K6 H8 r

　　2 .4表格生成

0 q0 S- J3 D; m: Y

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

% t% g$ G8 K( e" r3 i

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

- a9 T% Q# _0 o$ S( E

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

6 I: s+ a+ U6 _/ M8 U" \

　　(defun C:mtab()

　　(setq tb1 nil tb2 nil tb3 nil)

& T2 N: ]5 ~, A, K3 i1 r4 } 8 Z/ K( L- ^: ?3 p( e, J1 h. o

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

, G: q: f6 x. f

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

　　(setq rowh (getreal "行高"))

$ P+ c/ u7 f# e5 Y4 J9 _8 k- O / i: v( ^& G! z' l

　　(setq colw (getreal "列宽"))

" I4 n* ]- u& L0 f* d, e! x

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

" J, I8 _3 n3 P6 M1 l , D! p7 n) J- V' O" V) Y7 H

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

　　(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" )

- T, H5 o8 Q; R

　　(setq n 1)

5 r$ p3 B: I% L( H & C, X0 l' T q. c# H Z1 U

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

& ^) F) o7 _# T$ c( T

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

) W. h, N S9 |: M3 u & {& ^0 D- w) w4 b! e, ~( u

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

; ?5 ?' X6 c5 x J- r

　　(setq n (+ n 1))

- d) }5 d2 q, d8 c2 U8 o

　　)

　　(setq n 1)

8 m! {; P/ ?, Z ) G# ^* @. N0 d/ w0 f

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

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

　　"")

" r* Q& x% W' ]0 P- g& T [ ) G0 `; S4 T; \0 U

　　(setq n (+ n 1))

% I* \" ^8 I' O/ w+ \: { * |* O, |1 K! r- G2 w) x/ H% ~

　　)

% @! e; C8 \: {1 p

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

. T$ F, C7 E% G" C# ]2 f+ |& t

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

　　(setq n 0)

8 ~6 b! b, {! k8 h( N

　　(while (< n rows)

% z- u5 g) v$ s( B! k

　　(setq m 0)

# L3 A' ^% f b9 r- L

　　(while (< m cols)

& e+ ^/ D# i* r& b

　　(cond

0 ]8 w9 j8 N( o$ Y y' R5 _9 B : ~& f& Z% l5 C/ }/ A' _+ [

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

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

　　)

! g! P$ j: ^# F: i# u$ r8 h* R

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

$ B' w3 j* {# ]: A+ E

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

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

　　(setq m (+ m 1))

. w6 h/ L4 t4 f; x I5 x

　　)

　　(setq n (+ n 1))

# ~; j9 A" R4 j

　　))

: A; H2 u9 I6 N& E9 t + J" t" G5 v1 P6 t8 h; O& u

　　2 .6高程小数位数处理

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

　　(defun entsgc()

& `( R% C6 a* w8 F

　　(setq n 0)

　　(setq sh (sslength e1))

, M1 v/ B' W5 ]: z6 i & h. m$ _. J/ e& [7 G8 _% F

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

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

4 _; g) J$ M; X L

　　(progn

$ c9 e1 Y/ H% H" K4 ^1 B7 o

　　(setq agc (fld 1 x))

　　(setq c (substr agc 1 1))

( S, H+ o: }7 _* F0 R

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

　　(progn

! d8 }2 h* ?! q% Q$ P) y! z

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

　　(setq bgc (substr agc 2))

: B2 a3 m; M/ z# p7 z/ _+ M+ x

　　(setq bgc agc)

* ?! P# }, v5 Z' u5 c0 }' ?1 {

　　)

% k% X& c) _# t7 k8 x

　　(setq cgc (atof bgc))

# ~9 s! _& F4 `2 r

　　(setq zh (rtos cgc 2 gcws))

# {* V( b9 \ w; N

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

" E) t' ?( X1 W2 W

　　(setq zh (strcat c zh)))

1 v) N: m. |+ U0 `2 {( W4 p% C

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

: s! Q5 i3 F# y O( B( l

　　(entmod x)

　　)

# y1 k8 ` z) v# p. s8 n; v0 y

　　))

　　))

" e3 ~" K1 m: t* S9 A

　　(setq n (+ n 1)))

( Q0 k! g- R& K: ^1 ]7 ^

　　)

　　(defun c:yxws()

6 S0 b9 B ]4 Q! ^7 b / b" {5 s$ d+ k* H! I

　　(setq e1 (ssget))

8 N6 T5 R! N3 Q% ~; M+ q

　　(setvar "dimzin" 0)

+ ~* J3 f: ]3 E: h3 w ! v- e; K9 @) y Z- [9 d( C

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

+ [2 L) R- H/ o( `2 ], } " L6 A+ N7 Q4 |

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

/ [$ c+ {# \8 o* |3 X

　　(setq x nil)

6 {+ [$ A$ P/ F3 g5 M' O# `0 s, Q- I1 \ ' b$ j8 b# N$ u$ V

　　)

! T& Q# p! Z. [2 ?- D 9 @ t2 X, Y' V6 I* b4 K3 Y" q ) C+ m }5 E* s1 c