;;;;;;;;;;;;;;;;;;;; Description ;;;;;;;;;;;;;;;;;
When you want to adapt a code given in the Help section of AutoCAD for excel macro purposes.
Here under an extract of a code from the tremendous " AutoCAD Help" for VBA developper.
Thus, you just have to replace in the original code : Thisdrawing by a local variable as follows :
Dim AcadApp As AcadApplication
Dim AcadDoc As Variant
Set AcadApp = GetObject(, "AutoCAD.Application.17")
Set AcadDoc = AcadApp.Application.ActiveDocument
When you want to adapt a code given in the Help section of AutoCAD for excel macro purposes.
Here under an extract of a code from the tremendous " AutoCAD Help" for VBA developper.
Thus, you just have to replace in the original code : Thisdrawing by a local variable as follows :
Dim AcadApp As AcadApplication
Dim AcadDoc As Variant
Set AcadApp = GetObject(, "AutoCAD.Application.17")
Set AcadDoc = AcadApp.Application.ActiveDocument
No comments:
Post a Comment