¹«Ë¾LOGO
NSK Global Site
ÁªÏµÎÒÃÇ
ÁªÏµÎÒÃÇ
Õ¾µãµØͼ
Äúµ±Ç°µÄλÖ㺹«Ë¾Ö÷Ò³ >ÔÚAutoCAD R14.0ÖÐÓÃActiveX Automation¼¼Êõ¿ª·¢ÏßÇиîÊý¿Ø×Ô¶¯±à³Ìϵͳ

ÔÚAutoCAD R14.0ÖÐÓÃActiveX Automation¼¼Êõ¿ª·¢ÏßÇиîÊý¿Ø×Ô¶¯±à³Ìϵͳ

×÷Õߣºbearingpower        ·¢±íʱ¼ä£º2010-12-12

Õª¡¡Òª¡¡¡¡½éÉÜÁËAutoCAD R14.0µÄActiveX Automation¼¼Êõ¼°ÆäÓйØ×Ô¶¯±à³Ì³ÌÐòµÄÉè¼Æ¼¼Êõ£¬ÔÚAutoCAD R14.0¼¯³É»·¾³ÏÂʵÏֲ˵¥¼°°´Å¥Í¼±ê¿ª·¢µÄ·½·¨£¬²¢¸ø³öÁËʵÀý±à³Ì¡£ ¡¡¡¡¹Ø¼ü´Ê¡¡¡¡WEDM¡¡×Ô¶¯±à³Ì¡¡AutoCAD¡¡ActiveX Automation¼¼Êõ¡¡¿ª·¢¡¡¡¡Abstract¡¡¡¡This paper introduces the ActiveX Automation techniques of AutoCAD R14.0,the program design skill of the developing automatic program,the method of the developing menus and button icons in the integrated environment of AutoCAD R14.0,and gives a program example.1¡¡Ç°ÑÔ¡¡¡¡Ä¿Ç°£¬¹úÄÚÏßÇиî×Ô¶¯±à³Ìϵͳ²ÉÓõIJÙ×÷ƽ̨¾ø´ó¶àÊýΪDOS°æ±¾£¬²ÉÓø߼¶ÓïÑÔ¿ª·¢³ÌÐò£¬ÖÜÆÚ³¤¡¢¹¤×÷Á¿´ó£¬¼¼Êõ¿ª·¢¹¤¾ß½ÏÂäºó¡£¹úÄÚÓÐÔÚAutoCAD R12.0°æ±¾ÉÏ¿ª·¢×Ô¶¯±à³Ì£¬Ò²ÎªDOS°æ±¾£¬²Ù×÷ƽ̨Ҳ½ÏΪÂäºó£¬²¢ÇÒ±à³ÌÏ൱¸´ÔÓ¡£¡¡¡¡AutoCAD R14.0ÊÇÔÚWindows95/NT¶à´°¿Ú¶àÈÎÎñÏȽø²Ù×÷ƽ̨ÏÂÓÃVisual C++¿ª·¢³öÀ´µÄ£¬ÊÇÄ¿Ç°ÊÀ½çÉÏ×îºÃµÄ»æͼÈí¼þ£¬ÀûÓÃÆäÇ¿´ó»æͼ¹¦ÄÜÍê³É×Ô¶¯±à³ÌµÄͼÐÎÊäÈëÏ൱ÀíÏë¡£¡¡¡¡Í¬Ê±£¬AutoCAD R14.0Ö§³Ö΢ÈíµÄActiveX Automation¼¼Êõ£¬ÆäÏÔ¶³ö´óÔ¼70¸ö¶ÔÏó300¶àÖÖÊôÐÔ¸øAutomation Client(¿Í»§)£¬ActiveX Automation¼¼Êõ¿ÉÒÔÓÃVisual Basic 6.0³ÌÐòÀ´Ö±½ÓÔÚAutoCADͼÐÎÖÐÌáȡͼÐÎʵÌå(ÈçÖ±Ïß¡¢Ô²»¡)µÄÊôÐÔ(ÈçÆðµã¡¢Öյ㡢ԲÐĵÈ×ø±ê£¬Ô²°ë¾¶µÈ)£¬²¢¿É²Ù×ÝʵÌå¡£Ëæ×ŶàÈÎÎñ¶à´°¿Ú²Ù×÷ϵͳµÄ·¢Õ¹£¬ÏßÇиî×Ô¶¯±à³ÌÒ²±ØÐë½ô¸úµ±´úÏȽø¼ÆËã»ú¼¼ÊõµÄ·¢Õ¹£¬ÍÑÀëµ¥ÈÎÎñµ¥´°¿ÚµÄDOS°æ±¾¡£Òò´Ë£¬ÔÚAutoCAD R14.0ÖÐÓÃActiveXAutomation¼¼Êõ¿ª·¢Êý¿Ø×Ô¶¯±à³ÌϵͳºÜÓÐÒâÒå¡£2¡¡AutoCAD R14.0µÄActiveX Automation¼¼Êõ¼ò½é¡¡¡¡ActiveX¼¼ÊõÊÇÒ»×é»ùÓÚ¹¹¼þ¶ÔÏóÄ£ÐÍCOMµÄ¼¼Êõ¼¯ºÏ¡£ActiveX AutomationÊÇOLE(Object Linking and Embedding£¬¶ÔÏóÁ´½ÓºÍǶÈë)×Ô¶¯»¯¼¼ÊõµÄÀ©³äºÍ·¢Õ¹£¬ËüÊÊÓÃÓÚOLE¶ÔÏóÓëActiveX¶ÔÏó¡£Automation¼¼ÊõÔÊÐíÒ»¸öÓ¦ÓóÌÐò²Ù×ÝÁíÒ»¸öÓ¦ÓóÌÐòÖÐʵÏֵĶÔÏ󣬴Ӷø¿É±»²Ù×Ý¡£AutoCAD R14.0µÄActiveX Automation¶ÔÏóÄ£ÐÍÈçͼ1Ëùʾ£¬ËùÓеĶÔÏó×é³ÉÒ»¸ö²ã×´½á¹¹¡£×î¸ß²ãÊÇApplication¶ÔÏó£¬ÆäËû¶ÔÏó¶¼ÊÇApplication×Ó¶ÔÏó¡£Óë±¾×Ô¶¯±à³ÌÓйصÄAutoCAD R14.0µÄAutomation¶ÔÏóÈçÏ£ºhttp://www.icad.com.cn/wencui/UploadFiles_3722/200805/20080512120921787ͼ1¡¡AutoCAD R14.0µÄActiveX Automation¶ÔÏóÄ£ÐÍ¡¡¡¡(1)Application¶ÔÏó¡£Application¶ÔÏóÓÐÐí¶àÊôÐԺͷ½·¨£ºActiveDocumentÊôÐÔ·µ»Øµ±Ç°Îĵµ£¬ ActiveDocument¶ÔÏóÊÇAutoCADÕýÔڱ༭µÄͼÐΣ»PreferenceÊôÐÔ·µ»Ø¶ÔÏ󣬷µ»Ø¶ÔÏóµÈ¼ÛÓÚPreferences¶Ô»°¿ò¡£¡¡¡¡(2)Document¶ÔÏó¡£Document¶ÔÏóÊÇAutoCADµ±Ç°ÕýÔڱ༭µÄͼÐΣ¬Ëü¿É´æÈ¡ËùÓеÄAutoCADͼÐÎÓë·ÇͼÐζÔÏó¡£ ModelSpaceºÍPaperSpaceÊôÐÔ¿É´æȡͼÐζÔÏó(ÈçÖ±Ïß¡¢Ô²»¡¡¢¶àÒåÏßµÈ)£¬·ÇͼÐζÔÏó¿Éͨ¹ýÊôÐÔLayers¡¢LineType¡¢ TextStylesµÈ´æÈ¡¡£Document¶ÔÏó·½·¨ÓÐÎļþµÄ´æ´¢Óë´ò¿ª¡£AutoCADµÄͼÐλò·ÇͼÐζÔÏ󶼿ÉÒÔ¶ÔÏó¼¯ºÏ (CollectionSet)µÄÐÎʽ´æÔÚ£¬Í¨¹ý¶ÔÕâЩ¶ÔÏ󼯺ϵIJÙ×÷£¬¿É±éÀúµ½µ±Ç°Í¼ÐÎÖÐËùÓеĶÔÏ󡣡¡¡¡(3)ͼÐζÔÏó¡£AutoCADµÄͼÐζÔÏó±»³ÆΪʵÌå(Entities)£¬ÊÇͼÐεĿɼû¶ÔÏó¡£°üÀ¨Lines(Ï߶Î)¡¢Arcs(Ô²»¡)¡¢Polylines(¶àÒåÏß)¡¢Dims(³ß´ç±ê×¢)µÈ¡£¿ÉʹÓÃModelSpaceºÍPaperSpaceµÄAddEntityname·½·¨²úÉúÒ»¸öеÄͼÐζÔÏó¡£Í¼ÐζÔÏóµÄ±à¼­¿Éͨ¹ýͼÐζÔÏó×ÔÉíµÄ·½·¨(Copy,Erase,Move,RotateµÈ)ʵÏÖ¡£Ò»Ð©Í¼ÐζÔÏóµÄµäÐÍÌØÕ÷¿Éͨ¹ý¶ÔÏóÊôÐÔ½øÐÐÐ޸ģ¬ÈçColor(ÑÕÉ«)¡¢LineType (ÏßÐÎ)¡¢Layer(ͼ²ã)µÈ¡£¡¡¡¡(4)·ÇͼÐζÔÏó¡£·ÇͼÐζÔÏóÊÇָͼÐÎÖв»¿É¼û¶ÔÏó¡£°üÀ¨Dimstyle³ß´ç±ê×¢·ç¸ñ£¬LineType(ÏßÐÍ)¡¢SelectionSetÑ¡Ôñ¼¯µÈ¡£¡¡¡¡(5)Preferences¶ÔÏ󡣿ɲéѯºÍÉèÖÃPreferences¶Ô»°¿ò£¬¸Ã¶ÔÏóÒ²ÊÇApplication¶ÔÏóµÄ×Ó¶ÔÏó£¬ËüµÄÖ÷Òª¹¦ÄÜÊǽøÐн»»¥ÊäÈëºÍÀàÐÍת»»¡£3¡¡AutoCAD R14.0µÄActiveX Automation¼¼Êõ±à³ÌÉè¼Æ¡¡¡¡AutoCAD R14.0µÄActiveX Automation¼¼Êõ±à³ÌÉè¼ÆÁ÷³ÌͼÈçͼ2Ëùʾ¡£http://www.icad.com.cn/wencui/UploadFiles_3722/200805/20080512120921127ͼ2¡¡³ÌÐòÉè¼ÆÁ÷³Ìͼ3.1¡¡ÉèÖÃÓ¦ÓóÌÐòÈ«¾Ö±äÁ¿¡¡¡¡Ò»¸öVisual Basic 6.0Ó¦ÓóÌÐò°üÀ¨ÈýÀàÄ£¿é£º´°ÌåÄ£¿é¡¢È«¾ÖÄ£¿é¡¢ÀàÄ£¿é¡£ÎªÌá¸ß³ÌÐòµÄ½¡×³ÐÔºÍÔËÐÐЧÂÊ£¬½«Application¶ÔÏó¡¢Document¶ÔÏó¡¢ModelSpace¶ÔÏóºÍPaperSpace¶ÔÏó¶¨ÒåΪȫ¾Ö±äÁ¿¡£3.2¡¡½«Application¶ÔÏóÓëAutoCAD³ÌÐòÁ´½Ó¡¡¡¡Application¶ÔÏóÊÇVBÓ¦ÓóÌÐòÓëAutoCADÖ®¼äÁ´½ÓµÄ¹Ø¼ü¡£Ö»ÓÐͨ¹ýApplication¶ÔÏó²ÅÄÜ»ñµÃDocument¶ÔÏó¡¢ ModelSpaceºÍPaperSpace¶ÔÏó¡£½«Application¶ÔÏóÓëAutoCADÁ´½ÓÊÇΪAutoCAD¿ª·¢ActiveX AutomationÓ¦ÓóÌÐòµÄµÚÒ»²½¹¤×÷¡£¡¡¡¡Application¶ÔÏóÓëAutoCADÁ´½ÓµÄ´úÂëÈçÏÂËùʾ¡£Èç³É¹¦Ôò·µ»ØApplication¶ÔÏ󣬷ñÔòÀûÓÃÐÅÏ¢¿ò·´À¡´íÎóÐÅÏ¢¡£Dim acadApp As Object¡¡On Error Resume Next¡®·µ»ØApplication¶ÔÏóSet acadApp=GetObject(,"AutoCAD.Application")If Err Then¡¡Err.Clear¡¡`Èç¹ûÔÚAutoCADûÓÐÔËÐУ¬ÔòÇ¿ÆÈAutoCADÆô¶¯¡¡Set acadApp=CreateObject("AutoCAD.Application")¡¡¡¡If Err Then¡¡¡¡¡¡MsgBox Err.Description `·´À¡´íÎóÐÅÏ¢¡¡¡¡¡¡Exit Sub¡¡¡¡End If¡¡End IfacadApp.Visible=True¡¡¡¡µÃµ½ÁËApplication¶ÔÏ󣬾Ϳɵ÷ÓÃÏàÓ¦µÄ·½·¨Ó뺯Êý¡£µ÷ÓÃActiveDocumentÊôÐԿɵõ½µ±Ç°µÄDocument¶ÔÏó¡£µ÷ÓÃPreferencesÊôÐԿɵõ½Preferences¶ÔÏó¡£3.3¡¡Ê¹ÓÃDocument¶ÔÏó¡¡¡¡AutoCADÊôÐÔµÄDocument¶ÔÏóÊǽøÐÐͼÐα༭µÄ×î¸ß²ã¶ÔÏó¡£Application¶ÔÏóµÄActiveDocument·µ»ØÒ»¸öDocument¶ÔÏó£¬ËüÊǵ±Ç°ÕýÔڱ༭µÄͼÐΡ£ÏÂÃæµÄ´úÂë²úÉúÒ»¸öеÄDocument¶ÔÏ󡣡¡¡¡Dim acadDoc As Object¡¡¡¡Set acadDoc=acadApp.ActiveDocument¡¡¡¡µ±µÃµ½Document¶ÔÏóºó£¬¾Í¿ÉʹÓÃËüµÄ·½·¨ºÍÊôÐÔ¡£3.4¡¡Áã¼þͼÐÎÊäÈë¼°´¦Àí¡¡¡¡ÔÚAutoCADÖа´Áã¼þͼֽ³ß´çÊäÈëÁã¼þͼÐΣ¬¿ÉÀûÓñ¾ÎÄ¿ª·¢µÄ¡°»æͼµãÏßÔ²¼°¹¤¾ß¡±²Ëµ¥ºÍ¡°»æͼµãÏßÔ²¼°¹¤¾ß¡±°´Å¥Í¼±ê·½±ãµØʵÏÖ¡£½«Áã¼þͼÐα༭³É¶àÒåÏߣ¬¼ÓÈë·Åµç¼ä϶Á¿£¬¼ÓÈë´©Ë¿Ïߣ¬Áã¼þͼÐδ¦ÀíÍê±Ï¡£3.5¡¡¹¹ÔìAutoCADÑ¡Ôñ¼¯¡¡¡¡½«ÕýÔڱ༭µÄͼÐεÄÖ±ÏߺÍÔ²»¡¹¹³ÉÒ»¸öÑ¡Ôñ¼¯¡£ÆäÖÐÑ¡ÔñµÄµÚÒ»¡¢µÚ¶þÔªËØ(ʵÌå)˳Ðò±ØÐëΪͼÐεļӹ¤·½Ïò£¬µÚÒ»¶ÎʵÌå¿ÉΪ´©Ë¿Ïß¡£¹¹ÔìAutoCADÑ¡Ôñ¼¯´úÂëÈçÏ£º¡¡¡¡Dim sset As Object¡¡¡¡Set sset=acadDoc.SelectionSets.Add("ss1") ¡¡¡ä¹¹ÔìÐÂÑ¡Ôñ¼¯¡¡¡¡Sset.SelectionOnScreen ¡¡¡äÔÚÆÁÄ»ÉÏÑ¡ÔñÖ±ÏßÔ²»¡ÊµÌå3.6¡¡È·¶¨Ñ¡Ôñ¼¯µÄµÚÒ»¡¢µÚ¶þ¶ÎÔªËصļӹ¤Æðµã¡¢ÖÕµã×ø±ê¡¡¡¡µÚÒ»¡¢µÚ¶þ¶ÎÔªËصÄÆðµã¡¢ÖÕµãÊǸù¾Ý»æͼµÄ˳ÐòÈ·¶¨£¬¸ù¾ÝµÚÒ»¶ÎÓëµÚ¶þ¶ÎÔªËصÄÏàÁ¬µã£¬È·¶¨³ö¼Ó¹¤·½ÏòµÄÆðµã¡¢ÖÕµã×ø±ê¡£3.7¡¡¶ÔËùÓÐÑ¡ÔñµÄʵÌå½øÐÐÅÅÐò¡¡¡¡È·¶¨Á˼ӹ¤·½ÏòµÄµÚ¶þ¶ÎÔªËصÄÖյ㣬ÔÙÒÀ´ÎËÑÑ°Óë¼Ó¹¤·½ÏòµÚ¶þ¶ÎÔªËØÖÕµãÏàÁ¬µÄÖ±Ïß»òÔ²»¡£¬×÷Ϊ¼Ó¹¤·½ÏòµÄµÚÈý¶ÎÔªËØ£¬¸ù¾Ý¼Ó¹¤µÄµÚÈý¶ÎÔªËØ(ʵÌå)µÄÖÕµãÔÙËÑÑ°ÓëÆäÏàÁ¬µÄÏÂÒ»¶ÎÔªËØ(ʵÌå)£¬¡­¡­£¬Ö±µ½ÅÅÐòÍêËùÓмӹ¤·½ÏòµÄʵÌå¡£3.8¡¡Éú³É3BÊý¿Ø¼Ó¹¤´úÂë»òISO´úÂë¡¡¡¡ÅÅÐòµÄͬʱ£¬µÃµ½Á˸÷¶ÎÅÅÐòʵÌåµÄ¼¸ºÎÊý¾Ý£¬Èç¼Ó¹¤·½ÏòÖ±ÏßµÄÆðµã¡¢ÖÕµã×ø±ê£»Ô²»¡µÄÆðµã¡¢Öյ㡢ԲÐÄ×ø±ê£¬Æðʼ½Ç¡¢ÖÕÖ¹½Ç£¬Ô²»¡°ë¾¶£¬Ô²»¡·½ÏòµÈ¡£¡¡¡¡¸ù¾Ý¼Ó¹¤Ö±ÏßÔ²»¡µÄÊý¾Ý£¬¿É·½±ãµØÉú³É3BÊý¿Ø¼Ó¹¤´úÂë»òISO´úÂë¡£4¡¡Ó¦Óò˵¥¼°°´Å¥Í¼±êµÄ¿ª·¢¡¡¡¡Ò»°ã×Ô¶¯±à³Ì»æͼÓÐ12ÖÖÖ±Ïß¡¢16ÖÖÔ²»¡ºÍ4Öֵ㡣¿ÉÀûÓÃAutoCADµÄ²Ëµ¥Îļþ·½±ãµØÀ©³äAutoCADµÄ¹¦ÄÜ¡£±¾ÎÄÓÃд×Ö°å±à¼­³ÌÐòµ÷³ö²Ëµ¥Ô´ÎļþAcad.mns£¬ÔÚ¡°°ïÖú¡±²Ëµ¥ºó°´Õղ˵¥µÄ±ê×¼¸ñʽÔö¼Ó²Ëµ¥¡°»æÖƵãÏßÔ²¼°¹¤¾ß¡±Ï¼´Éú³ÉËùÐèµÄÓ¦Óò˵¥¡£¡¡¡¡ÀûÓÃAutoCADµÄ°´Å¥Í¼±ê¿ª·¢¹¤¾ß£¬¼´ÏÂÀ­²Ëµ¥Öеġ°View/Toolbars¡±²Ëµ¥Ñ¡Ïî¡¢¡°Toolbars¡±¶Ô»°¿ò¡¢¡°New Toolbar¡±¶Ô»°¿ò¡¢¡°Customize Toolbars¡±¶Ô»°¿ò¡¢¡°Button Properties¡±¶Ô»°¿ò¡¢¡°Button Edit¡±¶Ô»°¿ò£¬¿ÉÉú³É°´Å¥Í¼±ê²¢¹ÒÉÏËùÒªÖ´ÐеÄÃüÁî¡£5¡¡Visual Basic 6.0³ÌÐòÎļþµÄÉú³É¡¡¡¡ÔÚVisual Basic 6.0Ͻ¨Á¢Èçͼ3ËùʾµÄ¹¤³Ì1(×Ô¶¯±à³Ì.vbp)£¬ÆäÖÐ3BÖ¸ÁîÏÔʾ.frm´°ÌåÊÇÓÃRichTextBox¸ß¼¶Îı¾¿Ø¼þÖÆ×öµÄд×ְ壬ÓÃÀ´ÏÔʾÉú³ÉµÄ3BÖ¸Á²¢¶ÔÉú³ÉµÄ3BÖ¸Áî½øÐб£´æ¡£¼Ó¹¤·ÂÕæ.FRM´°ÌåÓÃÀ´ÏÔʾ¼Ó¹¤·ÂÕæµÄͼÐΡ£×Ô¶¯±à³Ì.basÄ£¿éÊǶÔAutoCAD½øÐд¦ÀíµÄÖ÷Ҫģ¿é¡£¸Ã¹¤³ÌÉú³É¿ÉÖ´ÐÐÎļþR14_3b.exe£¬Íâ¹ÒÔÚAcad.pgp³ÌÐòÖУ¬¼´¿ÉÔÚAutoCADÖÐÖ´ÐС£http://www.icad.com.cn/wencui/UploadFiles_3722/200805/20080512120921362ͼ3¡¡Ó¦ÓóÌÐòVB6.0¹¤³ÌµÄ½¨Á¢6¡¡±à³ÌʵÀý¡¡¡¡ÔÚAutoCADÖÐÊäÈëÈçͼ4ËùʾµÄͼÐΣ¬½«Í¼Ðα༭³É¶àÒåÏߣ¬¼ÓÈë·Åµç¼ä϶¼°´©Ë¿Ïß¡£ÓÃÊó±êµ¥»÷¡°3B¡±Í¼±ê°´Å¥£¬ÔÙµ¥Ñ¡´©Ë¿ÏßΪµÚÒ»¶ÎʵÌ壬´©Ë¿Ïß×ó±ßΪµÚ¶þ¶ÎʵÌ壬ÔÙÓø´Ñ¡¿òÈ«Ñ¡Õû¸öͼÐκ󣬰´Êó±ê×ó¼ü¼´¿ÉÉú³É3B´úÂë¡£http://www.icad.com.cn/wencui/UploadFiles_3722/200805/20080512120921796ͼ4¡¡±à³ÌʵÀý7¡¡½áÊøÓï¡¡¡¡ÔÚAutoCADÖÐÓÃActiveX Automation¼¼Êõ¿ª·¢Êý¿Ø±à³ÌµÄÖÜÆڶ̣»¿ª·¢¹¤¾ß¼°¼¼Êõƽ̨ÏȽø£¬±à³Ì¼òµ¥£»Ê¹Óò˵¥ºÍ°´Å¥Í¼±ê£¬»æͼ¼òµ¥Ò×ѧ£¬Óû§½çÃæºÍͨÓÃÐÔÄܺ㻿ÉÔÚͬһ¸ö*.dwgÎļþÖлæÖƶà¸öÁã¼þͼÐΣ¬·Ö±ðÉú³É¼Ó¹¤Ö¸ÁÀûÓöര¿ÚÌØÐÔ£¬¿É²»Í˳öϵͳ£¬²é¿´Éú³ÉµÄ3BÖ¸Áî¡¢AutoCAD±à¼­µÄͼÐκͼӹ¤·ÂÕæͼÐΣ¬·Ç³£·½±ã¡£¼ÆËã»úµÄÅäÖÃÒ²½Ï¼òµ¥£¬ÄܽϺõØÂú×ã×Ô¶¯±à³ÌµÄÒªÇó¡£
  • Êг¡Ò»²¿£º022-58519722
  • Êг¡¶þ²¿£º022-58519723
  • ͶËßÊÜÀí£º022-58519721
  • ´«Õæ×Ü»ú£º022-23868160