Chương trình ve pline vào AutoCAD 2010 từ excel bằng VBA


 !"#$%&'()$*+,
 -'.! /0
1 !'234,567+8"%9:;<,;5=
>

>
?30'@93+A
B;C! /+::D+"-''+"
%9<%&E3F'8!
''+:G
+CDA2H
''+:G
+CD
''+:G1
+CD
!
!AAI3J:,3
!
!AK
'''+
L!3MN
CC+D,+3MN,LO
:3
0+AP3
H+'AAI+I3J:,3

9B8A
;QA2HMRS3(+T&@N
M%UFS3SV+9"WMWAWA-+:WP"WA-+%WXN*+9%Y
C8+8F'Z%[AI3J:,3N

;QA%&\]%WC8

CC3,CC+D
^R563^RR
3563^R3
3+3$

+L''+:GJRMN
_+CDA2
5`3'a
2,:
,+
''3L
'b!,!

LCCbc56M"d,CC+DdN
$0e/!
,+
LCCb+56Md,CC+DdN
$0e/!
23dR':fd"+'+D
:
:$0
:$0
CC,3b!
_L^R56b^RR3,5CMHa+'AbdAI:IS,3dN
L^R56b^RR3,5CMHa+'Ab'N
L356bCC,^R33MN
b
!b356,3M"N

^356,3M"Ne/dd
!b356,3M"N
bg
7C

!,!bM Nh
2,LO
:L


+L''+:G1JRMN
CC,i
:
:L



+L''+:GJRMN
_+CD
_5`3'a
''LC+3+:2:LC+
'C+LC+3+:+CLC+
L'LC+b!3+O,2:LC+
LC+LC+b!3+O,+CLC+

':+8MN3
3b$M!,!N
`':+8M!3N3

'C563+:7^8

2,:
_,+
LCCbc56M"d,CC+DdN
CC,3b!
L356bCC,^R33MN
!,!b356,3M1"N

6b
Hb!M3jN
:+8M6Nb356,3M"N
:+8M6gNb356,3M"N
6b6g

a

!,!b:+8MkN

LC56b'LC+,::7^8M:+8N
!3+O,CC+D,l'
CC,i


2,LO
:L

+L?3H'JRMN
:L

+L?3H'J$D+mMN
'3+'3L

'La+'3L
'$3$
'$H:C33$

?3H',''+,Hbd3H3Mh,3Nnh,3d
?3H',''+,LO5C
3+'b?3H',''+,Ha+'
!,!b3+'
:L

!':#A
L'MN
?3H',LO
:L
B8"#Al'co
!p]Rqrs%[+"%[+;"t8:]"+u"RvQ"vB'98",,,Cw'U
+:%x3y:.;CEv,B@&3y:.%&\9%Tx-
+:*%U%z@,B3++BRu&'xB{fBz83y:.u|
+:%&](u(%@,avB%zv}+@-%x
+:,~&:•:339|+Q"u)(*.%&'€+:
xBA
L2J+:MN
'+CC356
5`3'a
L+:CCbc56M"d,CC+DdN
$0e/!
,+
=!b!
L+:CCb+56Md,CC+DdN
:$0

CCD++:CC,+CD
+:CC,3b!
L+:CCba
:L
L2JMN
'CC356
5`3'a
LCCbc56M"d,CC+DdN
$0e/!
,+
LCCb+56Md,CC+DdN
:$0
CC,3b!
CCD+CC,+CD
CC,^RR3,::
LCCba
:L
=@+•'!.3++3k,
2‚2W ƒ+3
 +3M+BN%x:ƒ%&&[DVr'3+8R8+:C33ƒ8
„T,Q%x:ƒ%&rC3]Q…*+33u9%‚*+
C+'F;|:.9*+^:O3,
@U:B+3"'†V9C:.'W‡F(,!w8+3\ˆ+
KB+3‰FVUR9+:ƒQA233+3
 $C3
1 ''+3
K 3'+3
233+3
233+3%x:ƒ%&s€3'W8("%Šo'WC‡V%@3,!‰:.
R+;':VC+'2L^:'+y‹32L^:3\s+y@

+:)%t8A
!‚xCw83@&R'W1G3,avRX33\QDv(y‹3
)RRvQC+'2L^:,avRa2L^:3\Z\RvQ,avR+@
p+3%E…(;':VC+'€BDvC.:ƒ2L^:,
!+:ƒD23%&&[233+::)%t8A
++'Mu3TNV;*+23'33+3C+':O{"C++'V
rCxC*+Mi3DN3TG3M5=+N9W+3+3Ai3Dg
5=+M+G35=+N"C++'V+DMDF%UN*++,
!‰:.2L^:FF3+*+G3+'+DgX3a+M+G3
X3"a+N,
!+-3TBG3‡:)%t8A
3+ 9G3
vbOKOnly OK
vbOKCancel OK Cancel
vbYesNo Yes No
vbRetryCancel Retry Cancel
vbYesNoCancel Yes No Cancel
vbAbortRetryIgn
ore
Abort Retry
Ignore
3+*+93+@&:ƒD+"i3D"+'+D$0'+D,
='W233+%x'€+"‡C+'B%x3C‡V,!+@233+%x
&[2:+2:"@:'-3]Q…B'9DR9ƒC+',
L+R3R'WG"233+3\v';C+'3\DvC.B8:+8
:)23,
!‰:.F+:ƒ23'WL"+}@&:ƒ23'WHD%&
v3+')RG,HD233'W+M‡U'W9[N'+@&y
v%&%@,!‰:.A
+L

'3$
 !"#$!"%& 
'
L+3
+3!"%&
(%&
+3!"
(
:L
:L
9[3T3++333+3'HD233A
![3T !F 3
1 OK vbOK
2
Cance
l
vbCanc
el
3 Abort vbAbort
4 Retry vbRetry
5
Ignor
e
vbIgnor
e
6 Yes vbYes
7 No vbNo
B@&&[!'33+233+U9:ƒ3+70
M++`7H:N%&%9:;|†sRQ3+A
)*+!",-+-".

avB;8'‚:ƒ23)ƒ'W|G3"@!'33+R9
+"B@&v'Wc+LD,L':%&:ƒBUw,!‰:.B@'W
c+L3+A
L/.'8+'3L
' !"$!"%&%. '
:L
2†w'T&['W'33+BYw-L3C+8)!'33+'Ru3x
:ƒw'Œ,L+w8'T%E9&['33+Yw:€'W†,av3'T
B|;‡'-3•8+Q D'"BYwF':L3C+8%&
v'33+'WS,
$C3
)233+3"3Y@&RF'WG,~uR+'T3%9F''W‰:|
R("‚xC;8+@&:ƒ$C3,
$C3TT233+"@8FrC:++3Ru&['W
,!‰:.A
+L0
'.3L
.12. 34.5 6
7888 9888
:+.+ 4.; !"%&%. :
:L
~&…9C++'3*+HD$CŽ,++'V;!'33+"C++'V+
!*++"C++'V+0+$C+,~t8+%x&[3•$CR
@;("v%@C3‚%93YwRQ5=%*,•+C++'3T
ƒ5CD+M('…"@}%x"Ru@}Ru3+N,a@P"X:+3*+$C
%[OC3,•(T-+%W;8@FF9'•)Pb"Xb,
$C@+:B
HD3A
 $CŽ
3'W

L%
 $C 3'WL'++++
avBRQ+:+'C83"B@&3'C83%&r:(
‚xCw8,
)%t8'W‰:.:ƒHD$CA
+L<)
'!3++
'=3$
!1. :.5 9>
$01?!!
=!
$0=@78!
(." !"%&%. %"!
3
( !"%&%. %"!
:$0
3
%;A..; !"$!"%&%. 1
'
:$0
:L
=F:ƒ$C3
2Z:w$C3;:•:ƒ"F]v;‰R+:ƒ@|…:3+%t8A
 !+Ru&'%xQ3C:++"C‡%x3+R3R5=')s%w
y…C3,axBv+:ƒ'W!'WH'u‚"+@&:
9+:3*+3=833+8+%&R&'399R83R3*+3,
 $C3Y+%9'W3:8;,aUR+'T3%9U
VFwC‡@'W0'F,
 L+ƒ"$C3'Ru%•C's,+':ƒ$C3@‘Ru8F
(C":%@+wC‡:ƒ3'+3,

''+3
B@%&…;8w'-C+'3^:O3%U@ƒ|:+3%&5CL+S3{
w;‡C+'3%U@ƒ:+3%&-'"0|+8%&{~@9+3
u:.;8WU''+7+8*+2L^:O3C<C9C+'-,
2T:ƒ9+3;8k+C‡0':1,$2''+:6n
'C3,,,‹-CC8234''+k,,
234
''
+
k,+39
:B+3
ƒ8-
2:A
!F 2:
%< ShowOpen
B!< ShowSave
 ShowColor
< ShowFont

ShowPrint
er
: ShowHelp
5CL+H+3
Bz8'€'W6'))'WGF':5CH'%9:3+%t8L
':5CJRA
+L%
50)/'
^/9
C'!_c+':+03R+
C1/'DEF_$D+M,,:0+NH:

C<'"GCHGCH<GC"HGC"
C<19_Ldd+3Mh,Nnh,d+3:0+
C/)B
CB%_7+5C+
(+C<? !"%&%.$!"1- %
/
:^
L
/'D
$0'C?"!
(; !"%&%.$!"1- %/
L
3
'/4D+'C/ !"%&%.$!" 
'
L
:$0
:L
•z8B8C+';8RG5C"C+'3\&['33+:)%t8A
~@+ˆFo'W
234''+
k,H',r8B
z8:R*+@!,t8‚z8B8C+'BRG5C%&&[
5C+,
B@&-0:ƒ8…9:8&0:w8ˆ+0:R9+8+8%E:3R:,
avBRFC‡*+'H08C"@3\:C:O%&;8B@&-'W
+BH3(RF3+'A
C<'"GCHGCH<GC"HGC"
L+R-'WH+'@3•+8%9'WFH+'"BR5C,L+%@"
''+,H+'3\V+FSB%z-+8%9,

+,+b!
Fv3R+
C+'3\+'W
3T1’““M:+N,”%t8+s;89:ƒ5c!+y
,a'b:+%&&['33+:)%t8A
L++}]5C
+"+:ƒ':LOL+%&
&[@,
!‰:.F+%[p+9CCD3*+''+:,B}@&:ƒ
CD3^:O3%&%[p+Q:)%t8A
a+"B}@
&:ƒ9+
CD3*+
''+%&
%[p+CD3
QvRv9
R
'':+F
H'‹-
CD3A
CD3+3+3\
&[)!+
5CjL+3@3•Q
%w"B@&%99
DV3+A
+
+
3'W9-
';:•:ƒ,
a|'

@3•"3@&
]B+'W'
‹@F'
‡
'%x
;C"-^:O3+G9RG::3'3,
BB+'W'9R†@'…‡')u‹s'+'
9FC‡R<F"R<T%&+8%E%W%r'*+'&[WCunL:,
=+…)'&["BRG::3'3"';83\%xF'@'
3'3'C‰+:)"F9,
!+:ƒ
':
LO%&
&[
+,L+R
3%z-
'W'‹"+
@&]DvC
+33@
CC8
H+8
+R*+
'W,
!‰:.:)%t89''3+-%x+33:+R:*+CA
+LB
50)?
^/9
C'!
_D:+3:3C+8:":S3'33D
C<<%

CB_7++
9CC_333:+R:0
L
:^
?D
_c03R3+G
(; !"1- 
L
:L
B@&:O+:3:*+C+'+ >w8,
H+
H++-H'‡+8C-'%&:ƒ|*+H,!+:ƒ
':LOH%&&[H+,9Dv8H+ƒ8W[3T*+
H+33+A
3+ ![3T •(ˆ‡
cdlCFScreenFon
ts
1 Chỉ hiển thị các Fonts printer hổ trợ
cdlCFPrinterFon
ts
2
Chỉ hiển thị các Fonts của màn ảnh, chưa chắc tất cả đều được
printer hổ trợ
cdlCFBoth 3 Hiiển thị các Fonts màn ảnh và printer
cdlCFScalableO
nly
&H200
00
Chỉ hiển thị các scalable Fonts như TrueType fonts mà bạn đã
cài vào máy

avB'T3('…%&-'F'“k[3T*+H+3,
)%t8
:%&
3-H
'*+
7+,
+LB<
50)?<
/9C'!
_+33:+383033CC:8383',
/9C<<B<$7IF_::“k:CD
/9CB<_7+H+
^,"9C<
C/9C<
C1/9C<1
C?/9C<?
CBJ/9C<BJ
CB/9C<B
CK/9C<K
:^
,"9C</9C
,"9C:;;; <//
L
?<D
?-; !"1- 
L
:L
Q…AavBˆFH+3'W|3T@FC+'3\'W'33+
3+A
B@&:O+:

3:*+
C+'H+ >
w8,
+
H+'W+:(}T2345•%&-|('…U(,
)++@&-C)|%Z–9RGCD3+8
G03,!+}@&ˆ8v%[+%v+*+:'+F
C3,Y@%UC‡…v3:ƒ+%&-'WR9'+
+%z-C80+b!;83\€0+@}3\@(
]p•‡^:O3%vR3+8%EB,
=9)H+3"+Ru%Šo+C‡'W[3T*+C8H+3,!+Y
w:ƒ2:LO%&&[+,+CCD3‚%x:ƒ;3+R3
-9('…*++C3"H'+!+,~&39:0++3*+|
CCD3w8"B@&%&3•9[3T)R&[+,
)%t8
:'Œ
:ƒC
+A
+LB
^/9
C<9
C)9
C9
CB
:^
:L
•C+
!+:ƒ':LO•C%&&[9uDQC%—")C‡''+‰;[
3T*+9CCD3•CH•C''+:,
+L:

/9C:<
(C
/9C:
:
/9CB:
:L
~&vF'DvU9:ƒLO•C"|•C3:k‹;C‰'
H-23',
3'+3
aUR233+"$C+89:B''+3ŒRu‰xC‡rC
,!‚xC;8B@&:ƒ'WH'‚%&''W+t8"9
‚,a@';u'WQ"V;@@|'3sT9H'3R9
"V++'T'ƒ8…,Y@9;x3\:ƒU
8F"@˜+wF''W‰''8,
L+%t8+y&R+'W7H'Eˆ9"@&:ƒU‚xC,=R€%W"
C+'w83\&['W70'8Fw3%9F'rR•,L+%@"vF'r
R•xC(9H'‰*+C+'')(+,9+](C+'R€%W)
'WL2+,L2:,L2+3\-Lc?3$0M}'ƒ2:N%&&
[0'0'72:+':%&@'(ƒ'W9233+"$C+8
''+3,
=0'0'7%x:;R‰3+'2,•:DLc?3$03\DvC.
%&Dv%U93?3a+'+33O:%x‡U+++33?3a+'
3+33O:,2z‹*+L2+Lc?3$0%x(+:)%t8A
L
'K?3L
'3L
_++L?3$0+?3a+'+:+33O:
0K1-K? 
$0K?!
,-" !"1- ="

3
K+K?++
!"1- ,
_R?3a+'+:+33O:
_$0+:C+33O:3O2+0'0C+'O3'C':3C++8,,,
_0'2+,LO
:$0
:L

+L0K1-8`0K?3B 8`03B
_$R0'70'2:+':
-,CB!"
_33+30'73::"D3
K?-,CK?_+330'_3?3a+'3?3a+'
-,C_+330'_3+33O:3+33O:
K-,_?+:0'0'7
:L
70'%x&[:)%t8A
L+R3%U
DvR5="
B'‚+Y&
['Wu%(C%&9r9Dv;8,
!+"B@
&vF':%&
R&'+'F'r
R•@(]Ru,@'WDvU0'0'7%&@'(TT'W''
+A
 !+CC8:L8*+0'7H:+,
 !+C8+33O:+*++33O:dhd%&R3%U'rR•"+Y
;8'W:;+[,

 !+C8L+C3D*+0'L,
 C80+*+G':5=!%&R3;C‰'0'
%)RG':5=,
 !xv"C8+*+G':+!%&R3;C‰'3
0'%)RG':+,
!B'‚:*+R*+':5=':+Y%‡(RF:)%t8A
+L
_+?3a+'+:+33O:
K?

_•:H'02:+':
C:
:L
+L%&
_•:H'02:+':
C:
:L