🚀 go-pugleaf

                   VB ��ACADWIN �� �� ʹ �� 

        �� �� �� �� �� �� �� �� �� Ժ �� ҵ ¯ ��(100053)    �� �� �� 



        AutoCAD �� һ �� �� �� �� ҵ �� ͼ ƽ ̨, �� �� �� ʹ �� ʱ �� �� Ҫ ��Lisp ��ADS
 �� �� �� �� �� ��, ��Lisp �� �� �� �� �� �� �� ��, �� �� �� �� �� ��, ��ADS Ҫ �� �� ��
 �� �� �� ֮ �£�Visual Basic( �� �� �� ��VB) �� д �� �� �� �� �� �� �� �죬 �� �� �� ��
 �� �ף� �� �� �� �� �� �� �㣬 �� �� �� �� �� �⡣ACADWIN ��AUTOCAD ��Windows
 �� �� �� �� ��WINDOWS �� �� �� �� �㡣 �� �� �� ��DDE �� ��VB ��ACADWIN ֮
 �� �� ͨ Ѷ�� ʵ ��AutoCAD �� �̡� 

 VB ��ACADWIN �� Ӧ �� �� �� 

        �� ΪACADWIN R12 �� ֧ �� �� PastLink �� ֱ ��DDE �� ��, �� �� Ҫ �� һ �� ��
 �� ��VB �� �� ϵ�� �� �� �� �� �� �� �ݡ� �� �� �� Ҫ �� �� �� �� �� �� �� ��: 

        1):DDEBAS.EXE �� ��VB/DDE �� �� �� �� ��, �� �� �� �� ��VB Ӧ �� �� �� ǰ ��
 ��, �� �� �� �� �� �� ��:��XLOAD��DDEBAS������ 
        2):ACADVB.DLL��VB Ӧ �� �� �� �� �� ̬ �� �� �⡣ 
        3):GLOBAL.BAS��VB Ӧ �� �� �� �� ȫ �� �� �� �� �� �� �� ���� 
        4):ADSFUNCS.BAS��VB Ӧ �� �� �� ��ADS �� �� ׼ �� �� �� �� �á� 
        5):ADSFUNCS.FRM�� �� ׼ACADWIN �� �� ʼVB �� �ڡ� 
        6):NEW.FRM�� �� �� �� �� �� ׼ �� ʼVB �� �ڡ� 

        ��4 �� �� �� ��ACADWIN/VB/NEW Ŀ ¼ ��, �� �� ʱ ֻ Ҫ �� ��NEWPROJ.MAK
 �� �� �� ��, ��NEW.FRM �� �� �� Ҫ, ֻ Ҫ �� �� �� �� �� �� ΪADSFUNC.FRM ��
 �ɡ� 

 VB ��ACADWIN �� ʹ �� �� �� 

        Ϊ �� ʵ ��DDE ͨ Ѷ�� �� Ҫ ��ADSFUNCS.FRM �� �� �� һ �� �� �� ͨ Ѷ
 ��TEXT( �� �� ��) �� ��, �� �� �� �� �� �� �� ��NAME �� �� ΪACADTEXT��TEXT
 ��CAPTION �� Ϊ �� ���� �� �� �� �� �� �� Ҫ �� �� Ϣ����VISIBLE �� �� ��
 ΪTURE�� ��linkapp �� �� �� ʼ �� �� �� �� �� �ӡ� 

        �� �� linkapp �� �� �� ��: 

        sub linkapp(link as contonl,appname as string,topic as string) 
        link.linkmode=0' �� �� ͨ Ѷ 
        link.linktopic=appname+��|��+topic ' �� ͨ Ѷ �� �� 
        link.linkmode=2 ' �� �� ͨ Ѷ 
        end sub 
        �� �� һ �� �� ��unlinkapp, �� �� �� �� ��: 
        sub unlinkapp(link as contonl) 
        link.linkmode=0' �� �� ͨ Ѷ 
        end sub 
        �� �� �� �� �� �У� �� �� �� �� �� �룺 
        sub form_load() 
        LINKAPP ACADTEXT,��AUTOCAD.DDE��,��SYSTEM�� 
        end sub 
        sub form_unload(cancel as integer) 
        UNLINKAPP ACADTEXT 
        end sub 

        �� �� Բ��CIRCLE���� �� ��ADSFUNC.FRM �� �� �� һ �� �� ��
 ťCOMMAND1�� �� ��CAPTION �� Ϊ��C 
        IRCLE���� �� �� �� �� �� �� �� �� �� �� �룺 
        SUB COMMAND1_CLICK() 
        ACADTEXT.LINKEXECUTE ��[^3^3 CIRCLE]�� 
        END SUB 

        �� �� �� �� ʵ �� �� ͼ �� � �� �� Ҫ ʵ �� �� �� �� �� �ܣ� �� �� ׽ �� �� �㣬
 �� �� �� �ԣ� �� �� �� �� ͼ�� �� �� �� �� �� �� �� �� �� �� �� �� �ܣ� �� �� �� �� ��
 һ ��Lisp �� �� Ȼ �� �� �� �� �� �� �� �� �� �� �� �� �� ͼ �� �� �� �� �� �� �� �� ��
 �� Ҫ �� ����SendKey" �� �䡣 �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� ��
 �� �� �� �� �� �� �� �� һ �� �� ʱ �� �� �� ��FindACAD() �� ��ACADWIN �� ��
 �� �� ��AcadACTIVE �� �� �� ��ACADWIN, ʹ �� �� �� �� �㣬 �� ʱ �� �� ��
 ��SendKey �ˡ� 

        �� �� һ ��Lisp �� ��YZ.LSP, �� �� �� Ϊ��C:YZ()��, �� �� ��ADSFUNC.FRM �� ��
 �� һ �� �� �� ťCOMMAND2�� �� ��CAPTION �� Ϊ��YZ���� �� �� �� �� �� �� ��
 �� �� �� �룺 

        SUB COMMAND2_CLICK() 
        hwndAcad%=FindAcad() 
        AcadActivate(hwndAcad%) 
        SendKeys ��{(}load+��yz+'{)}��, -1 
        SendKeys ��{enter}��, -1 
        SendKeys ��yz��, -1 
        END SUB 

        �� �� �� �� �� �� ʵ �� ͨ ��VB �� �� �� ѡ ȡ �� �� �� �� �� �㣻 ��Lisp �� ��
 �� ͼ�� �� �� �� �� �� ֵ �� ע ��: һ�� �� Ҫ �� �� �� �� �� �� �ݣ� �� �� �� ��VB д
 �� ʱ �� �� �� ���� �� ��Lisp �� �� �� ʱ �� �� �� ���� ���� �� Ϊ �� �� �� �� �� �� һ
 �� ʹACADWIN ��VB Ӧ �� �� �� �� �� ͬ ʱ �� ��Lisp �� �� ִ �� �� �ϣ� �� �� ��
 �� �� �� ��VB Ӧ �� �� �� �� ʱ �� �� ͨ �� �� ��Windows API �� ��SetWindowPos ��
 ʹ Ӧ �� �� �� �� �� �� �� �� �棬 �� �� �� �� �� �� �� �� �ڡ� �� �� �� �� �� ʵ �� ��
 �� �� �� �� �� ��. 

        ��ADSFUNCS.BAS �� Ҳ �� �� �� �� ��ADS �� �� �� �� �� �á�
 ��ACADWIN\VB\ASVU �� �� һ �� �� ��ASVU.EXE, �� �� Ӧ ��Ads_getvar
 ��Ads_setvar �� �� ��SYSVARS.MAK ��intervai.bas �� �� �� ���� ��DDE �� �� �� ��
 ʽ Ҫ �� �䣬 �� �� �� �� �� �� �� �� �� �� �ϣ� 

        DDE_TIMEOUT=-1 ' �� �� һ ��DDE �� �� 
        openDDE 'ADSFUNCS.BAS �� һ �� �� �� �� ʼ ��DDE �� �� 

--
�� ��Դ:��Yat-sen Channel argo.zsu.edu.cn��[FROM: 202.116.78.75]