رسم دایره در اتوکد از طریق کد نویسی در محیط ویژوال بیسیک 6

[AmirPasha_vb]

با سلام

چه جوری میتونم از طریق کد نویسی در محیط VB6 یک دایره رو در اتوکد رسم کنم ؟

من یه همچین کدهایی پیدا کردم اما کار نمیکنه (یعنی من در آوردیه)

کد:

Dim Acad_App As New AutoCAD.AcadApplication
Dim Acad_Doc As New AutoCAD.AcadDocument

Set Acad_App = AutoCAD.AcadApplication
Set Acad_Doc = Acad_App.ActiveDocument

Acad_App.Visible = True

Dim R As Integer
Dim CP(0 To 2) As Double
Dim MyCircle As AcadCircle
CP(0) = 200
CP(0) = 300
CP(0) = 0

Set MyCircle = Acad_Doc.ModelSpace.AddCircle(CP, R)

[civilmans]

چرا كار نميكنه؟ اين كدهاي vba هستند و در محيط vba اتوكد كار ميكنه
احتمالا در خطوط اول مشكل داريد؟

[AmirPasha_vb]

نه مشکلم اینه که در محیط VBA اتوکد نمیخوام این کارو بکنم از توی VB6 میخواستم این کارو بکنم !
ظاهرا مشکلی ندارند اما نمیدونم چرا اررور میده

یه سوال دیگه هم داشتم آیا اتوکد هم مانند اکسل قابلیت ماکرو دارد ؟

[civilmans]

بله قابليت برنامه نويسي VBA را دارد