ايران ويج

با سلام

چه جوری میتونم از طریق کد نویسی در محیط 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)

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

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

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

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