1.1��е�������������Ʒ�չ����
CAD�����Ѿ��������������ĸ������õ��˹㷺��Ӧ�ã�ȡ��������Ч�������ڻ�е��ҵ����Ӧ����Ҫ��6���棺(1)=ά����ͼֽ���ƣ�(2)ͼ�μ����ſ⣻(3)���������ƣ�(4)��άʵ�����ͣ�(5)���̷�����(6)�����ĵ������ɱ�����
����CAD������չѸ�ͣ�Ӧ�÷�Χ�����������������ƣ�CAD��������������3�����淢չ��(1)���ɻ���(2)���ܻ���(3)������
1.2�����豸(zhi)�����Ķ�̬������
�ִ����̻��ó�ϸ��������Ҫ�ֶ����ǻ�е���鷽ʽ���û�е��ʽ��ȡ��ϸ�����������ij�ϸ�������ּ��������ѶȲ������������о���������ֹ�����䷢չ���о���Ҫ�����¼������棺(1)�����볬ϸ�����豸(zhi)�����ľ�ϸ�ּ��豸(zhi)�����������豸��(2)����Ч�ʣ������ܺģ��������ߺĽ���ϸ�����豸(zhi)��(3)�豸(zhi)�빤���о�����һ�廯��(4)������ܳ�ϸ�����ͱ��������豸��(5)�����о��볬ϸ���鼼(yao)���������ȼ����Ϳ��Ƽ�����(6)���ӳ�ϸ�����������۵��о���
�����Եڶ����������������������о��У�������Ҫ�Ǽ�������ĥ���Ϻͳ������ƵĸĽ��ϣ������Ż����ƺ�CADϵͳ��Ҫ�����ڶ�ʽ�������ϡ����Է�����ʽ���������Ż����ƺ�CADϵͳ�Ŀ�������δ�����ױ��������������µ��о���������������һ�հײ����ϳɶ��ƴ����¼�����ҵ����˾��ԭ�в�Ʒ���нṹ�Ͳ����Ż������Լ�CADϵͳ�Ŀ�����
1.3�о�����Ҫ����
���IJ�����“������ʽ������CADϵͳ�Ŀ���”�����ؼ����Ľ���CADϵͳ�������ṹ�Լ���CADϵͳ������ģ���IJ���;����
��������3�����������ݣ�(1)�����˸�Ч��ϸ������CAD�������Ʒ����ͳ������̣���̽����CAD����������(2)��ϸ��������VB��VBA��ActiveX Automation��������������ģ���ı��̷�����(3)������������CAD������ģ���Ľ������ƺͿ���������
ͨ�������������䴫�������Ļ������������з������ó�������ʽ������CADϵͳ��ҪҪ�����£�
(1)���幦��Ҫ�������ɴ�����ԭʼ�����������綯��ѡ����һϵ�����Ʋ��裬(ling)���յ���������װ��ͼ��ȫ������ͼ�Ĺ�������ͼֽ�ͼ������ϲ�����ȫ�����̡�
(2)��������Ҫ�ٷ�����ʽ���������㲿���ṹ���ɲ��������ƣ������ɶԷ�����ʽ���������˶��㲿(wang)����ǿ��У�ˡ���ȫ�������������㣻���˻����������Ѻã�ʹ�÷����ɿ���
(3)�������л�����������ʽ������CADϵͳҪ���û�Ԥװ��WINDOWS95/98/2000����WINDOWSNT4.0���ϰ汾(fen)�IJ���ϵͳ��AutoCAD2000�汾(fen)��ͼ������Visual Basic forApplication=�ο������ߣ�ϵͳ���ڴ�ʹ�û������������С�
2 ��CADϵͳ�����ṹ�뿪������
������ʽ������CADϵͳ������������VB�������Կ������ɡ���ͼ�������߱����������⣬������AutoCAD2000��ͼ������Visual Basic forApplication��AutoCAD�е�ActiveX�������ɡ�
��ϵͳ��Ϊ���Ƽ������Զ���ͼ���֣�ÿ�����־�Ϊ�Գ���ϵ���ɵ������С��������ɲ���������ģ���»������ɸ���ģ�顣(cu)ģ���ֱ����ɻ����Ż����㡢(man)�����������㡢�˶�ѧģ�⡢����������Ƥ���������ơ�����ǿ�ȼ����ͻ�ͼ�ȹ�����ͼ1����ͨ���������εIJ�ͬ���÷���������ģ���ȿ���˳��ִ�У����֮�����õĹ��ñ������������ݼ��Ľ����ʹ��ݣ�Ҳ����ֱ�ӵ������е���—ģ��ִ�У�����ʼ��������Ϊ�������롣���ýṹ�����̣����ڳ������ԡ�ά����ʹ�ö��Ƚ�����㡣(long)ͬʱ����ģ��֮����Ȼ����������ֱ˴���ϵ���û�����������CADϵͳ����ʾ���ɸ���������������ģ�������ݴ�����Ҫͨ�������ļ���ϵ��
3��ϵͳ��Ҫ����ģ��
3.1���Ƽ���ģ��
(1)������ʽ�������Ż����Ƴ���ģ��
��������ģ����Ҫ�Ż����㴸ͷ������M��ת�ӵĽ��ٶȣ�ת�������ĵ�ת��������������Ч��1�Ȳ�������ʹ�����������õ��˶����Ժ�����Ч�������õ��Ż�����Ϊ���������Ż�������23������ʽԼ�����Ż����ƣ���ѧģ��Ϊ
���а������ݳ������Ƽ�һЩ��������ȷ���ı���������Լ��������Լ��������Ҫ��������Ҫ��ͷ�ȶ���Ҫ����ת�����������е�ǿ��Ҫ����ȷ����Լ��������
(2)�˶�ѧ��̬ģ��ģ��
�˶�ѧ��̬ģ������ģ�����ڽṹ�����趨(qu)���ȣ�ȷ��������ת�Ӻʹ�ͷ���˶��켣���ٶȺͼ��ٶȣ���̬ģ����ʾ���Է����ͼ����������˶������Ƿ��и��漰(peng)�Ƿ���������Ҫ����
(3)��������ģ��
��������ģ�����ý��������������������������ͷ�����Ϊǿ�ȼ���ģ���ṩ���ݡ�
(4)����ǿ�ȼ���ģ��
ǿ�ȼ���ģ������Ҫ��������ǿ��У�˼��㣬�����ᡢ���ܡ���������ͷ�ȡ�
3.2��������ͼģ��
���Dz���Visual Basic for Application�����˲������Զ���ͼģ�飬(juan)��59��������Ϊ8������ģ�飬��ͼ2��ʾ����
������ʽ�������ڹ�ҵӦ�ü�Ϊ�㷺������������ҲΪ�����IJ�Ʒ���ƣ����ڱ����������ơ�
�����������Ƽ���(Feature Based DesignTechnology)��һ��������Ʒ����ȫ���̵�������Ϣ����Ϣ��ϵ�����ֽ�ģ������
�������ƹ����У�������CADͼ���ļ��в���Լ����ϵ�����̶��ߴ���ͼ���Զ�ת���ɲ�����ͼ�Ρ�����ϵ�л���ͨ�û��ͱ����Ķ��Ͳ�Ʒ���������õ���ѧģ�ͼ���Ʒ�Ľṹ�������Թ̶������ģ�����ͬ��ֻ�Dz�Ʒ�Ľṹ�ߴ��������𣬶(ba)��ṹ�ߴ��IJ�����������ͬ��Ŀ�����͵���֪�����ڲ�ͬ�����IJ�Ʒ������ȡ��ֵͬ�����ɵġ�������Ʒ�ɽ���֪���������Ų�Ʒ�������仯�Ļ�����������Ӧ�ı������棬(quan)Ȼ��������Щ��֪�����ͻ��������ɼ������Զ���ѯͼ�����ݿ⣬��ר�ŵĻ�ͼ������������Ļ���Զ����Ƴ�ͼ���������紸(zhu)ͷ�IJ��������ƹ���Ϊ���������˻��������檔(dang)�������пɹ��û�ѡ�����ĵIJ������紸(zhu)ͷ����L����L3��������R1����D2������H��16���������Լ�“ȷ��”��“�˳�”�������ť���ڽ�����ʼ������ComboBox�������������Ʋ������ɹ��û�ѡ����labelָʾ���������ĺ��塣�۸�ֵ����“ȷ��”��ť�еĹ���Ϊ��L3��R1��16��������ֵ���粻�������У����ɽ�����“�˳�”��ť�жϣ����ܶ���ȫ�ֱ������������������̡���ģ���Ĺ���֮�⣬����ȫ�ֱ�������ģ���Ĺ����зֱ�����ͼ�λ��ơ��ߴ���ע�������ֲڶȱ�ע������Ҫ����ͼ�����������ȹ��̳�������ʵ�ִ�ͷ���������ơ�
������ʽ������CADϵͳ�����˲��������Ƽ�������������������Ч�ʺ�������
4��ģ����������ͨѶ
����ͨѶҲ���Dz�ͬ����ģ��֮�������ݽ����ʹ��ݣ���ģ�����Ľӿڡ�������ʽ������CAD�д��ݵ���Ϣ�϶࣬��������Լ����ʽ���ļ�ʵ������ͨѶ����ͬģ��ͨ��Լ�����ļ��������ݣ�ʵ�ֳ��������ݷ��룬����ʵ�ֲ�ͬ���ԵĻ��ϱ��̣��������������Ĺ�����Լ���ļ�ͨ����Ϊ���ݿ���һ�������ļ�������ʽ��
���ݿⷽ�����������ɵ��������ݿ⣬���ڴ����������Թ̶������ݻ��ϴ�ϵͳ���ã���ϵͳ�Ŀ����ϴ������ļ�������һ�ִ��ݵ����ݽ������������ṹ���������ף��Ի���Ҫ�ߡ���ϵͳ������ͨѶ��Ҫ�Dz������������ļ�������
5��������ʽ������CAD��������
���������̿�ͼ��֪��������ʽ������CADϵͳ�����˴�ԭʼ���������뵽ͼ�λ��Ƶ�ȫ������������ʵ�ʲ����У��û����������ߴ�������������������������ǿ�ȼ��㣬(qi)Ƥ���������ƣ��Ż����ƺ�����ͼ�λ��Ʋ��֣�����װ��ͼ������ͼ���������Ʋ������ֺ��˶�ģ�ⲿ�ֲ�����Ҫ�ɷ������½������ơ�
�ɴ˿�֪�������ļ��Ǹ�����ģ����ϵ����Ŧ��
Ϊ���������������ṩ�˿��ܡ�
6��ϵͳ������ͼ������
������ʽ������CADϵͳ�����ɹ������ƽΣ�ȷ������������Ҫ���Ʋ�������������ͼֽ�Ļ��ƺ������Ρ��˽���Ҫ������������װ��ͼ��ȫ���DZ����������ƻ��ƣ����Ƽ���Ҫ����ȷ���ȹ�����
6.1ͼ�λ�ͼ�����Ϳ�������
��ϵͳ����ͼֽ�Ļ��ƹ�������AutoCAD2000�Ļ�ͼ�����У�����AutoCAD2000��Ƕ��VBA��ActiveX Automation�������п�����
��ĿǰΪֹ��Autodesk��˾�ṩ4�ֶ��ο����ֶΣ�Autolisp��ADS��VBA��ObjeotARX��MicrosoftVBA��һ�����������ı��̻���������Visual Basicһ���к�ǿ�Ŀ���������
Auto CAD ActiveX�ṩ��AutoCAD�ڻ���AutoCAD�����Ʊ��̵Ļ��ƣ�����ͨ��ʹAutoCAD���ŵ��ⲿ������������һ���ġ�ֻҪ��Щ�����ţ��Ϳ���ͨ�����ֲ�ͬ�ı������Ի���������Ӧ�ó������������ǡ�
Microsoft VBA��VB����֮����������VBA��AutoCAD������ͬһ�����ռ䣬ΪAutoCAD�ṩ���ܺͿ��ٵı��̻�����
AutoCAD��ʹ��VBA���ص㣺��VBA��ΪAutoCAD��һ���������У���ʹ����ִ���ٶȱ��÷dz��죻�ڶԻ����ṹ������Ч������������������ʱ����Ӧ�ó��������ܺܿ��õ��������۶������Զ���������Ҳ����Ƕ��AutoCADͼ�Ρ�����Ϊ�û������Լ��Ŀ��������ṩ�����������ԡ�
VBAͨ��AutoCAD ActiveX Autumation�ӿ���AutoCAD������Ϣ��AutoCAD VBA������AutoCADͬʱ���У�����ͨ��AutoCAD ActiveX Automation�ӿڽ����ṩAutoCAD�ı��̿��ơ�AutoCAD ActiveX Autumation��VBA֮���Ľ����ṩ��ǿ�Ľӿڹ��ܣ��������Կ���AutoCAD�����ҿ��Դ�����Ӧ�ó����������ݻ��������ݡ�
����������AutoCAD AP1������AutoCADActiveXN BA�ӿ���4���������ֳ������ŵ㣺���ٶȿ죺��Ϊʹ��VBA�ڳ��������У�ActiveXӦ�ó�����AutoLisp��ADSӦ�ó�����Ҫ���öࣻ��ʹ�÷��㣻��Windows���������ԣ��ܿ��ٳ��͡�
6.2��ϵͳ��ͼ��ϵͳ�ӿ�����
��CADϵͳ��Visual Basic6.0�������ƹ��ܺ�ϵͳ�Զ�ִ�й����Գ�������ϵͳ�Ĺ������Ʋ������Ƴ�Ϊ��ִ���ļ����ɶ������ɹ������ƹ���������ͼ�λ��Ʋ�������ΪWindows DLL�ļ�����AutoCAD�����»���ͼ�Σ�����ϵͳͨ�����߽ӿ��������ɼ��ɹ������ﵽ������Ŀ�꣬��ͼ3��ʾ��
ϵͳ�ӿ�����������ϵͳ����ȱ�ٵIJ��֣��������迼(jie)�����¼���ԭ����(1)�ӿڼ���ʵ�ã�(2)ʹ�÷������У�(3)���������س������ƺ��û���ʹ�ø�����