你好
autocad developer帮助参考中的所有VBA和Activex示例都在VBA中。我不知道vba,所以我如何使用它们?
例如,此代码:
Sub Ch4_AddLightWeightPolyline() Dim plineObj As AcadLWPolyline Dim points(0 To 5) As Double ' Define the 2D polyline points points(0) = 2: points(1) = 4 points(2) = 4: points(3) = 2 points(4) = 6: points(5) = 4 ' Create a light weight Polyline object in model space Set plineObj = ThisDrawing.ModelSpace. _ AddLightWeightPolyline(points) ThisDrawing.Application.ZoomAllEndSub
参考文献中关于如何创建选择集的更令人困惑的例子:
Sub Ch4_CreateSelectionSet() Dim selectionSet1 As AcadSelectionSet Set selectionSet1 = ThisDrawing.SelectionSets. _ Add("NewSelectionSet")End Sub
在autolisp中你会怎么说?
谢谢
谢伊