����ҶƬ���������ͻ�����Ҫ����֮һ���������ͻ�����;��ͬ����ҶƬ�ַ�ΪԲ������ҶƬ���ȿ�Բ����ҶƬ�Ͳ��ȿ�Բ����ҶƬ3�֡�Ŀǰ��������ҶƬ�����ƣ����������ֹ���ͼ����������ͼ�Ĺ��ɽΡ����ü�������������(CAD)��������ҶƬ���봫ͳ�ֹ���ͼ���ȣ����������������ơ��������������ͻ�3��ҶƬ������Ϊ������ϸ˵��������ҶƬ�IJ��������ƹ��̣�ͨ�����̡������Լ���AutoCAD2004��ͼϵͳ�������ӣ�ʹ�����Ƶ�Ӧ�ó���ģ�����н�������������������ѡ�������ǵȷ�����������������ҶƬͼ�Ρ��Զ���ע�ߴ����ص㡣(long)
1������ҶƬ������
ͼ1��3���������ͻ�ʾ��ͼ������ҶƬ�ij���������3�֡�һ�������£��ھ������ƹ����У���Ҫ���ǵ���Ҫ�����Ǹ����������ͻ�����;ȷ������ҶƬ�����ƾ��ȡ�
2������ҶƬ���������Ƶ�ʵ��
2.1 ���Ի�������
Ϊ��֤��ѡ������ҶƬʱ����ҶƬ������ȷ��ʾ���û������ϣ���ͼ2��ʾ�������Ի������Ƴ�ͼ����ť����������һ��ͼ����ťʱ�������ø���ҶƬ���ӶԻ��������ӶԻ����У�����������Ҫ�IJ������Ӷ��ɱ�֤���Ի�������������
2.2�ӶԻ�������
ϵͳ����������ʾ���Ի����Ե���ҶƬ���Ͱ�ť��[ҶƬ]�����˵���������Ӧ������ҶƬ���ͻ�ͼ�ӶԻ�������ͼ3��ͼ4��ͼ5��ʾ���ڵ������ӶԻ����У�������������ԭʼ����������ʵ����Ҫ�û�ѡ���IJ���������������������ͼ�����������ڲ�ͬ������ʹ����������Ȼ��������������[��������]��ť����������ͼ��Ҫ�IJ�����
����[���ղ���]��ť���ɰ������������������в��������գ��Ա��ٴ����롣���ڵ���[��������]��ť��ֱ�ӵ���[��ͼ]��ť���ӶԻ�����ʧ��ϵͳ�Զ�����AutoCAD����������AutoCAD2004��ͼ�����������ݹ��������½�������ʾ����������ʾ“���������㣺”���ڻ�ͼ����������ͼ�η���λ�ã�ϵͳ�Զ�����ͼ�Σ�ͬʱ�Զ���ע��ͼ�εijߴ硣(xiao)����[��ӡ]��ť�����Դ����ӺõĴ�ӡ������ֱ������ͼ�Ρ�
2.3������AutoCAD2004������
������AutoCAD2004ϵͳ������ִ��[��ͼ]ʱ�Զ����ӡ�VB������AutoCAD�����ӣ���Ҫ���²��裺(yan)
(1)��дVB����ǰ����VB���̻���������Au-toCAD�����⡣ѡ��[����]��[����]�������[����]�Ի�����ѡ��AutoCAD2004 0bject Library��ѡ����
(2)��д����AutoCAD��ͼ��VB����ǰ������AutoCAD��������������AutoCAD��’����һ��AutoCAD����Dim objacad As AcadApplication’����һ��AutoCAD���ĵ�����Dim objdwg As AcadDocument’����AutoCAD����Set objacad= New AutoCAD.AcadApplication' AutoCAD��ʾobjacad��Visible=True’����AutoCAD���ĵ�����Set objDoc=objacad.ActiveDocument
2.4����AutoCAD�Զ���ͼ
��AutoCADƽ̨������VBʵ���������ͻ�ҶƬ�IJ��������ƣ��ǻ����µ�ActiveX�Զ������漼(cui)������VBͨ�����̴�AutoCAD�ⲿ���ƺͲ���Au-toCAD����AutoCAD����VB�����е�һ��ͼ�δ��ڣ�������ͼ�����IJ���֮���ɸ�����Щ���ݽ��л�ͼ���༭����ӡ���رյȲ�����ʮ�ַ��㡣
3������Ӧ��ʵ��
��һ���ȿ�Բ�������ͻ�������ֱ��D=237��С��ֱ��D2= 97��о��ֱ��d=57��ҶƬ����n=2����������S=180������ҶƬչ��ͼ(�ߴ絥λ��Ϊmm)����ԭʼ����������������ѡ�������ǵȷ���Ϊ12����ͼ��ʾ����Ϊ0.5x������ҶƬ���ŷֱ�ѡ��1��2������[��ͼ]��ť���õ�����ҶƬչ��ͼ��ͼ6��ʾ��
����������Ҫ�ص����ܸ�������ҶƬ�Ĵ�С��-����Ҫ������ѡ�������ǵȷ�����ͼ�ε���ʾ������ͨ���������У��Զ�����AutoCAD�������Ƴ�����ҶƬ��չ��ͼ����չ��ͼ�ߴ���Сʱ���ɽ����������Ƶ�ͼ�ΰ�I:l�ı����ɻ�ͼ��������ֱ�����ڼ������ϣ���չ��ͼ�ߴ��ϴ������˹����Ʋü�����ͼʱ�����ǵ���ע�ijߴ��϶࣬Ӱ��չ��ͼ����������չ��ͼ��ֻ��ע���ֳߴ磬(qing)����������Ҫ�������ߴ�������չ��ͼ�±ߣ�����Ҫ�����и����ϵij��ϣ����иó�����չ��ͼ�����ֵļ��γߴ����ݴ���ָ���Ĵ����ļ���
4������
�������ǻ���AutoCADƽ̨��Ӧ��Vsiual Basic���Զ��ο�����������ҶƬCAD��������ͼϵͳ���������ɿ���ǿ���ݴ������ߡ����ݷḻ���������ۼ��࣬�ܿ��١�����������ָ�����������к�ǿ��ʵ���ԡ�
