粗糙度

sodatou

通过粗糙度标注研究cad属性块（三）2007-10-02 14:35tag1:='范围';

, W2 `. @, ~! \3 K( Uprompt1:='加工范围：';

( Q% n% ?8 ~( ~2 yvalue1:=combobox1.Text;

3 F  n5 x- t7 J6 v% @tag2:='加工余量';
2 v9 D6 R% ]) N
$ k1 q/ a- R) t, h5 L2 Qprompt2:='加工余量：';

value2:=combobox2.Text;
4 I) k$ n( {1 o& z" Z+ h: }
tag3:='粗糙度下限';

4 A5 \$ Y* m3 b( @+ Sprompt3:='粗糙度下值：';

3 Q) S6 G" C9 x/ E& gvalue3:=combobox3.Text;

tag4:='粗糙度上限';

! N; H6 i& C+ f( A& R8 u+ A1 P8 Jprompt4:='粗糙度上限值：';

* O- o7 e' P+ V' \1 e6 g; r: I0 I- Vvalue4:=combobox4.Text;

9 T/ V6 P7 {  m# D& ^3 B# M4 Utag5:='加工要求';

prompt5:='加工要求：';

value5:=combobox5.Text;

, x8 b6 l# O7 e) `) o+ Utag6:='取样长度';
  g  S/ ?6 g4 G; K: a  m4 o
prompt6:='取样长度：';

& T: `/ H' T. s- Q6 m8 Ivalue6:=combobox6.Text;
; z. M; m5 h0 i( q7 t2 V
1 g: @4 ^- z" s$ @  gtag7:='波纹长度';
' ]! V6 T+ _8 G! K& F) y7 o. b. y
7 m7 i. I. r8 l7 |prompt7:='波纹长度：';
% f9 |+ c% c2 E, Q% P& L. o$ [" r
value7:=combobox7.Text;

; e' R: s" q7 G2 R- G0 A; m' ktag8:='纹理';

prompt8:='加工纹理：';
' }: B& ]4 ?$ v6 f0 c7 N5 b4 u
value8:=combobox8.Text;

# _8 M: @3 W8 O5 v) Y* g2 F  W) {//tag9:='旋转角度';
$ U9 L- m& L' {, a2 B0 k3 P
//prompt9:='旋转角度：';
; I5 k) @) `3 H  l8 I1 E  b
) S8 t2 p6 ~! N4 x  }$ m, @" T; p//value9:=edit1.Text;

blockobj:=caddoc.blocks.add(point1,blockname);//添加块　　
- g) y: O. H1 y# V) a1 W
//分别为块添加属性

att1:=blockobj.AddAttribute(height,mode,prompt1,point6,tag1,value1);

att2:=blockobj.AddAttribute(height,mode,prompt2,point7,tag2,value2);
1 Y6 @" k$ h# ?8 f" \; E) k
att3:=blockobj.AddAttribute(height,mode,prompt3,point8,tag3,value3);

' K, h) h% U3 k5 B- b, ratt4:=blockobj.AddAttribute(height,mode,prompt4,point9,tag4,value4);

att5:=blockobj.AddAttribute(height,mode,prompt5,point10,tag5,value5);

$ T! S* m& [5 _6 e+ Jatt6:=blockobj.AddAttribute(height,mode,prompt6,point11,tag6,value6);
2 n( @- T; O' X1 o5 H& q% o
* |5 F/ z/ W4 Q6 d) S, Eatt7:=blockobj.AddAttribute(height,mode,prompt7,point12,tag7,value7);
* r& [5 W5 ?0 A8 F: y
9 j4 j' [" }- \$ f5 Z8 @% y! satt8:=blockobj.AddAttribute(height,mode,prompt8,point14,tag8,value8);

//在块中画线。
9 q( W1 k# |5 y  m/ O' X
line1:=blockobj.addline(point1,point2);

line2:=blockobj.addline(point1,point4);
/ Z/ j* ]. [9 d! t. S% _
if checkbox1.Checked=true then//当相同要求时，要画圆及圆后面的那根线。

# f& L. K( |/ z8 ]- hbegin

circle1:=blockobj.addcircle(point4,1.5);
" Z$ V; t) i3 k* r: H
6 w1 x& E! \! x" vline4:=blockobj.addline(point4,point5);

) v0 ]' ^* m2 aend;

if radiobutton1.Checked=true then//当“去除材料”时画三角形水平线。
" A  W. D1 @% @$ X
0 b4 p- J9 c9 o6 u" X5 obegin

" f0 j% P8 r* ?2 u/ G9 P" Mline3:=blockobj.addline(point2,point3);

end;

if radiobutton2.Checked=true then//当“不除材料”时画圆。
! h5 W; S. {$ r3 u0 D6 L
$ q& j" P0 [1 I0 s8 Kbegin
5 n7 ~/ t4 {# A, I, I
; {- V+ |9 \8 Q' H4 F. A# ccircle2:=blockobj.addcircle(point13,2.89);

6 F' X8 F$ I3 q2 Z: C, X. Pend;

//下面为当最右边三个下拉框（从上到下分别代表加工要求，取样长度，波纹长度）有一个不为空时，即有内容时要画右边的那根水平线。
6 p( X0 H( O( g9 ?) W6 E
if ((combobox5.Text<>' ') or (combobox6.Text<>' ') or (combobox7.Text<>' '))    then
, {. L  D/ m7 Q
7 ?) L4 J- @% Z# W" }# zbegin

line4:=blockobj.addline(point4,point5);
! g0 b9 ~8 H4 S1 \% g( v
end;
4 }3 f8 |- q4 U2 E2 ~, t0 `' ~* d
6 w7 ^8 A, q, ]3 f4 x
, b% _6 m9 q! _- A& D0 }" @caddoc.modelspace.InsertBlock(caddoc.utility.getpoint(,'请指定点的位置：'),blockname,1,1,1,0);//插入块，用鼠标在屏幕上点取插入点。最后三个“１”及一个“０”分别代表，在x,y,z方向上的缩放比例及块的旋转角度。在此我们不将块旋转，因而用０，经试验，当输入一个角度时不按实际角度来旋转，不知为何原因。有兴趣的可进一步研究一下，看是如何算的。

% T+ D4 a  C/ ecaddoc:=Unassigned;
: T" ~: F) I3 z/ H. f
& H/ R$ Y1 J$ M9 M( _$ bcad:=Unassigned;
) T8 n1 c2 e& m
1 h. @# l& [4 Sclose;

* k4 G. L& D. q- c- gend;

( U+ Y$ q- {8 Y本想把编译好的也上传上来。可是找不到空间，我原来有个空间上传不上去。本例还不很完善，本例模仿华途CAD的粗糙度标注来做的。用起来没他那个好用。仅用来编程研究，有兴趣的可进一步完善更新。
, Z* W, E9 {& u2 ]1 b7 U  y) H
下面再看图：
! |5 d, m% Y& }( h: c
, k6 B$ g# y3 \) F9 C: e1 }- i5 S1 d
运行界面运行结果

jienge

需要学习的太多了

Tao5574909

你也太小题大做了,你建一个图块属性块,不就好了吗!还用在编一个程序吗

偶00然

不错，都是好的经验。学习

wyb001122

非常好，希望继续

bw825000

楼主真牛，佩服