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

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+ [...]... message dưới đây: Đó là vì ta quên bỏ một Microsoft Common Dialog Control 6.0 vào Form1 Vậy bạn hãy doubleclick icon của nó trong ToolBox Bây giờ hãy chạy program lại và click button Open để hiển thị Open Dialog Bạn có thể chọn folder nào tùy ý bằng cách di chuyển từ folder nầy qua folder khác hay thay đổi disk drive Nếu bạn click vào bên phải của combobox File of type, nó sẽ dropdown để cho thấy bạn có... hay các dạng Common Dialogs vẫn không thích hợp cho hoàn cảnh lập trình Trong trường hợp ấy bạn có thể dùng một Form bình thường để làm thành một Dialog cây nhà, lá vườn Nó hơi mất công hơn một chút, nhưng thứ nhất nó có những màu sắc giống như các Forms khác trong chương trình, và thứ hai ta muốn làm gì tùy ý Chỉ có cái bất lợi là chương trình sẽ dùng nhiều tài nguyên hơn, nói thẳng ra là cần thêm một... ShowSave để hiển thị nó Trong thí dụ trên ta định nghĩa các properties của CommonDialog1 bằng code Bạn cũng có thể dùng Properties Windows để định nghĩa chúng như dưới đây: Ngoài ra, bạn cũng có thể dùng các trang Properties của CommonDialog1 để định nghĩa Properties lúc thiết kế bằng cách right click Commondialog1 trên Form1 rồi chọn Properties: Properties Pages Dialog sẽ hiển thị với Tab Open/Save... thêm vào trong bảng màu được cung cấp, gọi là Windows Palette bằng cách click button Add to Custom Colors Bạn tạo ra một màu bằng cách click chỗ có màu theo ý trong bảng màu lớn hình vuông rồi nắm hình tam giác bên phải kéo lên, kéo xuống để thay đổi độ đậm của màu như hiển thị trong hộp vuông Color|Solid Khi vừa ý với màu hiển thị, bạn click button Add to Custom Colors, màu ấy sẽ được cho thêm vào. .. Filename có sẵn hay đánh một tên vào File name textbox, bạn click Open Sau đó, CommonDialog1.Filename sẽ chứa tên file bạn đã chọn hay đánh vào Vì ta cho CancelError = True nên nếu user click Cancel program sẽ generate một Error số 32755 (cdlCancel) Ở đây ta bắt Error ấy bằng cách dùng On Error GoTo DialogError và thử Err.Number= cdlCancel để hiển thị Error message dưới đây: Save Dialog cũng tương tự như... tiết trình bày trong Font Dialog tùy thuộc vào trị số của Flags như sau: Constant Trị số Hiệu quả 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. .. cho ta một giao diện cũng giống như trong Microsoft Office để chọn những nhiệm ý về việc in Với Print Dialog ta có thể chọn printer nào với những đặc tính nào bằng cách click button Properties hay button Preferences Ta cũng có thể quyết định in từ trang nào đến trang nào của document và in bao nhiêu copies Chỉ có điều phải lưu ý là nếu user dùng Print Dialog để chọn một Printer khác mà trong Print Dialog... user đánh vào tên và mật khẩu Sau đó, nếu tên và mật khẩu hợp lệ thì cái Form chính của program mới hiện ra Cách ta thực hiện là cho program khởi động với một Sub Maintrong BAS Module Sub Main sẽ gọi Sub GetUserInfo (cũng nằm trong cùng Module) để hiển thị form frmLogin trong Modal mode để nó làm việc cùng một cách như Message Box, Input Box hay Common Dialogs Khi form frmLogin được dấu kín bằng statement... 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 Nếu bạn muốn cho user nhiệm ý để chọn màu thì thêm 256 vào trị số của Flags Dưới đây là code để cho user chọn Font và màu của Label1 Private Sub CmdSelectFont_Click() On Error GoTo NoFontChosen CommonDialog1.CancelError = True ' Causes the dialog box to list... Modal mode để nó làm việc cùng một cách như Message Box, Input Box hay Common Dialogs Khi form frmLogin được dấu kín bằng statement Me.Hide thì execution trong Sub GetUserInfo sẽ tiếp tục để chi tiết điền vào các textboxes txtUserName và txtPassword được trả về local variables strUserName và strPassword Mã nguồn của Sub Main và Sub GetUserInfo được liệt ra dưới đây: Sub Main() Dim strUserName As String . 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+ƒ"$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<?