- Äúµ±Ç°µÄλÖ㺹«Ë¾Ö÷Ò³ >ÃæÏòÒìÐÎÇиîµÄÊý¿Ø×Ô¶¯±à³ÌϵͳµÄ¿ª·¢
ÃæÏòÒìÐÎÇиîµÄÊý¿Ø×Ô¶¯±à³ÌϵͳµÄ¿ª·¢
×÷Õߣºbearingpower ·¢±íʱ¼ä£º2010-12-12
ÃæÏòÒìÐÎÇиîµÄÊý¿Ø×Ô¶¯±à³ÌϵͳµÄ¿ª·¢¹Ø¼ü×Ö£ºÒìÐÎÇиî Ò»¡¢ÒýÑÔ ÒìÐÎÇиîÊÇÀûÓÃË®Çиî»ú¡¢µñ¿Ì»úµÈרÓÃÇиî»ú¶ÔÒìÐνðÊô°å²Ä¡¢²£Á§¡¢²¼ÁÏ¡¢´óÀíʯµÈ¶àÖÖÒìÐβÄÁϽøÐÐÇиͼ°¸²Ã¼ôµÄÒ»ÖÖ¼Ó¹¤·½·¨¡£ÒìÐÎÇиîÒ»°ãÊÊÓÃÓÚÆ½ÃæÇиÕë¶Ô²»Í¬²ÄÁÏÓÐÆäÌØÊâµÄ¼Ó¹¤¹¤ÒÕ¡£ÏÖÓеĻæÍ¼±à³ÌÒ»Ì廯CAD/CAMÈí¼þ²»ÄÜÂú×ãÒªÇ󣬶øÇÒ¼Û¸ñ°º¹ó¡£±¾ÏµÍ³ÊÇ»ùÓÚ»æÍ¼Èí¼þ¶þ´Î¿ª·¢¹¤¾ßµÄ×Ô¶¯±à³Ìϵͳ£¬ËüÒÔAutoCADΪ¿ª·¢Æ½Ì¨£¬ÒÔAutoCAD VBAºÍVB6.0Ϊ±à³ÌÓïÑÔ£¬ÊµÏÖÁËͼÐδ¦Àí¡¢×Ô¶¯±à³ÌµÈ¹¦ÄÜ¡£¶þ¡¢ÏµÍ³µÄ¹¦ÄÜ ´ËϵͳÖ÷Òª¹¦ÄÜÊÇÔÚAutoCADϵͳ»·¾³ÖУ¬¸ù¾Ý¿Í»§µÄCADͼÐΣ¬ÓÉÓû§½çÃæÒÔ½»»¥²Ù×÷·½Ê½Ñ¡Ôñ»òÊäÈëÇиÒÕ²ÎÊý£¬Éú³ÉÇиî¹ì¼£ºÍG´úÂ룬Ȼºóͨ¹ý´úÂë·´¶Á£¬½øÐй켣·ÂÕæ£¬ÒÔ±ãУÑé´úÂëµÄÕýÈ·ÐÔ¡£ÁíÍ⣬»¹¿ÉÒÔ½øÐдúÂëµÄ±à¼ºÍÍê³ÉÊý¿ØÖ¸ÁîÎļþµÄ´æÅÌ¡£ÆäϵͳÁ÷³ÌÈçͼ1Ëùʾ¡£ http://img.hc360.com/mt/info/images/200612/2006121112.JPGͼ1 ϵͳ¹¦ÄÜͼÈý¡¢ÏµÍ³¿ª·¢Æ½Ì¨ ´Ëϵͳ¿ª·¢ÀûÓÃAutoCADÁ¼ºÃµÄ¿ª·Å½á¹¹ºÍ¾ßÓÐ÷ÈÁ¦µÄ¶þ´Î¿ª·¢¹¤¾ßVBA¡£AutoCAD VBAÓëVBÓÐ׿¸ºõÏàͬµÄ¿ª·¢»·¾³ºÍÓï·¨£¬Ëü¾ßÓÐFor Application¹¦ÄÜ£¬×¤ÁôÔÚAutoCADÖ÷³ÌÐòÄÚ²¿£¬½á¹¹¾«¼ò£¬´úÂëÔËÐÐЧÂʸߣ¬¹¦ÄÜÇ¿£¬´óÒ×ÓÚÕÆÎÕ£¬Îª¿ª·¢³ÌÐò´øÀ´Á˼«´óµÄ·½±ã¡£µ«ÊÇÓÃËü¿ª·¢µÄ³ÌÐòûÓÐÓû§×Ô¼ºµÄÆô¶¯½çÃæ£¬ÇÒ¿ª·¢µÄ³ÌÐò»á±©Â¶³öÀ´¡£ÀûÓÃVBͨ¹ýAutoCAD ActiveX¼¼Êõ½¨Á¢VBÓëAutoCADÖ®¼äµÄÁ¬½Ó£¬¿É½â¾öÉÏÃæ³öÏÖµÄÎÊÌ⣬½¨Á¢Óû§Æô¶¯½çÃæÓëAutoCADµÄÓÐЧÁ¬½Ó£¬ÊµÏֹؼü´úÂëµÄÕûÌå·â×°¡£VBAµÄʹÓÿÉÒÔÖ±½Ó½øÈëAutoCAD£¬Ôڲ˵¥¹¤¾ßµÄºêÖнøÈëVBA¹ÜÀíÆ÷¡£ÓÃVB½øÐбà³Ì£¬ÐèÒª½«VBÓëAutoCAD½øÐÐÁ¬½Ó£¬ÔÚ±àдVB´úÂëǰ£¬ÔÚVB±à³Ì»·¾³ÖÐÒýÓÃAutoCAD¶ÔÏó¿â£¬È»ºó±àдVB´úÂ룬´´½¨AutoCAD¶ÔÏ󣬯ô¶¯AutoCAD¡£VBÓëAutoCADÁ¬½Óºó£¬¾Í¿ÉÒÔÀûÓÃAutoCAD¶ÔÏó¼°Ï¼¶¶ÔÏóµÄÊôÐԺͷ½·¨Íê³É±à³Ì¡£ÏÂÃæÊÇVB³ÌÐòÖÐÆô¶¯ÔËÐÐAutoCADµÄ×Ó³ÌÐò´úÂë¡£Dim AcadApp As Acad Application Public Sub Á¬½Ó AutoCAD£¨£©On Error Resume NextSet AcadApp=GetObject(, ¡°AutoCAD.Application¡±)If Err ThenErr.ClearSet Acad App=Creat Object(¡°AutoCAD.Application¡±)If Err ThenMsgBox(¡°²»ÄÜÔËÐÐAutoCAD2004,Çë¼ì²éÊÇ·ñ°²×°ÁËAutoCAD2004¡±)Exit SubEnd IfEnd IfAcad App.Visible=TrueEnd SubËÄ¡¢ÏµÍ³µÄʵÏÖ 1. ¹¦ÄÜʵÏֲ˵¥µÄÐÎ³É ´Ëϵͳ¹¦ÄܵÄʵÏÖÊÇͨ¹ýÓ¦ÓóÌÐò½øÈëAutoCAD£¬È»ºóÔÚAutoCAD±ê×¼ÏÂÀ²Ëµ¥µÄ°ïÖúºóÃæÌí¼ÓÒ»ÏîÒìÐÎÇиîÖ÷²Ëµ¥£¬È»ºóÔÚÖ÷²Ëµ¥ÏÂÃæÌí¼Ó×Ӳ˵¥£¬Èçͼ2Ëùʾ¡£ÏÂÃæÊÇʵÏÖÕâ¸ö¹ý³ÌµÄÖ÷Òª³ÌÐò´úÂë¡£Dim new Menu As Acad Popup MenuSet new Menu = Curr Menu Group.Menus.Add("ÒìÐÎÇиî" & Chr(Asc("&")) & "w")Dim menu Item Open2 As Acad Popup MenuItemSet menu Item Open2 = new Menu .Add Menu Item (newMenu.count + 1, "¹ì¼£ºÍ´úÂëÉú³É", macro & "-vbarun" + Chr(32) + "This Drawing.Com Dialog2" + Chr(32))Menu Item Open.Help String = "´úÂëÉú³É"http://img.hc360.com/mt/info/images/200612/2006121113.JPGͼ2 ¹¦ÄÜÏÂÀ²Ëµ¥ 2. ¹¤ÒÕ²ÎÊýµÄ¸ÉÔ¤ ϵͳÔÊÐíÓû§²ÉÓý»»¥µÄ·½Ê½ÔÚÃüÁîÐÐÊäÈë¼Ó¹¤Æðʼµã£¬¶Ô»°¿ò·½Ê½ÊäÈë¼Ó¹¤ËÙ¶È¡¢¶¨Î»ËÙ¶È¡¢Æ«ÖµÁ¿ºÍÇÐÈ뷽ʽµÈ£¬³ä·Ö¿¼ÂÇÁËʵ¼Ê¼Ó¹¤Çé¿ö¡£¸ù¾Ý¼Ó¹¤µÄʵÌå¸öÊý£¬À´²åÈëÖмäÍ˵¶µã£¬·ÀֹͼÐÎÖ®¼äµÄ¸ÉÉæ¡£ÁíÍ⣬Èô²ÉÓÃÔ²»¡ÇÐÈ뷽ʽ£¬»¹¿ÉÒÔÌá¸ßÇиîÖÊÁ¿£¬¸ÄÉÆÇиîÌØÐÔ¡£Í¼3Ϊ¹¤ÒÕ²ÎÊý¶Ô»°¿ò¡£http://img.hc360.com/mt/info/images/200612/2006121114.JPGͼ3 ¹¤ÒÕ²ÎÊý¶Ô»°¿ò 3. Êý¿Ø´úÂëµÄÉú³É ÕâÊÇϵͳµÄºËÐIJ¿·Ö£¬Ëü»á¸ù¾Ý¼Ó¹¤¹ì¼£ºÍÓû§Ñ¡¶¨µÄ¹¤ÒÕ²ÎÊý£¬×Ô¶¯Éú³ÉÏàÓ¦µÄÊý¿Ø´úÂë¡£Õë¶Ôÿ¸öAutoCADͼÐΣ¬AutoCADϵͳ¶¼ÓÐÒ»¸öÄÚ²¿Êý¾Ý¿âÓëÖ®¶ÔÓ¦¡£³ÌÐòÊ×ÏÈͨ¹ý±éÀúÑ¡Ôñ¼¯£¬ÌáÈ¡AutoCADͼÐÎÐÅÏ¢£¬¹¹ÔìÒ»¸ö×Ô¶¨ÒåÊý¾Ý¿â¡£¾¹ý¶Ô¿âÖÐʵÌåÀàÐ͵ÄÅжϣ¬½øÐзÖÀà´¦Àí£¬¶Ô¿é½øÐдòË飬¶Ô¶àÒåÏß½øÐвð·ÖµÈ²Ù×÷¡£È»ºó¸ù¾Ý¼Ó¹¤µÄ˳Ðò¹¹ÔìÓÐÐòÑ¡Ôñ¼¯¡£¶ÔÓÐÐòÑ¡Ôñ¼¯ÖеÄÖ±ÏߺÍÔ²»¡Á½ÖÖͼԪʵÌå½øÐÐ×éºÏ£¬·ÖΪֱÏß?Ö±Ïß¡¢Ö±Ïß?Ô²»¡¡¢Ô²»¡?Ö±ÏߺÍÔ²»¡?Ô²»¡µÈ4ÖÖ·½Ê½¡£ÓÉÓÚ»æÍ¼Ë³ÐòºÍÑ¡Ôñ¼Ó¹¤µÄ˳Ðò²»Ò»¶¨Ò»Ö£¬¸ù¾ÝÏཻÁ½ÊµÌåµÄ½»µã£¬À´ÅжÏÿÖÖ×éºÏ·½Ê½ÖÐͼԪµÄÆðµãºÍÖյ㣬ÒòΪÁ½ÏཻʵÌåµÄ4¸ö¶ËµãÖУ¬±ØÓÐ2¸öÖ®¼äµÄ¾àÀëСÓÚij¸öºÜСµÄÕûÊý¡£¾ßÌå´¦ÀíÁ÷³ÌÈçͼ4Ëùʾ¡£ÔÚNC´úÂë±íʾÖУ¬G02´ú±í˳ʱÕëÔ²»¡£¬G03´ú±íÄæÊ±ÕëÔ²»¡£¬Ö±ÏßÓÃG01±íʾ¡£Í¼5ΪÉú³ÉµÄ´úÂë¡£http://img.hc360.com/mt/info/images/200612/2006121115.JPGͼ4 Êý¿Ø´úÂëÉú³ÉµÄ¹ý³Ìhttp://img.hc360.com/mt/info/images/200612/2006121116.JPGͼ5 Êý¿Ø´úÂëÉú³É 4. ´úÂë·ÂÕæºÍУÑé ´úÂëÉú³É²¢´æÅÌÖ®ºó£¬Í¨¹ý¶Ô´úÂëµÄ·´¶Á½øÐй켣µÄ¶¯Ì¬·ÂÕæ£¬ÒÔ´ËÀ´Ð£Ñé´úÂëµÄÕýÈ·ÐÔ£¬·ÀÖ¹´úÂëµÄÓï·¨´íÎó»ò²»ÕýÈ·µÄÈËΪÐ޸ģ¬Í¼6Ϊ·ÂÕæµÄ¹ý³Ì¡£http://img.hc360.com/mt/info/images/200612/2006121117.JPGͼ6 ´úÂë·ÂÕæÎå¡¢½áÊøÓï ±¾ÏµÍ³Õë¶ÔÒìÐÎÇиî¼Ó¹¤µÄÌØÊ⹤ÒÕ£¬½áºÏAutoCADÇ¿´óµÄ»æÍ¼¹¦ÄÜ£¬ÊµÏÖÁËÊý¿Ø¼Ó¹¤µÄ×Ô¶¯±à³Ì£¬ÏµÍ³½çÃæÓѺá¢Ö±¹Û£¬ÐÔÄÜÎȶ¨£¬ÓнÏÇ¿µÄʵÓÃÐÔ¡£ÉÏһƪ£ºÆÕͨ»ú´²¸ÄÔì³ÉΪÐéÄâÖá»ú´²
ÏÂһƪ£ºÂÝÎÆÇÐÏ÷Ñ»·Ö¸Áî·ÖÎö¼°Ó¦ÓÃ
- Êг¡Ò»²¿£º022-58519722
- Êг¡¶þ²¿£º022-58519723
- ͶËßÊÜÀí£º022-58519721
- ´«Õæ×Ü»ú£º022-23868160
- NSKÖá³ÐÀàÐÍ
- µ÷ÐĹö×ÓÖá³Ð
- µ÷ÐÄÇòÖá³Ð
- ¹öÕë×éºÏÖá³Ð
- ¹Ø½ÚÖá³Ð
- ½Ç½Ó´¥ÇòÖá³Ð
- Éî¹µÇòÖá³Ð
- ÍÆÁ¦¹ö×ÓÖá³Ð
- ÍÆÁ¦ÇòÖá³Ð
- ÍâÇòÃæÇòÖá³Ð
- Ô²Öù¹ö×ÓÖá³Ð
- Ô²×¶¹ö×ÓÖá³Ð
- ÈȵãÐÂÎÅ
- ÈçºÎ×¢ÒâÂÖì±Öá³ÐµÄά»¤Óë±£Ñø ¡
- Öá³ÐµÄÓ¦ÓÃά»¤:Öá³Ð×ù¿×µÄÐÞ¸ ¡
- Öá³ÐµÄά»¤±£Ñø ¡
- ÂÖì±Öá³ÐÊÇÔõÑù×öÈÕ³£Î¬»¤ ¡
- Ôþ»úÖá³Ð֪ʶ:°²×°¡¢È󻬡¢Î¬» ¡
- ·Ä¶§NSKÖá³ÐµÄά»¤ºÍ±£Ñø·½·¨ ¡
- Æû³µÖá³ÐµÄ°²×°Ê¹Óü°Î¬»¤³£Ê¶ ¡
- NSKºÍF&FÔþ»úÖá³ÐµÄά»¤Óë¼à²â ¡
- DZϵÁзͧF&FÖá³ÐµÄά»¤ºÍ±£Ñ ¡
- NSK, F&FNSKÖá³ÐµÄά»¤±£Ñø ¡
- NSK»¬¶¯Öá³ÐµÄ°²×°¡¢Î¬»¤Òªµã ¡
- NSK, F&FÆû³µÂÖì±Öá³ÐµÄά»¤ ¡
- »¬¶¯Öá³ÐµÄ°²×°¡¢Î¬»¤Òªµã ¡
- NSKÖá³ÐµÄά»¤±£Ñø ¡