ارسال الاوامر من الاكسل للاوتوكاد

[Darmear]

السلام عليكم ورحمة الله وبركاته

كل عام وانتم بخير

بمناسبة عيد الاضحي المبارك

هذه ثان مشاركة لي بهذا المنتدي الرائع

ارجو مساعدتي ممن لدية الخبرة 

سؤالي هو

لقد فتحت ملف اوتوكاد وملف اكسل بالترتيب

ولديك خلايا اذا تم نسخها ولصقها في الاوتوكاد يقوم برسم مجموعه خطوط 

المطلوب ماكرو او كود اخصصه لذر عند الضغط عليه يقوم بنسخ الخلايا ولصقها في الاوتوكاد 

جربت هذا الامر وما ابدي نفعا

Sub Macro1()

    Range("F13:F22").Select
    Selection.Copy
    Set ExcelObj = GetObject(, "Excel.Application")
    Set acadobj = GetObject(, "AutoCAD.Application")
    ExcelObj.WindowState = xlMinimized
    acadobj.WindowState = vbMaximizedFocus
    acadobj.sendcommand "_paste" ' الخطا فقط في هذا السطر او هذه العملية 
    
End Sub

مرفق الملف وبه الكود

اتمني ان اجد لديكم حلا 

فقط وليس اكثر وشكرا لكم مقدما

 

book.xls

[Darmear]

If you want to paste some cells value in autocad 
whats the formula should be
as a example
----------------------------------------

Dim acApp As Object, x, y
    Range("F13:F22").Select
    Selection.Copy
    Set ExcelObj = GetObject(, "Excel.Application")
    Set acadobj = GetObject(, "AutoCAD.Application")
    ExcelObj.WindowState = xlMinimized
    acadobj.WindowState = vbMaximizedFocus
    acadobj.activedocument.sendcommand "_paste" & Chr(13)
End Sub

-----------------------------------------------
this not working , i donot know why
please , help me