Re: Интересно ? / Компютри и Интернет / CAD/CAM

Ами разгледах ги но само в интернет. Като си ги свалих на диска нещо се разколебах - не само че е демо версия, ами и съм сърбал попарата на вирус дето ми изтри доста важни работи. Аз лично започнах като си взех една книжка за VBasic и почнах да пробвам разни неща макар че това не ми е основно занимание. Другото е да се четат HELP-овете и дадените там примери и най-важното да го използваш. Решаваш, че искаш да направиш нещо (отговарящо на нивото ти) и почваш да си блъскаш главата. Аз така доста си поблъсках главата докато напиша един Macros - щото в Help-овете и книгите няма нищо за командите и процедурите свързващи AUTOCAD i VBasic. И след като го написах криво-ляво реших, че може да пробвам пак само ако си намеря литература за това - голям зор видях. Така че ако искаш да се позанимаваш с това според мен - почвай директно без допълнителни програми. Литература и за Бейсик и за Аутокад има в изобилие и в интернет и по книжарниците, но трябва да има човек доста време.
Ами това е - успех, и още един път благодарности !!!

Sub triangle
Dim pnt_1(0 to 2) as Double, pnt_2(0 to 2) as Double, _
pnt_3(0 to 2) as Double
Dim line as AcadLine
pnt_1(0)=0: pnt_1(1)=0: pnt_1(2)=0
pnt_2(0)=4: pnt_2(1)=0: pnt_2(2)=0
pnt_3(0)=4: pnt_3(1)=3: pnt_3(2)=0
Set line=ThisDrawing.ModelSpace.AddLine(pnt_1, pnt_2)
Set line=ThisDrawing.ModelSpace.AddLine(pnt_2, pnt_3)
Set line=ThisDrawing.ModelSpace.AddLine(pnt_3, pnt_1)
ZoomExtents
End Sub

Sub triangle
Dim acad_obj as AcadApplication
Set acad_obj=CreateObject("AutoCAD.Application")
acad_obj.Visible=True
Dim acad_ms as AcadModelSpace
Set acad_ms=acad_obj.ActiveDocument.ModelSpace
Dim pnt_1(0 to 2) as Double, pnt_2(0 to 2) as Double, _
pnt_3(0 to 2) as Double
Dim line as AcadLine
pnt_1(0)=0: pnt_1(1)=0: pnt_1(2)=0
pnt_2(0)=4: pnt_2(1)=0: pnt_2(2)=0
pnt_3(0)=4: pnt_3(1)=3: pnt_3(2)=0
Set line=acad_ms.AddLine(pnt_1, pnt_2)
Set line=acad_ms.AddLine(pnt_2, pnt_3)
Set line=acad_ms.AddLine(pnt_3, pnt_1)
acad_obj.ZoomExtents
End Sub